Excel VBA 質問スレ Part80

**デフォルトの名無しさん** · 2023/05/31(水) 08:23:38.97

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/

**デフォルトの名無しさん** · 2024/02/08(木) 16:06:23.33

ワークシートの親ワークブックは特定されるので指定は不要
wsだけで使えば良い

相互参照したいなら
set ws = wb.Worksheets(n)
set wb = ws.Parent

**デフォルトの名無しさん** · 2024/02/08(木) 17:26:16.95

>>472
Setしたwsにはwb要素も含まれてて変更できない
複数のブックでシート名を共通にしたい時はWorksheetオブジェクトじゃなくて文字列にシート名を入れる
Dim stnam As String
stnam = "Sheet1"
wb.Worksheets(stnam)
みたいに書く

**デフォルトの名無しさん** · 2024/02/08(木) 19:08:54.01

出来ました！ありがとうございます！

**デフォルトの名無しさん** · 2024/02/08(木) 20:49:29.84

ListBoxの要素をクリックしても枠線が表示されるだけで
青色に反転しないことが時々あるのですが、何故でしょうか？

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

エスパーするとデザインモードになっていたりマクロ禁止状態だったりするから

**476** · 2024/02/09(金) 21:03:02.70

どうもListBoxの端っこをクリックするとListBox自体がアクティブになり
前回選択していた要素にフォーカスが当たるようです（フォーカスするだけで選択はしない、青色にも反転しない）

**デフォルトの名無しさん** · 2024/02/10(土) 12:07:45.28

プロパティウィンドウで何か設定イジったとか？

**デフォルトの名無しさん** · 2024/02/10(土) 22:18:00.43

VBAベーシック合格したから、スタンダードも挑戦したい。
その前に　「日商プログラミング検定　STANDARD　VBA」をAmazonで買って読んでみたけど、
載ってるプログラムが糞すぎて話にならない。
俺が１０行で書ける奴を４０行ぐらいでやってる。
買って損した。

**デフォルトの名無しさん** · 2024/02/10(土) 22:52:32.27

>>180
ChatGPTで教えてもらった。
これからやってみるｗ

Sub GetVegetableInfo()
Dim sheet1 As Worksheet
Dim sheet2 As Worksheet
Dim lastRow As Long
Dim i As Integer

' 「Sheet1」と「Sheet2」を取得
Set sheet1 = Worksheets("Sheet1")
Set sheet2 = Worksheets("Sheet2")

' 「Sheet2」のA1:B5を順番に処理
For i = 1 To 5
' 「Sheet1」で条件に合う最後の行を取得
lastRow = sheet1.Cells(sheet1.Rows.Count, "A").End(xlUp).Row
Do While lastRow > 1 And (sheet1.Cells(lastRow, 1).Value <> sheet2.Cells(i, 1).Value _
Or sheet1.Cells(lastRow, 2).Value <> sheet2.Cells(i, 2).Value)
lastRow = lastRow - 1
Loop

**デフォルトの名無しさん** · 2024/02/10(土) 22:52:57.45

続き

' 購入年月日と価格を「Sheet2」に記入
If lastRow > 1 Then
sheet2.Cells(i, 3).Value = sheet1.Cells(lastRow, 3).Value
sheet2.Cells(i, 4).Value = sheet1.Cells(lastRow, 4).Value
Else
sheet2.Cells(i, 3).Value = "条件に合うデータが見つかりません"
sheet2.Cells(i, 4).Value = "条件に合うデータが見つかりません"
End If
Next i
End Sub

**デフォルトの名無しさん** · 2024/02/10(土) 22:59:51.09

一発でできたｗ
ChatGPTはすごいｗｗ

**デフォルトの名無しさん** · 2024/02/10(土) 23:03:48.85

こういう文を自分で分かるようになるまで１行づつ勉強していけば良いのかな。

**デフォルトの名無しさん** · 2024/02/11(日) 00:18:22.77

>>484
こんなのがわからん人には一生無理だよ

**デフォルトの名無しさん** · 2024/02/11(日) 08:41:00.98

Excel2019だから仕方ないけど、2021や365ならワークシート関数で簡単に出来る内容だね。

**デフォルトの名無しさん** · 2024/02/11(日) 10:25:34.29

んなこたーない
千里の道も一歩から

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

>>487
賛成

**デフォルトの名無しさん** · 2024/02/11(日) 13:11:20.60

構造体の項目名を取ってくることって可能
Type type社員
　　番号 As Long
　　氏名 As String
　　所属 As String
　　住所 As String
　　電話 As String
End Type

こんな風になってる場合、
「番号」、「氏名」とかの項目名を取ってきたい

**デフォルトの名無しさん** · 2024/02/11(日) 13:13:40.26

Chatgptに頼るとそれが癖になりそうでよ。

**デフォルトの名無しさん** · 2024/02/11(日) 13:31:41.97

>>489
VBAでは無理
VB(.net)ならできるんだけど

**デフォルトの名無しさん** · 2024/02/11(日) 13:57:26.10

>>490
そもそも、こういう計算関係の問題ならChatGPTの方が人間よりも数万倍能力高いのに、どうして人間がやらなきゃいけないのか？

**デフォルトの名無しさん** · 2024/02/11(日) 14:03:59.06

>>491
てことは、構造体の中身を一括でワークシートに書き出すことも不可能？
Cells(1,1)= type社員
みたいなことはできない？

**デフォルトの名無しさん** · 2024/02/11(日) 15:16:37.77

千里は約3900kmだから歩くのはちょっと無理かな

**デフォルトの名無しさん** · 2024/02/11(日) 17:35:01.49

>>494
「千里之行　始於足下 (千里の道も一歩から)」は2500年前の中国が発祥の言葉
古代中国の単位で換算すると千里は415kmだから、実は江戸～伊勢神宮の460kmより短いという

**デフォルトの名無しさん** · 2024/02/11(日) 17:37:11.13

>>492
失業者が増えるのはまずいから、わざと無駄な仕事を増やしてる
どこの業界でもね

**デフォルトの名無しさん** · 2024/02/11(日) 18:53:55.53

Excelもそのうち完全自動化になって手作業が無くなると聞いたしね。

**デフォルトの名無しさん** · 2024/02/12(月) 02:43:42.58

完全自動化にはならない
少なくとも仕様をExcelに伝えないといけない
しかも正確に
これは結構大変だと思う

**デフォルトの名無しさん** · 2024/02/12(月) 06:48:14.86

結局、馬鹿にできることは限られる

**デフォルトの名無しさん** · 2024/02/12(月) 07:23:59.37

いまだに古いexcel使っているから関係ない

**デフォルトの名無しさん** · 2024/02/12(月) 15:27:03.31

何かの記事か動画で、ケースの中にノーパソがあって、csvから自動で読み込んで手作業の如く加工したり関数が自動的に入力されているのを見た記憶ある。
将来的に完全自動になるとかなんとか

**デフォルトの名無しさん** · 2024/02/12(月) 17:36:44.35

それだけなら今の技術でもできる
問題は入力をどう捌くか
仕様は人間にしかわからないし
ケース分けはすぐに複雑になるので
うまく指示しないと
すぐに保守不能になる

**デフォルトの名無しさん** · 2024/02/12(月) 22:27:01.21

>>501
頭悪そう

**デフォルトの名無しさん** · 2024/02/12(月) 23:37:18.45

どんなにいいものでも頭の悪い人には宝の持ち腐れになるな

**デフォルトの名無しさん** · 2024/02/13(火) 01:00:51.32

高度な科学技術は(バカには)魔法と区別がつかない

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

「猿でもわかるようにしろ」と猿が言う

**デフォルトの名無しさん** · 2024/02/13(火) 11:52:54.11

例のRPAの事か。

**デフォルトの名無しさん** · 2024/02/13(火) 15:20:55.90

DIM 社員番号 As Long
DIM 社員氏名(99) As String
DIM 社員所属(99) As String
DIM 社員住所(99) As String
DIM 社員電話(99) As String
では、🙅ですか❓

**デフォルトの名無しさん** · 2024/02/13(火) 18:34:38.38

200ぐらいは必要だな

**デフォルトの名無しさん** · 2024/02/13(火) 19:29:15.56

chatgptに聞いてみたら？

**デフォルトの名無しさん** · 2024/02/13(火) 19:50:47.77

ChatGPTに書かせまくってます

**デフォルトの名無しさん** · 2024/02/14(水) 01:36:32.34

そんなのに頼っていたらスキル上がらないだろ

**デフォルトの名無しさん** · 2024/02/14(水) 19:27:17.85

AIが先に学習するんじゃね

**デフォルトの名無しさん** · 2024/02/14(水) 20:58:16.61

>>512
ChatGPTにできない事でスキル上げしないと将来無いと思ってる。

**デフォルトの名無しさん** · 2024/02/15(木) 05:36:09.01

ChatGPTの倒し方？

**デフォルトの名無しさん** · 2024/02/15(木) 07:21:00.00

ChatGpt、間違っていたり動かないコードを提示される場合あるみたいね。

**デフォルトの名無しさん** · 2024/02/15(木) 09:00:47.65

そら完全じゃないからな、やれば分かるよ
でも理解してればすごい便利

**デフォルトの名無しさん** · 2024/02/15(木) 11:17:18.79

わざわざ聞くのはコマンドを知らないから？
Excelなら記録でわかるから機能を知らないからか？
もしくはキー入力が遅い？
文法すら分からないってのは流石に使えないだろうし

**デフォルトの名無しさん** · 2024/02/15(木) 11:54:24.32

普段色んな言語扱ってると思い出せないときとかあるからね
「この言語ってlengthとcountどっちだったっけ、これanyとか使えたっけ？」
「配列ってnewとかだっけ」
「あれこの言語const,define,var,val,letどれが使えないんだっけ」
「Integerはintでいいんだっけ、あれInt32だっけ」
みたいな細かい所を確認したりせずに
まるっとどーんと一旦サンプルとして形にできるからラク
アルゴリズムとかはそこから見直せば良い

vbeはcopilot対応してないし(よね？)

**デフォルトの名無しさん** · 2024/02/15(木) 17:50:12.85

色んな言語使ってない人は迷わないってことならそれでいいんじゃね

**デフォルトの名無しさん** · 2024/02/15(木) 18:44:29.22

まあそらVBA専従なら自分で書きはじめたほうが早いかもしらんね

**デフォルトの名無しさん** · 2024/02/15(木) 18:47:58.30

VBAの知識あります
でも職層も低く若手に馬鹿にされまくってますって化石おじさんいるわ
絶望的に発想もセンスも乏しい
そんなことVBAでやるまでもないそんな処理意味ないけどってとこまで
まるでお前らです

**デフォルトの名無しさん** · 2024/02/15(木) 19:21:27.05

>>519
xxx まるっと
o まるごと

変な言葉使うな。方言らしいけど。

**デフォルトの名無しさん** · 2024/02/18(日) 19:40:32.04

保存に失敗したのか何なのか分からんが
標準モジュールの中身が突然消えた（フォームは残ってる）
復旧も無理そうなので、今度の連休にまた最初から書き直すことにする

**デフォルトの名無しさん** · 2024/02/18(日) 19:46:11.18

windowsにもExcelにも自動バックアップ機能あるぞ
うっかり上書き保存しても前のファイルが取り戻せる
ぐぐって設定しとけ

**デフォルトの名無しさん** · 2024/02/18(日) 20:04:54.83

今度からそうする
自分の知らないうちにどこか分からない場所に勝手に保存される
というのがなんか嫌で、あまり使ったことなかった

**デフォルトの名無しさん** · 2024/02/19(月) 06:48:23.74

ポクは、自動バックアップは、よく解らんけど、いつの間にか
自動バッチリアップされてるけど、何か、ヤダから、
標準モジュール内のVBAコードは、丸ごと手作業で
シート内に、コピペしてる。文字化けもほぼ皆無
場合によっては、メモ帳に貼り付け、テキストで保管
ま、念の為だから、保管したテキストも数日でゴミ箱にポイだ
BY 🤡

**527** · 2024/02/19(月) 06:54:55.85

あっそうだ、コメント行で、'とかあうのが
シート貼り付けで、消えたように見えるので、
ポクは、コメントは、'は一文字ではなく、
'''''ポクはやり方はバッチリだから文句いうな
って感じで、'は沢山つなげております。

**デフォルトの名無しさん** · 2024/02/19(月) 08:48:43.14

>>524
コード触る前に枝番違いで保存するようにしてる
小変更なら下一桁、大きく変更したら上の桁をという感じ

**デフォルトの名無しさん** · 2024/02/19(月) 09:24:14.83

男はゴミ箱の中に溜めたが多い。女はゴミ箱に溜めない、即消去する傾向があるw

**デフォルトの名無しさん** · 2024/02/19(月) 19:27:36.95

まだ根拠のないことを

**デフォルトの名無しさん** · 2024/02/19(月) 22:06:40.75

恋愛を引き出しにゴミ箱に例えただけだよ。男っていつまで未練タラタラじゃん。

**デフォルトの名無しさん** · 2024/02/19(月) 22:25:41.40

自己紹介乙

**デフォルトの名無しさん** · 2024/02/20(火) 07:38:20.43

変数の宣言してからにしてください

**465** · 2024/02/20(火) 09:18:26.52

>>524
Office365で同じような現象がありましたが、古い2010でマクロブックを開いたらちゃんと標準・クラスモジュールが見え、エクスポートできました
あと、OSをシフトキーを押下したまま(完全な)シャットダウンするとよいという情報もありました
後者はうろ覚えなので、間違いだったらスマヌ

**デフォルトの名無しさん** · 2024/02/20(火) 09:19:50.79

>>535 の投稿者ですが
僕は465ではありません

**デフォルトの名無しさん** · 2024/02/20(火) 12:31:23.17

AIなら競馬とか株とかで儲かる奴わかるかな

**デフォルトの名無しさん** · 2024/02/20(火) 13:17:34.25

お世話になります。Microsoft365を使用しております。
納品書作成で別シートのマスタからvlookupで商品名に対応する単価を引っ張って来ています。ただ、全社共通単価の商品と、取引先ごとに単価が違う商品があります。
単価が違う商品のために取引先ごとにシートを分けて各社のマスタをつくり、それとは別に共通マスタ(全社共通単価商品リスト)を作って、一つのファイルで各社納品書を作成というのをしたいです。

例えば
シート1：納品書原本
シート2：トヨタマスタ
シート3：ホンダマスタ
シート4：全社共通マスタ

シート1のA1セルにプルダウンで、トヨタ、ホンダ、を選択する。
トヨタを選んだ場合は、トヨタマスタから単価を引っ張ってくる。
もしトヨタマスタに当該商品がない場合は、共通マスタから引っ張ってくる。
ということをやりたいのですが、できますか?
ChatGPTに投げてみましたが、トヨタに当該商品名がない場合→ホンダ→全社共通検索するみたいな感じで、ちょっと芯をつけませんでした。(同じ商品名でも単価が違う)

ちなみにトヨタとかにしてますが扱う商品は食品です。
例えばキャベツは全社共通単価だけど牛肉は会社によってグレードも違うので単価が異なるみたいな感じです。
また野菜は時価なので共通マスタの単価修正も頻繁で、会社ごとにファイルを作るのは大変なので一つのファイルでやりたいと思った次第です。

これよりもっと簡単な方法でも結構ですので、アドバイスなどご教示いただければ幸いです。よろしくお願いします。

**デフォルトの名無しさん** · 2024/02/20(火) 13:51:18.21

トヨタに当該商品名がない場合→→全社共通検索する

でいいと思います

**デフォルトの名無しさん** · 2024/02/20(火) 14:41:09.38

>>539
早速ありがとうございます
そのようにしたいのですが、現状のこのコードをどう改良したら良いのか教えていただけませんか？

=IF($C11="","",VLOOKUP($C11,'共通マスタ'!$A$2:$F$49,3,FALSE))

A1にトヨタまたはホンダを選択→まずは当該マスタから検索、ヒットしなければ共通マスタから検索

**デフォルトの名無しさん** · 2024/02/20(火) 14:50:02.37

>>538
365で、もうVSTACK関数も使える状況ならVlookupの対象配列の部分を
VSTACK(if(A1=ホンダ,ホンダマスタの配列, トヨタマスタの配列), 全社共通マスタ)
みたいにすればいけるんじゃない

**デフォルトの名無しさん** · 2024/02/20(火) 14:53:03.06

1アイテム(商品)に複数の単価枠を設けておく
共通単価・トヨタ単価・ニッサン単価・ホンダ単価・時価A・時価B　えｔｃ(ニッサン嫌いなのかな)
取引先(売上先)選択とアイテムとをセットでキーにして、どの単価列から引っ張るか　の工夫をする
メリットは、商品マスタがひとつ(1Sheet)で済む　単価変更時アッチコッチ探さずに済む
漏れ・誤記入などの心配が減る
ま、かなりアイテムにボリュームありそうな気もするが、Excel案件なんだろうか

**デフォルトの名無しさん** · 2024/02/20(火) 15:07:26.04

アドバイスありがとうございます
色んな方法がありますね脱帽します
今晩色々試してみてまた相談に来るかもしれないのでその時はよろしくお願いします
ありがとうございました

**デフォルトの名無しさん** · 2024/02/20(火) 15:43:31.16

いや、こんなのがわからんような馬鹿しか雇えない会社は素直に販売管理アプリを買えよ

**デフォルトの名無しさん** · 2024/02/20(火) 17:13:24.90

最近 VBA→C#→Pythonを使ってきたけど
Pythonが使いなれた今、VBAやC#を使おうと思うと絶望的な気分になる

**デフォルトの名無しさん** · 2024/02/20(火) 18:02:54.37

>>545
どういうところに絶望を感じるのですか？

**デフォルトの名無しさん** · 2024/02/20(火) 18:52:28.47

Pythonが使いなれた今、VBAやC#は忘れてしまった

**デフォルトの名無しさん** · 2024/02/20(火) 18:59:39.48

日本もまともに書けない知的障害者っぽいからな

**デフォルトの名無しさん** · 2024/02/20(火) 19:16:59.33

>>547
暗記していないといけないと思っているタイプ？、

**デフォルトの名無しさん** · 2024/02/20(火) 19:28:04.83

おれ、pythonでGUI作ろうとして絶望的な気分

**デフォルトの名無しさん** · 2024/02/20(火) 20:16:30.65

正しいコードを暗記して書かないと
ってのが一番の軸にある奴はVBAに限らず昔から仕事出来ないって言われてるよね
いつまで経っても平のまさにお前ら

AIを鵜呑みにはせずやりたい事をChatGPTで形にして自分や他者でトライしてアイデアと発想を足してくのが出来るスタイル

そんなのも正しく出来ないようじゃとか言ってる限り後輩に追いつけないよ

**デフォルトの名無しさん** · 2024/02/20(火) 20:59:15.05

>>550
絶望的に能力が足りてないからか

**545** · 2024/02/20(火) 22:44:54.58

静的型付けというだけで萎える
さらに、End if や Next i とかがマジでめんどくさい。

短いマクロくらいだったら問題にならないが、規模が少しでかくなると、この少しずつの煩わしさが絶望感になるｗ

**デフォルトの名無しさん** · 2024/02/20(火) 23:00:15.92

そんな程度が煩わしいって
境界知能なのかな

**デフォルトの名無しさん** · 2024/02/21(水) 01:47:31.07

バリアントでバリバリ書けよ
チョベリグよ

**デフォルトの名無しさん** · 2024/02/21(水) 22:49:51.75

バリバリバリアント

**デフォルトの名無しさん** · 2024/02/21(水) 23:38:25.69

>>538ですがchatGPTにききながらとりあえずやっとできました。
でも取引先が多くなると式が長くなりすぎて微妙なんで何かいい方法ないでしょうか？

今こんな感じです

=IF(ISBLANK($C9), "",
IF($A$1="トヨタ", IFERROR(VLOOKUP($C9, トヨタ, 2, FALSE), "エラー: トヨタのデータが見つかりません"),
IF($A$1="ホンダ", IFERROR(VLOOKUP($C9, ホンダ, 2, FALSE),
IFERROR(VLOOKUP($C9, 共通マスタ, 2, FALSE), "エラー: 共通マスタのデータが見つかりません")),
IFERROR(VLOOKUP($C9, 共通マスタ, 2, FALSE), "エラー: 共通マスタのデータが見つかりません"))
)
)

>>542さんのやつなら短くできますかね？

**デフォルトの名無しさん** · 2024/02/21(水) 23:49:17.30

いや、こんなのがわからんような馬鹿しか雇えない会社は素直に販売管理アプリを買えよ

**デフォルトの名無しさん** · 2024/02/21(水) 23:49:31.54

>>557
これいけたと思ったけどなんか色々やってるとなわかダメでした
むだなレスすみません

**デフォルトの名無しさん** · 2024/02/22(木) 07:57:58.28

ブリブリブリリアント

**デフォルトの名無しさん** · 2024/02/22(木) 10:35:44.77

単価シートを分けるのがダメ
コード割り振る時に、大・中・小分類を駆使
取り引き多い順とかで、野菜01、共通02、肉03、、　とかの大分類とし
共通の中でも中分類を設けて調味料001、乾物002、菓子003、、とか
その下に小分類があれば、商材の増減やらにも対応できる　もっと細かにしてもいいけど
　肉の豚のしゃぶしゃぶ用なら03002005とかの一連のコードで呼び出すようにする

**デフォルトの名無しさん** · 2024/02/22(木) 11:01:01.44

コードに意味を持たせるのはアホ

**デフォルトの名無しさん** · 2024/02/22(木) 11:51:23.25

>>561
主張がよくわからんけど
ユーザー別に商品コード割り振れって言いたいの？

**デフォルトの名無しさん** · 2024/02/22(木) 17:29:15.77

chatGPTにこれじゃダメって言ったらいいんじゃね

**デフォルトの名無しさん** · 2024/02/22(木) 19:02:34.09

そもそも馬鹿な人が考える解決方法なんてものは馬鹿な方法である可能性が高い。その方法が実現できても周りが迷惑を被るだけ。
この問題が解決できてもまた馬鹿なことを言い出すのは見えている。
だから、こんな馬鹿に解決させようとしていることが間違えている。

**デフォルトの名無しさん** · 2024/02/22(木) 21:36:29.80

意味の無いコードって無意コードって奴？　それ生成するのにどんな苦労あるん？
そのIDと商品を結び付けるテーブルが別にひとつ必要に成るんだが、その手間は？　アホで無い回答を求む

**デフォルトの名無しさん** · 2024/02/22(木) 22:30:52.49

chatGPTにForで回す以外のやり方があるのかを聞いてもありませんの一点張り
ネットで調べたら、ないはずの物が見つかるんだよな

**デフォルトの名無しさん** · 2024/02/22(木) 23:43:16.02

chatgptが提示したコード自体が動かない事もあるしね。

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

Dim a() As ......
Call Piyo(a)
......

Sub Piyo(ByRef a() As Variant)
......

こういうコードで何故か「型が一致しません」エラーが出て
Sub Piyo(ByRef a As Variant)
のように直すと出なくなったけど、理由がよく分からない

**デフォルトの名無しさん** · 2024/02/23(金) 20:32:10.53

>>569
馬鹿だからわからないだけだろ
馬鹿者なかったらすぐにわかる

**デフォルトの名無しさん** · 2024/02/23(金) 22:25:04.05

ByRefとか俺にとっては意味不明だから、Sub Piyo(a)でいいと思うよ

**デフォルトの名無しさん** · 2024/02/24(土) 08:16:44.37

>>557
今の形をベースとするならこんな感じ? 取引先がもっと多いならIFSかSWITCH関数に変えて、あとExcel365なんでLET関数を使えばもっと短くできる。
=IF(ISBLANK($C9), "", IFERROR(
IF($A$1="トヨタ", IFERROR(VLOOKUP($C9, トヨタ, 2, FALSE),VLOOKUP($C9, 共通マスタ, 2, FALSE)),
IFERROR(VLOOKUP($C9, ホンダ, 2, FALSE),VLOOKUP($C9, 共通マスタ, 2, FALSE))),
"エラー: データが見つかりません"))

でも、他の人も言ってるとおり元の単価表の作り方を見直した方がいい。