Excel VBA 質問スレ Part81

**デフォルトの名無しさん** · 2024/04/18(木) 14:03:38.03

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

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

関連スレ
Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1674875532/

※前スレ
Excel VBA 質問スレ Part79
https://mevius.5ch.net/test/read.cgi/tech/1674874007/
Excel VBA 質問スレ Part80
https://mevius.5ch.net/test/read.cgi/tech/1685489018/

**デフォルトの名無しさん** · 2024/08/22(木) 20:15:42.12

>>458
結局、お金に困ってないからそうなる。iPhoneアプリをガンガン作っているおばあさんのような日本人が多ければ、日本の未来はまだ明るい。

**デフォルトの名無しさん** · 2024/08/22(木) 20:43:48.46

あのお婆さんは特別だね。もって産まれた才能みたいな

**デフォルトの名無しさん** · 2024/08/22(木) 21:06:44.66

でもiPhoneの開発ってwindowsPCじゃ厳しいんでしょ？

**デフォルトの名無しさん** · 2024/08/22(木) 21:56:50.96

VBAが使えれば大体の事できるから困らない

**デフォルトの名無しさん** · 2024/08/22(木) 22:41:37.08

>>461
素人童貞は不可

**デフォルトの名無しさん** · 2024/08/23(金) 11:41:14.53

お、おう

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2024/09/07(土) 11:13:37.83

今まで普通に軽く動いてたVBが極端にメモリ食うようになって重すぎて動かなくなってしまった
メモリ解放のコード入れたり配列化したりしてコード軽くしてもダメで、何か対策ありますかね
多分officeのバージョン上がったのが原因っぽいです

**デフォルトの名無しさん** · 2024/09/07(土) 11:54:53.47

VBはスレチガイだろ

**デフォルトの名無しさん** · 2024/09/07(土) 17:29:43.63

ヨソのネタの焼き直しだろ　うっかりAを書き損ねただけで
未知のウィルスかも知れないから勝手に判断しないで専門機関にただちに通報して調査してもらえ　
と、ここでは目先の変わった回答しといてあげよう

警備員[Lv.1][新芽] · 2024/09/07(土) 18:28:39.57

Officeのバージョンが… とあるから、VBAの話だろう
うちもずっと問題なかったプログラムが、「メモリー不足」のような理由で停止した

**デフォルトの名無しさん** · 2024/09/07(土) 18:52:09.08

ひょっとしてメモリ4GBとかなのかな？
今は最低でも8GBは必要だし
出来れば16GBくらい欲しいところだよね

**デフォルトの名無しさん** · 2024/09/07(土) 18:59:51.26

[2年後]

ひょっとしてメモリ8GBとかなのかな？
今は最低でも16GBは必要だし
出来れば32GBくらい欲しいところだよね

**デフォルトの名無しさん** · 2024/09/07(土) 19:13:02.79

オプション→セキュリティセンター
信頼できる場所→新しい場所の追加
ファイルの格納フォルダを追加

**デフォルトの名無しさん** · 2024/09/07(土) 20:15:57.38

ココ↓
https://mevius.5ch.net/test/read.cgi/bsoft/1709099192/849

**デフォルトの名無しさん** · 2024/09/08(日) 12:02:11.54

EXCELのバグだとしたらEXCEL再起動や、メモリにゴミが残るならメモリ解放アプリ（MSが出してるのあったはず）で一時しのぎしながら修正待つのが無難
うちは32gbだし、それほどマクロ使いまくってないので問題に遭遇していない
（＝対策考えようというモチベが沸かない）

**デフォルトの名無しさん** · 2024/09/08(日) 20:09:15.39

コピペさせてると右下ににゅにゅーっとなんか出てきてしばらくの間動作とまるけどあれ何？
とんでもなく時間かかるようになっちまったんだけど

**デフォルトの名無しさん** · 2024/09/08(日) 23:44:38.83

10年ぶりくらいにリリースノート見たわ
えっ、こんなバグあったの？これまでの大丈夫か？と昔も思ってた記憶が蘇ったわ
またしばらく見ないw

**デフォルトの名無しさん** · 2024/09/09(月) 11:40:58.77

イルカ思い出したわωωωωωωωωω

**デフォルトの名無しさん** · 2024/09/09(月) 13:32:37.22

なんか出てきてじゃあ判らない　見てる本人が何なのか把握してから相談しないと
設定のクリップボードで履歴残すようにしてるのでは？　常に消すように設定しとかないと
「今、これコピペしたよ！またしたよ！またまた・・」ってのじゃないのか？
エロ画像次々にDLすると「今、AエロDLしたよ！またBエロDLしたよ！またまたCエロ・・」てのは出る
すべてのDL履歴とかまでご丁寧に残すから、そのたんび履歴削除しないといけなくて面倒
「すべて見ているぞ」っつー典型だな

**デフォルトの名無しさん** · 2024/09/09(月) 20:33:23.82

コパイはそれがもっと酷くなる
家族共用なんて今まで以上に丸見えにw
コパイのせいでxxバレましたってのがこれから溢れるようになる

**デフォルトの名無しさん** · 2024/09/10(火) 13:13:04.96

win8辺りから迷走してるな
勝手に個人情報晒すのやめてくれ
macとかでもそうなんか

**デフォルトの名無しさん** · 2024/09/11(水) 16:48:56.96

VBA素人なんですが、教えて…

for文とCaseって組み合わせて出来ないの？
うまく作動しないし、脳みそが出る

Microsoft365 business

Private Sub cmb_mda_Change()
Dim i As Integer, s As Integer
With Me

i = .cmb_mda.ListIndex

For s = 0 To 30

Select Case i

Case s
cmb_color.RowSource = "基材マスター!V" & "1" & s
s = s + 1

End Select

Next s

End With
End Sub

**481** · 2024/09/11(水) 16:49:54.62

追記

Private Sub userform_activate()
With Me
.cmb_mda.RowSource = "基材マスター!" & "Q2:Q" & Range("Q" & rows.Count).End(xlUp).row
.cmb_color.RowSource = "基材マスター!" & "V2:V" & Range("V" & rows.Count).End(xlUp).row
.cmb_mdaThic.RowSource = "基材マスター!" & "w2:W" & Range("w" & rows.Count).End(xlUp).row
.cmb_accColor.RowSource = "アクセサリーマスター!" & "G2:G" & Range("G" & rows.Count).End(xlUp).row
End With
End Sub

**デフォルトの名無しさん** · 2024/09/11(水) 17:50:24.06

>>481
For ～ Nextの中でsを変えちゃだめ (s = s + 1 の部分)
Caseが1個しかない時は、わざわざSelect Caseなんか使わない（If を使った方がシンプルに書ける)

警備員[Lv.15] · 2024/09/11(水) 20:57:15.88

>>481
For文使う必要ある？
i が30以下なら～で終わりそうな。

**デフォルトの名無しさん** · 2024/09/11(水) 23:08:59.50

部内使う処理程度の話だけど
新人の女の子から先輩まで俺が作ったVBA処理を必須レベルで当たり前に使ってるのを見ると嬉しくなってしまう
これが社畜ってことだな

**481** · 2024/09/12(木) 08:51:21.97

>483
>484

ありがとうございます。
意図として連携してるコンボボックスが3つあり、コンボボックスの中身が今後増えていく予定があります。
中身が増えたときに、Caseを使っていたのですが、Caseだと長々とコードを書かなくてはならないと思い、Forを使いました。

**デフォルトの名無しさん** · 2024/09/12(木) 10:14:19.60

for文以降をインデントしてないことにイラつく

**デフォルトの名無しさん** · 2024/09/12(木) 11:12:58.05

>>487
短気は早漏（損気）だぜｗ

**デフォルトの名無しさん** · 2024/09/12(木) 12:47:42.20

(掲示板では)インデントが難しい

**デフォルトの名無しさん** · 2024/09/12(木) 14:28:52.49

初めて書いたときにビックリしたわ

**デフォルトの名無しさん** · 2024/09/12(木) 15:08:24.92

全部ならともかくDim以降はインデントできてるからな

**デフォルトの名無しさん** · 2024/09/12(木) 16:35:19.97

これがインデントのお手本らしい
https://i.imgur.com/QIQ1bp8.png

**デフォルトの名無しさん** · 2024/09/12(木) 16:43:16.05

>>492
安心する

**デフォルトの名無しさん** · 2024/09/12(木) 21:56:53.49

excelであるセル、例えばセルA5の数字がランダムに変化するのですが、
セルA5に表示された数値の最大値を知りたいのです。
MAX関数等は既に使って知っていますが、MAX関数ではこれは出来ません。
何か方法ないでしょうか？

**デフォルトの名無しさん** · 2024/09/12(木) 22:08:22.31

>>494
A5の内容を書き換えてるのが何者かと、書き換える方法によって最大値を求める方法も変わる

**デフォルトの名無しさん** · 2024/09/12(木) 22:23:01.62

>>495
A5のセルを書き変えているのは株のソフトです。

**デフォルトの名無しさん** · 2024/09/13(金) 08:47:58.84

>>494
俺なら全く同じレイアウトのシートをコピーで作っておいて
セルの値の変更イベントで2つの内容を比較して
大きかった時に退避シートのセルに上書きするかな
もっとスマートな方法があるかもしれない

**デフォルトの名無しさん** · 2024/09/13(金) 10:17:11.58

株のソフト側にそれぐらいの機能はあるだろう　無いのか？
つか、わざわざExcelにデータを落とし込む意味は？　どのくらいの頻度でA5セルを上書きしてるかわからんし
書き変わった数字だけ見てる理由も図り兼ねるし、どの期間の最大値を求めたいかとかすらわからん

**デフォルトの名無しさん** · 2024/09/13(金) 12:28:52.69

株サイトをスクレイピングするマクロを手に入れたはいいけど、仕組みがわからなくてセルに表示された内容を見るしかできない人なんでしょ

**デフォルトの名無しさん** · 2024/09/13(金) 13:02:53.26

そもそも関数とか書いているのだからスレチ

**デフォルトの名無しさん** · 2024/09/13(金) 13:04:59.32

>>499
あらかたそういうことだと皆わかってるけど、今更どした

**デフォルトの名無しさん** · 2024/09/13(金) 13:07:01.80

>>500
えっ？！
バカすw

**デフォルトの名無しさん** · 2024/09/13(金) 13:11:54.62

xlsmでもマクロのパスワードって簡単に解除できるの

**481** · 2024/09/13(金) 13:17:52.39

>>492
その点線の表示はどういう設定ですか？
教えて

**デフォルトの名無しさん** · 2024/09/13(金) 13:31:58.83

>>504
これはExcelの機能じゃない
プログラムを綺麗に整形してくれるサイトとかアプリとかが別にある

**481** · 2024/09/13(金) 13:36:37.63

>>505
ですよね
調べても出てこなかった…

**デフォルトの名無しさん** · 2024/09/13(金) 16:48:32.57

>>485
辞めたら陰でボロクソ言われてる未来

**デフォルトの名無しさん** · 2024/09/13(金) 16:56:09.74

株のソフトってからには、ローソク足チャートとか含まれてそうなものだが
単にスクレイピングしてるってだけなら、Excel側でそのデータをチャートにできる
ps://liibercraft.com/archives/1430　真似するだけで簡単に作れる
最大値知りたい　だけじゃ無く、始値終値安値とかも比較しなきゃ、高値だけ追っても
何が何だか

**デフォルトの名無しさん** · 2024/09/13(金) 17:04:30.81

>>507
辞めた後の評判が自分まで聞こえてくることはないからヘーキ

**デフォルトの名無しさん** · 2024/09/13(金) 21:35:37.59

>>494
Dim maxValue As Double

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5")) Is Nothing Then
If Target.Value > maxValue Then
maxValue = Target.Value
Range("B5").Value = maxValue
End If
End If
End Sub

**デフォルトの名無しさん** · 2024/09/18(水) 04:18:48.87

>>492
1つ目の段落はしないなー

**デフォルトの名無しさん** · 2024/09/18(水) 09:19:49.82

オレも1段目はしない派だな

**デフォルトの名無しさん** · 2024/09/18(水) 11:09:59.45

IEが使えなくなった今、
VBAからChromeブラウザでHTMLを操作する方法はありますか？

**デフォルトの名無しさん** · 2024/09/18(水) 11:37:48.60

まだIEは使えるしEdgeやChromeも使える

**デフォルトの名無しさん** · 2024/09/18(水) 12:03:02.51

>>514
そのやりかたとは？

**デフォルトの名無しさん** · 2024/09/18(水) 14:03:12.68

Floorp

**デフォルトの名無しさん** · 2024/09/18(水) 16:32:27.89

>>511
Privateは1文字目じゃないのこれ

**デフォルトの名無しさん** · 2024/09/19(木) 20:18:28.74

>>511
だよね～

**デフォルトの名無しさん** · 2024/09/20(金) 22:36:42.12

まだマクロのスレが息しているとは驚き

**デフォルトの名無しさん** · 2024/09/21(土) 00:06:25.91

>>519
そろそろ就職して現実を見ろよ

**デフォルトの名無しさん** · 2024/09/22(日) 09:20:02.85

>>520
その前に、就職していない現実を見ろよ

**デフォルトの名無しさん** · 2024/09/29(日) 10:55:52.42

ププッw　効いてる効いてる

**デフォルトの名無しさん** · 2024/09/29(日) 10:59:10.16

VBAで業務効率化をしたいけどもうこれ以上アイデアが浮かばない
アイデアを浮かばせるのによいことってあるかな？

**デフォルトの名無しさん** · 2024/09/29(日) 11:22:06.13

アイデアを作る一番良い方法はインプットとアウトプットを増やすこと
ってなんかの本で読んだ

**デフォルトの名無しさん** · 2024/09/29(日) 16:26:37.39

仕事嫌だけど週末に思いついたはコードを試したい

**デフォルトの名無しさん** · 2024/09/29(日) 21:08:04.43

>>523
まずは手作業で全部やってみ？

**デフォルトの名無しさん** · 2024/09/30(月) 10:30:36.61

色んな情報を脳にインプットすることで選択の幅が広がる
それらを実際にアウトプットとして作ることで良い所や悪い所が経験として蓄積されるみたいな

**デフォルトの名無しさん** · 2024/10/01(火) 00:08:28.55

seleniumBASICをインストールしてヘッドレスモードでスクレイピングしてたんだけど
突然、ヘッドレスモードにならずにブラウザが表示されるようになった

chromeとchromedriverをアップデートしたのが原因なんだろうけど
今までアップデートしても何とも無かったのになんでだろう・・・
　
ブラウザが表示される以外では問題なくスクレイピング出来ています。
なぜだか分かりますか？

**デフォルトの名無しさん** · 2024/10/01(火) 04:27:07.05

>>528
ブラウザの仕様はしょっちゅう勝手に変わる

**デフォルトの名無しさん** · 2024/10/01(火) 06:33:46.48

ASISが仕様と諦めて地道に追従するしかない

**デフォルトの名無しさん** · 2024/10/01(火) 07:13:42.06

>>528
白いウィンドウが表示されるやつ？
オプションを　--headless=old　にしたら表示されなくなったよ

**デフォルトの名無しさん** · 2024/10/01(火) 11:08:22.05

Dim ary(2) As Long
ary(0) = 101
ary(1) = 102
ary(2) = 103
Dim dic As New Dictionary
dic.Add "a", ary
Debug.Print dic("a")(0) '①
dic("a")(0) = 101000 '②
Debug.Print dic("a")(0) '③

VBAって①はできるのに②はできないのな
①と③の結果が同じで101
chatGPTに聞いてみたけどしっかりは理解できんかったわ
参照できないんだってことは分かった
一旦valueの配列を取得してから、この配列の(0)に代入したあとにもう一度元の位置に配列ごと戻せということらしい

C#とjavascriptで同じ事やってみたけど普通にできるからVBAが異常なんかね

**デフォルトの名無しさん** · 2024/10/01(火) 11:31:03.00

>>531
うおおおおおおおおおお
モーレツに感動しました
マジでありがとう

ここ数日悩みまくって　"headless=new"　を試したけどダメだった

そうかぁ old　だったかのか・・・

**デフォルトの名無しさん** · 2024/10/01(火) 11:40:57.94

>>532
配列じゃなくてdicの値を取り出す関数だからね

**デフォルトの名無しさん** · 2024/10/01(火) 11:43:32.60

年取ったら超単純な機転が利かなくなっちゃうんだろうな、めげずに頑張れ

**デフォルトの名無しさん** · 2024/10/01(火) 15:03:02.71

>>534
gptもそんなこと言ってた
variant型変数取り出してるからどうのこうの
でもそれなら(0)ってつけたらエラー起きちゃうんじゃないの

Dim a As Variant
Debug.Print a(0)

たとえばこうやるとエラー起きるじゃんみたいな話に持って行ったんだけどうまくはぐらかされて撤退してきた

エラーが起きるなら仕様なんだなって分かるんだけどエラーでない
101000はどこに行ったのか聞いてみたけどそれもよくわからんかった

gptの話だと、結局本体ではなくてコピーに代入してるそうだ
そうなのかそうなんだって、わかったふり

**デフォルトの名無しさん** · 2024/10/01(火) 19:54:06.57

他の言語と違ってVBでは配列をコピー（代入）すると
中身も含めて丸ごとコピーされる
つまりdicへの格納、取出しのたびに複製された配列が作成される
複製の中身を書き換えても元のデータは変わらない

他の言語では参照のコピーになる事が多いね

**デフォルトの名無しさん** · 2024/10/01(火) 23:57:01.81

なので参照になるようにすればエエってこと

**デフォルトの名無しさん** · 2024/10/02(水) 10:28:02.48

>VBでは配列をコピー（代入）すると
>中身も含めて丸ごとコピーされる

いや他の言語でもそうだろω

**デフォルトの名無しさん** · 2024/10/02(水) 10:33:17.12

>>539
あなたは脳弱ですね

**デフォルトの名無しさん** · 2024/10/02(水) 10:41:52.26

ByValやByRefは使えないの？

**デフォルトの名無しさん** · 2024/10/02(水) 11:06:17.08

>>539
参照をコピーする言語の方が多いんじゃね

**デフォルトの名無しさん** · 2024/10/02(水) 13:02:33.22

VBAってちょっと小難しいことし始めるとはまる
ゴリゴリ書いてれば問題起きないんだけど

>>532の続きなんだけど、
結果としてできあがったDictionaryのvalue部分をそのまんまワークシートのRangeに代入しようというのが次の課題です。

dic.Itemsで取得できる配列が、ちょうどVariant型の2次元配列っぽい
てことは、これはそのままRangeにぶち込めばいけるんか？と思ってやってみたら、#N/Aが代入されたりとよくわからん
もしかして～と思ってWorksheetfunction.Transposeを二回かけたら、なんか成功した。
これも理由はよく分からんかったのだが、ありがとうございますTransposeさま

そもそも2回Transposeかけるとうまくいくってことがあるってのが理解できないのが俺のだめなところなんで勉強してきます

**デフォルトの名無しさん** · 2024/10/02(水) 14:54:23.03

あーわかった
dic.Itemsで取得できる配列は(1, 1)とかではアクセスできないやつだ
(1)(1)か
これが前の疑問の答えにも繋がりそう

**デフォルトの名無しさん** · 2024/10/03(木) 20:33:55.02

（・）（・）

**デフォルトの名無しさん** · 2024/10/06(日) 17:37:17.48

VBAを利用してURL(WEBにある)画像をはりたい

【状況】
あるシート(シート1とする)のA列に画像のURL(画像.jpｇ)だけが多くの行数に渡りはってある。
なおそのA列の中にはURLがない行もある(1行や2行URL無かったり)

【したいこと】
上と同じシート(シート１)のB列にA列のURLにアクセスしたときの画像をはりつけたい。
またURLがはってある終りの行になったら止まるようにしたい。
なお、URL元リンク参照だけだとリンク切れしたときに画像も表示されなくなるのは困るので、
画像を埋め込んだ形にしたい。
(URL元リンク画像が変更されたときはしかたない)

どなたか教えて頂けたら助かります。

OS：windows10
Excel2013

**デフォルトの名無しさん** · 2024/10/06(日) 22:29:50.86

ブラウザ何使ってるんだろ？

**デフォルトの名無しさん** · 2024/10/06(日) 23:24:40.36

>>546
HTMLにはいくつも画像があると思うけど？

**デフォルトの名無しさん** · 2024/10/07(月) 00:25:16.29

>>546
セルA1に画像のURLが書かれているとき、その画像をセルB1に表示するVBAコードは
Url = Cells(1, 1)
Cells(1, 2).InsertPictureInCell (Url)

あとは Cells の第1引数を i 等に変えて、Url = "" が何回か連続するまでDo～Loop等で回せばいい

が、VBAを使うまでもなく、IMAGE関数を使うほうが楽
B1セルに
=IMAGE(A1)
と書いて、セルの右下隅にカーソルを合わせ、黒い「＋」が出たらダブルクリック

**デフォルトの名無しさん** · 2024/10/07(月) 00:39:41.14

自レス
>>549はやっぱうまく動かんかも
Select使う形に変更
Cells(i, 2).Select
Selection.InsertPictureInCell (Cells(i, 1))

**デフォルトの名無しさん** · 2024/10/07(月) 07:28:10.74

>>548
何言ってんだURIは一意だろ

**デフォルトの名無しさん** · 2024/10/07(月) 08:11:41.52

>>548
htmlじゃなくてjpgのURLだぞ
質問がわかりにくいけど、そう読み取れる

**デフォルトの名無しさん** · 2024/10/07(月) 09:24:43.78

えっちな画像収集のVBAか？　画像のリンクを隠すサイトも多いからどうなんだ
つか、Excel2013でネット上のファイル収集　怖いもの知らずか

**デフォルトの名無しさん** · 2024/10/07(月) 18:57:33.84

普段はスケベな画像収集のためにVBA書いてるだけなんでしょ？

**デフォルトの名無しさん** · 2024/10/07(月) 19:48:37.22

>>546
シート1のA列にあるURLから画像を取得しB列に貼りつけ
Sub InsertImages()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim pic As Picture
Dim picURL As String

' シート1を設定
Set ws = ThisWorkbook.Sheets("シート1")

' A列の最後の行を取得
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' A列の各行をループ
For i = 1 To lastRow
picURL = ws.Cells(i, 1).Value

' URLが空でない場合
If picURL <> "" Then
' 画像をB列に貼り付け
Set pic = ws.Pictures.Insert(picURL)
With pic
.Left = ws.Cells(i, 2).Left
.Top = ws.Cells(i, 2).Top
.Placement = xlMoveAndSize
End With
End If
Next i
End Sub

**デフォルトの名無しさん** · 2024/10/07(月) 19:56:22.41

>>546で書いた者なのだが
https://i.imgur.com/M4CtahS.png
とりあえずこれでなんとかいけそう
なんとかというかまぁ、いけるがgptに頼った自分にもやもやする

>>549
IMAGE関数ってEXCEL2024だか2023の最新版の機能なんじゃないの？
俺持ってるのEXCEL2013だからIMAGE関数が実装されてない
というかもともとIMAGE関数ってあった？いやしらんけど

>>553-554
スクレイピングかどうかは俺も良くわからない

**デフォルトの名無しさん** · 2024/10/07(月) 19:59:06.34

>>555
遅くなったがサンキュー

これを機会にマイクロソフトクエリーと、vbaというか関数込みをしっかりやりたい
gpt案外いい先生になる
コードに説明添えてとか質問したら答えてくれるし

**デフォルトの名無しさん** · 2024/10/07(月) 21:11:01.50

>>555
' URLが空でない場合

サンキューついでに思ったのだが、
このコメントって　URLが空で（はない）場合、つまりURLがある場合なのか、
URLが空っぽで無い場合、つまりURLがない場合なのか、
というかセルにないのかあるのか、
URL自体が存在ないのかあるのか、
わからん　if　<>　then　で読み取れるちゃとれるが