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/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()使う方がいいんじゃね

2022/08/01(月) 20:20:09.25

>>178
たしかに

2022/08/01(月) 20:42:04.99

いつものあいつだろ

2022/08/02(火) 09:23:38.92

24歳OL
小娘になりすましかRudy厨

2022/08/02(火) 09:42:27.92

>>169の質問は「1:」とコロンも取り出したいという話なんだからまずはそれを回答しないとだめじゃないか？
そのうえで比較するのが違いがあるかなら1:00:00は「1」で12:15:00は「12」でもいいと思うから>>176みたいな回答を補足したほうがいいと思うが

なので回答としては　Left(Range("A1").Text, 2)　とでも答えてやればいいとおもうんだが

2022/08/02(火) 10:01:28.41

気持ち的にはめんどいからそれでいいんだけど、
まあ実際にちゃんとした相手に教えるとなればそれまでの経緯とその後の用途も聞いて、適したデータになるようにしないとだわね
文字列「1:」と数値「12」の比較なんてそのままでは出来ないから

2022/08/02(火) 10:05:23.71

＞12:15:00　などの左2文字と比較したいのです
って書いてあるのにかってに「12」を数値にしちゃいかんだろ
なんかここで回答するやつたまに想像膨らませる奴いるけど仕事でもそんな感じなのかね
相手する人気の毒になる

2022/08/02(火) 11:54:47.43

>>169
本当に左2文字を取り出したいのなら
変数 = Left(Range("A1").Text, 2)
だけど、もし時刻を比較したいんならこの方法はおすすめしない

2022/08/02(火) 14:56:05.83

>>169です

たくさんレスいただき本当にありがとうございます
参考になるレスがたくさんで感謝しかありません

具体的な一例まで書いて頂けて助かります

これからで教えて頂いた内容を参考に
プログラムしてみます
この度は本当にありがとうございました
m(_ _)m＠24歳OL

2022/08/02(火) 15:48:33.16

@24歳OLってことは、
24歳OLは地点の名称ってことだったんだな

2022/08/02(火) 16:09:24.35

まあ24歳の改行には見えんしな

2022/08/02(火) 16:18:40.57

10進法で24ではなく16進法とか32進法で24だろ
こんな釣りに引っ掛かって意気揚々と答える馬鹿ども

2022/08/02(火) 16:35:13.65

=HEX2DEC(24)

2022/08/02(火) 17:59:32.64

お前ら食い付きすぎ

2022/08/02(火) 18:46:55.49

>>189
基数が変わると@の意味が変わるってこと言ってる？

2022/08/02(火) 18:50:18.70

社会人二年目が終わり、そろそろVBA・・・ってパターンの24歳OLもあり得るのでは？

2022/08/02(火) 18:59:16.08

遊びたい盛りの24歳がVBAになんか興味持つわけ無いだろ
ましてやExcelすら興味ないんだから

2022/08/02(火) 19:28:20.53

年齢に食いついてるのは質問に回答すらできない人達でしょ

2022/08/02(火) 19:38:55.35

24歳をチヤホヤしたらダメみたいな言い方だよな。

2022/08/02(火) 19:53:54.38

チヤホヤしていいのは、12歳までか。

2022/08/02(火) 20:57:14.71

OLために一人一生懸命なのいるな

2022/08/02(火) 22:24:42.35

ネタに反応すんなよw

セルの書式が標準だったら、本当に面倒くさいのがExcel。

2022/08/03(水) 07:56:32.23

お前ら何を言ってるんだ？
RangeのTextプロパティなんて使える訳ないだろう
日付設定しているセルなんて幅狭められたら値が#になって終わりだ

2022/08/03(水) 09:41:28.63

なぜ質問してる条件が「1:00:00」といってるのに勝手に「#」と想像を膨らませて混乱させるバカがいるのかと思う
終わってるのは自分だろと
質問された条件だけで素直に答えろよ

2022/08/03(水) 12:44:22.01

>>201
バカはお前だ。
>>689が「時間データ」と銘打っているのだからそこに入っているのは「文字列データ」ではない。シリアル値だ。
そのシリアル値が入ったセルの列幅を縮めてみろ。
まともに動かなくなるぞ。

valueでセル値を取得してFormatなりで文字列に変換した後で切り出しを行え言ってるんだ。
そんなことも理解出来ないこんな小さいロジックでバグるコードドヤ顔で晒してるような奴がよくこの業界で生き残ってこれたもんだ。呆れるわ。

2022/08/03(水) 12:46:24.42

>>689じやねーわ
>>169だわ

2022/08/03(水) 13:14:58.56

あまりバカにかかわりたくないんだがTextでとると表示されている内容（「#DIV/0!」など）と同じものがとれるのはしってるわ
ただそれは条件に含まれてないわけだから仮にそういう問題もあると思うなら
お前から「#」になった場合も正しくとれる方法を回答してやれよ
粗さがしは得意で解決策を提示できない無能は自分の職場にもいるけど同じ匂いがするなお前

2022/08/03(水) 13:20:32.60

このクソ暑い日に本人そっちのけで戦う熱量に恐れ入るわ

2022/08/03(水) 13:27:57.05

>>204
既に回答済みだわ
集中力が無いのか
読解力が無いのか
バカなのか
或いはその全てか

2022/08/03(水) 14:14:17.64

今日も暑苦しいねえ

2022/08/03(水) 14:15:56.82

なんかこれ一人で自演してるように思えて来たw

2022/08/03(水) 14:16:15.91

そんなユーザーなら誰でも知っているような話をどや顔で言い争うのやめてくれませんか？
見てて恥ずかしいし建設的じゃない。

2022/08/03(水) 18:07:13.51

>>209
反面教師と思ってああならないように気を付けようぜ

2022/08/03(水) 18:43:45.40

だからExcel板の連中からバカにされるんだよな

2022/08/03(水) 18:56:42.70

Excel板なんてあんのか。

2022/08/03(水) 19:26:06.29

ビジネスsoft板のことだろ

2022/08/03(水) 19:28:37.44

これはご親切にどうも。

2022/08/03(水) 20:54:58.72

何故仲悪いのか理解できたわ

2022/08/03(水) 21:31:27.92

相手の立場やレベルを考慮しないで言った通りのことしかできないやつは使えないって事なんだが

他人の話を額面通りにしか受け取れないのは、障がいだぜ
一度医者に行くことを薦めるわ

2022/08/03(水) 22:36:18.83

>>216
ブーメラン戻ってきてますよ

2022/08/04(木) 11:16:31.18

よっぽど悔しかったんだろ？

2022/08/04(木) 12:00:42.26

>>208

2022/08/04(木) 13:35:21.99

電話とPCでやれば自演てできるんだっけ？

2022/08/04(木) 16:47:37.44

じぇんじぇん

2022/08/04(木) 17:24:45.70

SeleniumBasic、WebDriverの質問いいですか？

2022/08/04(木) 17:28:53.56

>>206
なんでtextプロパティで取得する前提なのかがわからない。

2022/08/04(木) 17:39:47.72

>>222
https://neos21.net/blog/2021/02/17-01.html

2022/08/04(木) 20:26:30.10

うちの会社は、プログラミング禁止になったよ
ちなみに代替手段はなし
マクロでやってたこと全部手作業になった
マジで物理作業量が跳ね上がってしまった

2022/08/04(木) 20:36:43.85

全体最適の観点では必ずしも間違った判断とは限らない
中途半端な小手先の最適化は業務自体を見直すモチベーションを奪うからな

2022/08/04(木) 22:20:34.12

>>225
へぇー経緯は？
作った後テストしてなかったとか
IEEE754のせいで小数点計算がズレたとか？