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/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

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

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

鳥取県がChatGPT禁止　平井知事「民主主義の自殺」 [ぐれ★]
https://asahi.5ch.net/test/read.cgi/newsplus/1682203494/

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

儲かる株を教えてくれるAIは無いんかね

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

あるよ

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

今のAIはネットから情報を集めてくるだけで未来を予測する機能はない
予測サイトからデータを拾ってくることならできるけど、それはAIの予測とは言えない

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

AIをなんだと思ってるの

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

横着するためのツールだと思ってる

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

チャットGTPの種明かしだって結局は「データベース」にある事を答えているだけ
だからデータベースにない事は途端に破綻して頓珍漢な回答をする、これが「自信満々に間違える」という事

もっというとシュミレーションするスーパーコンピューターはあるそのシュミレーション結果が正しいわけではないので人間が判断して正しくない計算結果は全て切り捨てて正しい答えだけ残しているらしいです

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

犯罪にAIを使い始めたら厄介だな

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

>>554
データベース化笑できるんじゃない？

**デフォルトの名無しさん** · 2023/04/24(月) 00:43:15.46

>>553
シュミレーションて……
DBだろうがなんだろうが使うやつがその特性を把握してハンドリング出来るかどうかって話なんだわ。
PCだってアホから見たらただの箱だろ

**デフォルトの名無しさん** · 2023/04/24(月) 00:54:10.45

辞書が検索エンジンに切り替わって手間が省けるようになった流れの新たなブレイクスルーだろうな
知りたいことを探すときに単語に置き換えて色々なページから探していた無駄を省いてくれる

**デフォルトの名無しさん** · 2023/04/24(月) 01:28:52.70

>>556
違います
科学のシュミレーションを行うシュミレーションシステムはありますがシステムは正しい答えを必ずしも出すというわけではないので人間が計算結果を見て正しくない計算結果を削除し、正しいと判断したものだけを残すという形で精度や性能を向上させているそうです

これはチャットGTPにそっくりそのまま当て嵌まるし、なんらチャットGTPは革新的でもないという証拠です
そもそも知能や知性があるならなぜ出鱈目な答えを自信満々に出して間違えるのでしょうか？

**デフォルトの名無しさん** · 2023/04/24(月) 02:06:49.66

馬鹿が使う用語
↓
シミュレーション

**デフォルトの名無しさん** · 2023/04/24(月) 02:07:59.37

あ、俺が馬鹿か
漢字変換が勝手に修正する…

シュミレーションと書くのは馬鹿

**デフォルトの名無しさん** · 2023/04/24(月) 02:11:33.72

>>558
馬鹿は間違っていることに気づかないからだろ

**デフォルトの名無しさん** · 2023/04/24(月) 02:11:47.58

例えば藤井聡太さんだってAIで将棋の研究をしているとは言いますがそれはAIが出したシュミレーション結果のいいデータ、答えだけを切り取っているという事なのでは？

**デフォルトの名無しさん** · 2023/04/24(月) 02:12:28.98

>>562
馬鹿は黙れ

**デフォルトの名無しさん** · 2023/04/24(月) 02:34:30.02

海外チェスで遠隔アナルバイブ振動でAIの答え座標を受信して不正してた奴いたけど
フジー君もやってねえだろうな PC詳しいしアナル好きそうだし…w

**デフォルトの名無しさん** · 2023/04/24(月) 03:07:44.21

>>563
じゃあなんでチャットGTPは自信満々にまちがえるのです？

**デフォルトの名無しさん** · 2023/04/24(月) 04:15:23.35

馬鹿をだまして金とる戦略

**デフォルトの名無しさん** · 2023/04/24(月) 04:22:29.70

>>558
おいおい、結局何と何が違うんだ？
話見えてるか？

**デフォルトの名無しさん** · 2023/04/24(月) 06:04:55.41

「ｓｉｍｕ」を「シュミ」とは読まないだろう、という単純なことも理解できないレベル
半角だと環境によってはわかりにくくなるからあえて全角で書いた

**デフォルトの名無しさん** · 2023/04/24(月) 07:31:46.75

ここはChatGPTの話題が出るだけで簡単に荒れるな

**デフォルトの名無しさん** · 2023/04/24(月) 07:40:26.28

ここだけじゃないよ

**デフォルトの名無しさん** · 2023/04/24(月) 07:41:51.55

スルーするだけで済む話なのにスレタイ読めないのか、
はたまた自作自演で荒らしてるのか

**デフォルトの名無しさん** · 2023/04/24(月) 07:53:53.38

スルーしろと言うやつほど一番スルーできてない

**デフォルトの名無しさん** · 2023/04/24(月) 07:56:06.50

昔は良スレだったのにな。
ひとつの話題で荒れすぎ

**デフォルトの名無しさん** · 2023/04/24(月) 08:01:16.77

>>572
一番の意味くらい知っておいたほうが幸せになれるよ

**デフォルトの名無しさん** · 2023/04/24(月) 08:11:57.10

別に誰のことか言ってない一般論に過剰反応するの図星すぎて笑える

**デフォルトの名無しさん** · 2023/04/24(月) 08:37:49.72

こっちのスレ要らなくね？

**デフォルトの名無しさん** · 2023/04/24(月) 09:00:06.24

必要ないと思ったなら見なきゃいいだけ

**デフォルトの名無しさん** · 2023/04/24(月) 09:46:37.76

もう全部スルーしてrom専で

**デフォルトの名無しさん** · 2023/04/24(月) 12:51:06.36

スレ違いとかいうやつは見なければいいだけだろ。
番組はこうじゃなきゃいけないとかテレビ局に凸電する危地害なのか？

**デフォルトの名無しさん** · 2023/04/24(月) 15:11:25.30

そら公共電波だしな
ウンコ垂れ流され続けたら苦情も行くだろ

**デフォルトの名無しさん** · 2023/04/24(月) 21:31:31.58

ウンコ言うな

**デフォルトの名無しさん** · 2023/04/24(月) 21:41:33.70

嫌なら見るな
苦情を言って変わるわけないのに、無駄だとわからない時点でアホ

**デフォルトの名無しさん** · 2023/04/25(火) 15:23:16.15

言い方キツイがど正論だな。
嫌なら開かなければ良いな。

**デフォルトの名無しさん** · 2023/04/25(火) 16:01:52.20

逆だな、読んだから嫌な書き込みだと判断したんだろ

**デフォルトの名無しさん** · 2023/04/25(火) 16:32:47.24

ズレてるぞ　おっさん　逆だな、とかどの立場で物申してるか片腹痛いわ

**デフォルトの名無しさん** · 2023/04/25(火) 16:45:08.15

仮に公道にウンコ垂れ流し続けて嫌なら見るな主張しても警察が動くよな知らんけど
だとしたら公共電波のウンコ垂れ流しも取り締まられるべきと考えるのはそんなに不自然だろうか

**デフォルトの名無しさん** · 2023/04/25(火) 18:48:14.50

垂れ流されているのが本当にウンコかどうかは見なければわからんだろ
ウンコが垂れ流されている公道を目をつぶって歩いたらウンコまみれになるぞ

**デフォルトの名無しさん** · 2023/04/25(火) 19:06:12.65

ウンコばかり言ってるとクソスレになっちまう！

**デフォルトの名無しさん** · 2023/04/25(火) 20:00:09.95

5chの場合は然るべき話題をすべく板やスレッドが別れてるわけだからな
スレの内容に沿った結果で不快な気持ちになることはあっても、
嫌なら見るなはスレ違いや板違いって概念のある5chにおいては全く正論ではない

**デフォルトの名無しさん** · 2023/04/25(火) 20:03:38.76

>>579
番組の枠が野球の延長で延々と潰されてる状態と同じだよ
本来の番組を期待してる人にとっては単なるノイズでしかない

**デフォルトの名無しさん** · 2023/04/25(火) 23:00:49.89

まだ喧嘩してる

**デフォルトの名無しさん** · 2023/04/25(火) 23:02:46.35

>>441これ
何度も色んなスレに質問があって変なのって思ってたけど今、Lineの事務職VBAスレ？で今同じ質問してる人がいてびっくりしたw
親切な人が動画紹介してた。

**デフォルトの名無しさん** · 2023/04/26(水) 00:36:38.80

>>590
脱線が酷いとよくないのは解らんでもない
だがそれにもまして多少の脱線でも管理人気取りで言ってくるやつのほうがウザい
まるでゴミ捨て場のゴミチェックしてるジジイだ
そういう行動が心理的リアクタンスを生んでるんだよ

**デフォルトの名無しさん** · 2023/04/26(水) 08:58:25.55

ここしばらくの脱線は多少ですまなくね？

**デフォルトの名無しさん** · 2023/04/26(水) 10:16:58.77

俯瞰するとGPTという脅威が出現して自分の価値喪失を感じる爺の焦りか

**デフォルトの名無しさん** · 2023/04/26(水) 10:32:27.26

多少で済むくね？

**デフォルトの名無しさん** · 2023/04/26(水) 11:34:39.03

行ごとに比較の数式を使った条件付き書式設定はVBAで書かないと無理ですか？
コピーしても絶対参照になって反映されず。

列A行i＞列B行i×２の時、列A行iを黄色で塗りつぶし作業です。

**デフォルトの名無しさん** · 2023/04/26(水) 11:50:15.79

>>597
絶対参照と相対参照の使い分けはセル番地に $ 記号を付ける

**デフォルトの名無しさん** · 2023/04/26(水) 14:39:17.86

>>598
それは分かるんですが上手くいかず。説明下手ですみません。
結局1行ずつ条件付き書式設定を行うようにコード書きました。

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

chatgptのvba専用スレ立てれば良くね？

**デフォルトの名無しさん** · 2023/04/27(木) 05:48:02.31

ChatGPT ってそんなに凄いんか
今度「EXCEL VBAでマリオ作ってください」って書いてみようかな
出来なければ無能

**デフォルトの名無しさん** · 2023/04/27(木) 06:49:22.19

頭悪そう

**デフォルトの名無しさん** · 2023/04/27(木) 13:34:04.47

>>601
Excel VBAでマリオを作ることは可能ですが、かなり複雑な作業になります。そのため、以下に示すのは、簡単なマリオゲームの作り方の一例です。

ゲーム画面を作成する
最初に、Excelワークシート上にゲーム画面を作成します。これには、背景、床、壁などが含まれます。背景と床は、Excelのシェイプを使用して作成することができます。壁は、VBAで作成する必要があります。

マリオキャラクターを作成する
マリオキャラクターを作成するために、Excelのシェイプを使用します。キャラクターは、右に進む、左に進む、ジャンプする、しゃがむなどのアクションを実行できるようにする必要があります。これには、キーボードの矢印キーを使用することができます。

**デフォルトの名無しさん** · 2023/04/27(木) 13:35:04.43

敵キャラクターを作成する
マリオゲームには、いくつかの敵キャラクターが含まれます。これらは、Excelのシェイプを使用して作成することができます。敵キャラクターは、マリオキャラクターに衝突すると、マリオがライフを失うことになります。

ゲームループを作成する
ゲームループは、ゲームの進行を管理するために必要なものです。これには、マリオキャラクターと敵キャラクターの移動、衝突の検出、スコアの計算などが含まれます。

ゲームオーバー画面を作成する
ゲームオーバー画面は、マリオがすべてのライフを失ったときに表示されます。これには、Excelのシェイプを使用して作成することができます。

以上が、Excel VBAで簡単なマリオゲームを作成するための一般的な手順です。ただし、Excel VBAで本格的なゲームを作成するためには、より高度なプログラミング技術が必要となります。

**デフォルトの名無しさん** · 2023/04/27(木) 14:08:46.28

この部分のサンプルコードを教えて言うと一応コード書き始めるからな
問い質し続けるだけで何の技術も必要なくマリオが完成するかもしれん

**デフォルトの名無しさん** · 2023/04/27(木) 14:11:45.77

単純にマクロでゲーム作れる奴すげーし