Excel VBA 質問スレ Part75

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-wadS) · 2022/02/09(水) 14:24:32.62

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

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

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

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

2022/03/26(土) 00:22:22.08

あれ？確かインデント用のツールを紹介してくれている親切な人いたような？
あれ具合良さそう。

2022/03/26(土) 00:30:29.64

Sub aaa()
　　For bbb = 0 To 0
　　　　If ccc = 0 Then
　　　　　　ddd = eee
　　　　End If
　　Next
End Sub

2022/03/26(土) 01:25:30.54

ツールの利用者から、ツールの改修担当者に問合せがいったんでしょ。

改修担当といっても、前任者から引き継いだだけだから、全ての仕様はわかっていない。
現在の業務にそぐわない仕様があって、エラーが出たから、
利用者が改修担当者に問合せ。

前任者なら「もともとこういう仕様です」と答えれば、
「ああ、それなら業務が変わったから改修が必要だな」と
改修依頼を出せる。

ツールの利用者も着任して間もない人の場合、
業務が変わったのかどうかもわからない。

そういう場合、ソースコードの条件文を日本語にして
回答するのではなくて、
昔から存続しているチームの誰かに聞くのが普通。
それをしないのは職務怠慢。

自分一人で売上を引っ張ってこれていると勘違いしているのかな。

2022/03/26(土) 06:35:02.37

>昔から存続しているチームの誰かに聞くのが普通。
>それをしないのは職務怠慢。
つまりそれをしないで改修担当者に聞いてるやつが悪いってことだな

2022/03/26(土) 10:14:46.58

ここって長文で講釈を垂れる人おおいよね
しかもVBAにはまったく無関係という

2022/03/26(土) 12:35:46.08

自力でできないのに調べない、人に聞かない、期待されているのものがつくれないのはできない人としか言いようがない

2022/03/26(土) 15:44:49.86

時には長文になるのは仕方ないよ。
丁寧に説明するばそうならね？

上の方で個人名みたいの書いてるアレな人いるけど今の5ちゃんて個人名書いただけでNGじゃなかったか？

2022/03/26(土) 16:02:36.43

個人名NGの規制ってあるのか？
WindowsやLinux板とかでは機能していないように見えるけど

2022/03/26(土) 17:07:43.61

個人名というか個人情報な
通報されたら警察来るかな

2022/03/26(土) 17:58:02.51

昔バイトしていた居酒屋のマスターが5ちゃんに実名晒されて誹謗中傷書かれていたのを思い出してさ。

2022/03/26(土) 18:09:02.02

>>577
> 昔から存続しているチーム
そんなのは跡形もないから

2022/03/26(土) 20:17:20.58

職務怠慢は言い過ぎでは？
何かしらの事情あるだろうし。

2022/03/26(土) 23:22:10.99

dim ki as string
ki = "まあいろんな事情があるよね"
ki = ki & "チームメイトに嫌われていて聞きづらいとか"

dim shou as string
shou = ki
shou = shou & "「こんなことくらいしかわからなくて、すみません」と謝られても"
shou = shou & "お前がそんなことしかわからないことは、百も承知。"
shou = shou & "誰かに回してくれることも見込んでの質問なんだけど、"
shou = shou & "ってね。"

dim ten as string
ten = shou
ten = ten & "プログラマーは基本、自分ひとりで仕事完結して、周りに電話したりメールしたりチャットしたり、"
ten = ten & "という連携は面倒くさがる人が多いからね。"
ten = ten & "コーディングされていないことは、できませんが何か？　みたいな"
ten = ten & "職務はここまで。これ以上はできませんが何か？みたいな"

dim ketu as string
ketu = ten & "ロボットみたいな人が多い。"

2022/03/26(土) 23:52:13.63

何？
この気持ち悪いスレ・・・・・・

2022/03/26(土) 23:57:27.46

>>587
汚いコードだな、そんな代入の仕方じゃ変数を4つ用意した意味がまったくないじゃん
そういう時は最後に足すんだよ
Dim DeathStory As String
DeathStory = ki & shou & ten & ketu

2022/03/26(土) 23:58:14.85

>>588
そっ閉じすりゃいいのに、そんなスレに何か書き込んでる時点で同類

2022/03/27(日) 03:21:42.29

深夜になると定期的に変な書き込みあるよね

2022/03/27(日) 03:29:36.79

>>591
自己紹介かよ！

2022/03/27(日) 07:40:40.82

>>587
無駄に
変数 = 変数 & 文字列をやると
その分余計にメモリを使用する。やり直し。

2022/03/27(日) 09:48:21.10

そもそも >>587 だと
"まあいろんな事情があるよねチームメイトに嫌われていて聞きづらいとか「こんなことくらいしかわからなくて、すみません」と謝られてもお前がそんなことしかわからないことは、百も承知。誰かに回してくれることも見込んでの質問なんだけど、ってね。プログラマーは基本、自分ひとりで仕事完結して、周りに電話したりメールしたりチャットしたり、という連携は面倒くさがる人が多いからね。コーディングされていないことは、できませんが何か？　みたいな職務はここまで。これ以上はできませんが何か？みたいなロボットみたいな人が多い。"
ってなるし、適宜 vbCrLf 挟めや

2022/03/27(日) 10:09:59.57

>>594
読んでないけど読む価値のないレスであることだけは判る

2022/03/27(日) 10:21:55.52

↑ どこを読めばいいのかもわからんアホw

2022/03/27(日) 10:33:27.62

最初と最後の行しか読んでないけど
スペースも改行もつかないって突っ込みだって事だけは判る

2022/03/27(日) 10:56:36.33

ようは字下げしないと読みにくいって教えてくれたんですね親切な人。

2022/03/27(日) 11:49:34.86

>>593
そうなのか
賢くなった
でもいつものクセでSQL文はこの式で書いているわ

2022/03/27(日) 12:17:45.42

>>597
それで十分、てか最後の行読んだらわかるだろ

2022/03/27(日) 12:19:46.20

>>599
まあ高々数十行位なら気にすることはないよ

2022/03/27(日) 12:41:21.31

誰かSalseforceのAPIをVBAでたたく方法わかる人いませんか？
API関連に関して全く無知で、何をどうしていいのか、、、
詳しい人教えてほしいです、、

2022/03/27(日) 12:52:04.46

字下げや改行なんてVBAでやることじゃない
印刷だろうが電子化だろうが、文書の整形は出力アプリ側に投げるもんだ
リーダー端末の画面サイズやフォントサイズなんて予測できんだろ？

2022/03/27(日) 13:07:11.24

文書の整形と文書自体を一緒にしてしまうところが悲しい・・・

2022/03/27(日) 17:11:35.24

なんでよ？VBAの義務教育編で字下げは真っ先に学習するはずじゃ？？

2022/03/27(日) 17:22:28.69

年収1000万のインド人はインデントもコメントもなし
一般人はちゃんとつけよう

2022/03/27(日) 17:30:10.15

>>602
アクセスするライブラリとAPIリファレンスを掲示してくれたら捗るんじゃね？

2022/03/27(日) 17:33:41.29

>>607
APIは変に教えるとよくないと思うから
それを使って何かするような事をしたいなら正式な仕事なりで発注させるべきだと思うぞ
そもそも何もわかってない奴がここで質問してるのもおかしな話だろ

2022/03/27(日) 17:34:17.13

スクレイピングもたまに質問するやつがいるけど
それも同じな

**デフォルトの名無しさん** (JP 0He2-i83I) · 2022/03/27(日) 17:50:20.50

>>609
VBA でのスクレイピングはイマイチですねえ、動いたり動かなかったりするし、なにかいい方法はないものか？

Function ScrapingAlgoA003(objIE As InternetExplorer, url, keyword As String)
objIE.navigate url
Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
DoEvents
Loop
Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document
Dim ReturnValue As Double
Dim div As HTMLDivElement
For Each div In htmlDoc.getElementsByClassName(keyword)
ReturnValue = CDbl(div.innerText)
ScrapingAlgoA003 = ReturnValue
Next div
Set htmlDoc = Nothing
End Function

2022/03/27(日) 19:02:58.02

>>600
そうだな
>>597は>>595へのレスだ

2022/03/27(日) 19:18:00.28

>>610
VBAのスクレイピングは今だとSelenium使ったChromeのスクレイピングが主流なんじゃなかろうか
バージョン合わせるのが面倒だけど安定してるし

2022/03/27(日) 19:39:07.33

Seleniumはほんといいね
IEからxpathで・・・ってやってたのがほんとアホらしくなった

2022/03/27(日) 19:43:23.36

Seleniumは昔インストールしたんだがよくわからず
未だにIEばかり使ってるんだが　もうそろそろ切り替えた方がいいのかな

2022/03/27(日) 19:51:02.70

昔のSeleniumはChromeの方にも拡張機能入れて…とかだった気がするけど今は事前準備も書くのも凄く簡単になってるね

2022/03/27(日) 19:59:57.15

>>614
100%切り替えた方が良い
ちょっと癖があるけど、cssセレクタ覚えればアホみたいに楽になるぞ
ちなみにXPathはしんどい

2022/03/27(日) 20:17:18.33

質問です。
連想配列に格納した連想配列の値を取り出すには
どうしたらよいのでしょうか?

Dim dicA as Dictionary
Dim dicB as Dictionary

dicB.Add "a",100
dicB.Add "b",100
dicB.Add "c",100

dicA.Add "A",dicB

としたとき、dicAの中のdicB("b")の値を取得したいとき
どうしたらいいのでしょうか。

Debug.print dicA("A").("b")
とかで出せるかと思ったのですが駄目でした。

2022/03/27(日) 20:19:01.83

set TikuB = dickA("A")
Tikubi("b") = bibibibibi-----

2022/03/27(日) 20:22:07.59

>>610
For EachなのにIfで条件指定しないのか

2022/03/27(日) 20:29:11.49

乳首エロい

2022/03/27(日) 20:31:09.02

>>617
よく分からんのだけど、Dictionalyって
型宣言しただけで使えるの？

普通に考えると、
Set dic A = New Dictionaly
Set dic B = New Dictionaly
とか、必要そうに見えるけど。

2022/03/27(日) 20:33:33.24

おっと、Dictionalyのスペルが違ってるか
Dictionaryかすまんこ

2022/03/27(日) 20:45:16.14

元の文と違いますが解決しました。
ありがとうございました。

Sub foo()

Dim dicA As Dictionary: Set dicA = New Dictionary
Dim dicB As Dictionary: Set dicB = New Dictionary

Set dicA("A") = dicB

dicA("A")("a") = "test"

Debug.Print dicA("A")("a") 'test

End Sub

2022/03/28(月) 01:22:22.67

("A")

2022/03/28(月) 02:04:12.07

（:; U: ::）

2022/03/28(月) 07:56:32.13

Selenium Webdriver と、
Chrome の拡張機能・Selenium IDE の2種類ある

2022/03/28(月) 07:57:45.06

Selenium Webdriver

2022/03/28(月) 12:34:55.90

ウェブダイバー

2022/03/28(月) 13:29:17.84

ウェブダイバーはカラオケで歌うぞ

2022/03/28(月) 18:29:52.50

>>623
今更だけど
Dim dicA As New Dictuonary
みたいに普通に1命令で設定しなかったのは何故？

2022/03/28(月) 18:47:34.87

横からだけど
For ...
Dim D As New Dictionary
...
Next
ってやると最初の一回しかNewしないから常に
Dim D As Dictionary: Set D = New Dictionary
ってやる人はいるみたい

2022/03/28(月) 18:55:38.23

>>631
いやいや、ループでそれぞれ別インスタンスとして使うにしても、定義は1回でNewするのが複数回で済むでしょ。
例えば上のレスのようにDictionaryにDictionaryを格納する場合でもDictionaryにしまった時点で参照は渡されるんだから消えないし、
その後、Newしてまた渡してやればインスタンスはまた別物として扱われるよね。

2022/03/28(月) 19:07:54.06

コードで語ればいいのに

2022/03/28(月) 19:46:09.16

>>630
知らなかっただけじゃないか

2022/03/28(月) 19:46:21.63

>>633
Sub hoge()
Dim dic1 As Scripting.Dictionary
Dim dic2 As Scripting.Dictionary
Dim itemCounter As Long

Set dic1 = New Scripting.Dictionary
For itemCounter = 0 To 3
Set dic2 = New Scripting.Dictionary
dic2.Add 0, "fuga" & CStr(itemCounter)
dic1.Add itemCounter, dic2
Next

For itemCounter = 0 To 3
Debug.Print dic1(itemCounter)(0)
Next

End Sub

出力結果：
fuga0
fuga1
fuga2
fuga3

dic1の中にdic2を入れてるけど、dic2の変数自体は使いまわし。
dic2はループの中でNewされているけど、dic1の中にそのときの
dic2の参照情報が格納されているため、きちんと別の値が保持される。
つまりはそういうこと。

2022/03/28(月) 19:51:37.75

↑ こいつは一体何を説明してるんだろう…

2022/03/28(月) 19:53:39.70

みんな教え方バラバラだから質問者が困ってるよー

2022/03/28(月) 20:06:46.75

>>636
分からないならすっこんでればいいんじゃないかな

2022/03/28(月) 20:07:19.86

実務ではよくある話

2022/03/28(月) 21:12:23.25

>>637
>>617の質問は解決してるし、>>630
の質問は>>634が一番ありそうだし
困ってる質問者って誰？

>>638
そうだねw

2022/03/29(火) 00:49:06.48

>>638
うるさい、だまってればいいんじゃないかな

2022/03/29(火) 01:38:58.63

まあ、知らなかっただけって可能性が高いんだが
DimでNewしてるオブジェクト変数はNothingにできないって罠があるからな

そして今更だが、VBAにDictionaryはないぞ、と

2022/03/29(火) 06:28:42.33

>>642
nothingに出来ないってどういう事だ？
以下のコード、間違えてるんだろうか

Sub foo()
Dim a As New Collection
Set a = Nothing
End Sub

2022/03/29(火) 07:06:07.15

>>643
https://thom.hateblo.jp/entry/2016/09/27/221527

2022/03/29(火) 07:24:06.81

それをNothingにできないと言うか？

2022/03/29(火) 07:25:09.72

>>644
量子論で草
nothingできるけど元に戻る、vbaの狂気を垣間見た気がする

2022/03/29(火) 08:16:28.05

dictionaryって連想配列だろ
VBA的にはマスタの代わりか、重複を避けて集計するぐらいしか使わないイメージ
だからここで問題にされてることってどうでもいい気もするけどなｗ
>>602
お前の質問に答えられるレベルに人はここにはいないだろｗ
海外のサイトで質問するほうがいいよ

2022/03/29(火) 08:48:32.13

そもそもVBAのオブジェクト型は参照カウンタ方式だから、Nothingの代入はオブジェクトの破棄じゃないし
破棄の予約とでも言えばいいのかな

システムは予約が入ってるかどうか定期的にチェックして、可能なら破棄する
実際に破棄するタイミングはシステムが勝手に決めて、いつのまにか予測不可能なタイミングで破棄されてる

ところで破棄のアルゴリズムって公開されてる？
あるいは誰かが解析した資料がどっかにある？

2022/03/29(火) 08:57:03.34

カウントゼロで破棄だろ
説明するまでもない

2022/03/29(火) 08:58:53.63

>>648
トレーシングGCと参照カウントがごっちゃになってるのかな
参照カウントは基本的に参照が外れたら即破棄

2022/03/29(火) 10:42:09.75

この辺、VB.Netとかの他言語でCOMオブジェクトの解放とかやってないと想像つきにくいよね。
そういうの知ってても面倒くさいし、サーバーサイドでEXCEL自体ないこともあるから
あの手この手で別の方法使ってEXCELの更新行おうとするよね。

2022/03/29(火) 11:13:32.55

想像というよりやるべき作法をわからずに適当に作るからでは
使ったら解放するものは何か理解していれば間違えないでしょ
適当にここでNothingすればいいやとか思ってるから問題がおきてしまう

2022/03/29(火) 11:35:23.69

>>602
Salesforce CLIを呼び出してCSV等に出力し、それを読み込めばいい
VBAから直接APIを呼ぶのは自前でパースしなきゃいけなくて面倒だぞ

2022/03/29(火) 12:59:23.02

>>643
Set a = Nothing
のあとに
MsgBox (a Is Nothing)
とかやってみ

問題にしてるのはオブジェクト変数をNothingにできないことで
つまり
Set obj = Checkobj()
If obj Is Nothing Then
みたいなコードがバグるってことなんだが

>>648
インスタンスの解放とか問題にしてないが
破棄の予約ってなんなんだよ
Nothingの代入は単に参照カウンタを減らすだけだぞ
結果カウントゼロなら廃棄される
.Netじゃないし、VBAで
>システムが勝手に決めて、いつのまにか予測不可能なタイミングで破棄されてる
なんてことはないはず

2022/03/29(火) 13:35:16.03

>>654
> Set a = Nothing
> のあとに
> MsgBox (a Is Nothing)
> とかやってみ
>>644のリンク先にも書いてあるけどMsgBox にブレークポイントかけてウオッチウインドで見てみ
Nothing にできないことと、Nothing の時に参照されたら New されると言うのは違う

2022/03/29(火) 13:45:44.59

>>655
ああ、そうだな
オブジェクト変数をNothingにできない
は
(VBAコードから)オブジェクト変数をNothingとして評価できない
に訂正しとくわ

2022/03/29(火) 13:49:11.35

>>654
バグるんではなく自分でバグらせてるだけでしょ
Dimで変数を宣言する際にNewを付与するとヘルプのこちらの記載
「オブジェクト変数の宣言時に New を使用すると、その変数を最初に参照したときにオブジェクトの
新しいインスタンスが作成されるようになり、Set ステートメントを使用してオブジェクト参照を
割り当てる必要がなくなります。」
にある通り変数を参照する限りはNothingにすることはできない
（デバッグで変数を参照してしまっても同様）
変数がNothingか判定したいなら素直に宣言の際はNewを使わなければいいだけ
Newをどういうときに使うとコーディング上効果的かわからない、他人が理解できないかもしれないなら使わないほうがいい

2022/03/29(火) 13:53:26.54

>>656
評価って表現もなんかおかしくない？
Nothingになっていることを確認できない、とか

2022/03/29(火) 14:15:22.73

でもこれ、ちょっと怖いよね
Dimの宣言時にNewしてやると、Nothingにしたら次触るとき、インスタンスが設定されていなければ
勝手に新しいインスタンスを設定するなんて
知らなかったら分岐に Is Nothingとか使いそうだし、知ってたら知ってたでSet ～ As New ～の代わりに使って、知ってる人じゃなければ分からないような属人化コードわざと書いたり出来るってことだもんね。

.Netとかでも同じような挙動をするのかな？

2022/03/29(火) 14:49:39.05

怖いもなにもヘルプに書いてあることを理解せずに伝えたりそれを聞きかじっただけでやるからでしょ
質問する側も答える側も一部分だけのやり取りしてるのを踏まえて会話しないと事故のもとだよ
まあ事故るのは質問する側だけなんで答える側はそこまで保証できないが

2022/03/29(火) 15:00:51.71

>>657
> 「オブジェクト変数の宣言時に New を使用すると、その変数を最初に参照したときにオブジェクトの新しいインスタンスが作成されるようになり、Set ステートメントを使用してオブジェクト参照を割り当てる必要がなくなります。」

から

> 変数を参照する限りはNothingにすることはできない

と言うのは飛躍しすぎ

問題はそっちじゃなくて

> 「必ずオブジェクトが存在することが保証される (Nothing を設定してオブジェクトが破棄されたとしても、オブジェクト変数を再利用しようとすると、再作成される)」

の方な

ただ個人的には上記の文で「オブジェクトが破棄されたとして」のくだりは余計だと思う
複数から参照されてたらオブジェクト自体は破棄されないから

2022/03/29(火) 15:09:04.14

Nothingしてもその後に”変数を参照した”らNothingが再作成されたインスタンスに変わるんだからできないと一緒じゃない？
それと変数とオブジェクトを一緒に考えてないか？
自分は
Dim A As Object
Dim B As Object
Set A = XXX
Set B = A
Set A = Nothing
この場合のAの話をしていてXXXで作成したインスタンスの話はしてないよ

2022/03/29(火) 15:12:01.06

まあどうでもいい話だった無視してくれ
すまん

2022/03/29(火) 15:23:41.67

>>657
元の話はなぜDimでNewしないって話だから
バグのもとだからやめといたほうが良いという、理由の可能性の一つを挙げてるだけだが

実際知っててもミスることはあるし、しらないとデバッグが困難だからな

2022/03/29(火) 15:30:09.53

>>662
混同してるのはお前さんの方
Aは変数でオブジェクトじゃないぞ

2022/03/29(火) 15:31:19.17

>>662
まあ、Nothingにできないは厳密には確かに違う。Nothing代入できるし
Nothingにならないって言うほうが正しいな

このコンテキストでその違いが重要か？とは思うが

2022/03/29(火) 15:54:16.92

>>666
違いは重要じゃないけど
> Nothingにならないって言うほうが正しいな
と言う明らかな間違いを言い続けるのはどうかと思うぞ… ⇒ >>655

2022/03/29(火) 18:10:12.28

列ではなく、選択した箇所だけを固定したいのですが出来ませんか？

2022/03/29(火) 18:32:44.42

>>666
違う
代入すればNothingになる
その次にアクセスすると、またそのタイミングで自動的にNewされる

2022/03/29(火) 18:52:31.36

各自が想定してるコードが違うんだから言葉遊びにすぎないよ
自分のレスもいまいちだったかもしれんがNothingをセットして終了するならNothingかもしれないが
後続のコードにIs Nothingなり変数の参照があるならそれは結果的にNothingではなくなるのと一緒と自分は思ってるだけ
例に出して申し訳ないが
> Set a = Nothing
> のあとに
> MsgBox (a Is Nothing)
これとかね
自分なりの結論は宣言時にNewは使わないほうが無難

2022/03/29(火) 19:12:31.97

>代入すればNothingになる
>その次にアクセスすると、またそのタイミングで自動的にNewされる
厳密にはその通り
そんなことは分かったうえで、それをコード上で確認できないから
Nothingにならないと表現したわけで、その表現が間違いらしいですわ

(VBAコードから)オブジェクト変数をNothingとして評価できない
すべての個所をそう読み替えといてくれ

飽きたし俺はこの話はもうこれで終わり

2022/03/29(火) 19:15:45.64

まぁ>>670の言う通り言葉遊びだよね
みんな実際の挙動は理解しての会話になってるみたいだし

2022/03/29(火) 19:19:18.21

まあオレは今まで知らなかったけどな！

2022/03/29(火) 19:32:15.47

>>644
おれ以外にもthom先生見てる人いたか