Excel VBA 質問スレ Part77

**デフォルトの名無しさん** (TW 0H42-j7SA) · 2022/07/17(日) 07:07:35.59

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

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

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

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

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

2022/07/21(木) 19:48:37.51

>>75
それな
Cに限らずJavaやC++やC#もみんなそんな書き方だし、自分はVB系のような書き方も明示的で良いとは思ってるけど、
その書き方でもあまり困らないから結局のところは慣れの範疇だよね。

2022/07/21(木) 19:55:27.19

i付けろとか、どうせ田中とかあの辺が言ってるだけだろ？
なんでも鵜呑みにする奴ってなんなんだろうな

2022/07/21(木) 20:07:36.67

ついてようがついてまいがインデントさえ正しきゃ好きにしろで終わり

2022/07/21(木) 20:09:11.68

呆れたわ
お前ら本当に上級者かよ？

2022/07/21(木) 20:16:07.12

正直どうでもいいくせにご飯何膳いくつもりだよ笑

2022/07/21(木) 20:57:19.02

>>69
Twitterでも報告されてるな

2022/07/21(木) 21:48:53.53

>>80
これな
みんな、そんなにループのネストが多いの？

functionに切り分けて配列を引数に持たせるのは無し？

2022/07/21(木) 23:26:47.96

>>64
これちょいと前からなってたけどおま環かと思ってfalseにしないで回避してたわ
Twitter見たら前からなってる人も居たみたいね

2022/07/22(金) 11:13:35.20

CreateObject(“Internetexplorer.Application“)が突然エラーを吐くようになった
普通のIEはまだ起動できるのに

他の人どうですか？

2022/07/22(金) 11:20:33.73

再起動

2022/07/22(金) 11:21:00.52

それも365？
何かIEはもうやめてEDGEに移行してくれって
随分前からMSからお達しがあったからその関係じゃないかな？

素直にEDGEに移行すれば？

2022/07/22(金) 11:28:21.24

うへ、再起動したら治った
上の人ありがとうございます
でも何でだろう

MS公式アナウンスは2029までこの手法は使えるとのアナウンスだった
移行したいのは山々だがSelenium + Webdriverは面倒くさ過ぎ

2022/07/22(金) 13:04:28.34

正式なアナウンス？

2022/07/22(金) 15:29:50.23

スタッフの個人ブログは正式アナウンスじゃないよ

2022/07/22(金) 19:04:07.42

こないだのオフ会楽しかったな
https://blog.tirakita.com/wp-content/uploads/2018/03/ressya1.jpg

2022/07/23(土) 21:33:12.94

密です

2022/07/23(土) 21:51:44.32

>CreateObject(“Internetexplorer.Application“)
IEってアウトプロセスだしCOMの開放忘れでリークしまくってて正常に起動できなくなってたに300ペリカ

2022/07/25(月) 10:04:05.83

Next iってVisualじゃないBASICでインデント付けずにフラットに書くことが多かった時代の名残でしょ

2022/07/25(月) 10:30:09.76

いつの話題だよ

2022/07/25(月) 10:31:25.87

ネタがないから蒸し返したいんでしょ

2022/07/25(月) 14:14:33.64

>>95
インデントは余分にメモリ使うからな

2022/07/25(月) 16:11:05.58

その環境だとNEXT IのIを省略した方が省メモリーじゃなかったっけ？

2022/07/25(月) 16:15:14.91

確かコマンドごとにコードが決まっててそれでメモリを削ってた気がする
PRINTの命令コードは何番みたいに

2022/07/25(月) 16:21:50.51

>>99
あのー
このレベルの懐古厨にマウントは無理だよ

2022/07/25(月) 16:33:12.29

>>100
環境に依ったような気がする

>>101
マウント厨かよw

2022/07/25(月) 16:38:39.42

？が勝手にPRINTになるやつね
行末；とか意外と難しいよね

2022/07/25(月) 18:11:29.36

>>103
わからない馬鹿は書かなければいいのに

2022/07/25(月) 19:32:28.46

>>103
合ってるよ
？はPRINTの省略でセミコロンはマルチステートメント
マルチステートメントは改行(crlf)するより1バイト分お得
プログラムエリアが20kくらいしかなかったから可読性なんて贅沢の極みの状況だった

2022/07/25(月) 19:39:56.40

マルチステートメントはセミコロンじゃなくてコロンな
ちな今のVBAでも使える

まあ、ソースを削れば早くなるなんてインタプリタ時代の遺物

2022/07/25(月) 19:45:38.76

>>105
馬鹿の仲間か？

2022/07/25(月) 19:53:42.13

>>106
あーすまん、フォローありがとう
もうウロ覚えだわ～

2022/07/25(月) 20:00:39.95

行末セミコロンはC言語

2022/07/25(月) 20:01:10.85

行末というか関数の後な

2022/07/25(月) 20:15:29.72

>>103のセミコロンはPRINTの改行抑止の話じゃねーの？

>>110
a = 1; のどこに関数が？

2022/07/25(月) 21:09:51.78

>>110
行末っていうか文末な

>>111
>>103はそういう意味かもしれんとも思ったが、それに対する>>105は...
PRINT AよりPRINT A;が早いからPRINTはセミコロンつけろっていうのは太古の昔にはあったなあ

2022/07/25(月) 21:59:22.05

如何にこのスレがじじいばかりか
よく分かるレスだなぁ

2022/07/25(月) 22:26:52.71

しかもスレチな話題をずっとするし害悪でしかない

2022/07/25(月) 22:30:19.03

・高度IT人材、富士通は最大年収3500万円へ
・AI人材の獲得に超本気　NECが新人事制度を9人に適用、富士通は最大年収3500万円へ
・【年収３５００万円も】富士通、「ジョブ型」人事制度を導入幹部社員から高度IT人材
・来年度から副業解禁　人材多様化へ―大同生命次期社長
・第一生命HD、副業解禁　約1万5000人対象
・第一生命ＨＤ、副業解禁　１万５０００人対象―大手生保初
・IHI、国内8000人の副業解禁　重厚長大企業も転機
・ＩＨＩ、社外兼業を解禁　社内副業もルール化

2022/07/25(月) 23:25:00.63

高田純次はすごいよな
昔話・自慢話・説教は嫌われるからしないってのを徹底してる
方やここの老害共は

2022/07/26(火) 18:51:38.02

ブーメラン返ってきてるぞ

2022/07/27(水) 00:49:40.58

2016使っててVBAが複数エクセル開いてると干渉して困ってたけど
タスクバーのアイコンを右クリックして、alt押し続けながらエクセル起動すると
別プロセスで起動できることを最近知った

2022/07/27(水) 09:53:31.45

Windows 10 エクスプローラー　[表示]-[列の追加]-[列の選択]　
「詳細表示の設定」ダイアログが開いて　詳細　「コメント」をチェック。
エクスプローラーに「コメント」列が追加される。

フォルダに設定されたコメントをVBAで取得する方法があったら教えてください。

2022/07/27(水) 10:42:22.72

vba shell.application getdetailsof

2022/07/27(水) 11:00:39.14

エクスプローラーが突然アホになる健忘症を治す方法を教えてくれまいか

2022/07/27(水) 11:13:16.58

>119
http://scripting.cocolog-nifty.com/blog/2010/10/desktopini-3818.html

2022/07/27(水) 11:19:05.52

質問させてください。

http://keizann.blog.shinobi.jp/-yahoovba-/yahoo%E3%83%95%E3%82%A1%E3%82%A4%E3%83%8A%E3%83%B3%E3%82%B9%E3%81%8B%E3%82%89%E6%A0%AA%E4%BE%A1%E6%83%85%E5%A0%B1%E3%81%AE%E5%8F%96%E5%BE%97

こちらのものを利用させていただきデータを収集しているのですが、これだと希望する場所にたどり着けないです。

例えばXPathのように2番目のliの中の〜みたいな書き方はできるのでしょうか？

2022/07/27(水) 11:42:49.96

すまん．ワードVBA の質問すれどこにあるか知ってる人がいたら教えて．昔あったけど発見できない．かそってなくなったのかな．アクセスVBAとエクセルVBAしかないのかな．

2022/07/27(水) 11:48:06.25

VBAなんでも質問スレ Part3
https://mevius.5ch.net/test/read.cgi/tech/1631184381/

ただし…

2022/07/27(水) 12:09:26.86

>>123
ざっと見たところ、単純に文字列を検索して切り出してるだけだから、関数の使い方を工夫すればできそうに見える
ここよりその作者に直接聞け

2022/07/27(水) 15:54:35.41

エクスプローラーが突然ハゲになる症状を治す方法を教えてくれまいか

2022/07/28(木) 21:40:24.00

>>127
再起動

2022/07/29(金) 11:13:15.94

>>123
最近ウェブページ操作することが多くて参考にならないかと思ってちょいみてみた
情報取得だけならこういう方法も処理が軽いからありなのかと勉強になったわ

取得したHTMLからお目当ての文字列を切り出すのにGetText関数を重層的に用いるのな
GetText自体は簡単なもので、切り出したい文字列の前と後ろにある文字列を指定することで
その間に挟まれている文字列を取得するというもの
何度か繰り返しこの関数を使うことで、目的の文字列にたどり着く
うまいこと前後の文字列を指定してあげないと切り出しが狂ってしまって目標にたどり着けないので、その辺はHTMLをじっくり見ながらやってみるしかない

タグにクラス名とかIDとか細かく設定されてるから、その辺を前後の文字列にうまいこと含ませながらやるのかな
取得したい文字列が存在する複数ページに共通する部分を使っていかないとダメっていう難しさはありそう

2022/07/29(金) 13:56:47.64

（なんでHTMLDocument使わないんだろう…）

2022/07/29(金) 14:12:34.81

>>123
XPathを知ってるなら、そっちを使えばいいんじゃないの？
だいたいスクレイピングといえば、FindElementByCssとかFindElementByXPathをつかうもので、
なんでわざわざ別のやり方をやりたいのか意味がわからん。

2022/07/29(金) 15:37:25.01

VBAでシリアル通信を行う場合についての質問です。
CreateFileで指定のCOMポートを開き、WriteFileで指令を送信、ReadFileでデータを格納する流れだと思うのですが、
WriteFileで送る文字列の形式がマニュアルを見ても分かりません。
読み出しメッセージが「STX 10 R PV01 01 ETX BCC」の順だとしたらこれをStringで送ればよいのでしょうか？
それとも対応するASCIIコードを並べて送るのでしょうか？

2022/07/29(金) 16:37:10.32

対応するASCIIコードを並べて送る

2022/07/29(金) 16:50:05.77

回答ありがとうございます。
WriteFileで1バイトずつコードを送っていき、終端のコードを送るとReadFileで返答を持ってこれるという認識でしょうか？

2022/07/29(金) 18:22:52.40

COMポート送受信なんて、普通はそれ用のコントロールつかうんじゃね
MSCOMMとか今はもう動かのかな

2022/07/29(金) 19:50:13.57

>>134
そんな簡単にはできない

2022/07/29(金) 20:30:37.69

>>135
Windows10 64bit でも一応動くみたいだけど一手間（ファイルを移動させたりレジストリを書換えたり）が必要みたい
詳しくは mscomm32.ocx windows10 とかでググって

2022/07/29(金) 20:43:22.69

>>134
別に１バイトずつじゃなくても複数バイトを一気に送れるよ
まあ送信速度に対してCPUの方がアホほど速いから性能上はどっちでも変わらんけど
念のための確認だけど STX が &H53 &H54 &H58 って思ってないよね

2022/07/29(金) 21:13:37.14

最近のPCはシリアルポートがついてない方が多いよね
ハイパーターミナルってVISTA以降は入ってないし

**134** (ｽｯｯﾌﾟ Sd33-M5Tw) · 2022/07/29(金) 21:44:49.02

回答ありがとうございます

>>135,137
MSCOMMというものを使う方法もあるのですね
調べてみます

>>138
ASCIIコードの対応でSTXが&H2、ETXが&H3ですよね
一気に送るというのは配列で渡すような形ですか？

基礎的な部分から分かっていないのできつい予感が

2022/07/29(金) 21:58:07.50

つか通信する相手は何だよ？
相手側機器に、通信用のライブラリとかないのか？

**134** (ｽｯｯﾌﾟ Sd33-M5Tw) · 2022/07/29(金) 23:12:49.30

>>141
相手はレコーダーと調節計で目的は現在値の読出しです
調節計のほうは専用のソフトがありますがレコーダーのほうはありません
PCで両方に接続して2つから同じタイミングで現在値を読んでExcelに記録していくものを作ろうとしています

2022/07/29(金) 23:29:37.37

何でExcelで直接入出力する必要があるのか
馬鹿は発想からして馬鹿なんだよな

2022/07/29(金) 23:58:33.41

>>140
> MSCOMMというものを使う方法もあるのですね
可能ならmscomm32.ocx使った方が遥かに楽
Win32APIだとボーレートとかの指定はSetCommState()を呼ばないとダメだし
あと送信はWriteFile()で書き込めばいいだけだけど受信は何らかの要因で読めない時にキャンセルできるようにしないと使い勝手悪いのでSetCommTimeouts()でタイムアウト設定して制御を戻す必要あるけどmscomm32.ocxだと受信でイベントが発生するからそういう処理が楽

> ASCIIコードの対応でSTXが&H2、ETXが&H3ですよね
ああすまんそこは大丈夫なのね、失礼した

> 一気に送るというのは配列で渡すような形ですか？
そう Byte 型の配列を渡す

> 基礎的な部分から分かっていないのできつい予感が
脅かすようで申し訳ないけど結構ハードル高いよ
特にReadFile()の方はバッファサイズを間違えるとExcel自体が落ちたりするし
どうしても茨の道を進みたい/進まざるを得ないならまずはファイルに対してCreateFile/ReadFile/WriteFile/CloseHandleから練習した方がいいかも

**134** (ｽｯｯﾌﾟ Sd9a-XKyj) · 2022/07/30(土) 00:32:26.79

>>144
回答ありがとうございます

制限があるわけではないのでmscomm32.ocxを使う方向で行こうと思います
先が長そうな感じはかなりありますね・・・
まずはCreateFile、ReadFile、WriteFile、CloseHandleでファイルを操作するところからやってみます

2022/07/30(土) 03:02:20.62

まずVBAでやるべきかどうか考えたほうが良いんじゃね
相手側がそれ用のコンポーネントでも用意してない限り、VBAでやるような案件じゃないぞ

2022/07/30(土) 03:31:29.08

>>123 です。

レスいただいた方々ありがとうございます。
スプレッドシートの ImportXML でXPathは理解しました。
HTML/CSSは書けますがそれ以外はさっぱりで…。
HTMLDocument、FindElementByCss、FindElementByXPathなど
調べていて出てきましたがどう書き出してどうエクセルに書き込むか
一から十までのものが見当たらず挫折しました。

>>129 さん！書き込み、非常に参考になりました。
<td></td>
<td></td>
<td></td>
などは無理なようですが、どうにかclassなどが振ってあるサイトを探せました。
ありがとうございます。

2022/07/30(土) 03:43:44.39

>>123
if文で真偽値を二度判定するあたりなどは、もうさすがにやめてほしいわ。

2022/07/30(土) 03:50:55.80

>>147
Cells()だらけなのにExcelシートに値をセットしていないと思うのか？

2022/07/30(土) 05:00:33.23

というか簡単に取れるけど
kabu_kode = ThisWorkbook.Sheets("Sheet2").Cells(1, X).Value
If kabu_kode <> "" Then
driver.Get "https://finance.yahoo.co.jp/quote/"; & kabu_kode
Call Sleep(1000) '3秒待つ
ThisWorkbook.Sheets("Sheet2").Cells(2, X).Value = driver.FindElementsByCss("h1._6uDhA-ZV").Item(1).Text '社名
ThisWorkbook.Sheets("Sheet2").Cells(3, X).Value = driver.FindElementsByCss("span._3rXWJKZF").Item(1).Text '株価
Set o_elem1 = driver.FindElementsByCss("dt")
Set o_elem2 = driver.FindElementsByCss("dd")

For Y = 1 To o_elem1.Count
If X = 2 Then ThisWorkbook.Sheets("Sheet2").Cells(Y + 3, 1).Value = o_elem1.Item(Y).Text '凡例を書く
ThisWorkbook.Sheets("Sheet2").Cells(Y + 3, X).Value = o_elem2.Item(Y).Text
Next
End If

2022/07/30(土) 09:15:05.30

>>143
++
ほんそれ

2022/07/30(土) 16:06:41.35

>>143
縛りプレイが大好きなんだよきっと

2022/07/30(土) 17:59:01.96

Sleep(1000)で3秒？

2022/07/30(土) 18:00:32.56

kodeが気持ち悪い
そこはkodoかcodeだろ

2022/07/30(土) 18:40:37.03

>>145
ARDUINO とかで遊んでるやつもいて
VBA シリアル通信
でググれば事例は出てくるからまずはここら辺を参考にすればいいかと
https://kats-eye.net/info/2020/03/23/excel-arduino/
>>146,151-152 みたいな何の参考にもならないレスは無視していい

2022/07/30(土) 18:51:57.99

>>154
喧嘩売ってんの？w
https://kode.co.jp/about-kode

**デフォルトの名無しさん** (ｽﾌｯ Sd9a-dSCr) · 2022/07/30(土) 19:36:36.39

ローマ字と英語が混ざってる時点で頭悪そうだなとは思う
匿名掲示板以外では口に出さないけど

2022/07/30(土) 20:21:34.38

>>155
運用することを考慮しない馬鹿

2022/07/30(土) 21:04:41.17

盛り上がってるところ低レベルの割り込み恐縮ですが
ランダムな値が格納されてる配列の頻度分布を調べたいです
ワークシート関数使わないでできるだけ行数少なく書くならどうするべきでしょうか

2022/07/30(土) 21:17:32.71

>>159
乱数の範囲によって方法が変わってくる

2022/07/30(土) 21:38:00.74

>>158
おまえ>>145の状況知ってるの？
まさか状況知らずにダメ出ししちゃう無能君かな？w

**134** (ｽｯｯﾌﾟ Sd9a-XKyj) · 2022/07/30(土) 21:41:59.73

>>155
VBAのシリアル通信で調べていた際にARDUINOという単語を見かけたことはありましたが同じようにシリアル通信ができるのですね
中身を見た限り基本的な部分は同じようにできそうなので参考にしてみます

2022/07/30(土) 22:52:18.66

>>159
CSVで出力してPythonでmatplotlib使えば一発よ

2022/07/30(土) 22:56:19.11

>>161
典型的なパソコンにちょっと詳しいだけの馬鹿

2022/07/30(土) 23:02:16.93

>>164
完全同意！
>>164とかまさにそれだよな

2022/07/31(日) 05:06:02.46

>>160
整数0から20で要素数70です
>>163
csv使うならワークシート関数でいいです

2022/07/31(日) 05:59:25.08

>>166
普通に
Dim F(0 To 20) As Long
Dim I As Long
For I = LBound(A) To UBound(A)
F(A(I)) = F(A(I)) + 1
Next
ってやればいいだけじゃねーの？

2022/07/31(日) 06:45:31.55

>>167
なるほど調べるのが整数限定ですからね
一般化して考えてたので思いつかなかったです
ありがとうございました

2022/08/01(月) 16:35:43.44

セルＡ１に　1:00:00　の
ような時間データが入っています

これを変数に格納したいのですが
上手く行きません

最終的に変数の左2文字　1:　を
格納して他のセルに入っている
12:15:00　などの左2文字と比較
したいのです

エクセルVBAは独学で詳しく
わからないのですが、知見を
お借りしたく質問させていた
だきました
よろしくおねがいします

24歳OL

2022/08/01(月) 16:40:09.61

なぜ24歳OLと入れた

2022/08/01(月) 16:44:24.88

そのほうが教えてくれそうだから

2022/08/01(月) 18:17:38.73

VBAを知らないのではなくExcelのことをろくに知らないだけだな

2022/08/01(月) 18:34:36.42

>>169
VBA入門の最初の1ページからこのスレで説明しろと？

2022/08/01(月) 18:38:01.34

>>169
格納する変数の型が正しくないのかも

2022/08/01(月) 19:43:29.98

>>169
シートの名前は？

2022/08/01(月) 19:44:55.66

コロンは除外したほうが比較しやすい

Dim TimeA1 As Long
Dim TimeB1 As Long

TimeA1 = Left(Range("A1").Text,Instr(Range("A1").Text,":")-1)
TimeB1 = Left(Range("B1").Text,Instr(Range("B1").Text,":")-1)

2022/08/01(月) 20:06:19.66

Hour関数ならVariant型変数

2022/08/01(月) 20:06:42.42

>>176
ならhour()使う方がいいんじゃね