Excel VBA 質問スレ Part76

2022/05/01(日) 02:23:41.78

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑2行に減ってるけど、同じ内容を3行に増やして貼り付けること

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

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

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

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

**デフォルトの名無しさん** (HK 0Hca-j7e5) · 2022/06/24(金) 15:31:46.16

一度VBAエキスパートとか取るくらい勉強すれば
毎回Offsetの横は行が先か列が先かどっちだったかな？って（Resizeでも同じことやってる）やってるワイでも
大体コピペで作れるくらいには成長するよｗ

2022/06/24(金) 19:49:28.19

>>637
ありがとう
やってみるか
参考書検討しようかな

2022/06/24(金) 20:26:28.92

コピペしたVBAってみんな捨てて去ってるのかな、貰ったことないかも。

2022/06/24(金) 21:29:08.60

コピペはダメと教わったがな最初の会社で。
あちぃなしかし今日は

2022/06/24(金) 21:34:54.88

熱がこもって32度あるわ

2022/06/24(金) 21:35:55.33

コピペしてそのまま使うことはほぼなくなる
コンパクトにまとめないと、後で見て何書いてるかわからなくなる

2022/06/24(金) 23:00:17.91

ネットにうpしてあった100行のやつをコピペして100000行にしてる、コンパクトという発想がなかったわ。そもそも意味わかんない行もあるけど消すと動かないし。
後任に渡そうと思ったけど恥ずかしいからやめとくか...。
おまえら上級者なんだね。

2022/06/24(金) 23:49:49.39

VBAはコピペして動くからいいよな。
Pythonはだいたい動かない。
しかも、Pythonのページ作るやつて
断片的にソースを乗っけるから、なおさら動かない。

2022/06/24(金) 23:54:16.48

コピペして動かすのって怖くないか？
少ない量ならまだしも100行だと何が起きてもおかしくない

2022/06/25(土) 01:09:59.54

それを修正できるスキルがあれば別かもだけど、なかなかいないのでは

2022/06/25(土) 08:29:17.86

ネットソースだとwsの指定とか省略されててコピペじゃ怖くて使えたもんじゃない

**デフォルトの名無しさん** (TW 0H9f-b1XO) · 2022/06/25(土) 09:09:54.09

自分で一から書ける能力があればわざわざコピーなんざしないのさ。。。(-_-)

切り貼りつぎはぎだらけで変数の宣言がぐちゃぐちゃになってる
分かってくれる人いないかな（笑）

2022/06/25(土) 09:43:24.30

独創でコード書けないと保守で詰むでしょ。

2022/06/25(土) 10:00:09.34

コピペが悪いのではなく、コピペで作ったコードを自分が提供した責任があるのだよ

**デフォルトの名無しさん** (TW 0H9f-b1XO) · 2022/06/25(土) 10:15:11.28

>>649
自分だけで時間短縮のために使ってるマクロだからそんなに困らないよ

みんなに配布するレベルはこれからもしないと思う＾＾

2022/06/25(土) 10:49:20.62

>>648
分かるけど理解はしない
それを許したらそこでおしまい

2022/06/25(土) 10:54:34.90

まあ自分で使うだけならいいんじゃね

2022/06/25(土) 12:26:01.77

書ける能力あっても今までに作ったコードをコピペするだろ？
場合によっては共通関数の入ったモジュール程度を持ってくるにしても
お前らもしかして同じこと1から書いてるの？

2022/06/25(土) 12:41:36.76

別部署に行って、「規則が変わるからこのマクロも修正してくれ」って言われ、中を見てみたらセレクトメゾットやコピーメゾットが使われてた時の絶望感
「クリップボードの履歴を有効にしていると正常に作動しない事があるから必ず無効にしてくれ」ってそれ書き方おかしくないか？
そして変数の宣言が強制されていなくて更に絶望する

2022/06/25(土) 12:56:07.50

>>655のレベルもたぶん似たようなもんだよ

2022/06/25(土) 14:57:17.56

>>654
と言うより、作って使用したらマクロは消しているのです。
再び必要になったら１から書いてますはい。
職場のローカルルールとして。

2022/06/25(土) 17:13:39.41

>>657
ないわー
関数自体が使いまわし前提の考え方だし

2022/06/25(土) 17:43:12.02

>>654
理解しないでコピペするか理解して書いたコードを使い回すかの差は途轍もなく大きい

2022/06/25(土) 18:56:11.02

それどころか回りの奴らはVBAにしろExcelの学習すらやろうとしない。
仕事終わったら飲みに行く事しか考えていない。休日も何も努力しない現実。
興味ないヤツには進めてもダメなのかな

2022/06/25(土) 19:21:59.19

VBA使いに向上心を求めるのは酷でしょ
それがないからこそVBA止まりなのに

2022/06/25(土) 21:29:35.48

>>660
自分が使うのは勝手にしろだけど、それで優越感に浸って「周りの奴らは～」とかキモすぎだろ
たかが仕事で使うの1つのツールごとき　にここまでイキれるのはヤバいわ

2022/06/25(土) 21:31:08.83

他はすべて負けてるから何か一つでも勝てるものがほしいんや

2022/06/25(土) 21:32:27.25

レスバで勝てば世界ランクあがるしな

2022/06/25(土) 21:44:09.88

>>647
それってコピペしただけじゃ動かないってことよね？
動くように自分で指定すると思うんだけど、こわいってのはどういう事なんだぜ？

2022/06/25(土) 21:53:20.34

>>663
負けの数ではお前が一番だ

2022/06/25(土) 22:26:51.85

勝利するかために複雑な知識や技術を身につけているのだが？？
間違ってる？

2022/06/25(土) 22:29:13.51

>>665
wsを指定しないとActiveSheetで動こうとするから誤作動の原になる

2022/06/26(日) 00:40:58.82

Webbrowserで証明書を自動選択する方法は無いものでしょうか?

2022/06/26(日) 00:44:34.36

>>667
誰に勝利するの？
何に勝利するの？

2022/06/26(日) 07:38:11.30

他言語やったからって
excelやVBAでやったことが無駄になることはないよ
他の言語で作ったもののUTのエビデンスをとるのに
excelがもし無ければと思うとゾッとするし
テストデータ作成にもVBA使うととっても便利な場合が多いし

2022/06/26(日) 09:43:13.22

エクセルのある列に数字が入ってます。
そのエクセルと同じ階層にあるフォルダの下に
上記の数字から始まる名前のフォルダがあります。
(数字のあとに日本語が付いてます)
このフォルダの探し方を教えていただきたく

2022/06/26(日) 09:45:37.60

会社のパソコンでVBAを使って
pdfをテキストへ変換しています。
(com.adobe.acrobat.plain-text)
変換処理は不安定でエラーが出ることが多いが
成功することが多いです。
しかし有料ライセンスは一切買ってもらっていません。
これはライセンス違反ですよね？？
違反ならもうやめます。

2022/06/26(日) 09:56:38.78

>>672
num=cells(行,列).value
dirname=dir(thisworkbook.path&"\"&num&"*",vbDirectory)

2022/06/26(日) 09:59:07.88

dirname=dir(thisworkbook.path & "\" & num & "*", vbDirectory)

2022/06/26(日) 10:18:26.90

>>673
PowerQueryでもAdobeのAcrobatなしで
pdfをある程度変換出来るけど？

2022/06/26(日) 10:25:43.07

>>673
adobeに聞けとしか

2022/06/26(日) 11:39:03.04

EULA読んでダメって書かれてなきゃいいだろ

2022/06/26(日) 12:11:58.60

クラスが入ってるCollectionの要素を置き換えるにはどうすればよいでしょうか？

Set col(2)=New MyClass()

とやってもできないんです。

2022/06/26(日) 12:23:08.37

置き換えはダメだからRemoveしてAdd

2022/06/26(日) 13:30:17.16

>>680
そうですか
ありがとうございます

でもなぜ置き換えできないのでしょう？
そのしくみを理解したいのですが
スキルがあがるステップだと思うので

2022/06/26(日) 13:35:51.31

IEの入力欄に値いれるマクロ使ってたんだけど、エッジに移行して動かなくなったんよ
エッジの入力欄いじる方法ってご存知ないですか？
調べてもよくわからなくて

2022/06/26(日) 13:39:54.64

VBAを投げ捨ててEdgeの拡張機能を作ろう

**デフォルトの名無しさん** (ｽﾌｯ Sd5f-tCSL) · 2022/06/26(日) 14:11:21.83

Sendkeys

2022/06/26(日) 15:05:50.62

まだInternetExplorer.Application は有効でしょ
サポートは切れたが動かなくなる訳ない

2022/06/26(日) 15:26:20.76

なぜMsedge.Applicationにしないの？

2022/06/26(日) 15:32:17.63

クラス(例:MyClass)が入ってるCollectionの要素(つまりMyClass)をある条件でsortしたいのですが
簡単な方法はないのですよね？
これは標準モジュールにそのソート用のsubかfunctionを書くのが一般的ですか？
「ある条件」というのが複数あるので、複数個それを作るのが面倒。
あといま思い付いたけど、そのCollectionをメンバとして含む親クラスをつくり、その親クラスにその複数のsortに相当するfunctionを作るのがカッコイイです？

2022/06/26(日) 18:21:23.39

たぶん用途的にArrayListが良いと思う
>>687

2022/06/26(日) 21:43:05.30

VBAのマクロ名てなにか制限ある？
Sub n98()
MsgBox "a"
End Sub
というマクロを作ったんだが、実行できない。実行ボタンがグレーアウトする。
しかも、マクロボタンを押すとセルカーソルが彼方に飛ばされるんだが。
https://i.imgur.com/7iCfenT.mp4

**デフォルトの名無しさん** (HK 0H9f-b1XO) · 2022/06/26(日) 22:29:47.48

>>689
ワイはそのコードコピペしたらちゃんと動いたよ
モジュールのコード上でＦ５キー押してみたら？

**デフォルトの名無しさん** (HK 0H9f-b1XO) · 2022/06/26(日) 22:31:36.52

マクロ名の制限ももちろんあるよ
ググればすぐ出てくるはず

だけどこのコードのマクロ名は問題無い

2022/06/26(日) 22:39:05.59

>>690
VBEでF5なら動くが、
エクセル本体で開発タブのマクロボタン押すとああなる。
ちなみにバージョンは2013。
マクロ名が英字2字＋数字だと、マクロボタン押すとそのアドレスのセルに飛ばされるな。
もちろんマクロは実行できない。
そんな制限あったけ？
セルのアドレスて「予約語」になるのか？

2022/06/26(日) 23:12:48.18

>>689
excel2010だけど全く同じ現象が起こるわ
Ｆ5からじゃくてＡｌｔ+Ｆ8な

2022/06/26(日) 23:30:30.80

この画面開いたらn98セルに行って勝手に選択（コピー？）してくれる
https://i.imgur.com/8G6jMt0.png

逆に、alt+f8でマクロを開いた状態でセル選択するとテキストボックスに反映されるので、
ここは参照かなにかで連動してるっぽい
https://i.imgur.com/cIRhTsz.png

2022/06/27(月) 07:11:11.91

>>694
予約語とかセル番地名、数字始まりは駄目

**デフォルトの名無しさん** (HK 0H9f-b1XO) · 2022/06/27(月) 07:18:40.52

>>695
セル番地もダメだったのか、ウソついてごめんなさい

2022/06/27(月) 07:20:43.06

セル番地名ってダメだったのか

2022/06/27(月) 07:28:39.14

For each i in collection
　if a=1 then
　　if b=1 then
　　　if c=1 then
　　　　Debug.print "うんこ"
　　　end if
　　end if
　end if
next i

こんな階層はしないほうがいいですか？もしそうならどうすべきですか?
ちなみに実際の条件文はa=1などのように単純ではなくてもっと複雑怪奇で長い文字列です。

2022/06/27(月) 07:42:09.30

インデント揃えてれば良いんじゃない？
それかある程度深くなったら別ルーチンや関数に飛ばすとか

2022/06/27(月) 07:44:02.36

if a=1 and b=1 and c=1
にすればすっきり

2022/06/27(月) 08:00:18.06

>>700
VBAはショートサーキットじゃないから遅くなる

2022/06/27(月) 08:05:04.58

>>695
それどこかに書いてある？
まあ予約語や数字始まりがダメなのはわかるけどセルアドレスは盲点だわ

2022/06/27(月) 09:20:29.88

>>698
何がしたくてそのIF文を書いてるかわからないけどELSEに対しての記述がなければ>>700みたいな書き方にしてもいいけど
自分はその程度のネストは許容範囲だけどね
それとなんでしないほうがいいと思ったかも書くと他の回答もらえるかもね

2022/06/27(月) 09:26:36.50

年取ると4階層なんかもう見たくない

2022/06/27(月) 09:27:26.36

Excel2021でも再現したわ
セル番地はモジュール名にできないのか、知らんかった

捨て変数とか作業ファイル名なんか普通にaaa1とか使ってるから、いつひっかかってもおかしくなかったのに
思い返してみると、なぜか捨てSubはtest1とかmacro1にしてた

2022/06/27(月) 09:31:15.07

今わかってる範囲では、モジュール名にできるけど挙動が少しおかしくなる
避けられるなら避けたほうが無難だろうね

2022/06/27(月) 09:34:13.54

>>692
英字1文字でも3文字でも飛ばされる
なんかの裏技に使えそうな気がする
遠くのセル範囲をちょっと確認したいとか

2022/06/27(月) 09:36:09.63

>>698
いわゆる早期リターンとかガード節ってやつ

For Each i In Collection
If a <> 1 Then GoTo continue
If b <> 1 Then GoTo continue
If c = 1 Then
Debug.Print "OK"
End If
continue:
Next

2022/06/27(月) 09:50:33.84

>>708
自分としてはもともとの判定を変更するような回答はどうかと思ったりするんだよね
複雑怪奇とかいてるのでわかりやすい回答なら「if not (a = 1) then」にしたほうがいいのではないかと
それとそこまで書いたらcの判定もcontinueで飛ばしたほうがすっきりするかと

2022/06/27(月) 09:53:16.46

>>707
マクロじゃなくてジャンプでいいってなるんじゃ

2022/06/27(月) 10:00:09.47

>>698
内容がわかるようにコメントつければいいんじゃね

2022/06/27(月) 10:15:26.20

>>705-706
モジュール名にはできないけど>>694のは手続き名だからモジュール名で修飾(※)すれば呼び出せるよ
※ マクロ名の欄に直接 Module1.n98 のように入力する

2022/06/27(月) 10:19:02.79

>>712
スマン、勘違いしてた

2022/06/27(月) 10:24:13.47

>>698
一般論としてネストは浅い方が理解しやすいからそのコードであれば>>700や>>708みたいにした方が読み易い
ただ>>701が言うようにVBAにはショートサーキット（短絡評価）がないので遅くなるのはいいとしても
If N <= UBound(A) And A(N) = 1 Then ...
みたいなのは
If N <= UBound(A) Then
If A(N) = 1 Then ...
のようにする必要がある

2022/06/27(月) 10:29:53.48

まあ、複雑な判定するならメソッドに切り出すのが間違いないわな
VBEだとIDEのサポートないから若干めんどくさいけど

2022/06/27(月) 11:00:14.42

>>698
賛否あると思うが
For Each i In Collection: Do
　If a <> 1 Then Exit Do
　If b <> 1 Then Exit Do
　If c <> 1 Then Exit Do
　Debug.Print "OK"
Loop: Next
みたいな書き方もある

2022/06/27(月) 11:01:13.33

最後の行間違えた
Loop Until 1: Next

2022/06/27(月) 11:05:37.12

あんまりにもネストするなら、判定文(if複数)だけ別プロシージャ(Function)として外出しして、TrueかFalseを返させるようにするかな
IsGoukaku みたいなプロシージャ名にすると何したいかがわかってメンテ楽だし

2022/06/27(月) 11:29:16.42

セル番地がダメならダメでいいけど、あんな挙動をするのはバグだよ。
本来はメッセージだして弾くべきじゃね？
office365でも同じならだれかMSにチクってみてくれ。
以前、MSの掲示板にWinの不具合を書いたら、
速攻で消されたが、
こっちでも確認できたから開発にレポしといたていうメールが来て感動したわ。

2022/06/27(月) 11:31:14.56

>>719
365でも同じだよ

2022/06/27(月) 11:34:53.87

>>700
if a=1 and b=1 and c=1
にすると内部では判断を3回することになる。

if a=1 then
if b=1 then
if c=1 then
にすると判断は少なくなるのだから、ネストするほうが正解じゃね？
もちろん、ifを書く順番は判定が少なくするようにする必要はあるが。

2022/06/27(月) 11:48:23.44

>>719
ゆうてVBAとかアプデすんの？

2022/06/27(月) 11:52:04.31

してるよ

2022/06/27(月) 11:52:52.11

セキュリティ以外で？

2022/06/27(月) 11:57:18.86

うん

2022/06/27(月) 11:59:27.42

頻度はwindoewsやエクセルに比べたらかなり低いけど、やってるよ
確かちょっとずつ便利になってる。本当にちょっとだけ。関数が増えたりはしていないはず。
ソース探したけど見つからねぇ

2022/06/27(月) 12:02:08.29

ふーん。。
まあ元号はあったね。。
古臭いよね。。

2022/06/27(月) 12:04:52.44

言語仕様っぽいページはあった
https://docs.microsoft.com/en-us/openspecs/microsoft_general_purpose_programming_languages/ms-vbal/d5418146-0bd2-45eb-9c7a-fd9502722c74

結局代替がないからなあ

**デフォルトの名無しさん** (ｽﾌｯ Sd5f-J46v) · 2022/06/27(月) 13:50:25.11

>>718
俺も大体これでやってる

2022/06/27(月) 19:05:07.99

>>698
そもそもi使ってねーじゃん

2022/06/27(月) 19:57:12.47

どなたか教えてください。

売掛金消し込みのマクロを作成しています。VBAでソルバーを自動化したいと思っています。

目的セル、制約条件の参照セルの開始行が40行ごとに下がっていき、指定値は数値ではなく、セルを指定したいです。

とりあえず、全部の変数をvariant型にしてますが、なかなか上手くいきません。

2022/06/27(月) 20:18:45.52

731です。

sub ソルバー()

dim 振込1 as variant
振込1=worksheets("ソルバー").range("n2:n8")

solverok setcell:= worksheets("ソルバー").range("i3"),
maxminval:=3,
valueof:=振込1,
bychange:=worksheets("ソルバー").range("e2:e40"),
enginedesc:="grg nonliner"

solveradd celreff:=worksheets("ソルバー").range("e2:e40"),relation:=4

solversolve userfinish=true

2022/06/27(月) 20:22:23.17

で、何がうまくいかないの？

2022/06/27(月) 20:26:50.30

>>733

ソルバーを実行しても、目的セルが0のままで指定値にと一致する金額の組み合わせが見つかりません。

どの請求分の入金なのか、突合したいです。

2022/06/27(月) 20:35:36.69

>>734
ソルバーわからんから確認させてください
振込1って変数は配列に入れた値を指定したいものですか？それともセル自体を指定したいものですか？
前者であればそれでいいですが、後者なら変数はRange型にする上で代入時に
Set 振込1 =〇〇
としないといけませんが…

2022/06/27(月) 20:37:19.75

連投すみません。

変数宣言して、for〜next構文でe列を("e"&i+40)や、n列も("n"&i+40)みたいにしたいんです。

d列には請求金額、e列は空白、目的セルにはsumproduct関数が入ってます。

指定値セルはn2:n8で、それぞれ違う金額が入力されてます。入金額とn2:n8内の金額が一致する組み合わせの請求金額をVBAを使って、求めたいです。