Excel VBA 質問スレ Part69

2020/12/13(日) 00:22:23.67

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

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

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

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

2021/03/09(火) 12:09:52.12

ピボットグラフのスライサー内の選択を変えた時にマクロが動くようにしたいです
イメージ的にはワークシートイベントです
例︰スライサーの日付を変更時にグラフの色を塗る

選択変更の検知方法を教えてください
よろしくお願いします

2021/03/09(火) 12:25:42.94

外枠なら面倒だけど取り消し線なら簡単だ

**デフォルトの名無しさん** (JP 0H8f-/obZ) · 2021/03/09(火) 12:38:26.95

外枠でも大差ないと思う
Selectionの上下左右に罫線を引くだけ

2021/03/09(火) 12:43:13.10

>>881
>>884
なるほど、これなら自分でできそうです
ありがとうございました

2021/03/09(火) 13:03:57.82

いえいえ、自分でもっと勉強してくださいね

2021/03/09(火) 16:16:21.91

>>879
If Intersect(Selection, Range("D5:D20")).Count <> Selection.Count Then
MsgBox "エラー"
Else
Selection.Font.Strikethrough = True
End If

2021/03/10(水) 00:11:15.88

だってさ、先輩がExcelなんか全部マクロで動かせば良いって言われたからさ。。。
ワークシートの関数とかそんなもん覚えなくて良いと言われたからさ。
だからVBAしか知らない。
今凄く関数とか機能を覚えるために苦労してる。

2021/03/10(水) 02:20:07.32

>>891
無理してやる必要ないのに、何のために覚えるの？

2021/03/10(水) 07:58:05.94

>>892
マクロだけでは遠回りだと気づいて

2021/03/10(水) 08:18:24.93

vlookupはなんであんな変なインターフェースなんですか

2021/03/10(水) 09:29:52.26

ポーカーフェイスですよ

2021/03/10(水) 10:14:53.26

>>894
古いから

2021/03/10(水) 14:59:19.94

screenupdapingを非表示にした状態でcalculationを自動にしたら、ちゃんと計算やってくれますか？

2021/03/10(水) 15:30:04.25

>>897
自分でやってみりゃいいじゃん

2021/03/10(水) 15:39:38.02

>>898
updatingが表示になったときに計算されるのか、非表示中に計算されてるのかがわからないのです。

2021/03/10(水) 15:43:34.11

ExcelからVBAが完全になくなるより先にMSが先になくなりそうじゃない？

2021/03/10(水) 15:57:24.48

MSがなくなるより先にお前がなくなるんじゃない

2021/03/10(水) 17:04:34.10

その前にIT途上企業のウチの会社がなくなるな

2021/03/10(水) 17:25:36.32

>>899
対象セルのvalue値を処理中に
debug.printで書き出すなり
どこかのセルに突っ込むなり
トレースして確認するなりすればいいじゃん
まず聞く前にググる癖をつけないと
いつまで経っても誰かに聞かないと
何も出来なくなるよ

2021/03/10(水) 17:37:30.93

>>903
わかりました。てか式の値見ればすぐわかりますね。やってみます

2021/03/10(水) 18:13:57.59

今日水曜日なのにweekdayName(weekday(Date))で木曜日と出るのは仕様？

Dateは2021/03/10
weekday(Date)は4
と出ることは確認済み
weekdayとweekdayNameで週始めを日曜とするか月曜とするかで差が出てるんだろうからweekdaynameをvbSundayにすることで解決はするけど、何かが原因でここに違いが出てるなら修正したいので仕様かどうか知りたい

2021/03/10(水) 19:31:18.15

仕様ではない

2021/03/10(水) 19:41:43.99

Weekdayの規定値がvbSundayで、WeekdayNameの規定値がvbUseSystemDayOfWeek。
どっちかに合わせた方がいいと思う。

2021/03/10(水) 20:15:11.47

やっぱり>>885の方法はないですかね
諦めてマクロボタンで更新します
ありがとうございました

2021/03/11(木) 16:08:09.65

>>907
なるほど、自分のwindowsカレンダーの開始日が月曜になってるからなのか
なんで既定値が違うんだろうという疑問は残りつつも納得、ありがとうございました

2021/03/12(金) 14:18:56.93

VBA学ぶのにお勧めの本ありますか？

2021/03/12(金) 14:22:39.95

>>910
MOSの本

2021/03/12(金) 14:25:27.81

正確にはVBAエキスパートか。

見過されがちだけど、試験対策本は非常によくまとまっている。

2021/03/12(金) 17:44:33.68

買う前に周辺の図書館を回れば、vba本が見つかるかもしれない

2021/03/12(金) 19:23:46.81

金額の話なのか？

2021/03/12(金) 19:31:10.39

650頁を超える「Excel VBA逆引き辞典パーフェクト」を最初から通して読む

2021/03/12(金) 23:07:31.55

VBの、何かあの電話帳より分厚いの有るじゃん
叩かれると85ポイントくらいダメージを受けそうな感じのアレ
マジレスすると、あれで勉強したわ

2021/03/12(金) 23:38:50.44

>>894
XLookupを使いなさい

2021/03/13(土) 02:37:38.41

まじレスすると他人のおすすめの本は買っただけで満足して読まない可能性が高い

2021/03/13(土) 07:57:23.36

>>910
出来るだけ薄い奴がいいよ
少なくとも一週間で読み切れそうな奴
細かい部分は結局ググる事になるから手っ取り早く基礎だけ学べるのがいい

プログラミングの勉強は書き方を学ぶというより、
「ググる方法、ググって出てきた内容を理解できる最低限の知識」を身に着ける方に重きを置いた方がいい

2021/03/13(土) 08:14:07.47

>>910
現在の知識レベルによって薦める本は変わってくるけどなーんも知らないと言うのならVBAの絵本でいいんじゃなかろか

>>919の人も言ってるけど基本、ネットで調べることになるんでどちらかというと
自分が知りたいことを調べられる単語をすぐに思い浮かべる力と
それを理解する力の方が自分的には重要な気がする
後、理解出来なければ取り敢えず書いてみてこねくり回すことも大事

本当に基本的なことさえ分かっていれば、
その内クラスやAPI、コールバックとかにぶつかることがあってもネットで調べることが出来れば
自分が然るべき理解力をつけた際に理解出来るようになる。

2021/03/13(土) 08:17:01.13

メルカリなどでたくさん買って、好きなのを使えばいいよ。

2021/03/13(土) 11:51:20.74

>>910
VBAの神様

2021/03/13(土) 14:55:26.89

Excel VBAは自己流が多いと思うけど、体系的に学習するならマイクロソフトのVBAエキスパート本だろうな。

2021/03/13(土) 21:38:13.19

小手先のテクニックより
複雑怪奇なExcelの挙動の中身がどうなってんのか
詳細に説明してほしいわ

謎挙動がおおすぎる

2021/03/13(土) 21:57:08.91

具体的には？

2021/03/13(土) 22:05:26.89

>>924
あまり使われていないVBAの機能を使うとすぐにバグにはまる。

2021/03/13(土) 22:07:49.91

ActiveXのボタンが消えるバグなどは放置状態

2021/03/14(日) 01:08:53.96

vbの構文がダサすぎるのが嫌
綺麗に書いても汚らしく見える Dim asとかキモいんだよ

2021/03/14(日) 02:39:44.98

VBAのコードのフォントを　HGP行書体 (日本語)　とかにしてみたら？

2021/03/14(日) 03:51:24.74

ACCESSのレポートではかけたのですが
VBAで規定の先よりも細い線を書くことはできませんか？

2021/03/15(月) 06:39:33.91

コントロールのボタンが押す度徐々に小さくなったり消えたり動き回ったり
配列返す関数をUboundに渡すとメモリリークしたり、
フォームをモーダル表示中にシートをアクティブにすると何故かシートを操作できたり、
インターフェースを実装するクラス自体をインターフェースに出来てしまう上に、それをするとバグったり、
いくらでも上げられるだろ

特にフィルタ関連は変なのが多い
specialcells(xlcelltypevisible)とかcopyメソッドとか

2021/03/16(火) 14:07:15.77

作成依頼なんですがお願いできますでしょうか

A列に数字（No.)
B列に文字列（名前）の3000行ほどの表があります。
A列の数字は重複している箇所があり、
A列が他の行と重複している場合B列の文字を全て繋げてC列に書き出したいのですが可能でしょうか。

サンプル
A列　　B列　C列
11111　A子　A子
11112　B子　B子
11113　C子　C子・D子・E子
11113　D子　C子・D子・E子
11113　E子　C子・D子・E子
11114　F子　F子
11114　F子　F子
11115　E子　E子

ただし、サンプルのように
A列が重複してもB列の文字列が同じだった場合は『F子・F子』とならずに『F子』のままで、
重複しないA子、B子もそのままにしたいのです。
Aが列の数字は最大で20ほど重複している場合があります。

ずっと手作業でやってて挫けそうなんでお願いします！！

**デフォルトの名無しさん** (JP 0H8d-IMun) · 2021/03/16(火) 14:24:36.41

>>932
Sub Macro1()
　　rr = Cells(Rows.Count, 1).End(xlUp).Row
　　For i = 1 To rr
　　　　n = Cells(i, 1)
　　　　s = Cells(i, 2)
　　　　t = s & "・"
　　　　For j = 1 To i - 1
　　　　　　If Cells(j, 1) = n Then
　　　　　　　　w = Cells(j, 2)
　　　　　　　　If InStr(t, w) = 0 Then
　　　　　　　　　　t = t & w & "・"
　　　　　　　　End If
　　　　　　End If
　　　　Next
　　　　t = t & s & "・"
　　　　For j = i + 1 To rr
　　　　　　If Cells(j, 1) = n Then
　　　　　　　　w = Cells(j, 2)
　　　　　　　　If InStr(t, w) = 0 Then
　　　　　　　　　　t = t & w & "・"
　　　　　　　　End If
　　　　　　End If
　　　　Next
　　　　t = Left(t, Len(t) - 1)
　　　　t = Right(t, Len(t) - 1 - Len(s))
　　　　Cells(i, 3) = t
　　Next
End Sub

2021/03/16(火) 15:29:08.70

>>933
どひゃ～！！！！
しゅ、しゅごいぃいいい！
ありがとうございます！ありがとうございます！本当にありがとう！

2021/03/16(火) 15:59:46.67

それ、例えば百合さんと百合子さんがいた時にバグらない？
こういうのは辞書に登録してitemsプロパティをjoin関数に渡すのが鉄板だと思う

最近ならvba使わずにfilter関数とunique関数でも同じことできるから、もしかしたらこっちの方が楽かも

2021/03/16(火) 15:59:47.11

>>933
きったねえソースだなおい

2021/03/16(火) 16:01:05.39

お、きれいなソース期待かｗ

**デフォルトの名無しさん** (JP 0H8d-IMun) · 2021/03/16(火) 16:15:55.00

百合・百合子バグ修正
Sub Macro1()
　　rr = Cells(Rows.Count, 1).End(xlUp).Row
　　For r = 1 To rr
　　　　n = Cells(r, 1)
　　　　s = Cells(r, 2)
　　　　t = "・" & s & "・"
　　　　For i = 1 To r - 1
　　　　　　If Cells(i, 1) = n Then
　　　　　　　　w = Cells(i, 2)
　　　　　　　　If InStr(t, "・" & w & "・") = 0 Then
　　　　　　　　　　t = t & w & "・"
　　　　　　　　End If
　　　　　　End If
　　　　Next
　　　　t = t & s & "・"
　　　　For i = r + 1 To rr
　　　　　　If Cells(i, 1) = n Then
　　　　　　　　w = Cells(i, 2)
　　　　　　　　If InStr(t, "・" & w & "・") = 0 Then
　　　　　　　　　　t = t & w & "・"
　　　　　　　　End If
　　　　　　End If
　　　　Next
　　　　t = Left(t, Len(t) - 1)
　　　　t = Right(t, Len(t) - Len(s) - 2)
　　　　Cells(r, 3) = t
　　Next
End Sub

2021/03/16(火) 16:53:04.48

百合さんと百合・D・ルフィさんがいた時にバグる

**デフォルトの名無しさん** (JP 0H8d-IMun) · 2021/03/16(火) 17:22:11.94

百合・D・ルフィバグ修正
Sub Macro2()
　　Dim d As Object
　　Set d = CreateObject("Scripting.Dictionary")
　　rr = Cells(Rows.Count, 1).End(xlUp).Row
　　For r = 1 To rr
　　　　For i = 1 To rr
　　　　　　If Cells(i, 1) = Cells(r, 1) Then
　　　　　　　　s = Cells(i, 2)
　　　　　　　　If Not d.exists(s) Then d.Add (s), 0
　　　　　　End If
　　　　Next
　　　　Cells(r, 3) = Join(d.keys, "・")
　　　　d.RemoveAll
　　Next
End Sub

2021/03/16(火) 17:31:00.58

>>932
Ruby で、CSV ファイルでやってみた

require 'csv'

tmp_hash = { }

result_ary = CSV.read( "input.csv" ) # 2次元配列

result_ary.each do | row | # 1行ずつ処理する
if tmp_hash.has_key? row[ 0 ] # 既に、その数字が存在すれば
# 文字列が存在しない時だけ、その文字列を追加する
tmp_hash[ row[ 0 ] ][ row[ 1 ] ] = true unless
tmp_hash[ row[ 0 ] ].has_key? row[ 1 ]
else
tmp_hash[ row[ 0 ] ] = { row[ 1 ] => true }
end
end

# p tmp_hash
# {"11111"=>{"A子"=>true}, "11112"=>{"B子"=>true},
# "11113"=>{"C子"=>true, "D子"=>true, "E子"=>true},
# "11114"=>{"F子"=>true}, "11115"=>{"E子"=>true}}

result_ary.each do | row | # 1行ずつ処理する
# その行の3列目に、キーを結合した文字列を追加する
row.push tmp_hash[ row[ 0 ] ].keys.join( "・" )
end

csv_str = result_ary.map( &:to_csv ).join # 2次元配列を、CSV 文字列に変換する
print csv_str

2021/03/16(火) 17:41:01.13

何故突然にRuby？

**932** (ﾜｯﾁｮｲ a1da-xjD7) · 2021/03/16(火) 18:32:29.43

>>940
度々ありがとうございます！
最初ヤツでも今の所大丈夫そうでしたが、今後はこちらを使わせていただきます！

他の方もありがとうございます！

2021/03/16(火) 19:02:04.81

>>942
rubyスレだと相手にもされないからわざわざ違うスレに来てるかわいそうな人だよ

2021/03/16(火) 21:06:28.11

名前の例が○子とは、そうとうなジイさんだなw

**デフォルトの名無しさん** (JP 0H8d-IMun) · 2021/03/16(火) 21:12:32.28

>>945
現代だとどう書くの？
ランキングによると結が人気あるらしいから結A、結B、結Cか

2021/03/16(火) 21:15:14.58

そら「百合（ろーず）」よ

2021/03/16(火) 21:28:58.74

>>946
なんで女なのか？

**デフォルトの名無しさん** (JP 0H8d-IMun) · 2021/03/16(火) 21:42:16.30

そんなこと言ったら、なぜ日本人なのか、なぜ人類なのか

2021/03/16(火) 21:51:49.14

太郎、次郎、三郎、四郎、五郎でいいだろ。

2021/03/16(火) 21:55:45.14

なんで男なのか？

**デフォルトの名無しさん** (JP 0H8d-IMun) · 2021/03/16(火) 22:05:23.00

3000行もあるのに、それじゃ考えるのが大変だ

2021/03/16(火) 23:39:47.76

手作業でAからFカップを調べる作業にVBA使うとか
お前ら男として終わってるわマジで

2021/03/17(水) 00:14:55.79

ろーずって薔薇じゃないの？

2021/03/17(水) 00:20:54.29

そうだよ

**デフォルトの名無しさん** (JP 0H8d-IMun) · 2021/03/17(水) 00:54:57.81

わざと間違えるっていう2chから続く伝統芸
https://i.imgur.com/h4Fip2L.jpg

2021/03/17(水) 02:44:52.10

>>933
いきなりCellsで始まるのはいただけないなw
できればブックから始める習慣を付けて欲しい。

**デフォルトの名無しさん** (JP 0H8d-IMun) · 2021/03/17(水) 03:45:50.60

>>957 なおした
Option Explicit
Sub VBA69_932()
　　Dim A_number As Long, B_name As String, C_list As Object
　　Dim last_row As Long, row_loop As Long, search_loop As Long
　　Set C_list = CreateObject("Scripting.Dictionary")
　　With ThisWorkbook.ActiveSheet
　　　　last_row = .Range("A" & Rows.Count).End(xlUp).Row
　　　　For row_loop = 1 To last_row
　　　　　　C_list.RemoveAll
　　　　　　A_number = .Range("A" & row_loop)
　　　　　　For search_loop = 1 To last_row
　　　　　　　　If .Range("A" & search_loop) = A_number Then
　　　　　　　　　　B_name = .Range("B" & search_loop)
　　　　　　　　　　If Not C_list.exists(B_name) Then
　　　　　　　　　　　　C_list.Add (B_name), 0
　　　　　　　　　　End If
　　　　　　　　End If
　　　　　　Next
　　　　　　.Range("C" & row_loop) = Join(C_list.keys, "・")
　　　　Next
　　End With
End Sub

2021/03/17(水) 10:07:11.87

>>933
謎の変数名を多用するのやめてくれ。見る気が一瞬で失せる。
ネスト深くするのも罪悪感感じてくれ

2021/03/17(水) 10:20:01.36

配列でやれ

2021/03/17(水) 10:38:31.95

はい

2021/03/17(水) 10:48:27.37

れつ

2021/03/17(水) 10:49:53.05

ゴー

**デフォルトの名無しさん** (JP 0H8d-IMun) · 2021/03/17(水) 10:52:25.95

>>960 なおした
Option Explicit
Sub VBA69_932_a()
　　Dim This As Worksheet
　　Dim table() As Variant
　　Dim A_number As Long, B_name As String, C_list As Object
　　Dim last_row As Long, row_loop As Long, search_loop As Long
　　Set C_list = CreateObject("Scripting.Dictionary")
　　Set This = ThisWorkbook.ActiveSheet
　　last_row = This.Range("A" & Rows.Count).End(xlUp).Row
　　ReDim table(last_row - 1, 2)
　　table = This.Range("A1:C" & last_row)
　　For row_loop = 1 To last_row
　　　　A_number = table(row_loop, 1)
　　　　C_list.RemoveAll
　　　　For search_loop = 1 To last_row
　　　　　　If table(search_loop, 1) = A_number Then
　　　　　　　　B_name = table(search_loop, 2)
　　　　　　　　If Not C_list.exists(B_name) Then
　　　　　　　　　　C_list.Add (B_name), 0
　　　　　　　　End If
　　　　　　End If
　　　　Next
　　　　table(row_loop, 3) = Join(C_list.keys, "・")
　　Next
　　This.Range("A1:C" & last_row) = table
End Sub

2021/03/17(水) 10:59:16.82

変数にABCなんてのを使ってる時点でセンスゼロ
後で見て全くわからないバグの温床にしかならない

2021/03/17(水) 11:12:33.58

LBound UBound使えよ

**デフォルトの名無しさん** (JP 0H8d-IMun) · 2021/03/17(水) 11:56:37.23

>>965
お手本見せて
>>966
データ数は変数に入れたから改めて調べる必要ないという判断

2021/03/17(水) 12:13:35.08

クソコード

2021/03/17(水) 12:27:17.82

うんコード

2021/03/17(水) 13:20:25.46

変数名に対する識者の見解
https://mevius.5ch.net/test/read.cgi/bsoft/1608362765/253n

2021/03/17(水) 14:37:09.94

口だけで何もしない(できない)奴はスルーでいいよ

2021/03/17(水) 15:25:09.30

>>964
うーん
頭ごなしに糞というつもりはないけど
そうだね、もし改善点を挙げるとすれば・・・
まぁ聞き流して良いけどね。

・変数名は一貫性を持たせて、一見して何を意味しているのか分かるようにすること。
例えば頭の1文字が大文字だったり小文字しているのをキャメル形式に統一するとか。
・ActiveSheetは極力使わない。
キチンとした意味を持っているならそれでいいけど、フォームやツールバーから呼ばれることやそのように改修される可能性も考慮してどのシートを使うか明示的に指定する方が良い。
もちろんその際はシート名が変更されてしまうことを考慮して
シート名ではなくシートオブジェクト名を使用する。
・単一責任原則を踏襲する。
一つの関数またはメソッドに、一つの役割のみ持たせて一つの関数またはメソッドが増長になることを防ぐ。
とは言ってもこれは何を一つの役割とするかを決めるセンスが必要で、
これを上手く作れれば「糞」からひとつ脱却出来る。
後は趣味の問題だけど
・Withを使わないことに慣れる。
VBA → VB.Net → C#に移行したとき、Withが無いから慣れておくとちょっと楽。
・CreateObjectは使い所を考える。
CreateObjectはバージョンを考慮せずに済んだりする反面、
メソッドやプロパティのインテリセンスが効かなくなるため、タイプミスをし易くなるという欠点がある。
参照で繋ぐか、CreateObjectで作成するかは
一考した方が良い。

尚、本来Variant型は何でも入ってしまう危険な型なので
使わない方がいいと言いたいところだけど
EXCELのRangeオブジェクトとあまりに相性が良いから使うなとは言えない。

**デフォルトの名無しさん** (ｽﾌｯ Sda2-MBkE) · 2021/03/17(水) 16:55:51.25

ワロタ

2021/03/17(水) 19:15:40.71

メガネをクイってしながら凄い早口で言ってそう

2021/03/17(水) 19:24:46.18

>>967
940が一番何をしてるのか分かりやすい
これにシート銘柄をしっかり記述すればよいのでは？

2021/03/17(水) 19:25:19.68

銘柄w
シート名ね

2021/03/17(水) 19:38:30.30

>>964
ついでにもう一つ言っておくと、
ディクショナリやコレクションの要素数は1バイトで扱える数、つまり1から数えて256まで。
着眼点は良かったけど、3000行を考慮すると
オーバーフローで落ちる可能性があるよ。

2021/03/17(水) 19:56:32.92

>>956
ちがう
金星（まぁず）ちゃんというDQNネームがあった

2021/03/17(水) 19:57:39.75

ディクショナリは重複確認用で3000データをまるまる格納する訳じゃないだろ

2021/03/17(水) 20:01:06.73

>>977
＞ディクショナリやコレクションの要素数は1バイトで扱える数、つまり1から数えて256まで。
初耳

2021/03/17(水) 20:20:25.27

>>977
嘘を言うな

2021/03/17(水) 21:15:41.95

256ページの辞書なんて存在するの？

2021/03/17(水) 21:56:14.59

ウィンドウ上の制限

2021/03/17(水) 23:33:51.91

経験からくる誤った思い込みだろうね。

1バイト単位の区切りというのは、8ビットパソコン時代からExcelが存在していれば、可能性としてあるが、16ビットパソコンから作っているのに1バイトという制限はありえない。