Excel VBA 質問スレ Part79

**デフォルトの名無しさん** · 2023/01/28(土) 11:46:47.21

↑同じ内容を3行貼り付けること

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

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

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

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

**デフォルトの名無しさん** · 2023/04/13(木) 23:50:31.64

>>445
Googleでもネット上に存在しないはずの人名とか単語で検索すると無関係な情報を適当に出してくる
そういう関連性の低い検索結果でもChatGPTは容赦なくコピペする仕組みになってる

**デフォルトの名無しさん** · 2023/04/14(金) 00:03:39.58

>>446
書けるよ
コメント大量に入れてって言えば入れてくれるし
可能な限りまとめてもらったり、冗長でもいいから分かりやすく書いてって言ったらその通り出力してくれる

あとは知らなかった関数なんかも書いてくれる事がある
上級者でも答え合わせ的な意味で使った方がいい
絶対に腕があがる

**デフォルトの名無しさん** · 2023/04/14(金) 00:59:19.74

進化が恐ろしく速くなるからとにかく否定から入る硬直した頭ではダメな気がする
漠然とw

**デフォルトの名無しさん** · 2023/04/14(金) 03:40:01.68

否定から入るのは大抵はジジババ老害でしょ？

**デフォルトの名無しさん** · 2023/04/14(金) 06:17:31.63

5chはジジババ老害の巣窟ですよ。
子供は他所で遊んだ方が良いですよ。

**デフォルトの名無しさん** · 2023/04/14(金) 12:05:37.18

>>450
それ、否定から入ってるよ

**デフォルトの名無しさん** · 2023/04/14(金) 12:35:16.38

>>452
どうみても疑問文だぞ

**デフォルトの名無しさん** · 2023/04/14(金) 13:04:36.38

VBAはジジババ老害しか使わないからね

**デフォルトの名無しさん** · 2023/04/14(金) 15:11:32.43

このスレはジジババ専用

**デフォルトの名無しさん** · 2023/04/14(金) 16:06:06.70

若いのはVBAやらなくなったのか？

**デフォルトの名無しさん** · 2023/04/14(金) 17:09:14.68

他人にやらせるのがコミュ力と思い込んだからそれ以外もやらないだろ。

**デフォルトの名無しさん** · 2023/04/14(金) 18:09:42.10

>>443
こんな簡単な質問で重大な間違いをしてるのに気付けるのは人だけか？　間違いを指摘するAIが必要じゃないのか？
A1にはその数式を入れるのだから、チェックボックスのリンク先はA1以外にしなきゃダメだろ

**デフォルトの名無しさん** · 2023/04/14(金) 18:16:29.82

>>458
多分理解できてないのは貴方だけ

**デフォルトの名無しさん** · 2023/04/14(金) 18:36:06.83

>>456
若さって何だ？

**デフォルトの名無しさん** · 2023/04/14(金) 18:38:36.70

振り向かないことさ

**デフォルトの名無しさん** · 2023/04/14(金) 18:40:04.49

振り向かないことさ

**デフォルトの名無しさん** · 2023/04/14(金) 18:40:49.67

愛って何だ？

**デフォルトの名無しさん** · 2023/04/14(金) 18:53:17.20

MaわレMEら輪な居こと (ﾟДﾟ)ｻｧ?

**デフォルトの名無しさん** · 2023/04/14(金) 19:26:22.99

つまり年齢などただの数字だと

**デフォルトの名無しさん** · 2023/04/14(金) 19:34:04.53

悲しいけど歳を重ねるほど才能にあふれた者と差は開いていく

**デフォルトの名無しさん** · 2023/04/14(金) 19:36:27.91

VBA哲学スレ

**デフォルトの名無しさん** · 2023/04/14(金) 20:01:52.35

>>459
質問者が「セルA1に入る文字を変えたい」と訊ねてる回答としては致命的と云ってる
こんなシンプルな質問だからすぐに間違いに気付けると思うが、より複雑な質問なら
当該セルやテーブルや名前付け範囲やらの対象を雑に扱ってたら、質問者が混乱に陥る
得意げに貼り付ける奴が間違いに気付くでも無くキチンと修正するでも無くたれ流しなのも呆れるしかない

**441** · 2023/04/14(金) 20:28:34.40

>>468
他に方法あるんですか？

**デフォルトの名無しさん** · 2023/04/14(金) 20:31:21.28

ていうか、AIの話になるんだったらA1以外のセルにしておいたらよかったですね

**デフォルトの名無しさん** · 2023/04/14(金) 20:31:31.59

>>468
最後の一文は全く同意だ
ChatGPTでの質問は質問者本人でもできる
それを代わりにやって得意げに間違えたままの回答を貼る
AI未満のことしかできないんだもんな

**デフォルトの名無しさん** · 2023/04/14(金) 20:37:10.45

A1の値(文字)がチェックボックスの状態によってTRUEとFALSEに変わる
A1の値をIF関数で判定するだけの処理なのでVBAを使うような内容ではないな

**デフォルトの名無しさん** · 2023/04/14(金) 20:38:10.01

だけどここはVBAスレ

**デフォルトの名無しさん** · 2023/04/14(金) 20:45:24.57

Excelはスレ違い

**デフォルトの名無しさん** · 2023/04/14(金) 21:04:16.77

フォームコントロール(チェックボックス)とExcel関数(IF関数)
https://i.imgur.com/RK5Jbt1.png

**デフォルトの名無しさん** · 2023/04/15(土) 15:18:17.56

ChatGPT使ったらどんなサイトよりもわかりやすいプログラムを一瞬で作ってくれる

**デフォルトの名無しさん** · 2023/04/15(土) 16:02:24.33

宣伝を鵜呑みにする情弱老害

**デフォルトの名無しさん** · 2023/04/15(土) 16:19:50.18

ChatGPTは単純で短いコードしか書けない
ちょっと長くなると動かないどころかコンパイルすらできなくなる

**デフォルトの名無しさん** · 2023/04/15(土) 16:52:23.65

>>476
スレ主の例の零細企業の馬鹿か

**441** · 2023/04/15(土) 17:31:15.11

おわります、ありがとうございました

**デフォルトの名無しさん** · 2023/04/15(土) 17:40:05.15

そもそもchatGPTはプログラム向けじゃないぞ
codex系譜のcopilotが最強
あれは関数名書くだけで内部処理全部書いてくれる

**デフォルトの名無しさん** · 2023/04/15(土) 18:00:19.46

楽しみだな。ベテランにはベテランなりの使い方するんだろうな

**デフォルトの名無しさん** · 2023/04/15(土) 22:19:52.03

GetOpenFilenameで複数画像のファイル選択は出来る？

**デフォルトの名無しさん** · 2023/04/15(土) 22:25:42.06

戻り値をどう判断する気だよ？

**デフォルトの名無しさん** · 2023/04/15(土) 22:37:28.81

>>483
MultiSelect := True

**デフォルトの名無しさん** · 2023/04/15(土) 22:59:06.56

挿入で複数画像を選択したいんだけど、やり方が分かりませんでした。
ChatGPTに聞いたらwindows　APIがうんたらかんたら書いてたけど上手くいかずです。

**デフォルトの名無しさん** · 2023/04/16(日) 01:11:59.77

chatgptだってそこまであてにならない良い事例だね

**デフォルトの名無しさん** · 2023/04/16(日) 01:48:57.39

無視かよ。
と言うか逆にWin32Apiでどうするのか知りたいわ。

**デフォルトの名無しさん** · 2023/04/16(日) 02:56:05.12

誰？
どの書き込みへのレス？

**デフォルトの名無しさん** · 2023/04/16(日) 02:58:21.10

今は春だから(意味深)

**デフォルトの名無しさん** · 2023/04/16(日) 08:20:50.36

(意味深)必要？

**デフォルトの名無しさん** · 2023/04/16(日) 08:25:35.61

41歳の春だから
今春が来て君はきれいになった

**デフォルトの名無しさん** · 2023/04/16(日) 11:42:14.77

ChatGPT って言うけどさ、
あれ危なくて4超える開発止めてるらしいね
頼りすぎるとターミネーターの世界になるってね

**デフォルトの名無しさん** · 2023/04/16(日) 12:09:21.93

>>493
スレチ

**デフォルトの名無しさん** · 2023/04/16(日) 12:34:51.14

翻訳サイトから情報を取得しているという話すら忘れたころに話題になる不自然さ。

**デフォルトの名無しさん** · 2023/04/16(日) 12:36:21.29

>>490
「意味深」は死語になったよな。

書き言葉でも話し言葉でも使われなくなった。

**デフォルトの名無しさん** · 2023/04/16(日) 17:59:22.28

新人類世代だから普通に使ってるの！

**デフォルトの名無しさん** · 2023/04/16(日) 19:59:39.21

新人類世代は、1950年代後半から1960年代前半や
1950年代後半から1965年（昭和40年）4月1日までに生まれた世代を指す場合が多かった
現在新人類を明確に定義しているものとしてマーケティング上の世代区分があり、
1961年（昭和36年）4月2日から1971年（昭和46年）4月1日生まれまでと定義されることが多い

**デフォルトの名無しさん** · 2023/04/18(火) 00:15:19.00

ChatGPTが使えないと言ってるやつって柔軟性なさそう

**デフォルトの名無しさん** · 2023/04/18(火) 00:17:46.72

スレを立てた零細企業の何が本当で何が間違いかわからないような馬鹿には使えるように見えるのだろう

**デフォルトの名無しさん** · 2023/04/18(火) 00:32:39.66

>>458の指摘は正しいが
そこで全否定して終わるか使えるところを探せるかが使えるやつと使えないやつの差だと思う

**デフォルトの名無しさん** · 2023/04/18(火) 01:43:26.21

152 デフォルトの名無しさん[sage] 2023/01/29(日) 00:13:36.21 ID:fH/RhkK8

零細企業でExcel使ってます
VBAはわかりません
でもパワークエリ使えますから自信あります

**デフォルトの名無しさん** · 2023/04/18(火) 02:54:05.91

そうかい

**デフォルトの名無しさん** · 2023/04/18(火) 05:12:03.57

クエリー更新するVBAくらいは覚えておけ。

**デフォルトの名無しさん** · 2023/04/18(火) 09:38:09.65

今のChatGPTは高機能な検索エンジンでしかない
一般的に検索エンジンなんて使える場面は限られてる
道具の限界をわかった上で使いこなせるのが優秀な人材

**デフォルトの名無しさん** · 2023/04/18(火) 10:02:17.97

>>505
出典（ソース）が不明な時点で検索エンジンとしては足りない

**デフォルトの名無しさん** · 2023/04/18(火) 10:52:08.36

ま、いちばんシンプルなGoogleの検索エンジンだって、ブラウザでAdBlockとかしとかなきゃ
余計な検索結果へいきで出して来るし、Yahoo Bing 百度 DuckDuckGo とか、無理やりブラウザに追加してくるし
道具をまんま使ってるだけじゃ逆に迷惑な場合もあるという好例
いい道具は使う側にもそれなりにスキルを要求してくる　てだけ

**デフォルトの名無しさん** · 2023/04/18(火) 12:06:24.83

スレタイ読むスキルもないけどスキルについて熱く語ってて格好いいな

**デフォルトの名無しさん** · 2023/04/18(火) 12:32:43.57

ChatGPTで実用的なコードを生成させるための的確な指示を出せるスキルが必要になるわけで初心者では曖昧な指示しか出せず動いたとしても何らかの修正が必要、、、ということはそれなりのコードを理解していないとならんてことやんな。

AIだろうと人間だろうと他人が書いたコードの問題点を見つけるなんてめんどい。

**デフォルトの名無しさん** · 2023/04/18(火) 20:49:05.02

正直ChatGTPでコード生成してくれるくらいなら
個人的もっとインテリセンスを強化してくれる方がありがたい。
以前どこかで何の言語かは知らないけど、メソッドの呼び出し口書いたらそれに合わせてシグネチャの部分を生成してくれるのを見たことがある。
現在実用化されているかは分からないけど。

**デフォルトの名無しさん** · 2023/04/19(水) 02:06:53.36

やっと閲覧&書き込めるようになったな。鯖の不具合だとか？

**デフォルトの名無しさん** · 2023/04/19(水) 06:40:26.15

>>506
Googleの検索結果だってリンク先の内容に確かなソースがあるとは限らんのだが

**デフォルトの名無しさん** · 2023/04/19(水) 06:58:09.69

宗教の信者って頭おかしい人多いからな

**デフォルトの名無しさん** · 2023/04/19(水) 07:18:28.31

神なんているわけねーしな。

**デフォルトの名無しさん** · 2023/04/19(水) 07:31:29.73

神は死んだ

**デフォルトの名無しさん** · 2023/04/19(水) 07:37:42.18

>>514
神なんているわけないってのも宗教だしな

**デフォルトの名無しさん** · 2023/04/19(水) 11:55:14.89

GetOpenFilenameメソッドで複数の画像を選択して、それを配列に格納して、エクセルに順番に貼り付ける、というプログラムを組みました。
さらに、配列の一番最初？の画像のファイル名をセルに入力したいのですが、配列に格納されたファイルのファイル名を取得するにはどうすればよいのでしょうか

**デフォルトの名無しさん** · 2023/04/19(水) 12:01:38.38

できました

**デフォルトの名無しさん** · 2023/04/19(水) 12:17:31.19

すみませんできませんでした。
Dir（配列（インデックス番号？））で、0.185.jpgのようなファイル名は入れれたのですが、拡張子が消せません。
ドットはファイル名に使われていることがあり、拡張子もjpgのみではないです。
どうすればよいでしょうか？

**デフォルトの名無しさん** · 2023/04/19(水) 12:35:42.23

>>519
FSOならファイル名と拡張子を個別に取得できる気がする。。。
何らかの理由でFSOを使いたくないのなら取得した文字列の一番うしろのピリオドの位置を特定すればいいのでは?

**デフォルトの名無しさん** · 2023/04/19(水) 15:04:15.13

>>519
DIRの使い方間違ってないか

**デフォルトの名無しさん** · 2023/04/19(水) 15:26:21.53

若い人間はディル関数と呼んでいた。

**デフォルトの名無しさん** · 2023/04/19(水) 15:58:53.29

Dir 実行した後で拡張子を削除したリストにする
https://correct-log.com/bat_get_filename_without_extension/
拡張子構わず削ってしまうので画像でないファイルが混じってたりすると混乱の元

そもそもファイル名に[.]を使うのが憚られるものだけど、品番・型番とかなんだろうと推測する
私的な用途じゃ無いんだから業務用途なら[.]を[_]にでも変換しといた方が後々のトラブルを避けられるような
社内でルール作りも大事（長年にわたりそうやってきてしまったので今更、、、というのも理解できるが）

**デフォルトの名無しさん** · 2023/04/19(水) 16:06:06.94

俺はバージョンをそのまま書いてる
app_v3.1.4.exe みたいに

**デフォルトの名無しさん** · 2023/04/19(水) 16:32:02.42

>>520
ありがとうございます　調べてみます

>>523
小数点なので出てくるのは避けられません。

**デフォルトの名無しさん** · 2023/04/19(水) 22:17:44.89

ChatGPTはVBAでStringBuilderを使ってくるからね。
ネット検索したら、VBAでStringBuilderクラスを自作してる奴がいて
本当にやめてほしかった。

**デフォルトの名無しさん** · 2023/04/19(水) 23:56:00.40

webスクレイピングの質問してもいいですか・・・？

IEnavigate・・・じゃなくて、WinHTTPやXMLHTTPでスクレイピングしてると
ヤフーの記事検索で、古いバージョンの・・・ってなり検索を弾かれるんですが
回避方法とかあります？

**デフォルトの名無しさん** · 2023/04/20(木) 00:06:28.67

>>527
setRequestHeader

**デフォルトの名無しさん** · 2023/04/20(木) 00:08:38.22

>>526
そういう場合はChatGPTに「StringBuilderを使わないで」って命令すればいいだけ

**デフォルトの名無しさん** · 2023/04/20(木) 14:09:12.06

>>526
え？VBAでStringBuilder使えるの？

**デフォルトの名無しさん** · 2023/04/20(木) 21:29:46.47

>>528
ありがとうございます。うまく出来ました。

恥を忍んで、もう一つ聞いてみますが
XMLHTTPとかの方法でjavaの中身をスクレイピングすることって出来ますか？

**デフォルトの名無しさん** · 2023/04/20(木) 21:43:09.53

>>531
まれにできるケースもあるけどほぼ無理
browserコントロールかwebdriverを使った方が簡単で確実

**デフォルトの名無しさん** · 2023/04/20(木) 21:47:47.31

聞く方も答える方も馬鹿の例

**デフォルトの名無しさん** · 2023/04/21(金) 13:00:47.00

>>533
じゃあこのスレから出ていけば良い

**デフォルトの名無しさん** · 2023/04/22(土) 09:42:19.84

シート全体から検索ではなく、
ブック全体から検索しそのセルまで移動するコードってどこかのサイトにないですかね？
検索までは出来るけど移動がうまく機能しないし、ChatGPTに何度やらせてもうまくいかず

**デフォルトの名無しさん** · 2023/04/22(土) 16:15:15.73

>>535
そのうまくいかなったコードを貼ってくれれば色々アドバイスできるかと

**デフォルトの名無しさん** · 2023/04/22(土) 17:36:15.09

>>535
シート内検索が出来ているのならfor each で全シートにその処理を適用させればいいのでは?

ピンポイントに目的を達成できるようなコードは都合よく転がってないかと。
ChatGPTには処理ごとの指示でコード生成させて自分で組み合わせれば出来んじゃね? 知らんけど

**ChatGPT** · 2023/04/22(土) 21:04:52.32

Sub search_string()
Dim searchString As String
Dim found As Range

searchString = InputBox("Enter search string:") ' 検索する文字列を入力

If searchString = "" Then ' 入力された文字列が空の場合、処理を終了する
Exit Sub
End If

Set found = ActiveWorkbook.Sheets(1).Cells.Find(What:=searchString) ' ブック全体から検索

If Not found Is Nothing Then ' 検索結果が見つかった場合
found.Select ' 該当するセルを選択状態にする
MsgBox "Found at " & found.Address
Else ' 検索結果が見つからなかった場合
MsgBox "Not found"
End If
End Sub

**535** · 2023/04/22(土) 22:12:10.97

返信遅れてすみませんでした。何故か書き込めず。
for eachで回すようにして作ってみます。ありがとうございました。

>>538
found.Select　似たようなコードが出来たんですが、selectメソッドで失敗になるのですよね。

**デフォルトの名無しさん** · 2023/04/22(土) 23:52:52.89

だから使えんと

**デフォルトの名無しさん** · 2023/04/23(日) 01:54:53.75

ChatGPTがダメなら
マクロ先生がいるじゃない

**デフォルトの名無しさん** · 2023/04/23(日) 04:50:32.07

知恵袋先生がいるじゃんか
vbキチがいる。

**デフォルトの名無しさん** · 2023/04/23(日) 05:04:42.20

>>538のChatGPTの回答は、検索範囲をSheets(1)と指定してるから1枚目のシートしか検索しない(ActiveSheetではない点に注意)
そもそも、Excelを手動で操作する時は「ブック」を指定して一発検索ができるのに、この機能がなぜかVBAからは使えない仕様になっている
だからループで全シート回すよう書き換えるしかない

**デフォルトの名無しさん** · 2023/04/23(日) 05:20:45.59

それをふまえてChatGPTに再質問すれば、ちゃんとループするコードに直してくれる
結局は便利な道具(AI)があっても、使い方が悪いと思ったとおりの結果を出してくれないってこと
https://i.imgur.com/UEY1EGX.png

**デフォルトの名無しさん** · 2023/04/23(日) 07:03:22.97

自力でできる奴はAIで調べる必要がない

**デフォルトの名無しさん** · 2023/04/23(日) 09:10:23.27

マクロを記録しながら手動実行して、記録されたマクロを参考にすれば上手くいくことがあるよ