Excel VBA 質問スレ Part78

2022/10/30(日) 13:43:16.31

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.5ch.net/test/read.cgi/tech/1658009255/

-
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2022/10/30(日) 13:52:22.69

3行貼り付けても
2行になるんだな　この呪文↓

!extend:checked:vvvvv:1000:512

2022/10/30(日) 13:52:41.17

1行目は本物の呪文
2行目は次回スレ立て時用の呪文
3行目は間違って消す馬鹿除けの保険

2022/10/30(日) 13:54:09.50

とりあえず建てたよ。
あと進行よろしくお願いします。

2022/10/30(日) 15:40:36.74

初心者はなんで自分の能力でできないことをやりたがるんだろうね

2022/10/30(日) 15:56:30.95

そりゃ自分でできることだけやってても伸びないからじゃね

2022/10/30(日) 15:59:52.83

>>5
子供と一緒で自分の能力でできることを知らないからじゃない？

2022/10/30(日) 16:51:58.49

出来なかったことがやれるように成ったらうれしかろ？　次のステップは踏みたいじゃん　階段途中で足止め食うよりは
https://chie-pctr.c.yimg.jp/dk/iwiz-chie/que-13121424663?w=999&h=999&up=0
前スレの最後の質問は、ログっぽさ出そうと苦労しても出力が一瞬で終わってガッカリすると思う
よっぽどひつこいloopとかさせて延々と処理し続けるコード書くなんてのも無駄の極みだし
出力に遅延処理させる？　Excel上ではとっくに結果出てるのにログっぽい画面ではダラダラ出力し続けさせる？
うん、悪くない　関係無いが、マトリックスのOPの象徴をマトリックス・コード　デジタル・レインとか呼ぶらしい　今更知った

2022/10/30(日) 17:13:30.48

>>5
それ以前に使うソフト間違ってねえか？
てのばかりだしね。
出来ること出来ないことの判断がさ。

2022/10/30(日) 18:34:39.52

>>5
そもそも自分の能力で出来るならこのスレに来ないし

2022/10/30(日) 19:11:45.46

>>5
判断すらできないし、それを指摘する人もまわりにいないんでしょ

2022/10/30(日) 19:21:37.70

自分でできない処理をやりたいと考えるだけならいいが
自分で調べたりしないで質問したらやってもらえるとか思ってるんじゃないか

2022/10/31(月) 11:08:09.71

しばらく前からそういう層は増えてる　黎明期のような、積極的に見知らぬ世界に飛び込もうって勢いじゃなく
仕事でやらざるを得ないからしょうがなく操作する、でも分からん、教えて
検索しようとしても、やたらと広告メインのサイトばかりヒットして、ロクな情報に辿り着けない　ンなもん使えねー　に成る
便利も度を超すとアタマがパーに成るだけ　老獪なじじい共は相手が美少女だとでも思い込んで、手取り足取り懇切丁寧に教えてあげて
やる気(ぜってーモチベーションとか言わない強靭な意志)を引き出してあげるよう、つべこべ文句垂れてないで、やよ励め

2022/10/31(月) 15:01:23.81

まあ興味ある質問ならこたえるし
質問がよくわからない、質問者もよくわからないなら無視するだけだから質問するのはかまわないけどね

2022/10/31(月) 19:53:47.30

質問です。
ボタンを押して時間が長く掛かる処理を実行する際、
他のとあるボタンを押したときにピタッと処理を中断するプログラムって書くことは可能ですか？
エスケープキーとかで中断させようとすると、中々中断されなかったり、固まってしまうことがあるもので・・・
以下の条件は満たして欲しいです。
・中断用のボタンを押すまでの処理実行速度は落とさない。
・中断用のボタンを押すとピタッと止まって実行している処理を中断してプログラムを終了する。
※尚、途中でDBを読み込むなどVBAに依存しない処理は含まれないものとします。

2022/10/31(月) 19:56:07.94

>>15
無理
時間のかかってる部分にDoEventsを入れるしかないし、スピードは落ちる

2022/10/31(月) 22:50:53.16

>>16
なるほど、やはり無理なnですね
諦めがつきました。ありがとうございます。

2022/10/31(月) 23:00:31.00

>>15
作り方によるが、長くかかる処理がLoop回数が多いようなパターンであれば

1.長くかかる処理の中に、ある条件が成り立てば以降の処理をしないで終了するようにしておく
2.Doeventsを長くかかる処理の中に入れる
3.ボタンを押したときに上の条件が成り立つようにする

なら一応それっぽくできるかも

2022/11/02(水) 12:00:56.68

win10 office2019

ループの外で
Dim ar() as long
してある配列を
そのあとのループの中で初期化してかつ、空のままUboundでも使いたいです。
今はLong宣言を諦めてVariantにしてループ内で
ar = array()
してそのあと空のままUboundに使ってもエラーにならないようにして使っています。

Redimで初期化してLongの空配列でもUbound出来る方法で、誰に配っても問題なく動くというのはないでしょうか？

2022/11/02(水) 12:44:54.50

日本語でおけ
コード出せ

2022/11/02(水) 13:09:37.72

俺も3回読み直したけど何がしたいかわからんかったわ

2022/11/02(水) 14:30:47.00

初期化って何？Erase？？
空ってどういう状態？？？要素数の宣言なし？？？？
じゃあRedimで初期化して空配列ってなに？？？？？
なんだよなぁ

2022/11/02(水) 17:23:30.25

>>19
たとえばUBound2とかいう名前で、空だったら-1を返す、そうでなければ
UBoundの値を返すといった関数を作って、渡した人にはUBound2を使ってもらうとか。

あるいは空に戻すときに、ReDim ar(-1 to -1) as longのようにするとか。
実際には空の配列ではないけれど、 UBound(ar) < 0 のような形で判定できる。

2022/11/02(水) 17:38:59.67

自分は基本的に動的配列は>>23の様な初期化条件をきめておいて操作してるわ
使ったことなくて今ためしたけど
if (not ar) = -1 then
の様な式で要素数未定義が判断できるけど
こんなことしても事故のもとだからなぁ

2022/11/02(水) 17:42:15.18

以前似たようなことを質問していた馬鹿だろ

19 (ﾜｯﾁｮｲ 7b66-FQW+) · 2022/11/02(水) 18:07:41.93

>>23
ありがとうございます。
UBound2というのは変数でしょうか？

ttps://qiita.com/Q11Q/items/a2d61545d9e5c4e15f22
渡すというのは完成したマクロファイルを他のパソコンで動かすという意味です。

dim Ary()
Ary = Array()
この初期化がとても便利で空のままUBound(Ary)してもエラーになりません。
その代償でVariant型にせざるを得ないのが気になってしまって。

-1 to 1という初期化方法はいいですね。
とても参考になるレスをありがとうございました。
これで失礼致します。

2022/11/03(木) 02:19:49.23

エラー処理は誰もが苦労する所だな

2022/11/03(木) 08:29:16.93

VBAはだいたいの機能が備わってるけどこういう基本的なところが抜けてたりするから
>>19はよくある疑問なんだけどそういう機能が無いので>>24みたいな非公式なTipsが編み出されたりしてるわけで

2022/11/03(木) 11:49:27.42

無理やり異常が出ないようにコードを組めてもその際の実行結果って正しい結果になっているのかな？

2022/11/03(木) 13:26:26.26

人のコードだからどうでもいいんじゃね

2022/11/03(木) 13:41:08.10

裏技を使わないと書けないコードってのは元の設計が間違ってる
言語仕様をきちんと理解してないだけ

2022/11/03(木) 16:03:25.78

>>29
理由が解ってれば辻褄が合わせでもいいんじゃない？
個人的にはエラーの原因が解らないからと例外処理で済ますのが一番ダメだと思う

2022/11/03(木) 21:03:31.78

VBAを1から覚えるなら「エクセルの神髄」というサイトで勉強すれば早いですか？
https://excel-ubara.com/excelvba1/

楽天RSSをりようして、株価データを取得・操作のため学ぼうと思っています。

2022/11/03(木) 21:19:20.67

>>33
そういう目的達成のためなら
金出して人に作ってもらうのが一番早い

2022/11/03(木) 22:18:41.27

その目的ならExcel使わない方が良い

2022/11/03(木) 22:25:29.94

>>34
最終的には頼みますけど、自分である程度は理解していなと
ちょっとしたカスタマイズや金額の相場がわからないので
まずは自分でやってみようと思いました。
最低限の知識くらいはと。

2022/11/03(木) 22:37:23.30

あー、昔そういうの作った気がすると思ってほっくり返したら出てきたわ
https://uploda1.ysklog.net/uploda/7e9d14b129.jpg

確か全銘柄から値が急激に上下した銘柄をピックアップしてた

知ってると思うけどHPからとってくるデータは基本時間遅らせてるからデイトレするなら役に立たないよ
昔はどっかの証券会社でAPIかなんか提供してたはず、今はわからんす

真髄とかってチラ見だけどサイト良いね、ただ印刷とかグラフとか重要じゃないものも等価に説明してるんで
自分にとって必要なものから覚えていった方が良いかも

2022/11/04(金) 00:04:38.11

>>36
たいがいのトレードアプリは素人が思いつくような機能は全部入ってるから、オーダーメイドやカスタマイズの必要なんかない
わざわざ作ってもらうのは金の無駄だし、今から勉強するのは時間の無駄

2022/11/04(金) 00:55:51.96

まぁそうなんどけどね
株は簡単に言うと多数決で勝つ方を読むゲームだから公的な提供データをみた他大多数がどう考えるかを先読みする力が必要
そして先読みするにはみんなと同じことやってちゃだめな部分もあるのよ

2022/11/04(金) 03:53:57.13

HP で公表している、明地式3点チャージ法だけやっておけば？

乖離率が大きい、売られ過ぎ銘柄の戻りを狙う。
急落の瞬間に買って、上がればすぐに売る

ほぼ、100%当たるけど、
相場が大暴落する時だけだから、なかなか発生しないけど

2022/11/04(金) 07:15:46.95

>>38
有料の奴って大抵VBAの部分って見せてないだろ
飯の種だし

2022/11/04(金) 08:44:29.23

Python で有名なYouTuber・キノコードは、
一目均衡表など、株価の指標の作り方の動画とか出していなかったか？

株価などは、Python, Ruby だろう。
GUI は、HTML, CSS, JavaScript。つまり、ウェブアプリ。
簡単に動くのは、Jupyter Notebook

VBA では作らない

2022/11/04(金) 08:56:03.05

仮にMS OfficeでそれらしいことをするならVBA よりOfficeアドインの範疇なのでVBAではなくてC#やJavaScriptが基礎になると思う

2022/11/04(金) 10:52:13.03

>>37
一応念のため
この表は数秒おきに自動作成されるものでオリジナルの計算をしてる
シート名見ればわかるかもだけどVBAで出来ないわけじゃない

逆に>>38でも書かれているけど既存のチャートとかはもうあるんだからそれを使うのが良いと思う

2022/11/04(金) 10:59:08.72

板情報集計値は俺のしる限りどの証券会社も公表してないから自分でやる意味はあるかも
それで勝てるかは知らんが

2022/11/04(金) 11:20:09.73

いい加減スレチってわかれよ

2022/11/04(金) 18:56:10.58

スレチと知っててこんなことも知ってるっよって自慢したいのでしょう
他に友達いないかわいそうな人ってわかってやれよ

2022/11/04(金) 19:05:00.00

>>47
注意されたんで話やめたんだけど？
自分がボッチだからってスレチを冗長させるようなことはやめてくんないかな

2022/11/05(土) 07:58:50.01

ま、そういうこった
ガッツリやりたいなら.NetでASP.NetのC#か
数学的な要素が強いならPython辺りの板へ行けばいいだろう。
どうしてもEXCELでやりたいならWebのEXCELの方が向いているからOfficeScriptだな。
多分そんな板立ってるか分からんから
自分で立てるか似たようなJavaScript板へ行けば。

2022/11/05(土) 09:37:48.82

>>38
別に時間の無駄ってことはないだろ
そうやって他の人の真似して少しづつ勉強してくんだからよ

2022/11/05(土) 11:04:23.59

質問の回答でもなんでもないレスなら雑談スレにでもいけばいいものを

2022/11/06(日) 08:04:11.74

>>50
目的はトレード、手段の一つとして質問者が選んだのがVBA
VBAを勉強するのが目的ではないし、VBAは最適解でもない

2022/11/06(日) 10:25:52.00

>>52
そんな事全く書いてなくね？それはあなたの思い込みでしょ
そもそも「まずは自分でやってみようと思いました。最低限の知識くらいはと。」って書いてあるんだから
あなたが判断することではない

つまり質問だけに答えてればいいんだから余計な事は言う必要ないし、答えたくなければ黙ってろカスってことね

2022/11/06(日) 12:27:37.53

別に厳格なルールはないけどな
ここって質問ないときはこうやってダラダラとやってる感じじゃん
そこを個々の主観で縛っていったら一番窮屈な人にあわさるがそれがお望みか？

2022/11/06(日) 12:32:45.96

他人に注意をするときには客観的によくよく吟味してからにしないと結局荒らすことになる
それは誰も本意ではないだろ？

2022/11/06(日) 20:36:11.37

よもやよもやだ

2022/11/06(日) 21:56:54.24

メソッドの後ろにスペースを入れると、引数候補が表示される時とされないときがあります。この違いはどのように考えれば良いでしょうか。
例えば、worksheets.addでは候補が出てくるのですが、activeworkbook.closeでは出てきません。

2022/11/06(日) 22:06:28.68

別に困らない

**デフォルトの名無しさん** (ｽﾌｯ Sdb2-EYDG) · 2022/11/07(月) 08:01:36.70

補完機能に期待した事ないや
同じく候補が出る時と出ない時のパターンが分からん

2022/11/07(月) 09:40:23.30

>>57
> activeworkbook.closeでは出てきません。
普通に出るぞ
Microsoft(R) Excel(R) for Microsoft 365 MSO (バージョン 2209 ビルド16.0.15629.20200) 64ビット

2022/11/07(月) 15:34:45.97

ただのマウント&説教スレ

2022/11/07(月) 15:57:02.55

言葉の使い方として正しいのか知らんけど
メソッドの形ならスペース
関数の形なら括弧

2022/11/11(金) 00:37:34.42

webbrowserでSSL認証ってどうすればいい?
C#でwebview2なら出来たんだけど、
VBAなのでwebbrowserじゃないと駄目なんだわ。

2022/11/11(金) 08:12:21.32

>>63
知らん
C#の環境があるならアドイン作ってVBAから呼び出せばいいじゃない

2022/11/11(金) 15:05:26.45

>>57
うろおぼえだけど、戻り値がどうなってるかによる
Worksheets.Addは明確にWorksheetsコレクションのAddメソッドのことなのでインテリセンスがちゃんと機能する
ActiveWorkbook.Closeは、ActiveWorkbookが確実にWorkbookオブジェクトを返す保証がないので、Closeメソッドのインテリセンスが機能しない
dim wkBook as Workbook
set wkBook=ActiveWorkbook
wkBook.Close
とでもすればインテリセンスは機能する

2022/11/16(水) 08:04:06.59

ExcelVBAからプログミング初めてそろそろ別言語が気になってるんだけど、どのくらいまで習得したら一区切りによさそう？
今は基本的な構文とか覚えてクラスを勉強し始めようかなって所なんだけど

2022/11/16(水) 08:50:07.90

それで食べていくなら食べていけるだけの事を覚えるまでだし
趣味でモノづくりしたいならつくれるまでだし
ただなんとなくなら適当にどうぞ
そもそも人に聞くことか？ｗ

2022/11/16(水) 09:57:43.76

別言語じゃないと出来ない事が出てきた時。
EdgeがDom操作出来ないから、仕方なくC#の勉強始めたわ。

2022/11/16(水) 11:10:33.08

雇用形態による

客先IT 土方奴隷なら、Java, PHP だし、
モダンでリモートワークなら、Ruby on Rails

YouTube で有名な雑食系エンジニア・KENTA の動画でも見れば？
半年で、Railsのポートフォリオを作って、転職する

2022/11/16(水) 13:16:24.41

>>66
できれば研修とか受けて短期間で集中して勉強するのがおすすめ
言語の習得に区切りとかはない、自分で納得するかどうか

2022/11/16(水) 14:44:55.98

一般事務系ならどのあたりまで？

2022/11/16(水) 14:56:37.09

一般事務なら使わない

2022/11/16(水) 17:09:04.39

>>66だけど答えてくれた人ありがとう、結構臨機応変にって感じなのね

2022/11/16(水) 18:23:35.40

>>73
Rubyだけは絶対に手を出すな

**デフォルトの名無しさん** (JP 0Heb-BvCT) · 2022/11/16(水) 19:20:01.04

>>66
高速化して、オブジェクトの構成覚えて、イベントでなにか記述して
あとはifとfor、foreach、
これだけ使えたら大抵のことはできるだろうから、phpでも使ってみるといいと思う

2022/11/16(水) 22:22:53.60

>>74
これ怖い参考に理由聞いてもいい？

2022/11/16(水) 22:34:06.61

クラスモジュールを使ってなにか面白いこと便利なことできないかなあ
今のとこコンストラクタで画面更新や自動計算を切る呪文を唱えるクラスくらいしか作っていないんだが

2022/11/16(水) 22:49:19.27

実務ではクラスモジュールなんて殆ど使わないよ
標準モジュールで機能別に関数をまとめるとかだな
それよりエラートラップや値渡しと参照渡しの違いとか覚えたほうがいい

C#やJavaだとクラスの設計ができるレベルじゃないときついが

2022/11/16(水) 23:09:35.64

一般事務ならそれこそvbaのみで十分だろ
職場のパソコンで環境構築とか不可能だし
Excelなら必ず入ってるからな

2022/11/17(木) 01:03:56.22

>>77
そうだなぁ
きちんとクラスの特性とか多態性とか
基本的なことを押さえていれば
何となくこんなシチュエーションのときに使うって
分かると思うからその辺調べてみれば？

もっとも、VBAでクラスのこと説明してるとこ
あまりないから、JavaとかC#でクラスって
どんなもんかググれば大概出てくるんじゃないかなぁ

VBAのクラスはかなり制限あるし
その辺のこと興味持つようになったらボチボチ
他言語にも手を伸ばす時期だと思うよ
あと、「こんな使い方するんだ」ってのが
知りたければ「デザインパターン」でググってみればいい
これもなんかのヒントにはなるよ

69 (ﾜｯﾁｮｲ 154f-FFna) · 2022/11/17(木) 06:50:32.28

Qiita, Zenn, Note, Wantedly、食べチョクなどは、Ruby on Rails。
時価総額100億円ぐらいを目指す、ベンチャー企業がRailsを採用する。
米国では、1兆円超えのShopify, Airbnb, Gitlab などもある

他には、ガーシーが使う、Mastodon はRails 6。
作者のドイツのオイゲン・ロホコは、PHPからRailsに変えた。
Rubyの方が可読性が高いから

米国年収では今の円安で、Rails, AWS Solution Architect などは、2千万円ぐらい。
バックエンド技術者は高い。
AWS, Linux, Docker, Kubernetes、データベースなど学ぶことが多いから

KENTA の天敵・モローは、2年ほど前に、YouTubeで言ってた。
Rubyは滅ぶ。これからはJava・PHPの時代だと

それが今になって急に、Railsのキャリア相談までやり出したw
Java・PHPの仕事は、どうなったの？w

YouTubeのモローの動画。
【2022年版】Ruby on Railsの将来性

KENTAが、PHP, Scala をオワコン認定したから、
PHPのFacebook とか、Laravel を使っているZOZO、
Scalaを使っているTwitter などは、良い開発者を集めるのが大変

**デフォルトの名無しさん** (JP 0Heb-BvCT) · 2022/11/17(木) 07:25:29.19

>>76
利用者が増える兆候が全くない。
もう10年前だけど、Twitterもrubyを損切りした

ざっくりいうと大体perlと同じぐらいの人気
https://trends.google.co.jp/trends/explore?date=today%203-m&q=%2Fm%2F05zrn,%2Fm%2F060kv,%2Fm%2F05z1_,%2Fm%2F02p97,%2Fm%2F06ff5#TIMESERIES

2022/11/17(木) 07:25:45.68

技術の方向性が迷子

**デフォルトの名無しさん** (JP 0Heb-BvCT) · 2022/11/17(木) 07:50:17.45

>>81
他の全ての大手は普通にPHP・pythonを使っているのに、
「ごく一部の大手」だけがrubyを使っているのが現状

また、ruby信者は頭がおかしくこのような歪な布教活動を行う特徴がある
くれぐれも騙されないように

2022/11/17(木) 08:28:52.99

また雑談が始まった
スレタイよく読めよお前ら

2022/11/17(木) 09:34:06.31

総合スレっての無かったかい？

2022/11/17(木) 11:29:16.58

>>76
わかっただろ？統一教会みたいな連中に巻き込まれる

2022/11/17(木) 11:59:56.14

>>85
だからそういうこと書くと荒れるって言ってんだろ？
質問来たらちゃんと答えてるんだからほっとけよ

2022/11/17(木) 12:04:27.49

>>82
>>87
ありがとう、そういうが風潮あるとは知らず.......

2022/11/17(木) 13:58:32.43

>>88
言わねーとずっと続くのがいつもの流れだろ
ほっとくのが主義なら俺にも言うな

2022/11/17(木) 14:22:27.97

言語として最高かどうかは別として
とりあえずjavascript系をやっていればこの先20年は安泰

2022/11/17(木) 15:49:55.21

VBA自体年寄り御用達の言語になっちまった感だからね

2022/11/17(木) 17:00:32.50

ラズパイの入門キットが尼で3000円で売ってるからRubyでサンプル動かしてLEDチカチカ楽しいよ
仕事につなげたいなら今はJavaでスマホアプリが一番需要がある
自分のスマホで遊んでもいいし、Windows用のエミュレータも無料で公開されてる

2022/11/17(木) 17:49:39.21

ほら、こうやってRuby、Rubyって
ゴキブリそのもの

そもそもRaspberry PiのサンプルはPythonが圧倒的に多い

Rubyとか言ってる連中に近づいてはいけません

2022/11/17(木) 19:10:46.08

こうなった原因を作った初心者がすべて悪い

2022/11/17(木) 21:44:05.97

VBA + Selenium + Chrome で自動ログインをツールを作っています。

Dim Driver As New Selenium.WebDriver

ログインした後にパスワードを保存しますか？
というダイアログが出て邪魔でしょうがないです。
それを削除する為に

credentials_enable_service　　false
profile.password_manager_enabled false

を使うのは分かったのですが、pythonやjavaのコードばかりブログに乗っていて
VBAの文法でどう書けば良いか分かりません。

詳しい方がいたら教えてください。

2022/11/17(木) 23:24:19.00

>>90
放っておけばっていうのはお前がコントロールしようとしている掲示板の脱線に対してだよ
放っておいても質問があれば勝手に戻るからさ、これ書くの2度目ね

そのことと俺がお前を放っておくのとは意味あいがぜーんぜん違うんだがわかる？まぁ解んなくてもいいけど
あと指図はするけど言われたくないんだよな？
ならその通りにしましょうかね

2022/11/18(金) 00:09:57.91

>>96
chromeの起動オプションに書き加える
使うのが自分だけなら手動で事前にchromeの設定を変えておくのが一番簡単

2022/11/18(金) 04:37:56.15

>>98
VBA＋Seleniumで起動オプションの書き方はどうやればいいのでしょうか？
C#やPythonやJavaばかりでVBAの表記法が見つかりません。

2022/11/18(金) 15:03:38.43

>>99
AddArgument

**デフォルトの名無しさん** (JP 0Heb-BvCT) · 2022/11/18(金) 15:59:01.29

間違ってrubyを学習してしまい、無駄な時間を過ごしてしまうことが忍びないのはわかる
しかし、「人生には無駄な学習がある」ということに気づくことも大事な事かもしれない
※rubyの学習が無意味ということは、rubyを学習すればすぐに気づく

2022/11/18(金) 19:53:51.40

別にruby推しでもかまわないけど関係ないスレでは自重しろとは思う

2022/11/18(金) 20:42:45.12

rubyスレは過疎っているもの

2022/11/19(土) 02:07:39.29

なんでこんな偉そうな奴らばかりなのここ？

2022/11/19(土) 02:29:57.55

ruby信者が荒らすから

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/19(土) 08:44:51.51

rubyキチガイが荒らしに来るからヘイトが凄い事になってる
なお他のスレでも同様

2022/11/19(土) 18:19:31.17

GetOpenFilenameで開いたファイルのパスを返すFunctionを作ったのですが、戻り値を変数として利用する度にGetOpenFilenameメソッドが実行されてダイアログが開きます
初回のみダイアログを開くFunctionは作れないもんですかねえ
代替案としてSubプロシ＝[ジャとして呼ｂﾑ出して取得しｂｽファイルパスｂublic変数に試福ﾟているのでｂｷがPublic変数ｂgうのはなんｂｩ気持ち悪くて＝c…

2022/11/19(土) 18:32:15.63

とりあえずコードで示そうか

2022/11/19(土) 19:04:59.90

>>107
Functionの外で保持しておく値なら
Public でなく Dim で宣言すればモジュール内でつかえる

2022/11/19(土) 19:12:46.39

JavaとかC#でenum使うメリットがわからん

2022/11/19(土) 19:17:53.70

>>107
戻り値を変数に入れてないだけでは？

2022/11/19(土) 22:10:17.78

>>107
コードも見てないから何とも言えないけど
初回のみって判定なら基本的に変数で管理するしかないと思うけどね
それとGetOpenFilenameがダイアログでファイル名（ファイルパス）を取得するための関数なら関数自体は何もせずに
GetOpenFilenameを2回目以降に呼ばないような変数管理が普通の方法じゃないかと思うよ

publicが気持ち悪いってのは関数や変数のスコープ管理がおかしいからだと思うから
それはそれで見直せばいいのでは

2022/11/19(土) 22:13:03.43

>>107
それってsubの中で
cells(1,1)=Function変数
cells(2,1)=Function変数
ってやってるからでしょ？
subの中でtempでも宣言して
temp＝Function変数
cells(1,1)=temp
cells(2,1)=temp
ってやればいいんじゃない？

2022/11/19(土) 23:25:37.91

ざっくりな質問じゃなくて詳細書いてくれ頼むから

2022/11/19(土) 23:29:30.05

>>107
こういう馬鹿が来るから荒れる

2022/11/20(日) 00:35:29.58

自分で納得できるコードが書けないのは経験が足りないだけかも

2022/11/20(日) 07:09:50.84

自分でそこんところをいろいろ考えてやるのが楽しいのに
どうにでもなるようなことを聞いてる人ってプログラミング＝苦痛と感じてるひとなんだろうなぁって思うわ
まぁそれならそれで仕方ないけど

2022/11/20(日) 08:11:58.08

>>115
お前が荒らしてるだけじゃん
全然荒れてないわ

2022/11/20(日) 08:12:58.99

と、荒しが申しております。

2022/11/20(日) 09:58:37.83

>>108
こんな感じです。

Public Function OpenedFilePath() As Variant
OpenedFilePath = Application.GetOpenFilename(FileFilter:="ExcelファイルおよびCSVファイル,*.xls*;*.csv")
If OpenedFilePath = False Then
MsgBox "ファイルが選択されませんでした。"
Exit Function
End If
Dim OpenedFileName As String
OpenedFileName = Dir(OpenedFilePath)
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name = OpenedFileName Then
MsgBox "選択したファイルは既に開かれています。ファイルを閉じてやり直してください。"
OpenedFilePath = False
Exit Function
End If
Next Wb
Workbooks.Open OpenedFileName, UpdateLinks:=0
End Function

Function変数「OpenedFilePath」をメインのプロシージャで何度か呼び出すのですが、
そのたびにダイヤログが開くんですよね（まあ当たり前なんですけど）。
やっぱり「OpenedFilePath」をメインのプロシージャの方でローカル変数に格納するしかないですかね。

2022/11/20(日) 10:09:40.70

>>120
変数に入れるのが一般的だけど、どうしてもっていうならFunction全体を「OpenedFilePathが空白だったら」ってIfで囲ったらなんとかならん？

2022/11/20(日) 10:21:57.15

特に理由がない限り1つのプロシージャの機能はなるべく1つに限定したほうがいい
短期的に問題無くても後々機能を使いまわしたくなった時に利便性が悪い

2022/11/20(日) 10:25:11.24

>>120
まず「Function変数」なんオレオレ用語は止めなよ、余計混乱する

> Function変数「OpenedFilePath」をメインのプロシージャで何度か呼び出すのですが、
それ何のために呼び出してるんだ？
そもそも関数内でブックをオープンするならオープンしたブックを返してメイン側ではそのブックを使えばいいだけな気がするが...

Public Sub Main()
Dim Book As WorkBook
Set Book = OpenedFilePath()
...
End Sub
Public Function OpenedFilePath() As WorkBook
Dim Path As Variant
Path = Application.GetOpenFilename(FileFilter:="ExcelファイルおよびCSVファイル,*.xls*;*.csv")
If Path = False Then
MsgBox "ファイルが選択されませんでした。"
Set OpenedFilePath = Nothing
Exit Function
End If
Dim OpenedFileName As String
OpenedFileName = Dir(Path)
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name = OpenedFileName Then
MsgBox "選択したファイルは既に開かれています。ファイルを閉じてやり直してください。"
Set OpenedFilePath = Nothing
Exit Function
End If
Next Wb
Set OpenedFilePath = Workbooks.Open(OpenedFileName, UpdateLinks:=0)
End Function

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/20(日) 10:37:30.36

え

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/20(日) 10:51:14.71

GetOpenFilenameでファイル選択しなかったときの返り値は
”false”
ね
FALSE
じゃないよ
糞だよ

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/20(日) 10:58:27.47

なんでstaticが出てこないんだよｗｗｗ

Public Function OpenedFilePath() As String

'引数がtrueなら必ずダイアログを開くっての実装しようとおもったけどやめた

'OpenedFilePathは空白かどうかだけで判定。staticで変数を宣言
Static path

'空白じゃなければ終了
If (path <> "") Then
Exit Function
End If

'本体
path = Application.GetOpenFilename(FileFilter:="ExcelファイルおよびCSVファイル,*.xls*;*.csv")

'開かなかったら終了
If OpenedFilePath = "False" Then
OpenedFilePath = ""
MsgBox "ファイルが選択されませんでした。"
Exit Function
End If

End Function

2022/11/20(日) 11:33:22.40

>>125
なんでそんなすぐわかる嘘つくの？

Returns False if the user cancels the dialog box.
https://learn.microsoft.com/en-us/office/vba/api/excel.application.getopenfilename

そもそもその仕様だと false というファイル名を返せないだろ、馬鹿すぎ

2022/11/20(日) 11:34:19.38

>>126
> なんでstaticが出てこないんだよｗｗｗ
そんな汚い設計を勧めたくないから

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/20(日) 11:44:28.04

>>127
うわ、ずっと間違えてた。これは申し訳ない

言い訳すると、pathをstringで宣言してる時、booleanのfalseが"false"に変換される
これがあってからずっと文字列が返ってきてると思いこんでいた
これは本当に申し訳ない、間違った情報でドヤッてしまった

Sub foo()
Dim path As String
path = Application.GetOpenFilename()
Debug.Print TypeName(path)
End Sub

>>128
わかる

2022/11/20(日) 12:28:19.61

「Workbooks.Open」のようなコードだけだとActiveBookが変わって
本来操作したいブック以外を参照してしまう事故を防ぐためにも
自分も>>123のようなコードがいいと思うな
あとはVariantはなんにでも使えてしまうから戻り値もWorkbookがいいと思うけど
private変数で宣言するならファンクションである必要もなくなりそうではあるんだが
それは前後の流れ次第かね

2022/11/20(日) 15:20:20.30

>>117
楽しい・・・？
そうだね、VBAは弄ってて楽しい言語だね。
何でもお手軽に作れるしグラフィカルな部分が多いから
分かりやすいし。

お手軽と言えばJavaScript もそうかな。
逆にCOBOLとか何が楽しいのか俺には理解出来ない。

2022/11/20(日) 15:36:16.68

おっちゃんが理解できるようにしてやろうか？

2022/11/20(日) 21:15:15.16

>>100
ありがとうございます。

Dim Driver As New Selenium.WebDriver

Driver.AddArgument "credentials_enable_service=False"
Driver.AddArgument "profile.password_manager_enabled=False"

「パスワードを保存しますか？」というダイアログが表示されてしまいます。

このダイアログが邪魔でしょうがないです。
何とか消したいのですが、コード間違っていますか？

2022/11/20(日) 21:44:52.90

Driver.SetPreference "credentials_enable_service", False
こうじゃない？

2022/11/20(日) 22:06:06.02

>>134
これも試しましたが、ダイアログが起動します、、、
うーん、困りました。
With Driver
.SetPreference "credentials_enable_service", False
.SetPreference "password_manager_enabled", False
.SetPreference "--password-store", basic

2022/11/20(日) 22:08:29.04

弱りましたねえ
諦めるしか

2022/11/20(日) 22:21:11.90

最悪、しょうがないので力業でWindows APIで座標指定で「×」をクリックします。

2022/11/20(日) 22:25:06.89

>>135
ソースコード全部見せて

2022/11/20(日) 22:41:36.64

ブラウザの操作なんかPADでやればいいじゃん

2022/11/20(日) 22:44:18.63

Map<String, Object> prefs = new HashMap<String, Object>();
prefs.put("credentials_enable_service", false);
prefs.put("profile.password_manager_enabled", false);
options.setExperimentalOption("prefs", prefs);

Javaだとこうだから

Driver.SetPreference "prefs", ...

にしないといけないのかも

2022/11/20(日) 22:46:06.24

>>138
色々と試しましたが、全部ダイアログが出ます、、、

Dim Driver As New Selenium.WebDriver

'パスワードを保存しますか？ダイアログを消す。（消えない）
'Driver.SetCapability "credentials_enable_service", "False"
'Driver.SetCapability "profile.password_manager_enabled", "False"

'Driver.AddArgument "credentials_enable_service=False"
'Driver.AddArgument "profile.password_manager_enabled=False"

With Driver
'.SetPreference "credentials_enable_service", False
'.SetPreference "password_manager_enabled", False
'.SetPreference "--password-store", basic
.Start "chrome"
.Get "https://hogehoge.com/";
End With

'ID
Driver.FindElementById("UserID").SendKeys "IDhoge"

'ID
Driver.FindElementById("UserPASS").SendKeys "PASShoge"

'ログインボタンをクリック
Driver.FindElementById("id_login_button").Click

2022/11/20(日) 23:19:33.15

Dim prefs
Set prefs = CreateObject("Selenium.Dictionary")
prefs("credentials_enable_service") = False
prefs("profile.password_manager_enabled") = False

driver.SetPreference "prefs", prefs

これでどう？

2022/11/20(日) 23:54:01.57

>>142
ありがとうござます。試しましたがやはダイアログが表示されます、、、

2022/11/21(月) 00:00:32.12

driver.SetPreference "credentials_enable_service", False

Dim profile
Set profile = CreateObject("Selenium.Dictionary")
profile("password_manager_enabled") = False

driver.SetPreference "profile", profile

これでどう？

2022/11/21(月) 00:11:55.56

Driver.SetPreference "credentials_enable_service", False
Driver.SetPreference "profile.password_manager_enabled", False

これでできそうな気がする

2022/11/21(月) 00:17:14.31

>>144 >>145
ダメでした。

VBA＋Seleniumだと色々と制限がありそうですね。
Windows APIで強制クリックしかなさそうですね。

2022/11/21(月) 00:42:53.42

Driver.AddArgument "--password-store=basic"
Driver.SetPreference "credentials_enable_service", False
Driver.SetPreference "profile.password_manager_enabled", False
これでどう？

2022/11/21(月) 00:48:06.12

>>147
ダメでした。

ただ、ページ遷移すると自動でダイアログが消えますので
初回ログイン時に出るのは結構目障りですけど、最悪諦めます。

2022/11/21(月) 08:04:05.28

>>148
結果的に消えるならいいじゃん
そこでボタンをクリックしないと動作が止まる、とかだったら困るけど、動けばいいんだよ

てか、オプション設定のタイミングが悪いんじゃないの？Chromeを起動する前に設定してる？

2022/11/21(月) 08:09:22.01

>>149
はい、してます。

試しにVBAで同じことを試していただければ１００％再現できます。

2022/11/21(月) 17:38:44.89

>>133
マルチポスト、更に言語の違いすらわからない馬鹿は消えろ

2022/11/21(月) 18:02:11.22

マルチポストはどうかと思うが少なくともこっちのスレだと言語は合ってるだろ

2022/11/21(月) 23:00:46.16

https://xtech.nikkei.com/atcl/nxt/column/18/02246/110200002/
https://cdn-xtech.nikkei.com/atcl/nxt/column/18/02246/110200002/ph1.jpg
利用しているプログラミング言語
「あなたが現在使っているプログラミング言語は何ですか」という設問に対する回答の内訳。
最大3つ選択してもらった。回答数が10以上の言語を掲載

ＶＢＡ頑張ってるじゃん
Ｒｕｂｙの倍やん

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/21(月) 23:03:32.24

そりゃ母数が全然違うからな
事務員どころか営業でも使う人がいる

2022/11/21(月) 23:12:28.50

>>153
これは結構意外な結果。
HTMLとCSSが思ったより低いね。
もっと意外だったのがSQLがランクインしていないこと。
「SQLはプログラミング言語じゃねーだろ」という意見も聞こえそうだけど、
それ言ったらHTMLだってプログラミング言語かと言えば怪しいよね。

iPhoneを開発するOvjective-C辺りはCに含まれるのかな？
でもそう考えるとSwift もランクインされていない。
最近はPython が主流なのかー。
まぁRubyはさして知るべし。

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/21(月) 23:18:34.01

メインの言語がhtmlです！って人はちょっと・・・

2022/11/21(月) 23:28:16.93

よく見るとTypeScriptが追い上げてるなぁ
Web版EXCEL開発しなきゃいけなくなったとき用に少し勉強しておくかな

2022/11/22(火) 00:17:55.04

>>153
rubyは毎年順位を落としている

2022/11/22(火) 01:16:20.45

Pythoの何がいいの？C＃の方がよっぽどコードが綺麗。

2022/11/22(火) 07:07:33.19

VBAはバリバリ活躍してるけど、VBはもはや枯れた言語か。。

2022/11/22(火) 07:14:38.51

むしろVB(VB.NET以外)がランクインしてるのに驚いたわ
さすがに保守案件なんだろうけど

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/22(火) 08:25:23.22

>>159
アホが書いたぐちゃぐちゃインデント見た事ないっしょ

インデントがそのまま機能に繋がるってのは、
もうこれだけでいいんじゃないかってぐらい見やすいんだよ

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/22(火) 08:29:03.16

>>153
これ相当歪な集計だぞ
期間は2週間、プログラマーがたったの16%であとは経営者3%なんて混じってる

2022/11/22(火) 10:15:24.80

VBAでフォームからセルに入力できるフォームを作るときにテキストボックスとセルをcontrolsauceで連結するのが一般的ですか？
今まで、読みとりボタンで、テキストボックス１＝セルの値、更新ボタンで、セルの値＝テキストボックス１としてたのですが、controlsauceを使った方がよいのか悩んでます

2022/11/22(火) 10:27:21.22

>>162
pythonマジでコードが気持ち悪いんだけど。

2022/11/22(火) 10:38:52.48

使わなきゃいいだけなのにあえて他言語の悪口を言うのはRuby厨か

2022/11/22(火) 12:03:51.19

>>163
プログラマー以外がプログラミングしちゃいけないわけじゃないし、別に歪じゃないだろ

2022/11/22(火) 12:11:04.68

歪というか、アンケートの対象はプログラマーのみではなさそうだな
プログラマーなんて社会人の一部だし

この手のはなんかの指標として使えるものではないと自分は思ってる

2022/11/22(火) 12:51:18.95

pythonのメリットは何？

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/22(火) 13:05:26.48

>>169
pythonスレへどうぞ

2022/11/22(火) 13:50:49.13

VB.Netは確かにもうMicrosoft からも.NetCoreでは更新しませんよって宣言されてた気もするし、
終わった言語と言えばそうなのかもね。

ま、でも文法こそ違うものの、中身はC#と大して変わらないから、
やるならC#でいいよ。

C#とVBA覚えておけば必然的にVB.Netも書けると思う。

2022/11/22(火) 14:11:59.31

vb.netとc#って
objective-cとswiftみたいなもんじゃね

2022/11/22(火) 14:54:19.77

そうだな、ぜんぜん違うけどな

2022/11/22(火) 15:48:12.92

VBA は社員が使っている。一般人・アマチュア。
Linux, Docker, Heroku, AWS などを知っているはずがない。
Windows しか出来ない香具師

一方、Ruby on Rails は、ウェブ開発のプロ用。
ポートフォリオにも使う転職用だから、一般人よりも少なくなる

VBAが出来ても、プロとしては転職できない。
VBAが出来るから、モダンなウェブ開発企業が採用するとは思わない

2022/11/22(火) 15:57:35.32

>>169
Pythonにあっという間に追い越され凋落が加速しているRubyざまあ

2022/11/22(火) 16:01:15.96

>>174
ドヤ顔で香具師とか言われても……

2022/11/22(火) 16:04:23.96

>>174
プロ用wwwwww
つまり金貰えなきゃRubyなんて使わんわ！ということ

2022/11/22(火) 18:41:56.86

でもどうだろ？
60歳前後の人はVB通ってきてからVBAを始めた人多いと思うからもっと人口多いと思う。

2022/11/22(火) 18:45:18.15

あー、まぁ旧VB6ならそうかもね
VB.Netは完全にObject指向言語だから
そこからVBAやるってのはキツいんじゃないかな？
まぁその逆はもっとキツいと思うけど

2022/11/22(火) 18:51:44.40

そういえばVBなんて言語あったなー(遠い目)
ウチにVBのリファレンス本が埃かぶってある。

2022/11/22(火) 19:36:41.19

旧VBは結構な値段しただろ
使ったことがあるのはプロのプログラマーだけだよ
VBAやVB.NETは素人向け

2022/11/22(火) 21:05:06.99

ネットでサンプルコードを漁っていると配列の型を宣言するときに括弧を省いているのが多いけれどなんでだろう
Dim Array As variant
Array = Range(“A1:C10”)
とか
Dim Array as Variant
Array = TempArray
みたいに

括弧無しの方が処理が早いのだろうか
そもそも括弧有り無しの違いってなんなんだろう

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/22(火) 21:39:01.76

>>182
vbaの配列、特に静的配列はカスって事を念頭においておいてほしい。
他の言語はここまでめんどくさくない

静的配列は要素数が決まっていて拡張性が無い。
Dim array_a(5) As Long

動的配列は要素数を変動させることができるがめんどくさい
Dim array_a() As Long

これは配列をvariant型の変数に入れてるだけで、配列の型とは関係がない
Dim array_b As Variant
array_b = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
array_b = Array(1, 2, 3, 4, 5, 6)

どれが良いかというと、variantに入れておけば大体うまくいく
動的配列や静的配列を使うのもいいけど、めんどくさいだけだよ

2022/11/22(火) 22:02:02.71

sub hoge
　for i=1 to10
　　if i=5 then exit sub
　next
end sub

サブルーチンのforとかloop中に
判定文でexit forどころか、exit subするのって、マズいんですかね？

メモリ喰っちゃう？

2022/11/22(火) 22:10:43.92

コメント書いとけばいいんじゃね

2022/11/22(火) 22:18:04.27

>>183
ループを使って配列の要素を一つずつ埋めて行く場合は()付きで配列として宣言しなきゃダメじゃん？
だったら一括代入する場合も()付きで配列として宣言した方がわかりやすいかなあと思うんだよね

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/22(火) 22:24:40.04

>>184
特にマズくない
最近は8GBぐらいメモリあるんだし多少食っても全然平気

>>186
vba結構長いこと使ってきたけど、そんなコード書いたことないなぁ
ちょっと分からないわ

2022/11/22(火) 22:47:31.59

>>187
たとえば「シートの表を一旦二次元配列に格納して不要な行を取り除いてからシートに転記する」ってコードの場合、次のようになるでしょ？

Dim RawArr As variant
RawArr = Range("A1:E100").Value

Dim EditArr() As Variant
Redim EditArr(1 to Ubound(RawArr ,1), 1 to Ubound(RawArr ,2))
'↑これは括弧付きで配列として宣言しなければならない

Dim R as Long, C As Long, Rcount As Long
Rcount = 1
For R = 1 to Ubound(RawArr ,1)
If Not RawArr(R, 1) = "不要" Then
Rcount = Rcount +1
For C = 1 to Ubound(RawArr ,2)
EditArr(Rcount, C) = RawArr(R, C)
Next C
End If
Next R

Range("A1:E100").Value = EditArr

このコードにおいて「EditArr」を括弧付きで配列として宣言するならば「RawArr」もそれに準じた方がわかりやすいのではと思うんだよね
超細かくて申し訳ないけれど

2022/11/22(火) 23:39:01.43

jscriptの配列をそのままvbscriptにしたら
メッチャんこ速くなったからそっちの性能はいいんじゃね？

2022/11/23(水) 00:24:02.68

>>188
これってのが
Dim EditArr() As Variant
なら、
Dim EditArr As Variant
でも動いてるようだが？
そのまま走らせたら両方ともそこ以外で実行時エラー出てるけど

さらに言えば、ReDimするなら(Option Explicit onでも)Dimすらなくても動いたような

2022/11/23(水) 03:52:19.28

>>188
俺も>>190と同じく
Dim EditArr() As Variant
Redim EditArr(1 to Ubound(RawArr ,1), 1 to Ubound(RawArr ,2))
だろうが
Dim EditArr As Variant
Redim EditArr(1 to Ubound(RawArr ,1), 1 to Ubound(RawArr ,2))
だろうが同じって認識だわ
動的配列っていうのをわかりやすくするために()つけておくか、くらいの感じだと思ってる

2022/11/23(水) 08:25:42.71

>>184
別にマズくはないよ。
メモリ使ってたとしても使ってる変数が
みんなPrivateのものなら関数抜けた時点で解放されるし

2022/11/23(水) 17:09:12.41

【速報】上司「お前のことはExcelの印刷くらい信用している」→パワハラ

　広告代理店・電報堂（本社・東京都足立区）に勤務する50代の部長が20代の部下にパワハラを繰り返し、
部下をうつによる休職に追い込んだとして民事訴訟を起こされていたことが22日分かった。
　訴状によると部長は部下に対し日頃から「お前のことはExcelの印刷と同じくらい信用している」
という発言を繰り返しており、その結果「どれだけ仕事をしても信用が得られない」
と感じた部下は今年5月からうつの症状を発症するようになり、現在は休職しているという。
　なお上司は取材に対し「信用していると言っただけなのになぜパワハラ扱いされるのか理解できない」
と述べた。

https://kizuna.5ch.net/test/read.cgi/curry/1663509806/

2022/11/23(水) 17:31:53.36

まあ言い方だろうな
Excelの印刷はたまに端や上下が切れたりするけどちゃんと手当てしてやればそこそこ使える
ワードなんかと違ってレイアウトを崩さずにページに収めるとか使える機能もあるしな

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/23(水) 17:46:45.69

それ完全に釣りだぞ

2022/11/23(水) 17:54:50.35

香具師　←　化石を久しぶりに見つけたｗ

2022/11/23(水) 18:00:15.39

>>195
うん、知ってる
他でも見たし

2022/11/23(水) 20:28:09.45

ジジババかよw

2022/11/23(水) 22:51:52.84

そんなこと言ってると生きてる間に孫の顔みれんぞ

2022/11/28(月) 07:46:50.71

独り者なら孫どころか子供もいないだろ