Excel VBA 質問スレ Part77

**デフォルトの名無しさん** (TW 0H42-j7SA) · 2022/07/17(日) 07:07:35.59

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

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

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

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

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

2022/08/10(水) 19:06:30.56

スマホからこんだけ入力するのは感心するわ

2022/08/10(水) 19:40:10.67

>>310
ありがとうー！！
後半のC1:N0あたりの動きが読み取るのがちょっと難しいですが、
別シートに単純に一度書き写していって最後に読み戻すってのは目から鱗です
確かにそっちの方が問題なくできるかもしれないです
試してみます！

2022/08/10(水) 20:46:14.74

>>312
> 後半のC1:N0あたりの動きが読み取るのがちょっと難しいですが、
If C0 <> C1 Then
で、コードが変わった事を検出して変わったら

S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)
R2 = R2 + 1
で、差分を追加して

C0 = C1: N0 = 0: N1 = 0
で、新しいコードを覚える共に合計値を初期化してる

2022/08/10(水) 20:48:55.75

こんなことがわからない奴が金計算をVBAでするなんて

2022/08/10(水) 20:57:23.40

テキストファイルからキーワードが含まれてる行をセルに書き込みたいです
キーワードが８個あります
行＝Ｂを「商品」か「価格」を""に置換して
元のＢと違ってたら書き込むようにしたんですが
もっと簡素な方法ありませんか？

Open A For Input As #1'Aはテキストファイルのフルパス
Do Until EOF(1)
Line Input #1, B '1行分だけ読み込み
If B <> Replace(B, "商品", "") Then
i = i + 1
Cells(i, 1) = B 'セルへ入力
Else
If B <> Replace(B, "価格", "") Then
i = i + 1
Cells(i, 1) = B 'セルへ入力
End If
End If
Loop
Close

2022/08/10(水) 21:00:16.39

なんで商品と価格のReplaceを分けるのか

2022/08/10(水) 21:07:20.86

>>315
InStrは嫌いなの？

2022/08/10(水) 21:43:46.56

>>313
ありがとうございます、
勉強中なので質問なんですが、
C1:N0 ＝0:N1=0の中の:ってどういう意味なんでしょうか？

2022/08/10(水) 22:04:25.44

突っ込みどころ満載の質問久しぶりね

2022/08/10(水) 22:24:43.27

>>315
> キーワードが８個あります
これはどうなったの？
単に複数のキーワードが含まれてるかを見たいだけなら
Line Input #1, B '1行分だけ読み込み
Dim K As Variant
For Each K In Split("商品,価格", ",")
If B Like "*" & K & "*" Then
Cells(i, 1).Value = B
i = i + 1
Exit For
End If
Next

2022/08/10(水) 22:31:30.17

>>315
どんなやり方でもいいと思うけどキーワードを含むかどうかを関数にするといいんじゃない
Function CheckKeyword(ByVal pValue As String) As Boolean
CheckKeyword = True
If pValue <> Replace(pValue, "商品", "") Then
Exit Function
End If
If pValue <> Replace(pValue, "価格", "") Then
Exit Function
End If
残りのキーワードも同様に判定
CheckKeyword = False
End Function
これを使えば
i = i + 1
Cells(i, 1) = B 'セルへ入力
の部分は1つでいいよね

2022/08/10(水) 23:03:22.07

>>318
VBA マルチステートメント
でググってくれ

2022/08/10(水) 23:23:06.57

>>318
改行みたいなもん。たとえば
N0 = 0
N1 = 0
という複数行のコードを1行にまとめることができる
N0 = 0: N1 = 0
だけど、やらない方がいいと言われている

2022/08/11(木) 19:50:59.53

変数宣言と同時に初期化する用途に限って俺は許容してるな
それよりif文を1行で閉じる奴が凶悪
ネストするとEnd ifの数が合わなくなる

2022/08/11(木) 20:39:49.16

>>324
変数宣言と一緒に初期値設定する人はよく見かけるしアリだと思う。
同様に実は特殊な場合に限りIf文を一行で記載することもある。
本来構造化言語で使わない方が良いとされているGoto文も特殊な場合に限り使うこともある。

VBAは結構何でもありの言語だからその辺、仕事場のコーディングルールや
作ってる人のマイルールによって随分違いが出てくる。

一概にどんな方法をとることが最善とは言えないから人の書いたソース見てると面白い。

**デフォルトの名無しさん** (ｽﾌｯ Sd33-woMg) · 2022/08/11(木) 20:49:36.22

Ifの中身が1行だけの時に全体を1行で書くのはマルチステートメントとは違うくない？
If a = 0 Then b =0
あくまでコロンでつなぐ場合のことでしょ

**310** (ﾜｯﾁｮｲ 1301-lJ3c) · 2022/08/11(木) 21:33:22.70

俺も本来はマルチステートメントは使わないけど、5chのレスは行数制限あるからマルチステートメントにしてるだけ
そもそもこの手の話は好みもあってどっちが正しいとかはないからそろそろやめようよ

2022/08/11(木) 22:00:47.13

そもそもダメだとか誰が言っているのだろうか。。

2022/08/11(木) 22:06:50.77

○○ならアリって言ってるってことはそれ以外はナシって受け取る人もいるだろ
提供されたコードをそのまま使うだけしかできないならそれだけの話だし
自分のルールに従って直せばいいだけの話で人のコードにケチ付ける必要なんてないだろ

**310** (ﾜｯﾁｮｲ 1301-lJ3c) · 2022/08/11(木) 22:15:21.71

>>328
> だけど、やらない方がいいと言われている
みたいな意見があるから

2022/08/12(金) 00:11:05.61

コーディングルールなんて宗教みたいなもんだけど、一応マルチステートメントは推奨されないという意見のが多数
リーダブルコードにも書いてあるし、MS公式も推奨しないと言ってる
https://docs.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/language-features/statements

明確に禁止したがってる人は肌感覚でもっと少数派だけどね

2022/08/12(金) 00:24:13.41

どうせ仕事でVBA作ってる質問者なんて少ないやろ

**310** (ｱｳｱｳｳｰ Sa55-lJ3c) · 2022/08/12(金) 05:00:53.71

>>331
おっちゃんそれVBAじゃなくてVB.NETのドキュメントやで

2022/08/12(金) 05:44:37.34

Van.Netなら変数宣言と同時に初期値設定出来るから
引き合いに出すのもお門違いだな

2022/08/12(金) 06:23:06.84

>>334
van.netなどない、このハゲ！

2022/08/12(金) 08:48:11.58

中のVBAのコードだけGitに上げることってできるの？
めんどいコマンドとか外部サービス使わずに
そもVBEからコミットとかプルリクとかやりたい

2022/08/12(金) 09:02:48.49

>>335
すまん、VB.Netの間違いだった
しかし俺は禿げてはいない。頭頂点しかな！！

2022/08/12(金) 09:16:28.60

>>336
まあコードをエクスポートしたものを載っけておくくらいかな。
Bisual Sutadioみたいにエデイタ上から設定するのは無理だと思った。

て言うかコードだけ取っておいてもexcelのVBAの場合はexcelそのものに影響されるところも多いから
excelごと取っておいてソースを比較したいときだけ何かのツールでソースの比較を行った方がいいと思う。

2022/08/12(金) 12:38:04.21

Bisual Sutadio

2022/08/12(金) 12:52:14.02

>>336
今のVBAでGitは見たことないけど
昔VSSで管理するアドインがあったから、アドイン作ればできるんじゃね

>>338
マクロ入ってるエクセルはどうか知らんが、今のエクセルってXMLをzipで固めただけのはずだから
Zip解答してソース管理に突っ込む手もあるかもしれん
つかお前の誤字はわざとかこのハゲ

2022/08/12(金) 16:32:51.36

お前ら禿好きだな

2022/08/12(金) 16:38:58.11

↑この人ハーゲマンです

2022/08/12(金) 17:59:10.79

いきなし禿げたんよ。
去年の夏位まではふさふさだった

2022/08/12(金) 20:16:41.08

それはコロナだから治療行けよ。

2022/08/12(金) 21:06:52.17

Dim Eight As Typhoon
Set Eight As Typhoon

Debug.Print Eight.HPa

2022/08/12(金) 21:35:36.13

質問です
エクセルでvba書くとハゲるというのは本当ですか？
それともハゲじゃないとまともなコードにならないということでしょうか？

2022/08/13(土) 00:36:53.33

>>345
Set Eight = New Typhoon

2022/08/13(土) 00:54:21.19

Print Eight.Name
Mary

2022/08/13(土) 07:49:57.82

>>346
ハゲる→外に出られなくなる→VBAしか無い人生に陥る

2022/08/13(土) 18:00:34.01

禿が気になるなら頭ツルッツルにするという構想は無いのかね？

**デフォルトの名無しさん** (ｽﾌｯ Sd62-6z5t) · 2022/08/13(土) 18:44:02.54

Dim Hair As Object
Set Hair = Nothing

2022/08/13(土) 21:29:48.82

>>351
座布団100枚

2022/08/13(土) 22:55:44.03

>>346
こら！良い大人ならスキンヘッドと言いなさい！

2022/08/14(日) 09:47:43.88

スキンヘッドが似合う顔ならスキンヘッドにしてるんですよ・・・

2022/08/14(日) 11:14:09.47

ezoe職務質問されたってよ

2022/08/14(日) 13:17:19.86

>>355
QZ は逮捕・拘留11日を食らったってよ

2022/08/14(日) 16:16:37.77

スキンヘッドは
メガネがポイントだと思う。
閑話休題。

次の話者に期待

2022/08/14(日) 16:36:03.46

皮頭よりはハゲと言われたほうが人権を尊重してるだろ

2022/08/14(日) 19:46:54.17

＞＞349
→VBAの質問スレに書きこむようになる

2022/08/14(日) 23:12:05.82

きみたちハーゲマンに質問なのですが
VBAの配列でJavascriptのようにpushやpopを使いたいときってどうしてます？
わざわざredim使って要素数を変えるのはそれが頻繁になるときは使いづらいなと思うし。

2022/08/14(日) 23:52:33.60

>>360
最初の配列はそのままで添え字を管理

2022/08/15(月) 00:13:18.77

ツルピカかつ、不精ヒゲだから女さんなんて絶対に寄り付かない。

**310** (ﾜｯﾁｮｲ 4201-8lLW) · 2022/08/15(月) 05:37:50.20

>>360
VBA で残念に思う所の一つやね
サイズの上限が決められるならその上限で確保してサイズは別途管理
上限が決められない時はReDimでちまちま管理してる
あとReDimでサイズを0にできないのも地味に辛い

2022/08/15(月) 06:56:28.24

>>361
>>363
レスありがとう、ハーゲマンたち。
じゃあしかたないんですね。
でもVBAでもpush, pop, shift, unshiftが使える配列のようなものをVBAのクラスかなにかを使って再現することは可能だろうか？

2022/08/15(月) 07:26:27.37

>>364
可能、だが○○の機能がないから作れないではなく
目的の動作をするように作るんじゃね
質問が本末転倒している

2022/08/15(月) 08:25:48.51

>>364
他の言語でもスタックやキューは長さの決まった配列だよ
そこへオブジェクトを出し入れするときに端のポインタを動かすだけ
長さが足りなくなったら長さ2倍の配列を新しく定義してそっちへオブジェクトを引っ越し、オブジェクトの数が長さの25%を下回るようになったら長さ半分の配列を作り直してそっちへ引っ越し

**310** (ﾜｯﾁｮｲ 4201-8lLW) · 2022/08/15(月) 08:28:07.85

>>364
pushpush, pop だけだけど実装例
https://kazusa-pg.com/vba-stack/

2022/08/15(月) 12:57:14.28

EXCELのシートが配列みたいなもんだし

**310** (ﾜｯﾁｮｲ 4201-8lLW) · 2022/08/15(月) 13:34:09.14

>>366
それは実装による
リストで実装してる奴もあるし

2022/08/15(月) 16:10:48.09

VB(A)の配列でpopが必要になる場面ってあんまないなあ
不要になったらemptyぶちこむだけだし

2022/08/15(月) 18:21:13.35

時間データ
>>364
他言語はよー知らんけどdictionaryじゃあかんの？

2022/08/15(月) 18:23:08.68

>>371
ああスマン。なんかへんな一言張り付いた。

2022/08/15(月) 19:15:38.92

Dictionaryでいいと思う。
キーに連番、スタックポインタ代わりに変数一個用意してやって、使い終わったらremove で消して。

2022/08/15(月) 19:36:11.84

やり方は色々あるのにVBAが使いにくいとか言い出す初心者ｗ

2022/08/15(月) 19:39:31.51

だがしかしVBAにDictionaryはないのだよ

WSHはいつまでサポートされるかなぁ
VBAより短い気がしてきた

まあ俺ならどうしてもキューかスタックほしいなら、.NET Frameworkのやつ使うかな

2022/08/15(月) 19:54:05.83

だからVBA使うのやめなよ

2022/08/15(月) 20:17:32.58

VBAでDictionary使えるでしょ

2022/08/15(月) 20:25:53.14

ああ、なるほど。いつ使えなくなるとも知れないとなれば先々を考えて使わないほうがいいかもね。たしかに使い方も特殊だし。>dictionary

まぁ、それなら捨てsheet作って貼り付けるかな。2次元までなら。
そのかわり処理速度は格段に落ちる可能性はあるけど、待ってりゃいいならそれもアリか。

2022/08/15(月) 20:28:32.11

それって findfirst/findnext 一発で済む問題なのでは？いちいちマクロで書くのもウザったいですよね‥‥

2022/08/15(月) 20:41:37.63

使いにくいとか面倒とか愚痴るくらいならEXCEL使うのやめればいいのに

2022/08/15(月) 21:05:11.95

>>371
Dictionaryはとおの昔から使っておったのじゃよ。
しかし使い続けているうちにふと頭をさわるとなんとハゲてしまったのじゃ。
それは困ると思ってDictionaryに変わるいい方法を探求しておるのじゃ。

2022/08/15(月) 21:40:01.71

>>381
なんだ、ただふざけてるだけか。。。

2022/08/15(月) 22:39:37.83

そんなハゲ頭に免じてArrayListを進ぜよう

2022/08/15(月) 22:52:26.96

DictionaryがイヤならCollection使えばいいと思うけど。
まぁ別に普通に配列でもいいんだけどさ。
多少凝った作りにしたって関数化しとけばいい訳だし。

2022/08/16(火) 04:43:22.32

>>384
流石に無知すぎるから少し黙った方がいいよ

**310** (ﾜｯﾁｮｲ 4201-8lLW) · 2022/08/16(火) 05:59:23.35

Collection に Exists メソッドがあれば...

2022/08/16(火) 11:11:29.27

何作ってんだよ

2022/08/16(火) 12:23:01.42

>>385
そうだね
よく分かりもしないで無知とか決めつける無知は
すっこんでればいいよね

2022/08/16(火) 16:58:27.92

あまりマウントの取り合いは止めようぜ
意見交換の場なんだから

2022/08/16(火) 17:40:43.11

どちらかというとけなし合いだな

2022/08/16(火) 18:00:08.72

ここにいると神になった気分になるな
お前らの見苦しさに対してもなんだか優しくなれそう

2022/08/16(火) 18:20:47.96

昔は違ったんよ
いつからか荒れやすいスレになった

2022/08/16(火) 20:19:48.02

>>382
ふざけてるつもりは毛頭ございませぬ。
でもこれからもハーゲマンの名に恥じぬようVBAを探求していきたいです。

2022/08/16(火) 20:50:53.76

毛という毛全部剃っちゃえ！

2022/08/16(火) 21:16:40.24

>>394
アホ。
そしたらハゲてまうやんけ。

2022/08/16(火) 21:54:28.52

え？
別にいいじゃん、アンタ元から禿なんだから。

2022/08/17(水) 01:45:03.16

ソルのはムダ毛だけにしとけ

2022/08/17(水) 01:57:01.99

頭髪は生えないのに髭は生える

2022/08/17(水) 04:59:55.38

>>396
コラ、われわれハゲ族は、
励まし合って生きていかねばならぬ。
ハゲ増し合うことはするな。

2022/08/17(水) 07:35:41.89

頭髪はハゲても、耳毛は濃くなる

2022/08/17(水) 11:39:32.10

禿ではないのだけど、40歳にして髪は真っ白よ。

2022/08/17(水) 12:34:16.41

好きな色に染めようぜ

2022/08/17(水) 12:58:33.86

Excelらしく緑だな

2022/08/18(木) 12:18:45.39

なんという体たらく
もうハゲはこのスレ出入り禁止でいいな

2022/08/18(木) 13:11:18.15

2つの表があって、表Aと表Bとして
表の作りは二つとも同じで、
コードと数字を持ってます。
二つの表のコードが一致してる場合は

コード　　A B
101 50 60
102 40 100
103 30
104 50

といった感じで片方にしか存在しない場合は片方だけの行を追加して行くってvbaを作りたいんですが、何かいい案はありますか？
AとBの表で数字の比較をしたいです
for nextでやろうとしてますがうまくいいやり方が見つからずです

2022/08/18(木) 13:24:26.87

まずVBAを忘れます
SQLで FULL OUTER JOIN します
(ﾟдﾟ)

2022/08/18(木) 14:31:25.04

>>405
テーブルのリレーションシップを設定したらいいんじゃないかな

2022/08/18(木) 14:35:35.98

例えば以下の様なデータがあるとします

開始～終了：消費量
1月1日 0時～1月1日16時：500
1月1日16時～1月2日10時：1000
1月2日10時～1月5日 0時：800
1月5日 0時～1月5日0時：300
1月5日0時～1月6日0時：2500
1月6日0時～1月7日12時：1200

このように時間の区切りがバラバラ(かつ日跨ぎや0分間もある)のデータに対して、1月1日、2日、3日にそれぞれ合計いくらかを出したいです
なお、例えば20時～翌6時で1000の様な場合は4h:6h=400:600として計上したいです

どう計算するか方針すら思い浮かばないのですが何かアイディアありましたら教えてください

2022/08/18(木) 15:01:03.74

vlookupでできない？
普通にforループでも難しいことなさそうだけど、どんなコード書いたの？

2022/08/18(木) 15:04:36.75

>>409は>>405へのレスね