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/19(金) 13:14:47.90

まず髪の毛緑に染めてこい

2022/08/19(金) 13:37:04.21

質問する側がおかしいと（どういう結果にしたいかが不明の場合）回答する気も失せるよね上下一致と言われたら
A
B
C
D
ならBを基準にA＝BかつB=Cって自分はするんだが違うんだろ？

2022/08/19(金) 16:42:31.05

重複除去したいって解釈してた

2022/08/19(金) 17:14:26.61

>>423
最終的に欲しい形を書け

エクセルの機能に重複データの除去ってあるのはしってるのか？

2022/08/19(金) 19:41:03.51

知らないのでわ？

2022/08/19(金) 19:54:20.05

足しこむとか転記とか何がしたいか意味不明なんだよね
単純にいま記載されている列の値について
１．同じ値が続く場合は最初の一つだけ残す
２．ただし途中にある空白は無視する（１、空白、１は同じ値が続いてるとする）
３．最終的に残した値で詰める　または　残した値は別の列なりシートなりに転記する
みたいな事をやりたいのか質問見ただけではわからんのよね
この場合なら検索する行とセットする行を用意すれば簡単にできる話なんだけどね
仕事もそうなんだけど説明が下手な人ってやっぱり仕事もできない人が多い

2022/08/19(金) 20:23:56.98

足し込むというのが加算という意味であれば必然的に数値ということになるけど、、、

上の行と同じ数値なら足し算する＝2倍するってことか?
それとも上と下の行が同じ数値なら現在行と上下の３行の和にするってことか?

なんかいろんな解釈ができる要望なんよね。。。

2022/08/19(金) 22:10:12.43

まぁ重複したデータを足し込むのか削除するのかはさした問題ではない。
ディクショナリやコレクションに元にあった値をキーにして
まずキーと同じ値をキーに該当する値として設定して、
同じキーが次回来たときに無視するか足し込むかすればいいだけの話だからな
最後にそれをシートに展開すればいいだけの話。
そうしとけば足し込もうが重複削除だろうが簡単に対応出来る。
SQLを知っているならSQLでやってもいい。

問題は同じ値が飛び石で来る可能性があるのかということ。
例えば101、101、102、101の順序で来ることがあるのか？
この場合、要件としては「上下で一致しているものだけ足し込む」ということなので上の例で言えば202、102、101と設定されるのが正ということになる。
これは上記した方法でやるのはかえってまどろっこしい。
そうしたら上から舐めてコレクションに値を格納、前回の行と次の行の頭が同じなら無視するか足し込むかすればいいし、値が違うならそのままコレクションに追加すればいい。
最後にそれをシートに展開する。

このように同じ数値が飛び石で来るかで作りがガラッと変わってしまう。せめてそこだけでもハッキリさせてくれれば。

2022/08/20(土) 00:10:31.82

もう終わった話なんだと思うけど正直質問する人はこういうデータをいじりたいという事は伝えても
結果としてこういうものが欲しいっていう事を伝える人が少ないんだよね
だからいろんな解釈ができるからその辺もちゃんと情報を伝えてほしいわ

2022/08/21(日) 19:54:19.68

そういうの含めて個人の能力

2022/08/24(水) 18:51:09.99

Unique関数の引数って二次元配列じゃないとだめなの？

2022/08/24(水) 19:20:17.01

Range型を渡すんじゃダメなの？

2022/08/24(水) 20:13:49.71

実際に試してみれば答えが出ると思うのだが

2022/08/24(水) 22:08:51.37

マニュアル読め

2022/08/24(水) 22:19:47.85

MSヘルプですね～

2022/08/28(日) 22:27:57.16

excel2019
win10

設定シートに各項目を入力させたらそれに応じて別シートに計算結果を入力させるVBAを書いてる途中なのですが、
VBAソースを書いてる途中に設定シートにこんな数値も持たせたい、
入力画面のレイアウトをあれこれ変えたいと行や列の挿入をしたくなってしまうのですが
そうするとVBAソースの方がずれたままになってしまうのですが、シートに挿入をしたら
それにともなって既にかけている部分だけでもソースコードのcellsやrangeの値が更新されてくれたりしないでしょうか？

2022/08/28(日) 22:36:45.40

>>445
参照先は自動更新されない
セルに名前を付けてその名前で参照すればよい

2022/08/28(日) 22:37:28.82

名前付きセル範囲
https://thom.hateblo.jp/entry/2016/07/08/001933

2022/08/29(月) 20:34:19.97

おまいらが毛がどうのこうので喜ぶがらマジで頭ツルッツルにしてきたぞ

**デフォルトの名無しさん** (ｽﾌｯ Sd22-2Ehw) · 2022/08/29(月) 22:48:42.98

>>445
コレクションに格納するのが攻守最強

2022/08/31(水) 02:50:20.75

>>449
そのコレクションの中身はどうやって保守するのかね？

2022/08/31(水) 19:22:22.41

>>448
ツルツルがいいのは下の毛です

2022/08/31(水) 22:52:05.08

>>451
お、おうw
しかし真夏にはツルッツルもなかなか良いわ涼しい

2022/09/01(木) 03:46:18.56

win10
excel2019

Sub y()
Dim st As Range
Set st = Worksheets("参加者").Range("A1:BA80").Find(What:="氏名")
If st is Nothing Then
else
Debug.Print st.Row
end if
End Sub
これをすると"氏名"文字列に一致したセルがrangeオブジェクトで貰えますけど
本当に欲しいのは氏名のx個下のrangeオブジェクトなのです。
氏名のセルと参加者の開始セルの相対位置は固定的です。
氏名はいろいろな名前があるのでマッチングしづらいので氏名で位置を探って取り込んでいます。

rowやcolumnくらいしか使いませんけど、すっきり感としては本当に欲しいのは氏名の開始セルのrangeオブジェクトなのです。

返り値のrangeオブジェクトをずらすということはできますでしょうか？

**453** (ﾜｯﾁｮｲ 4666-JjaS) · 2022/09/01(木) 03:53:25.83

Set st = Worksheets("参加者").Range("A1:BA80").Find(What:="氏名").offset(1,1)
こんな感じで解決しました。
動いてるのはまぐれでしょうか？

2022/09/01(木) 06:49:22.79

>>453
何やってるかわからんままコピペして動かしてる感をヒシヒシと感じるので
Rangeオブジェクト
Findメソッド
Offsetプロパティ
について理解できるまで解説サイト読んでください

あと、>>445についても回答付いてるんだからなんかリアクションしてください

2022/09/01(木) 09:42:20.83

451
おまわりさんこいつです

2022/09/01(木) 10:01:37.99

VIO脱毛する人が増えてる

2022/09/01(木) 10:51:28.10

>>455
何度か書き込もうとしたんですけど、書き込みエラーになってしまっていました。
なんだかレスアンカーが不正とか出てきてたのでわからなくなりました。
レスアンカーをつけちゃいけないみたいな制約？

>>445に回答いただいた方ありがとうございました。
これも書き込めないかもしれませんが。

RangeオブジェクトのOffsetメソッド？は結合セルがやっかいなのですね。
結合セルでない時のエラー処理を加えると結局コードが汚くなっていくジレンマでした。

オブジェクト型がなかなか理解できません。
dim wf as object
set wf = worksheetfunction
とやってもwf.でエクセル関数を使えるようになるわけではないみたいですし。

ありがとうございました。

2022/09/01(木) 11:00:01.20

Function wf() As WorksheetFunction
Set wf() = WorksheetFunction
End Function
こっちで呼び出し短縮は出来ました。初めて使いましたfunction

2022/09/01(木) 14:07:42.09

名前付きセル範囲を使うためにnamesコレクションを理解しようとしてるのですが、
activeworkbook.namesをfor eachに入れると現在は1個しか出て来なくて
値が
=#NAME?
こんなのです。エクセルの方から名前の管理を開いてもこの名前は出てきませんし、何も出てきません。
何なのでしょうか？この値は？
なにも設定されてない時の値かと思ってワークシートのあるセルに名前の設定をしみたのですが、
やはりこの値は残ったままでした。
RefersToでもvalueと同じく
=#NAME?

**460** (ﾜｯﾁｮｲ 4666-JjaS) · 2022/09/01(木) 14:14:01.95

わからないまま、vbaから非表示を表示させるコードをコピペして削除しておきました。
こんな名前作った覚えはないですが

2022/09/01(木) 14:38:52.05

そっか、うんうん、非表示を表示ね、良かったね

はい次の方

2022/09/01(木) 15:07:23.09

ニートならロン毛にしろよ

2022/09/01(木) 19:17:21.60

Range型と配列の違いが後一歩わからないのですが、
Sheet1にA1=10,A2=20,A3=30,B1=40,B2=50,B3=60....みたいにしてar(2,2)と近い感じにしてます。
Sub Sample1()
Dim ar(2, 2) As Variant
ar(0, 0) = 10
ar(1, 0) = 20
ar(2, 0) = 30
ar(0, 1) = 40
ar(1, 1) = 50
ar(2, 1) = 60
ar(0, 2) = 70
ar(1, 2) = 80
ar(2, 2) = 90
Debug.Print TypeName(ar)
Debug.Print TypeName(Worksheets("Sheet1").Range("A1:C3"))
End Sub
arはvariant型の配列でWorksheets("Sheet1").Range("A1:C3")はrange型のオブジェクトになるんですよね。

感覚的にはどちらも配列を渡している気分なのですが、セル範囲参照のrangeだからrange型オブジェクトになるってだけですか？

2022/09/01(木) 19:18:06.47

馬鹿過ぎてやばい奴が来てる

**464** (ﾜｯﾁｮｲ 4666-JjaS) · 2022/09/01(木) 19:23:31.46

for each のinの後に配列をおいても、range型オブジェクトをおいても
同じように中身を取り出してくれるから混乱してしまったのかもしれません。

2022/09/01(木) 19:28:08.64

もし Dim ar(2, 2, 2) As Variant なら3次元の配列としか言いようがない

2022/09/01(木) 20:43:50.82

本人は切実なんだろうけどイマイチ何を理解しようとしているのかが汲み取れない。

とりあえず、シートは二次元配列みたいなものと思えばいいんじゃないかなぁ。
バリアント型の変数に範囲指定したrangeを代入したら配列が出来上がるんだから。。。

って、こういうの説明するのって余計に混乱させそうで怖いのよね。

2022/09/01(木) 22:31:39.49

なんでそんな事やっているんだろう。。？？

2022/09/01(木) 23:45:17.73

Rangeオブジェクトと配列、全く異質のものなのに同じ代入インターフェースがつかえるのが不思議なのでしょう
女学生は貧困で給食費すら払えないのに上級国民は交通費で200万円貰えるのですから

2022/09/02(金) 00:10:13.04

>>464
配列には数字しか入っていませんが、
Ｒａｎｇｅオブジェクトには数字以外に色や罫線やハイパーリンクなど色々な情報が入っています。というかワークシートのセルそのもの（オブジェクト）です。

2022/09/02(金) 03:22:55.43

>>464
オブジェクトにはデフォルトプロパティというのがあってな
オブジェクトを参照してるつもりでも、実はそのデフォルトプロパティを参照してるんだよ

Worksheets("Sheet1").Range("A1:C3")はRange型だが、
そのデフォルトプロパティは２次元配列なのだよ

2022/09/02(金) 06:34:36.12

ttps://www.tipsfound.com/vba/18014

このコードでcsvファイルをエクセルの指定のシートに取り込めますか？

2022/09/02(金) 07:13:47.06

>>473
やってみて聞いてるの？自分でやるのが面倒臭いからとりあえず聞いてるだけ？

2022/09/02(金) 07:18:17.22

最近のレベル低下には目を見張るものがあるな

2022/09/02(金) 07:25:48.67

総合相談所で総スカンされた馬鹿だろ

2022/09/02(金) 11:01:00.75

いや、そもそも何でそんな事やりたいのか？？
という質問自体がさ

2022/09/02(金) 12:33:00.40

よそのサイトなんだから作った奴にきけばいいのにと思う今日この頃

2022/09/02(金) 14:51:15.82

ど正論出ました
終了

2022/09/03(土) 10:31:26.76

>>476
あれ総スカンだったんですか？
外部データの取り込みでcドライブのファイルを取り込んでいるのに

そのエクセルのファイルを他の人にコピーして渡したら同じ場所にファイルを配置しているのにファイルが読み込めないって聞いただけなのに笑

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-k3HK) · 2022/09/03(土) 12:58:16.39

あっちでも総スカンだしここでも総スカンなんだからもういいでしょ
レベル低いよあんた

2022/09/03(土) 14:11:09.43

しつこい馬鹿

2022/09/04(日) 02:41:16.33

向こうの総合相談スレはこのスレと違って厳しい人ばかりだからな。

2022/09/04(日) 17:26:08.83

>>483
VBAのスレよりも質問スレは厳しい人ばかりなんですね

2022/09/04(日) 21:22:49.28

少しでも的外れな質問したら総スカンだからな。
初級者だろうが容赦ないのが向こう。

2022/09/04(日) 22:38:27.70

replace関数でワイルドカードを使用してるのですが、
うまく置換していくれないのでなぜですか？

やりたいこと　A1セルのKKK1111というデータを2222に変換したい
replace（"A1","*" & "K"& "*","2222" )

2022/09/04(日) 22:59:56.29

REPLACE(文字列, 開始位置, 文字数, 置換文字列)

2022/09/04(日) 23:39:15.09

優しいなみんな
総合スレだったらフルボッコ

2022/09/05(月) 18:43:28.63

初心者あるあるなんだろうか

2022/09/05(月) 22:48:54.81

ありがとうございました。
ユーザー定義型と連想配列を知って少し前進しました。

検索掛けてもなかなかでないので教えてください。
dim i
for i....
使い終わったらiを未定義に戻したいんですが、
宣言の反対？になるような未定義に戻す関数？ステートメント？はありませんか？

2022/09/05(月) 23:44:13.97

無いし気にする必要もない

2022/09/06(火) 02:21:14.99

>>490
ちなみに戻したい理由は何？

2022/09/06(火) 03:38:48.46

馬鹿に理由を問う虚しさ

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-k3HK) · 2022/09/06(火) 05:21:21.45

変数は使い捨てだよVBAの場合

2022/09/06(火) 06:55:14.80

プロシージャ内で宣言した変数ならプロシージャを抜ければクリアされるしマクロ全体が終了すれば全てクリアされるからあまり気にしない。
privateやpublicで宣言したオブジェクトなら明示的にnothingをsetすることはあるけど、イマドキのPCでメモリ解放もあまり気にする必要はない気もする。
エラーで止まったときを考えると念の為しておくくらいかなぁ。

**490** (ﾜｯﾁｮｲ bf66-bBdM) · 2022/09/06(火) 09:27:26.00

初心者なのでプロシージャ内で処理の順番を変えたくなる時があります。
使う直前に宣言したいのでプロシージャの初めに宣言は出来ればしたくありません。
コピペでソースコードを入れ替えて処理の順番を変えるとforが1回目とfor2回目が入れ替わってしまう事があります。
だから毎度forを使う前は、foreacheもそうですが、宣言が必要かをプロシージャ内を戻って探します。
forが終わるたびに未定義に出来ればいいなと思ったのは使い終わった変数名が後からかぶっても
使い終わった時点で未定義に戻しておけばエラーも不具合も出ないからです。
他の言語だとあるのであるかなと思ったのです。

2022/09/06(火) 10:03:36.29

はい、わかりました

2022/09/06(火) 10:56:34.50

>>496
＞他の言語だとある
これ本当？

2022/09/06(火) 11:47:55.76

馬鹿ではなく糖質かな

2022/09/06(火) 11:53:04.38

会社のパソコンでvbsからエクセルvbaを起動させメール本文、添付ファイルを作成し添付、outlookでメール送信をしたいのですがOutlookが起動しません。
エクセルから手動でvbaを起動すると正常に動作するのですが、vbsから起動するとタスクバーのエクセルが点滅し停止します。
特にエラーを吐いている様子はありません。

何か思いあたる部分があればご教示ください

2022/09/06(火) 12:06:14.05

漏れの推測だけど、

>タスクバーのエクセルが点滅し
これは、バックグランドで起動しているのでは？

それで、エクセル内のマクロなどが起動しないとか？

2022/09/06(火) 12:18:01.17

>>498
定義済みが未定義になるわけじゃないけど
ブロックスコープとかいうやつだな

残念ながら旧ＶＢやＶＢＡにはない。VB.NETにはあるけど

ＶＢＡの一番狭いスコープはプロシジャ
なので、プロシジャの先頭に宣言まとめとけって作法がある

2022/09/06(火) 13:03:51.66

>501
vba自体は動作しております。
手動でvbaを起動するとエクセルが開き添付ファイルなどを作成し、Outlookで送信するのですが
vbsでの起動だと添付ファイルまでは作成するのですが、Outlookが立ち上がらず、タスクバーのエクセルが点滅して動作が止まります。

ネットで調べても事例が出てこず、会社のパソコンなのでシステム管理者に制限をかけられているのか…
何か調べる方法がありましたら教えてください

2022/09/06(火) 13:07:25.60

printfデバッグでどこまで動いているか確かめましょう！

2022/09/06(火) 13:13:46.25

>>496
始めに宣言を書いている方が探しやすいと思うけど
要らなさそうなものはまとめてコメントして確認すればいいわけだし

2022/09/06(火) 15:27:46.04

VBAでメールとか初めて見た

2022/09/06(火) 15:38:34.30

>>500
手動で実行できるなら、VBSで起動しているときのユーザとその権限があやしい
つかエラー吐いてないんじゃなくて、ちゃんとエラー捕まえられてないだけだと思うが

あとスクリプト系からのメール送信はいろいろセキュリティ周りでチェックされるかもしれん
とくに会社で管理されてるようなＰＣなら、ちゃんと管理者に許可とってからやれよ

2022/09/06(火) 15:44:13.81

メール送信用のc#のexeつくって呼び出させるようにしたことならある
あとsendgridAPIよぶの
前者は他にも使い回したな。.NETcoreだった気がするからいつまで使えるやら

2022/09/06(火) 15:58:15.39

>>498
あるものもある、例えばPowerShellにはそのものズバリのRemove-Variableなんてものがあったりする

2022/09/06(火) 16:28:13.42

>>503
>タスクバーのエクセルが点滅して動作が止まります
バックグランドで起動しているだけじゃ、エクセルのマクロが実行されないのかも

printf デバッグで、どこまで動いているか確かめるべき！
エクセルのマクロの、Outlook の起動コードの前後で、何かを出力すれば？

Outlook の起動前に、端末・ファイルへ出力する
Outlook の起動コード
Outlook の起動後に、端末・ファイルへ出力する

2022/09/06(火) 20:05:52.59

動作が止まるのは終了したからかもよ

**490** (ﾜｯﾁｮｲ bf66-bBdM) · 2022/09/06(火) 20:19:56.69

>>505
なるほど。そういう方もおられるのですね。
EXCEL VBAのプロシージャはあんまり長くしない方がいいよみたいなサイト読んで影響受けてます。
コードの書き方って結構こだわりを持っている方がいるようで、自分はそれに影響を受けやすい方です。
自分もこだわりたい方なんだと思います。

EXCEL VBAを知って、宣言は直前が基本ですよみたいな記事読んで強く影響受けました。
だから使い終わるごとに未定義に出来れば毎度宣言しなおせるからすっきりするのになぁみたいな気持ちでした。
EXCEL VBAとしてはfor やfor eachに使うような変数は先頭宣言にしてやっていこうと思います。

2022/09/06(火) 20:29:06.28

ちゃんとfunction分けてたら直前でいいけど、
大抵クソデカ関数ひとつか、グローバル宣言祭りだろうからなあ

2022/09/06(火) 20:37:51.18

>>512
> EXCEL VBAとしてはfor やfor eachに使うような変数は先頭宣言にしてやっていこうと思います。
とりあえずそれで動くところまで持って行ってコードが固まったらこだわりのコードスタイルにリファクタリングすればいいかと

2022/09/06(火) 21:28:56.11

>>512
>他の言語だとあるのであるかなと思ったのです。

他の言語って具体的に何？
答えられない？逃げる？それともまた言い訳？

2022/09/06(火) 21:54:35.94

>>512
個人的に、VBAに限定した話で宣言は直前とかいう記事はあんまり信用できないと思ってる
最近の言語ならそれで良いんだけどね

2022/09/06(火) 22:58:52.94

>>515
>>509
煽るならもうちょい知識をつけてからにした方がいい

2022/09/06(火) 23:05:26.43

あまり複雑化しても辛くなるしな
シンプルにシンプルによ

2022/09/07(水) 07:28:44.73

>>516
どういうこと？
最近の言語と違って
・ブロックスコープがない
・宣言と同時に代入できない
以上VBAの特徴2点を差し引いたとしても、
先頭宣言が直前宣言より優れている所なんかひとつもないと思うんだが

2022/09/07(水) 09:01:28.19

個人的信条を議論するのは無意味

2022/09/07(水) 17:30:20.88

変数はImmutableにするのが最近の言語でしょ
こうなるもうどこで宣言しようが関係ない

2022/09/07(水) 19:33:33.73

>>519
まあ>>520に同意しつつ、一番の理由は、
ＶＢＡでの一般的なスタイルに反するからなんだが

ブロックスコープがないのに直前で変数宣言するのは、
違うブロックで宣言された変数と宣言が被るリスクが上がるだけなんだが
むしろ直前宣言が優れている点ってどこだよ？

2022/09/07(水) 19:40:46.55

>>519
同意する
まあ>>516は理由を書いてない時点であまり信用できないと思ってる

2022/09/07(水) 19:45:10.64

>>522
> 違うブロックで宣言された変数と宣言が被るリスクが上がるだけなんだが
そんなものどこで宣言しても同じだろ

> むしろ直前宣言が優れている点ってどこだよ？
コードを追う時に見える範囲に宣言あれば型とかも分かるだろ

2022/09/07(水) 19:47:45.63

>>522
・別functionにしない
・設計が出来ない
・順番がコロコロ変わる

こういう場合は直前の宣言がいいんだろうな

2022/09/07(水) 19:48:48.00

インデックスとはいえ変数を使い回すのはNGなのです！
VBAだとしても許されません！ロボコン0点

2022/09/07(水) 20:14:29.57

質問でもなく他人のコードの変数をどこに書こうがどうでもいいのに書き方に熱くなる人はバカなんだろうね
まあそういう技術的な部分に関係ないところしか語れない程度が集まるスレなんだろうけどｗ

2022/09/07(水) 20:36:38.49

>>527
そんなに熱くなるなよｗ

2022/09/07(水) 20:40:11.15

>>517
で、答えられずに逃げたのかよ