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/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バイトという制限はありえない。

2021/03/17(水) 23:42:58.65

ディクショナリとかコレクションとかが、具体的に何を指してるかにもよるんだが
まあ255個とかいう制限のディクショナリやコレクションは思いつかないが

EXCELに限れば、上限255とか256とかいう制限のものは今ですらちょこちょこあるんだぜ
https://support.microsoft.com/ja-jp/office/excel-%E3%81%AE%E4%BB%95%E6%A7%98%E3%81%A8%E5%88%B6%E9%99%90-1672b34d-7043-467e-8e27-269d656771c3#ID0EBABAAA=%E6%96%B0%E3%81%97%E3%81%84%E3%83%90%E3%83%BC%E3%82%B8%E3%83%A7%E3%83%B3

2021/03/18(木) 00:01:49.93

>>985
論点ずらしだな。単純に初期のExcelの時代だとメモリ節約で1バイトにしただけで、足りないと判断されたものは、のちに2バイト、4バイト単位に変更されている。

2021/03/18(木) 00:28:15.06

改善点とか言って挙げてる内容は偏ってて微妙だし知識も無いのに態度だけ上からだし昔の人はすごいなぁ

2021/03/18(木) 02:36:30.62

>>985
例えば列の幅が255文字なのは別に１バイトで管理してるわけじゃなくて上限を設定してるだけだろ
そう言うのはExcelに限った話じゃないよ

**941** (ﾜｯﾁｮｲ 692c-6NWR) · 2021/03/18(木) 13:11:04.06

>>941
11111,A子
11112,B子

Ruby で、こういうCSV ファイルを処理した場合、
辞書は、こうなる。
値のtrue に意味はない

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

F子は、重複しない

**941** (ﾜｯﾁｮｲ 692c-6NWR) · 2021/03/18(木) 13:17:05.45

ただし、このファイルを、1パスでは処理できない

11113,C子
11113,D子
11113,E子

"11113"=>{"C子"=>true, "D子"=>true, "E子"=>true},

C子を読み込んだ時点で、その行よりも後ろにある、
D子・E子の情報を取得できないから

だから、>>941
では、データ配列を2回読んでいる

2021/03/18(木) 13:36:31.16

>>964
64bit版の時はlonglongで宣言するようにしないとエラーになる可能性があるよ

2021/03/18(木) 14:11:19.12

>>991
3,000行ぐらいなのに？

2021/03/18(木) 14:55:42.20

そんな考えならプログラミングやめたほうが良いんじゃない

2021/03/18(木) 15:38:13.36

何でもかんでもLongLong使うのが正解だとでも思ってるの？

2021/03/18(木) 15:58:28.07

>>993 はデタラメを言っているな。妄想なのかな。

2021/03/18(木) 16:01:58.30

他の言語や環境の仕様とごっちゃになってるんだろうな。

Excel VBAで32ビットと64ビットで、よく使われるデータ型に大きい違いがあるなんて聞いたことがない。

2021/03/18(木) 17:13:11.58

LongLong は 64bit 環境でないとサポートされないとか LongPtr のビットサイズやバリアント型の文字列の付加サイズが 32bit と 64bit 環境で違うとかはあるけどまあ些細といえば些細な話だわな
そもそも現状最大行数が Long 型で扱えるのに >>991 が何を心配してるのか興味ある

2021/03/18(木) 17:39:14.84

64ビットというのも何の組み合わせを言っているのかもわからない。

それにしてもここはマイクロソフトのサポートの人がいないか？

この中途半端さが日本マイクロソフト風なんだが。

2021/03/18(木) 18:16:57.50

サポートの人が256個なんて言わないだろ

2021/03/18(木) 19:19:46.38

組み合わせ？
単に64bit Excelかどうかだけじゃね？

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 95日 18時間 57分 23秒