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/
探検
Excel VBA 質問スレ Part80
■ このスレッドは過去ログ倉庫に格納されています
2023/05/31(水) 08:23:38.97ID:4RV1IxmB
144デフォルトの名無しさん
2023/09/01(金) 10:12:30.21ID:8Q6o7DlX145デフォルトの名無しさん
2023/09/01(金) 10:16:44.07ID:UH2G1Fjz 触んじゃね
146デフォルトの名無しさん
2023/09/01(金) 13:21:26.05ID:u1EfhygX もう誰も居ないの
ユーザーフォーム上のフレーム内にフレームを動的に追加しようとしたらオートメーションエラー発生するんだけど誰か対処法知ってますか?
ユーザーフォーム上のフレーム内にフレームを動的に追加しようとしたらオートメーションエラー発生するんだけど誰か対処法知ってますか?
147デフォルトの名無しさん
2023/09/01(金) 14:53:10.50ID:c6Z/nkux 「フレーム」はラベルやコンボボックスなどのコントロールをフレーム内に配置するコンテナ
という概念から、フレーム内にフレームは配置できないのでは?
フレーム1内のコントロールの戻り値に依って、ユーザーフォームの他の位置にフレーム2を
動的に配置したいとかなら可能だろうけど
若しくは、動的に生成されたコントロールを、不要になった都度開放していないとかか?
という概念から、フレーム内にフレームは配置できないのでは?
フレーム1内のコントロールの戻り値に依って、ユーザーフォームの他の位置にフレーム2を
動的に配置したいとかなら可能だろうけど
若しくは、動的に生成されたコントロールを、不要になった都度開放していないとかか?
148デフォルトの名無しさん
2023/09/01(金) 15:03:21.78ID:c6Z/nkux MSコミュニティに似たような質問があるのを見付けた
https://answers.microsoft.com/ja-jp/msoffice/forum/all/excel-2007/944a0d3a-4145-4406-bb47-0e7de3d660b3
10年も前の事例だけど、辛辣な回答ひとつしか付いていない
当時はクラッシュしてた、ってんだから、エラーに成るだけ手心は加えられてるのか
https://answers.microsoft.com/ja-jp/msoffice/forum/all/excel-2007/944a0d3a-4145-4406-bb47-0e7de3d660b3
10年も前の事例だけど、辛辣な回答ひとつしか付いていない
当時はクラッシュしてた、ってんだから、エラーに成るだけ手心は加えられてるのか
149141
2023/09/01(金) 15:35:25.53ID:ne/hzOol150デフォルトの名無しさん
2023/09/01(金) 16:26:50.24ID:u1EfhygX >>147
静的にはできるのにね?
フォーム内に用意した1個のフレーム内に動的に配置しようとするだけでエラー吐くので、後段で以下でご指摘いただいた点はとりあえず無関係のようです
今回は外側をマルチページで代用したけど、モヤっとする…
静的にはできるのにね?
フォーム内に用意した1個のフレーム内に動的に配置しようとするだけでエラー吐くので、後段で以下でご指摘いただいた点はとりあえず無関係のようです
今回は外側をマルチページで代用したけど、モヤっとする…
151デフォルトの名無しさん
2023/09/01(金) 16:55:57.14ID:c6Z/nkux ン? 静的にはできるんだ
じゃあ、フレーム内にコントロールを配置する時に、ちょっと順番を間違えるとフレームとの
リンクが切れて、見た目はフレーム内だけど別物として配置されてしまうように成るとかと
似た状況なんじゃ?
動的に配置するモジュール内で、その過程をなぞらないと入れ子フレームとして設置できない
とかが思い付いたが、果たして
或いは、静的に配置しておいてvisibleをon/offで切り替えるとか
何にしろ利用者の現場でトラブらないような、安定した方法が望まれる(シンプルイズベスチャ)
じゃあ、フレーム内にコントロールを配置する時に、ちょっと順番を間違えるとフレームとの
リンクが切れて、見た目はフレーム内だけど別物として配置されてしまうように成るとかと
似た状況なんじゃ?
動的に配置するモジュール内で、その過程をなぞらないと入れ子フレームとして設置できない
とかが思い付いたが、果たして
或いは、静的に配置しておいてvisibleをon/offで切り替えるとか
何にしろ利用者の現場でトラブらないような、安定した方法が望まれる(シンプルイズベスチャ)
152デフォルトの名無しさん
2023/09/01(金) 17:05:15.42ID:QGSBVRun >>149
職業訓練校www
職業訓練校www
153デフォルトの名無しさん
2023/09/01(金) 18:26:16.13ID:jzQZ9hsj たまに訓練校でVBAコースとか見掛けるけど、どの辺りまで教わるのですか? 経験したエロい人教えて
154デフォルトの名無しさん
2023/09/01(金) 18:41:22.55ID:qEQ7NwLw 指まで
155141
2023/09/01(金) 20:45:25.45ID:ne/hzOol >>153
【架空の店や 個人病院など】の『商品CODE一覧表』とか 『顧客の住所録』とかを、ACCESSで 複数の『データベースの箱』を用意する。
EXCELで入力フォーム作って、SQLでACCESSデータベースの追加・変更。
授業では、スクレイピングや IE制御は習ってない。← これは独学(ネットで)
職業訓練校に通えば 就職できる訳ではない。
俺は『失業給付金の延長』が最大の目的だった。
【架空の店や 個人病院など】の『商品CODE一覧表』とか 『顧客の住所録』とかを、ACCESSで 複数の『データベースの箱』を用意する。
EXCELで入力フォーム作って、SQLでACCESSデータベースの追加・変更。
授業では、スクレイピングや IE制御は習ってない。← これは独学(ネットで)
職業訓練校に通えば 就職できる訳ではない。
俺は『失業給付金の延長』が最大の目的だった。
156デフォルトの名無しさん
2023/09/02(土) 09:29:37.93ID:t45vXwol エロチックな人体験談ありがとうございました。
なるほど給付金延長目当てはあるあるな話ですね。
自分は♀との出逢い目当てで通いますよ。
なるほど給付金延長目当てはあるあるな話ですね。
自分は♀との出逢い目当てで通いますよ。
157デフォルトの名無しさん
2023/09/09(土) 09:48:51.46ID:x8sBUwGJ With Sheet1
Dim ary
ary = .range(セル範囲)
End With
これ多用してきたんだけど、セル範囲がセル一個だけだとaryに配列じゃなくて普通のVariant型が入ることに今気づいた
この後の処理は配列であることを前提にやってるから、そこでエラーが起きる
結構いろんな所で使ってたからこれはやべー・・・・
Dim ary
ary = .range(セル範囲)
End With
これ多用してきたんだけど、セル範囲がセル一個だけだとaryに配列じゃなくて普通のVariant型が入ることに今気づいた
この後の処理は配列であることを前提にやってるから、そこでエラーが起きる
結構いろんな所で使ってたからこれはやべー・・・・
158デフォルトの名無しさん
2023/09/09(土) 09:58:43.37ID:x8sBUwGJ 最終行取得してセル範囲を定義したりすると、
1セルになる可能性があるからダメなんだよな
この方法使う時はセル範囲は固定した上で、
代入された配列の要素が異常値なら排除する仕組みの方がいいのか
1セルになる可能性があるからダメなんだよな
この方法使う時はセル範囲は固定した上で、
代入された配列の要素が異常値なら排除する仕組みの方がいいのか
159デフォルトの名無しさん
2023/09/09(土) 11:21:24.50ID:+0dsEkXE 選択された範囲がセルひとつだけだった場合は
エラーメッセージ出して範囲を拡げるよう促す 処理を停める そうする方が手間は少ない
エラーメッセージ出して範囲を拡げるよう促す 処理を停める そうする方が手間は少ない
160デフォルトの名無しさん
2023/09/09(土) 11:38:21.48ID:skhr6YT2 ary = .range(セル範囲)
If (VarType(ary) And vbArray) = 0 then ReDim ary(1 To 1, 1 To 1): ary(1, 1) = .range(セル範囲)
こんな感じで必ず配列になるように対処したことはある。
逆に値を戻すときは、一つのセルに配列を入れようとしてもOK。
If (VarType(ary) And vbArray) = 0 then ReDim ary(1 To 1, 1 To 1): ary(1, 1) = .range(セル範囲)
こんな感じで必ず配列になるように対処したことはある。
逆に値を戻すときは、一つのセルに配列を入れようとしてもOK。
161デフォルトの名無しさん
2023/09/09(土) 15:33:08.91ID:F9Z+i/7c162デフォルトの名無しさん
2023/09/09(土) 17:39:26.81ID:be6v4mh1163デフォルトの名無しさん
2023/10/05(木) 02:08:04.21ID:+NVPN5Yc あるセルをマウスで選択すると、
選択したそのセルと隣のセルも消す、
というマクロを作って現在動かしていますが、
どうしても類似のシートをもう一つ作って連動
させたいのですが、例えば、
シートAのセルのE1をマウスで選択した時、
シートBのセルのE1も同時に選択状態にする、
というマクロは可能でしょうか?
宜しくお願い致します。
選択したそのセルと隣のセルも消す、
というマクロを作って現在動かしていますが、
どうしても類似のシートをもう一つ作って連動
させたいのですが、例えば、
シートAのセルのE1をマウスで選択した時、
シートBのセルのE1も同時に選択状態にする、
というマクロは可能でしょうか?
宜しくお願い致します。
164デフォルトの名無しさん
2023/10/05(木) 03:02:59.67ID:+NVPN5Yc 追記
別に「同時」でなくともいいです。
要は、シートBのセルのE1をマクロで
操作できればなんだっていいです。
別に「同時」でなくともいいです。
要は、シートBのセルのE1をマクロで
操作できればなんだっていいです。
165デフォルトの名無しさん
2023/10/05(木) 04:09:43.70ID:tRnDXjTr 同時は無理かも知れんが
同時じゃなくて良ければ可能
次の方どうぞ
同時じゃなくて良ければ可能
次の方どうぞ
166デフォルトの名無しさん
2023/10/05(木) 08:25:15.77ID:+NVPN5Yc >>165
どうやればできるか教えてください
どうやればできるか教えてください
167デフォルトの名無しさん
2023/10/05(木) 10:30:07.40ID:AvBTKCCq Range("シートB!E1").Select
168デフォルトの名無しさん
2023/10/05(木) 12:27:59.35ID:9btcP5Iv169デフォルトの名無しさん
2023/10/05(木) 20:37:12.52ID:+NVPN5Yc170デフォルトの名無しさん
2023/10/05(木) 20:37:35.99ID:+NVPN5Yc171デフォルトの名無しさん
2023/10/09(月) 18:37:12.70ID:bDtEeCCl test
172デフォルトの名無しさん
2023/10/09(月) 18:37:28.81ID:bDtEeCCl test
173デフォルトの名無しさん
2023/10/09(月) 18:43:55.87ID:bDtEeCCl MT4のDDEサーバー機能使ってエクセルにリアルタイムレート表示させてるんだが
ここで質問よい?
ここで質問よい?
174デフォルトの名無しさん
2023/10/21(土) 00:44:14.90ID:QYcnZo6w VBAとVBSで同じ内容をPOSTして、
返ってきたreponsebodyも同じなのに、
操作出来るHtmlElementが違うってどういう事やねん!!
返ってきたreponsebodyも同じなのに、
操作出来るHtmlElementが違うってどういう事やねん!!
175デフォルトの名無しさん
2023/10/24(火) 23:47:02.19ID:Qu5vmivm forで配列testにシート名を格納し、Sheets(test).Selectでシートを複数選択したいですがエラー9になります
Sheets(test(0)).Selectとするとエラーは出ないです
Debug.Print test(0)
Debug.Print test(1)
と指定するとシート名が確認できますが
Debug.Print Join(test)
と指定すると空の値でした。test0とtest1の値が連携されて表示される想定でしたがなぜ空なんでしょうか
Sheets(test(0)).Selectとするとエラーは出ないです
Debug.Print test(0)
Debug.Print test(1)
と指定するとシート名が確認できますが
Debug.Print Join(test)
と指定すると空の値でした。test0とtest1の値が連携されて表示される想定でしたがなぜ空なんでしょうか
176デフォルトの名無しさん
2023/10/25(水) 01:50:17.21ID:iLS1no5v 配列testの初期化かforでシート名を取得している部分がおかしいんじゃない?そこのコードを書いてもらわないと。
177デフォルトの名無しさん
2023/10/25(水) 19:24:35.26ID:8bx5SHat178デフォルトの名無しさん
2023/10/25(水) 19:32:55.99ID:8bx5SHat179デフォルトの名無しさん
2023/10/25(水) 20:15:45.40ID://t71i0T180デフォルトの名無しさん
2023/10/31(火) 23:39:07.52ID:0l/KyLnQ バージョンは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で表現できますでしょうか。
何卒、よろしくお願いいたします。
「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で表現できますでしょうか。
何卒、よろしくお願いいたします。
181デフォルトの名無しさん
2023/11/01(水) 02:50:19.57ID:nS+y2GzJ できます
182デフォルトの名無しさん
2023/11/01(水) 02:56:30.71ID:LeiRH4ql 表現
'できらぁ
'できらぁ
183デフォルトの名無しさん
2023/11/01(水) 03:05:32.93ID:5z6NYMjm ぶいば
184デフォルトの名無しさん
2023/11/01(水) 03:12:36.26ID:H7+Ix2LY 仕様に応じて価格は変わります
価格に応じて仕様も変わります
色々突っ込みどころが多すぎる
価格に応じて仕様も変わります
色々突っ込みどころが多すぎる
185デフォルトの名無しさん
2023/11/01(水) 03:27:01.62ID:Q2iQ3kej バージョンすらまともに書けない馬鹿に何を期待するのか
186デフォルトの名無しさん
2023/11/08(水) 17:47:52.62ID:TYSKNLfT 初歩的な質問ですみません
例えばですがセルA2の型が標準だったとして、標準だった場合は色を付けたいです
どうやってセルが標準かどうか判断すれば良いか教えて頂けませんでしょうか
例えばですがセルA2の型が標準だったとして、標準だった場合は色を付けたいです
どうやってセルが標準かどうか判断すれば良いか教えて頂けませんでしょうか
187デフォルトの名無しさん
2023/11/08(水) 18:14:40.14ID:TYSKNLfT 186です
自己解決しました
自己解決しました
188デフォルトの名無しさん
2023/11/08(水) 19:53:31.21ID:7oppFyNo >>187
どうやったの?
どうやったの?
189デフォルトの名無しさん
2023/11/10(金) 00:50:32.41ID:VwCFMbHh 俺も気になる。
NumberFormatLocalじゃない奇想天外な解決策だったらウケる。
NumberFormatLocalじゃない奇想天外な解決策だったらウケる。
190デフォルトの名無しさん
2023/11/21(火) 22:58:20.04ID:AR1yXI4p If (a = 1) Then
'{
b = 1 ';
'}
Else
'{
b = 2 ';
'}
End If
どう?
'{
b = 1 ';
'}
Else
'{
b = 2 ';
'}
End If
どう?
191デフォルトの名無しさん
2023/11/21(火) 23:58:40.18ID:xeomrwBy それVBAか?
192デフォルトの名無しさん
2023/11/22(水) 00:34:59.56ID:byPvCzkk バレバレだと思ったらバレてなくてワロタ
193デフォルトの名無しさん
2023/11/26(日) 13:42:56.19ID:8a4yzyW0 >>190
どうでもいい
どうでもいい
194デフォルトの名無しさん
2023/11/26(日) 20:04:28.62ID:bZOTy+QC VBEで-キーを押すとExcelが落ちる
何で?
何で?
195デフォルトの名無しさん
2023/11/27(月) 19:55:15.09ID:IFAh3DJf 床に置いたら落ちないんじゃね
196デフォルトの名無しさん
2023/11/27(月) 20:06:45.93ID:y0lY01bz 俺もそう思う
197デフォルトの名無しさん
2023/11/27(月) 20:19:28.03ID:wYp6UIkr なにごとも
低い位置においておけば落ちることはない
低い位置においておけば落ちることはない
198デフォルトの名無しさん
2023/11/29(水) 05:31:22.23ID:0nQJ/yPv Uiautomationでアプリに表示されてる文字を3万行くらい読み取ったら落ちた
エクセルじゃなくてアプリの方が
どういう理屈?
エクセルじゃなくてアプリの方が
どういう理屈?
199デフォルトの名無しさん
2023/11/29(水) 09:05:11.59ID:F9HVG0++ イベントビューアーで何が起きたかぐらいは確かめなさい
再現性あるならタスクマネージャーのパフォーマンスでメモリなのかCPUなのか
とかも アプリの表示文字3万行だけで、アバウト過ぎる
再現性あるならタスクマネージャーのパフォーマンスでメモリなのかCPUなのか
とかも アプリの表示文字3万行だけで、アバウト過ぎる
200デフォルトの名無しさん
2023/11/29(水) 10:10:43.50ID:sD7VzCeS 昔はintの最大が32767 だからそれ越える数を扱うと落ちるソフトがよくあったな
201デフォルトの名無しさん
2023/11/30(木) 09:29:06.87ID:vgaDfHiB 変数の値がマイナスとか変な数字になるだけじゃないの?
その程度のことで落ちるの?
その程度のことで落ちるの?
202デフォルトの名無しさん
2023/11/30(木) 10:14:04.34ID:uCTIv0ls マイナスの場所がアクセスできなかったり
永遠にloopの終了条件に達しないとか
結果が大きくなりすぎてメモリ不足とかなる
永遠にloopの終了条件に達しないとか
結果が大きくなりすぎてメモリ不足とかなる
203デフォルトの名無しさん
2023/11/30(木) 12:17:27.34ID:3oFcABR+ 古いexcelも最下行が少なかった
204デフォルトの名無しさん
2023/12/01(金) 02:42:24.09ID:xLT/7JKF このスレも落ちる
205デフォルトの名無しさん
2023/12/01(金) 16:31:31.03ID:7wVpTT+J 落ちないで
206デフォルトの名無しさん
2023/12/01(金) 17:06:11.81ID:fwRU51B8 ハゲないで
207デフォルトの名無しさん
2023/12/02(土) 09:27:15.99ID:gVhM2KTB 戦えよ
208デフォルトの名無しさん
2023/12/02(土) 09:57:19.84ID:vycJbAdX Excel VBAって長時間経過すると一定間隔で一時的にCPU割り当てが止まったりする仕様ですか?
プログレスバーもどきやマクロ経過時間を10秒毎に表示させているんですが、毎回2万件を超えたあたりから一時的に処理が停止しているみたいなんですが。
プログレスバーもどきやマクロ経過時間を10秒毎に表示させているんですが、毎回2万件を超えたあたりから一時的に処理が停止しているみたいなんですが。
209デフォルトの名無しさん
2023/12/02(土) 09:58:41.46ID:vycJbAdX 訂正。10秒毎にではなく10件処理する毎にです。
210デフォルトの名無しさん
2023/12/02(土) 10:01:01.61ID:OwcK4uEB セルコピーの繰返しで条件付書式設定が多大になってるとか
211デフォルトの名無しさん
2023/12/02(土) 10:11:47.98ID:0tC7Yjqi excelで一万件以上のデータを扱わないで下さい
212デフォルトの名無しさん
2023/12/02(土) 10:11:58.70ID:vycJbAdX 変数の価をセルへ記入する処理は繰り返し行っていますが条件付書式は設定していないしセルからセルへのコピー処理はしていません。
処理開始から20000件あたりまではスルスルと進んで行って20000件を超えたあたりから休み休みになるのが謎です。
ソース的には同じことを繰り返しているだけなんですけどね。
セルへ記入されていく行数は増えていくのでそのあたりが原因なんでしょうか。
処理開始から20000件あたりまではスルスルと進んで行って20000件を超えたあたりから休み休みになるのが謎です。
ソース的には同じことを繰り返しているだけなんですけどね。
セルへ記入されていく行数は増えていくのでそのあたりが原因なんでしょうか。
213デフォルトの名無しさん
2023/12/02(土) 10:29:12.94ID:gVhM2KTB pcの性能じゃね
毎回起きるなら条件を変えてテストし発生条件をはっきりさせる
毎回起きるなら条件を変えてテストし発生条件をはっきりさせる
214デフォルトの名無しさん
2023/12/02(土) 10:55:39.59ID:5w2fWXOw 計算式が2万行あるとか
215デフォルトの名無しさん
2023/12/02(土) 10:58:44.05ID:5w2fWXOw 実行前に以下弄って画面更新を抑制してる?
Application.ScreenUpdating
Application.Calculation
Application.ScreenUpdating
Application.Calculation
216デフォルトの名無しさん
2023/12/02(土) 11:01:53.10ID:vycJbAdX いえ、単なる文字列を上から下に向かってひたすら記入していくだけです。
記入する文字列を決めるためにVlookup関数の結果をフィルターして抽出された1行を文字列としてセルに記入してますが、Vlookup関数の数は固定で増えるわけでは無いのでCPU負荷も一定なんじゃないかと思います。
記入する文字列を決めるためにVlookup関数の結果をフィルターして抽出された1行を文字列としてセルに記入してますが、Vlookup関数の数は固定で増えるわけでは無いのでCPU負荷も一定なんじゃないかと思います。
217デフォルトの名無しさん
2023/12/02(土) 11:02:50.91ID:vycJbAdX >>215
Vlookup関数の結果を利用するのでそれはできないです。
Vlookup関数の結果を利用するのでそれはできないです。
218デフォルトの名無しさん
2023/12/02(土) 11:03:58.36ID:vycJbAdX あ、すみません
Application.ScreenUpdating
は抑止したり解除したりを繰り返してました。
Application.ScreenUpdating
は抑止したり解除したりを繰り返してました。
219デフォルトの名無しさん
2023/12/02(土) 12:25:52.64ID:dC73Xol+ 原因追及したいのなら
出力データを増やさずに同じ行に書き出すとか
出力データを増やさずに同じ行に書き出すとか
220デフォルトの名無しさん
2023/12/02(土) 13:23:33.03ID:gVhM2KTB そのうち前の担当が作ったとか言い出すんじゃね
221デフォルトの名無しさん
2023/12/02(土) 17:03:47.70ID:H7HADDQf Windowsの仕様として、重たい処理をさせてるときは中の人が勝手に一休みするようにできている
アプデがいくつもある時など、進捗の%が進んだり止まったりなのを目にしたこともあるだろう
エロ動画を何本もDLしてる時に同サイズなのにすぐ落ちるのといつまでも落ちないのがあるように
基本的にExcelは同じディレクトリにテンポラリーファイルを自動的に作る(Excelに限らないが
そのファイルと相互に連携して「戻る」だの「処理を取り消す」だの「保存しない」だのを可能にしている
システムファイルなので敢えて表示する指定をしないと通常は目に見えない
処理は目の前のファイルだけで無くそのシステムファイルにも反映されている
いっぺんに大量の仕事をさせると「さすがに休ませろよ」と両方のファイルがブー垂れる←チンタラし出す
for−nextとかLoopの中にDoEventを盛り込むと、多少は改善されるかも知れないしされないかも知れない
https://www.tipsfound.com/vba/05doevents-vba
https://qiita.com/nekohei/items/3fb066e267866bcae96c
正直なハナシ、おれには何が何だかさっぱり理解できないが呪文みたいなものなんだろう(違う
アプデがいくつもある時など、進捗の%が進んだり止まったりなのを目にしたこともあるだろう
エロ動画を何本もDLしてる時に同サイズなのにすぐ落ちるのといつまでも落ちないのがあるように
基本的にExcelは同じディレクトリにテンポラリーファイルを自動的に作る(Excelに限らないが
そのファイルと相互に連携して「戻る」だの「処理を取り消す」だの「保存しない」だのを可能にしている
システムファイルなので敢えて表示する指定をしないと通常は目に見えない
処理は目の前のファイルだけで無くそのシステムファイルにも反映されている
いっぺんに大量の仕事をさせると「さすがに休ませろよ」と両方のファイルがブー垂れる←チンタラし出す
for−nextとかLoopの中にDoEventを盛り込むと、多少は改善されるかも知れないしされないかも知れない
https://www.tipsfound.com/vba/05doevents-vba
https://qiita.com/nekohei/items/3fb066e267866bcae96c
正直なハナシ、おれには何が何だかさっぱり理解できないが呪文みたいなものなんだろう(違う
222デフォルトの名無しさん
2023/12/02(土) 17:12:50.25ID:hwp9WWnB デフォルト10分に一回の自動回復用データの保存か
223デフォルトの名無しさん
2023/12/02(土) 19:21:37.99ID:FUL/sgR0 >>221
馬鹿の妄想
馬鹿の妄想
224デフォルトの名無しさん
2023/12/02(土) 19:43:05.04ID:UnnytQXE >>221
バカの長文ってホント的を得てるな
応答なしってのは文字通りマウス操作やキー操作に応答がない状態で、
なぜそれが起きるかは操作に応答する余裕もないくらい全集中して処理してるから
リンク先に書いてあるのは定期的にマウスだのキーボードだの気にしろよって指示
ID:vycJbAdXが書いてることとは根本的に違う事象
バカの長文ってホント的を得てるな
応答なしってのは文字通りマウス操作やキー操作に応答がない状態で、
なぜそれが起きるかは操作に応答する余裕もないくらい全集中して処理してるから
リンク先に書いてあるのは定期的にマウスだのキーボードだの気にしろよって指示
ID:vycJbAdXが書いてることとは根本的に違う事象
225デフォルトの名無しさん
2023/12/02(土) 21:20:16.63ID:gVhM2KTB 内容を理解しないで ○○すると速くなるとか、エラーを出なくするとかを検索で見つけたのを
鵜呑みにして呪文のように至る所に無意味なコードを貼るタイプかな
鵜呑みにして呪文のように至る所に無意味なコードを貼るタイプかな
226デフォルトの名無しさん
2023/12/02(土) 22:41:07.55ID:H7HADDQf 「詳細設定」−「ハードウェア グラフィック アクセラレータを無効にする」にチェックしOK
使っていないアドインがあったらチェックを外す
可能性が高いのが、GPUがレッドゾーン タスクマネージャーのパフォーマンスでCPU・メモリ・ディスク
辺りはまったりと余裕ぶっこいてるのに、GPUがパンパン状態 これは増設できないマシンなら
どうしようもない 一行目の処理の前後でこれを比較してみて変わったら原因はそこ
フリーズする訳でも無くちゃんと完走するなら「こういうもんだ」で済ますのも大人の対応
高性能ギンギン!のマシンとCeleronマシンでも現象一緒とかなら尚更コチラ側では対処のしようも無い
使っていないアドインがあったらチェックを外す
可能性が高いのが、GPUがレッドゾーン タスクマネージャーのパフォーマンスでCPU・メモリ・ディスク
辺りはまったりと余裕ぶっこいてるのに、GPUがパンパン状態 これは増設できないマシンなら
どうしようもない 一行目の処理の前後でこれを比較してみて変わったら原因はそこ
フリーズする訳でも無くちゃんと完走するなら「こういうもんだ」で済ますのも大人の対応
高性能ギンギン!のマシンとCeleronマシンでも現象一緒とかなら尚更コチラ側では対処のしようも無い
227デフォルトの名無しさん
2023/12/03(日) 01:31:41.80ID:MKV2NgOh >Windowsの仕様として、重たい処理をさせてるときは中の人が勝手に一休みするようにできている
そもそもこれが嘘
そんな仕様ねーよ
そもそもこれが嘘
そんな仕様ねーよ
228デフォルトの名無しさん
2023/12/03(日) 06:53:42.28ID:xZHPSaOR229デフォルトの名無しさん
2023/12/03(日) 06:55:03.43ID:xZHPSaOR >>227
アイドリング中はデータの先読みをしているから、彼は勘違いして反対のことを言ってしまっているんだろうな。
アイドリング中はデータの先読みをしているから、彼は勘違いして反対のことを言ってしまっているんだろうな。
230デフォルトの名無しさん
2023/12/03(日) 09:55:11.40ID:5HcnYZkn 重たい処理で休むってCPU温度が上がったせいで速度落とすあれのことかと
231デフォルトの名無しさん
2023/12/03(日) 11:08:35.63ID:QTewqrs7 >>221
これはひどい
これはひどい
232デフォルトの名無しさん
2023/12/03(日) 11:10:09.56ID:QTewqrs7 >>225
script kiddie
script kiddie
233デフォルトの名無しさん
2023/12/04(月) 15:12:23.07ID:Nbpgvbo/ for each で処理するときにI列は処理を飛ばしたかったので
for each rng in range
if rng.column = 9 then
goto skip
処理内容
という風にしたところすべての処理がスキップされてしまったので
以下のようにしたらうまくいきました。解決したんでよかったんですが
どういった理由で結果が違うのでしょうか?
if rng.column <> 9 then
処理内容
for each rng in range
if rng.column = 9 then
goto skip
処理内容
という風にしたところすべての処理がスキップされてしまったので
以下のようにしたらうまくいきました。解決したんでよかったんですが
どういった理由で結果が違うのでしょうか?
if rng.column <> 9 then
処理内容
234デフォルトの名無しさん
2023/12/04(月) 15:18:26.28ID:+hRuE00u skip,endif,next の位置関係を省略すんな
235デフォルトの名無しさん
2023/12/04(月) 16:25:34.26ID:xc8M7hCZ まーたどっかから質問パクって来た?
https://oshiete.goo.ne.jp/qa/12821811.html
若干改変してるか RangeとCellsについて、小一時間問い詰められてみるのもいいかも
https://sugoikaizen.com/excelvba/2_80/
ここでこうだよって書かれても身に付かないだろうし(おれもだし
https://oshiete.goo.ne.jp/qa/12821811.html
若干改変してるか RangeとCellsについて、小一時間問い詰められてみるのもいいかも
https://sugoikaizen.com/excelvba/2_80/
ここでこうだよって書かれても身に付かないだろうし(おれもだし
236デフォルトの名無しさん
2023/12/04(月) 16:43:57.28ID:Nbpgvbo/ 質問パクったわけではないですが確かに似てますね
省略しないと以下になります
処理の内容は同じです
■うまくいく方
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
省略しないと以下になります
処理の内容は同じです
■うまくいく方
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
237デフォルトの名無しさん
2023/12/04(月) 16:46:57.68ID:Nbpgvbo/ すみません最後両方とも「Next」付け忘れました
238デフォルトの名無しさん
2023/12/04(月) 17:25:36.52ID:IJgpRS5M239デフォルトの名無しさん
2023/12/04(月) 20:44:12.36ID:iY+/6ufA >>236
落ち着いてよく考えてみ
落ち着いてよく考えてみ
240デフォルトの名無しさん
2023/12/04(月) 21:18:11.46ID:1Ww5lLLM ネタだろうな
241デフォルトの名無しさん
2023/12/05(火) 01:23:49.48ID:9BlMohwu よく知らないけど、この= は代入演算子か
j = j + 1
この= は比較演算子か
If rng.Column = 9 Then
こんな= を、2つの意味で使う言語ってあるの?
Ruby では、= は代入演算子で、== は比較演算子だけど
j = j + 1
この= は比較演算子か
If rng.Column = 9 Then
こんな= を、2つの意味で使う言語ってあるの?
Ruby では、= は代入演算子で、== は比較演算子だけど
242デフォルトの名無しさん
2023/12/05(火) 01:30:03.25ID:+1t+2z4I Rubyの話にしたい例のキチガイ
243デフォルトの名無しさん
2023/12/05(火) 06:54:56.45ID:i0GvpvVS244デフォルトの名無しさん
2023/12/05(火) 10:53:58.86ID:3p/65ALc 客観的にこの人はVBAができる人だと思ってもらうのに、VBAエキスパートのスタンダードを取るのは効果あり?
受験料高い上に対して難しくもない資格なんだけど、知らん人から見れば勘違いしてくれるかねぇ
受験料高い上に対して難しくもない資格なんだけど、知らん人から見れば勘違いしてくれるかねぇ
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 高市内閣、支持率横ばい75% (日経・テレ東 世論調査) ★3 [少考さん★]
- 【調査】クレジットカード、1人何枚持つのが「平均的」?★3 [ひぃぃ★]
- 【テレビ】池上彰氏 報道の自由度が高い国の特徴「どんどん政府を批判する。政治家は受け入れる」 一方独裁国家は… [冬月記者★]
- 【国防】防空ミサイル(中SAM) 輸出検討へ 政府、フィリピンと非公式協議 [シャチ★]
- 【作家】高市総理支持の背景に見えるヤンキー的「ケンカ上等!」と「日本人は特別だ」感がとても怖い 北原みのり [少考さん★]
- 「ヘイトスピーチをやめろ」 各地の「移民反対デモ」に抗議活動 [蚤の市★]
- 1人で1000レスいってみる
- 【実況】わため!!!のえちえちラムベガス(こよりあり?)🐏🧪
- 現役JKのお茶会スレ( ¨̮ )︎︎𖠚ᐝ174
- フィフィ「「歌唱強制中断」騒動、この時期に中国でライブ公演しようとするアーティストの方にも問題があるのでは?」 [377482965]
- 現役JKのお茶会スレ( ¨̮ )︎︎𖠚ᐝ173
- 無観客フル公演の浜崎あゆみさん、中国でとんでもない尊敬を集めてしまう… これもうこの国の外交官だろ… [452836546]
