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/

**デフォルトの名無しさん** · 2023/10/05(木) 08:25:15.77

>>165
どうやればできるか教えてください

**デフォルトの名無しさん** · 2023/10/05(木) 10:30:07.40

Range("シートB!E1").Select

**デフォルトの名無しさん** · 2023/10/05(木) 12:27:59.35

>>163
「選択したそのセルと隣のセルも消す、というマクロ」
をここに書いてもらえればアドバイスできる。

**デフォルトの名無しさん** · 2023/10/05(木) 20:37:12.52

>>163です。
自己解決しました。
結局ここで質問している方法は分かりませんでしたが、
別の方法でなんとかできるようになったのでそちらを
採用します。皆さん有難うございました。

**デフォルトの名無しさん** · 2023/10/05(木) 20:37:35.99

>>163です。
自己解決しました。
結局ここで質問している方法は分かりませんでしたが、
別の方法でなんとかできるようになったのでそちらを
採用します。皆さん有難うございました。

**デフォルトの名無しさん** · 2023/10/09(月) 18:37:12.70

test

**デフォルトの名無しさん** · 2023/10/09(月) 18:37:28.81

test

**デフォルトの名無しさん** · 2023/10/09(月) 18:43:55.87

MT4のDDEサーバー機能使ってエクセルにリアルタイムレート表示させてるんだが
ここで質問よい？

**デフォルトの名無しさん** · 2023/10/21(土) 00:44:14.90

VBAとVBSで同じ内容をPOSTして、
返ってきたreponsebodyも同じなのに、
操作出来るHtmlElementが違うってどういう事やねん!!

**デフォルトの名無しさん** · 2023/10/24(火) 23:47:02.19

forで配列testにシート名を格納し、Sheets(test).Selectでシートを複数選択したいですがエラー9になります
Sheets(test(0)).Selectとするとエラーは出ないです

Debug.Print test(0)
Debug.Print test(1)
と指定するとシート名が確認できますが
Debug.Print Join(test)
と指定すると空の値でした。test0とtest1の値が連携されて表示される想定でしたがなぜ空なんでしょうか

**デフォルトの名無しさん** · 2023/10/25(水) 01:50:17.21

配列testの初期化かforでシート名を取得している部分がおかしいんじゃない？そこのコードを書いてもらわないと。

**デフォルトの名無しさん** · 2023/10/25(水) 19:24:35.26

>>175
そもそも
>test0とtest1の値が連携されて表示される想定
が間違ってるんだが
それができたとしても、Sheets().Selectで複数シートのセレクトはできないと思うが

**デフォルトの名無しさん** · 2023/10/25(水) 19:32:55.99

>>175
試したけど、
Sheets()に文字列配列渡せば複数セレクトできるな
渡すのは連結された文字列とかじゃなくて、文字列の配列津
testを文字列配列で宣言すればいけるんっぽ

**デフォルトの名無しさん** · 2023/10/25(水) 20:15:45.40

>>176-178
ご指摘いただいて確認し直したところRedimの指定が間違ってました
ありがとうございました

**デフォルトの名無しさん** · 2023/10/31(火) 23:39:07.52

バージョンはExceloffice2019です。
「Sheet1」で購入した野菜の一覧を作成します。

　A1:A100に野菜の種類．例：トマト、キュウリ、キャベツ…
　B1:B100に野菜の産地．例：千葉、埼玉‥‥
　C1:C100に野菜の購入年月日．例：2023/10/31
　D1:D100に野菜の価格．例：1,000

「Sheet2」に
　A1:A5に野菜の種類　
　B1:B5に野菜の産地
　を記載したときに
　C1:C5に、「Sheet1」のAとBの条件に合う一番下の行の購入年月日を返す。
　かつ
　D1:D5に、「Sheet1」のAとBの条件に合う一番下の行の価格を返す。

　これをVBAで表現できますでしょうか。
　何卒、よろしくお願いいたします。

**デフォルトの名無しさん** · 2023/11/01(水) 02:50:19.57

できます

**デフォルトの名無しさん** · 2023/11/01(水) 02:56:30.71

表現

'できらぁ

**デフォルトの名無しさん** · 2023/11/01(水) 03:05:32.93

ぶいば

**デフォルトの名無しさん** · 2023/11/01(水) 03:12:36.26

仕様に応じて価格は変わります
価格に応じて仕様も変わります
色々突っ込みどころが多すぎる

**デフォルトの名無しさん** · 2023/11/01(水) 03:27:01.62

バージョンすらまともに書けない馬鹿に何を期待するのか

**デフォルトの名無しさん** · 2023/11/08(水) 17:47:52.62

初歩的な質問ですみません
例えばですがセルA2の型が標準だったとして、標準だった場合は色を付けたいです
どうやってセルが標準かどうか判断すれば良いか教えて頂けませんでしょうか

**デフォルトの名無しさん** · 2023/11/08(水) 18:14:40.14

186です
自己解決しました

**デフォルトの名無しさん** · 2023/11/08(水) 19:53:31.21

>>187
どうやったの？

**デフォルトの名無しさん** · 2023/11/10(金) 00:50:32.41

俺も気になる。
NumberFormatLocalじゃない奇想天外な解決策だったらウケる。

**デフォルトの名無しさん** · 2023/11/21(火) 22:58:20.04

　 If　(a = 1)　Then
　'{
　　　b = 1 ';
　'}
　 Else
　'{
　　　b = 2 ';
　'}
　 End If

どう?

**デフォルトの名無しさん** · 2023/11/21(火) 23:58:40.18

それVBAか？

**デフォルトの名無しさん** · 2023/11/22(水) 00:34:59.56

バレバレだと思ったらバレてなくてワロタ

**デフォルトの名無しさん** · 2023/11/26(日) 13:42:56.19

>>190
どうでもいい

**デフォルトの名無しさん** · 2023/11/26(日) 20:04:28.62

VBEで-キーを押すとExcelが落ちる
何で?

**デフォルトの名無しさん** · 2023/11/27(月) 19:55:15.09

床に置いたら落ちないんじゃね

**デフォルトの名無しさん** · 2023/11/27(月) 20:06:45.93

俺もそう思う

**デフォルトの名無しさん** · 2023/11/27(月) 20:19:28.03

なにごとも
低い位置においておけば落ちることはない

**デフォルトの名無しさん** · 2023/11/29(水) 05:31:22.23

Uiautomationでアプリに表示されてる文字を3万行くらい読み取ったら落ちた
エクセルじゃなくてアプリの方が
どういう理屈?

**デフォルトの名無しさん** · 2023/11/29(水) 09:05:11.59

イベントビューアーで何が起きたかぐらいは確かめなさい
再現性あるならタスクマネージャーのパフォーマンスでメモリなのかCPUなのか
とかも　アプリの表示文字3万行だけで、アバウト過ぎる

**デフォルトの名無しさん** · 2023/11/29(水) 10:10:43.50

昔はintの最大が32767 だからそれ越える数を扱うと落ちるソフトがよくあったな

**デフォルトの名無しさん** · 2023/11/30(木) 09:29:06.87

変数の値がマイナスとか変な数字になるだけじゃないの？
その程度のことで落ちるの？

**デフォルトの名無しさん** · 2023/11/30(木) 10:14:04.34

マイナスの場所がアクセスできなかったり
永遠にloopの終了条件に達しないとか
結果が大きくなりすぎてメモリ不足とかなる

**デフォルトの名無しさん** · 2023/11/30(木) 12:17:27.34

古いexcelも最下行が少なかった

**デフォルトの名無しさん** · 2023/12/01(金) 02:42:24.09

このスレも落ちる

**デフォルトの名無しさん** · 2023/12/01(金) 16:31:31.03

落ちないで

**デフォルトの名無しさん** · 2023/12/01(金) 17:06:11.81

ハゲないで

**デフォルトの名無しさん** · 2023/12/02(土) 09:27:15.99

戦えよ

**デフォルトの名無しさん** · 2023/12/02(土) 09:57:19.84

Excel VBAって長時間経過すると一定間隔で一時的にCPU割り当てが止まったりする仕様ですか？
プログレスバーもどきやマクロ経過時間を10秒毎に表示させているんですが、毎回2万件を超えたあたりから一時的に処理が停止しているみたいなんですが。

**デフォルトの名無しさん** · 2023/12/02(土) 09:58:41.46

訂正。10秒毎にではなく10件処理する毎にです。

**デフォルトの名無しさん** · 2023/12/02(土) 10:01:01.61

セルコピーの繰返しで条件付書式設定が多大になってるとか

**デフォルトの名無しさん** · 2023/12/02(土) 10:11:47.98

excelで一万件以上のデータを扱わないで下さい

**デフォルトの名無しさん** · 2023/12/02(土) 10:11:58.70

変数の価をセルへ記入する処理は繰り返し行っていますが条件付書式は設定していないしセルからセルへのコピー処理はしていません。
処理開始から20000件あたりまではスルスルと進んで行って20000件を超えたあたりから休み休みになるのが謎です。
ソース的には同じことを繰り返しているだけなんですけどね。
セルへ記入されていく行数は増えていくのでそのあたりが原因なんでしょうか。

**デフォルトの名無しさん** · 2023/12/02(土) 10:29:12.94

pcの性能じゃね
毎回起きるなら条件を変えてテストし発生条件をはっきりさせる

**デフォルトの名無しさん** · 2023/12/02(土) 10:55:39.59

計算式が2万行あるとか

**デフォルトの名無しさん** · 2023/12/02(土) 10:58:44.05

実行前に以下弄って画面更新を抑制してる？
Application.ScreenUpdating
Application.Calculation

**デフォルトの名無しさん** · 2023/12/02(土) 11:01:53.10

いえ、単なる文字列を上から下に向かってひたすら記入していくだけです。
記入する文字列を決めるためにVlookup関数の結果をフィルターして抽出された1行を文字列としてセルに記入してますが、Vlookup関数の数は固定で増えるわけでは無いのでCPU負荷も一定なんじゃないかと思います。

**デフォルトの名無しさん** · 2023/12/02(土) 11:02:50.91

>>215
Vlookup関数の結果を利用するのでそれはできないです。

**デフォルトの名無しさん** · 2023/12/02(土) 11:03:58.36

あ、すみません
Application.ScreenUpdating
は抑止したり解除したりを繰り返してました。

**デフォルトの名無しさん** · 2023/12/02(土) 12:25:52.64

原因追及したいのなら
出力データを増やさずに同じ行に書き出すとか

**デフォルトの名無しさん** · 2023/12/02(土) 13:23:33.03

そのうち前の担当が作ったとか言い出すんじゃね

**デフォルトの名無しさん** · 2023/12/02(土) 17:03:47.70

Windowsの仕様として、重たい処理をさせてるときは中の人が勝手に一休みするようにできている
アプデがいくつもある時など、進捗の％が進んだり止まったりなのを目にしたこともあるだろう
エロ動画を何本もDLしてる時に同サイズなのにすぐ落ちるのといつまでも落ちないのがあるように

基本的にExcelは同じディレクトリにテンポラリーファイルを自動的に作る（Excelに限らないが
そのファイルと相互に連携して「戻る」だの「処理を取り消す」だの「保存しない」だのを可能にしている
システムファイルなので敢えて表示する指定をしないと通常は目に見えない
処理は目の前のファイルだけで無くそのシステムファイルにも反映されている
いっぺんに大量の仕事をさせると「さすがに休ませろよ」と両方のファイルがブー垂れる←チンタラし出す
for－nextとかLoopの中にDoEventを盛り込むと、多少は改善されるかも知れないしされないかも知れない
https://www.tipsfound.com/vba/05doevents-vba
https://qiita.com/nekohei/items/3fb066e267866bcae96c
正直なハナシ、おれには何が何だかさっぱり理解できないが呪文みたいなものなんだろう（違う

**デフォルトの名無しさん** · 2023/12/02(土) 17:12:50.25

デフォルト10分に一回の自動回復用データの保存か

**デフォルトの名無しさん** · 2023/12/02(土) 19:21:37.99

>>221
馬鹿の妄想

**デフォルトの名無しさん** · 2023/12/02(土) 19:43:05.04

>>221
バカの長文ってホント的を得てるな
応答なしってのは文字通りマウス操作やキー操作に応答がない状態で、
なぜそれが起きるかは操作に応答する余裕もないくらい全集中して処理してるから
リンク先に書いてあるのは定期的にマウスだのキーボードだの気にしろよって指示
ID:vycJbAdXが書いてることとは根本的に違う事象

**デフォルトの名無しさん** · 2023/12/02(土) 21:20:16.63

内容を理解しないで ○○すると速くなるとか、エラーを出なくするとかを検索で見つけたのを
鵜呑みにして呪文のように至る所に無意味なコードを貼るタイプかな

**デフォルトの名無しさん** · 2023/12/02(土) 22:41:07.55

「詳細設定」－「ハードウェアグラフィックアクセラレータを無効にする」にチェックしOK
使っていないアドインがあったらチェックを外す
可能性が高いのが、GPUがレッドゾーン　タスクマネージャーのパフォーマンスでCPU・メモリ・ディスク
辺りはまったりと余裕ぶっこいてるのに、GPUがパンパン状態　これは増設できないマシンなら
どうしようもない　一行目の処理の前後でこれを比較してみて変わったら原因はそこ
　フリーズする訳でも無くちゃんと完走するなら「こういうもんだ」で済ますのも大人の対応
高性能ギンギン！のマシンとCeleronマシンでも現象一緒とかなら尚更コチラ側では対処のしようも無い

**デフォルトの名無しさん** · 2023/12/03(日) 01:31:41.80

>Windowsの仕様として、重たい処理をさせてるときは中の人が勝手に一休みするようにできている

そもそもこれが嘘
そんな仕様ねーよ

**デフォルトの名無しさん** · 2023/12/03(日) 06:53:42.28

>>200
そもそもintって何？
データ型は正確に書かないと

**デフォルトの名無しさん** · 2023/12/03(日) 06:55:03.43

>>227
アイドリング中はデータの先読みをしているから、彼は勘違いして反対のことを言ってしまっているんだろうな。

**デフォルトの名無しさん** · 2023/12/03(日) 09:55:11.40

重たい処理で休むってCPU温度が上がったせいで速度落とすあれのことかと

**デフォルトの名無しさん** · 2023/12/03(日) 11:08:35.63

>>221
これはひどい

**デフォルトの名無しさん** · 2023/12/03(日) 11:10:09.56

>>225
script kiddie

**デフォルトの名無しさん** · 2023/12/04(月) 15:12:23.07

for each で処理するときにI列は処理を飛ばしたかったので

for each rng in range
if rng.column = 9 then
goto skip
処理内容

という風にしたところすべての処理がスキップされてしまったので
以下のようにしたらうまくいきました。解決したんでよかったんですが
どういった理由で結果が違うのでしょうか？

if rng.column <> 9 then
処理内容

**デフォルトの名無しさん** · 2023/12/04(月) 15:18:26.28

skip,endif,next の位置関係を省略すんな

**デフォルトの名無しさん** · 2023/12/04(月) 16:25:34.26

まーたどっかから質問パクって来た？
https://oshiete.goo.ne.jp/qa/12821811.html
若干改変してるか　RangeとCellsについて、小一時間問い詰められてみるのもいいかも
https://sugoikaizen.com/excelvba/2_80/
ここでこうだよって書かれても身に付かないだろうし（おれもだし

**デフォルトの名無しさん** · 2023/12/04(月) 16:43:57.28

質問パクったわけではないですが確かに似てますね
省略しないと以下になります
処理の内容は同じです

■うまくいく方

For Each rng In Range(Cells(3, 7), Cells(m, n))
If rng.Column <> 9 Then
If rng.Value = "-" Then
dataEx.Cells(j, i) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(rng.Row, 3).Value
dataEx.Cells(j, i + 1) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(2, rng.Column).Value
j = j + 1
End If
End If
-----------------------------------------------------------------
■すべてスキップされてしまう方

For Each rng In Range(Cells(3, 7), Cells(m, n))
If rng.Column = 9 Then
GoTo skipCol
If rng.Value = "-" Then
dataEx.Cells(j, i) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(rng.Row, 3).Value
dataEx.Cells(j, i + 1) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(2, rng.Column).Value
j = j + 1
End If
skipCol:
End If

**デフォルトの名無しさん** · 2023/12/04(月) 16:46:57.68

すみません最後両方とも「Next」付け忘れました

**デフォルトの名無しさん** · 2023/12/04(月) 17:25:36.52

>>236
馬鹿はGotoを使う法則
こんなこと瞬時にわからん頭ならやめとけ

**デフォルトの名無しさん** · 2023/12/04(月) 20:44:12.36

>>236
落ち着いてよく考えてみ

**デフォルトの名無しさん** · 2023/12/04(月) 21:18:11.46

ネタだろうな

**デフォルトの名無しさん** · 2023/12/05(火) 01:23:49.48

よく知らないけど、この= は代入演算子か
j = j + 1

この= は比較演算子か
If rng.Column = 9 Then

こんな= を、2つの意味で使う言語ってあるの？

Ruby では、= は代入演算子で、== は比較演算子だけど

**デフォルトの名無しさん** · 2023/12/05(火) 01:30:03.25

Rubyの話にしたい例のキチガイ

**デフォルトの名無しさん** · 2023/12/05(火) 06:54:56.45

>>241
馬鹿にはわからんよ
ドンマイ

**デフォルトの名無しさん** · 2023/12/05(火) 10:53:58.86

客観的にこの人はVBAができる人だと思ってもらうのに、VBAエキスパートのスタンダードを取るのは効果あり？

受験料高い上に対して難しくもない資格なんだけど、知らん人から見れば勘違いしてくれるかねぇ

**デフォルトの名無しさん** · 2023/12/05(火) 11:03:15.47

あんなハリボテみたいな資格で勘違いしてくれるような会社に入りたいのか？

**デフォルトの名無しさん** · 2023/12/05(火) 11:03:58.32

名刺に書くには恥ずかしくない？

**デフォルトの名無しさん** · 2023/12/05(火) 11:21:20.84

>>245
ある大手の非IT子会社の求人にVBAやデータベース、PowerAutomateができれば尚可
みたいなことが書いてあるんよ

まぁVBA自体は広く知られてるから他企業でも資格持ってれば多少有利になるかどうなのかと思ってね。

>>246
名刺に書くなら恥ずかしいわな

**デフォルトの名無しさん** · 2023/12/05(火) 20:07:16.92

>>236
自分でステップ実行してどのように処理されているか確認してみては。本当に分からないならif文の仕組みを勉強するところから始める必要があるかと。

**デフォルトの名無しさん** · 2023/12/06(水) 23:52:59.21

>>236って
ここに張り付けたからインデント消えているのか？
実際のコードもインデントなしで書いてそうだな

**デフォルトの名無しさん** · 2023/12/07(木) 01:27:12.14

>>249
ちゃんとインデントついてるぞ

**デフォルトの名無しさん** · 2023/12/10(日) 09:52:24.49

フィルターの設定について質問させてください。各年の1月のデータを取得したいのですがうまくいきません。
手動だと、［日付フィルタ］から［期間内の全日付で1月を選んでできます。同じようにしたいのですがどうすればよいでしょうか？

ws.Rows("1:1").AutoFilter

' C列日付のフィルター条件を設定
Dim oldestYear As Integer
oldestYear = 2021 ' 最も古い年を指定

' 1月のデータを含むフィルター条件を設定
Dim filterCriteria As String
filterCriteria = ">=01/01/" & oldestYear & " AND <02/01/" & (oldestYear + 1)

' C列で条件に基づいてフィルタリング
ws.Columns("C:C").AutoFilter Field:=3, Criteria1:=filterCriteria

**デフォルトの名無しさん** · 2023/12/10(日) 11:43:28.11

手動でうまくいくなら
マクロの記録→手動操作→記録終了
とすればマクロできてないか

**デフォルトの名無しさん** · 2023/12/10(日) 22:40:23.08

Stringなの？日付は

**デフォルトの名無しさん** · 2023/12/11(月) 20:35:30.67

Integerじゃね？(適当

**デフォルトの名無しさん** · 2023/12/11(月) 20:37:58.60

以外にもDecimal

**デフォルトの名無しさん** · 2023/12/11(月) 23:17:25.43

意外？

**デフォルトの名無しさん** · 2023/12/12(火) 07:24:28.25

>>251
そのフィルター条件の書き方はどこかで紹介されてたもの？
Criteria1に複数条件を入れず､分ける必要があるみたい
ws.Columns("C:C").AutoFilter Field:=3, Criteria1:=">=01/01/" & oldestYear, Operator:=xlAnd, Criteria2:="<02/01/" & (oldestYear + 1)

**デフォルトの名無しさん** · 2023/12/12(火) 11:29:55.50

ユーザーフォームをワークブックから指定するにはどのようにすればいいですか？

セルだとこんな書き方をしてます
Workbooks(”book1”).Worksheets("Sheet1").Cells(1,1)
そこで
Workbooks(”book1”).UserForm1.Label1
のように書いたらエラーです
検索しても、ブックを指定せず単にUserForm1とだけ書いている事例しか見当たりませんでした

**デフォルトの名無しさん** · 2023/12/12(火) 18:44:33.33

「やまぶきいろ」って
ヤマブ黄色かと思ってたら
山吹色だったんですね。

まあそれだと「ヤマブ」というのが意味不明なんだけど。

**デフォルトの名無しさん** · 2023/12/12(火) 18:47:07.92

お馬鹿自慢要らない

**デフォルトの名無しさん** · 2023/12/12(火) 21:52:49.64

まあ将来はマクロVBAは廃止されると予想されるからデカイ顔できるのも今のうちだぞ

**デフォルトの名無しさん** · 2023/12/13(水) 09:34:17.90

VBベースじゃないほうがこれからは良いだろうしなあ

**デフォルトの名無しさん** · 2023/12/13(水) 10:08:54.21

仮にマクロ無くなってもでかい顔するやつはする

**デフォルトの名無しさん** · 2023/12/13(水) 10:20:57.24

>>258
開いてるファイルからVBAを使って他のファイルのユーザーフォームを操作したい
みたいな要望に読めるけど、こういうことかな？
https://www.chishikinosoukonoseiri.com/entry/2019/06/02/excelvba-designer-another-book-userform-operation
この人も苦労したみたいだけど、結果が正しいのか正統派の記述方式なのかもよくわからん

Designer　なんて今まで食べたこと無いし
しかもバージョンが若干古い？ IE絡みのオブジェクトっぽいし、IE亡き今、通用するのか
どうかも不明　ま、サイトは今年の春に更新されてるから使えなくなったなら泣き言も
書かれていそうだがそれは無いからだいじょぶか？
行き詰ってるなら試してみる価値はありそう

**デフォルトの名無しさん** · 2023/12/13(水) 10:52:16.86

VBA廃止でpowerqueryの時代が来る？