Excel総合相談所 158

【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否

注意事項
・情報を隠すために別の問題を設定するのはやめましょう。たいていの場合その問題は的外れな設定で、期待していたものからずれた回答が返ってきます。

スレッド作成は>>980がやります

※前スレ
Excel総合相談所 157
https://mevius.5ch.net/test/read.cgi/bsoft/1728342726/

>>665
絶対まともに仕事できない奴だろ

放置が吉

ID出ないから質問してないやつが追加質問して混乱してんのよここ

>>668
追加質問と言うよりは
質問者のフリして
かき混ぜてる

>>669

質問者じゃないくせに偉そうに言うな

次スレはシベリア化とか何とかでエエわ

そういう事するのは大抵高齢者
昔はマクロでやるのが当たり前～とか意味不明な言い訳するから。

>>670
質問者は偉そうにしても良いとでも?

親の顔が見たいわ

>>649
マクロでできるんじゃないか？

諦めろ諦めるんだ。

>>673
はいどうぞ
https://i.imgur.com/X9T3bi2.jpeg

AIに親の顔が見たいと言ったらこれが出てきた

あんたAIの奴隷なの？

例えば、ひとかたまりのデータ選択して[並べ替え]という作業
ダイアログ上で列指定して並び順を指定してOK押すと一瞬で並び替えられたひとかたまりに成る
それを一瞬じゃ無くてスローモーションのように「ゆっくり」パタパタ漫画みたいに表示したいのか？
>再生速度をゆっくりにしたい　とか
>いや作業じゃない　VBAなんですが　とか、ちょっと足りない書き込みから想像するに、そうなのか、と

上記の例で例えば300人の名簿に氏名・郵便番号・住所・・とか並んでたとして
一旦全部を別Sheetに切り取り＆貼り付けしといて、そちら側で指定された並び順に並び替えてから
そのデータを順に元のSheetに「ゆっくり」一行(レコード)ずつパタパタと貼り付け直してくようなのを想像したが、果たして

なんかyoutubeでそんなのあったなあ
アルゴリズムの解説で、ソートの動作をゆっくりやって見せてるやつ

RPAはマウス操作を再現するけどVBAはゆっくりになったところで視覚的にはどうだろうな

ゆっくりさせたいのはプログレスバーです

VBAコードは普通に作って、
動作中の画面をスマホの高速シャッターモードで撮影する。
それを再生すれば動作がゆっくりになる。

それだとマクロで再生した方がいいですよね？

あと、プログレスバーができません

ゆっくりしていってね！！

>>682
これただの揚げ足取りですよね？

🔹方法①：Application.Waitを使う（簡単・秒単位）
Sub SlowDownWithWait()
Dim i As Integer
For i = 1 To 10
Cells(i, 1).Value = i
' 1秒待機
Application.Wait Now+TimeValue("0:00:01")
Next i
End Sub
🔹方法②：Sleep APIを使う（ミリ秒単位で制御可能）より細かく制御したい場合はこちら：
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub SlowDownWithSleep()
Dim i As Integer
For i = 1 To 10
Cells(i, 1).Value = i
' 500ミリ秒（0.5秒）待機
Sleep 500
Next i
End Sub
🔹方法③：アニメーションっぽく見せたい場合（画面更新をオンにしておく）普段は高速化のためにApplication.ScreenUpdating = Falseを使いますが、「ゆっくり見せたい」場合はこれをTrueのままにします。
💡応用例：だんだん早く／遅くする
Sub GraduallyChangeSpeed()
Dim i As Integer, delay As Long
delay = 1000 ' 初期は1秒
For i = 1 To 10
Cells(i, 1).Value = i
Sleep delay
delay = delay - 100 ' 徐々に短く
If delay < 100 Then delay = 100
Next i
End Sub

プログレスバーは、ただ単に処理の状況を視覚的に表示しているだけの部品
処理が一瞬で終わればプログレスバーも一瞬表示するだけで終わる
それをゆっくりさせたいとなると、処理の方を時間が掛かるように加工しなければならない
或いは、画面いっぱいな程長ーいプログレスバーにして目盛りがいっぱいあるようにするとか

不確定型プログレスバーの作り方
https://liclog.net/create-indeterminate-progress-bar-function-vba-api/
今度使ってみよう

これマクロでどうやってやりますか？

>>690

Sub ゆっくりしていってね()
Const Message = " ゆっくりしていってね！！"
MsgBox Message
For t = 0 To 20
Application.StatusBar = String(t, ChrW(9632)) & String(20 - t, ChrW(9633)) & Message
Application.Wait Now + TimeValue("0:00:01")
Next
Application.StatusBar = ""
End Sub

>>689 のは、ユーザーフォームを作ってExcel画面の前面に出して表示する
　延々とアニメーションが流れるだけで、終了させるにはユーザーフォームの×で閉じるしかない
>>691 のは、一旦画面上にメッセージボックスが出て、その[OK]を押すと
　画面最下段に20ヶの□が出て、ひとつずつゆっくり■に変わって全部が埋まったら終了する
両方共、その処理を終わらせる・終わるまでは他の作業はできない

何いきなり？
思いついたこと全部書いてんの？

レス番付いたひとつ前の書き込みすら読めないのか

そういう事するのは大抵高齢者
実際同じこと何度も言うししつこい

>>694
構ってちゃんは無視で
Microsoft関連スレで彷徨いてる奴

>>687 は、A1から列方向に順に1,2,3,･･と10まで埋める処理のスピードを調整できる例の三つのサンプル
ただ、�Aは最初に Private とか入れとかないと Declareステートメントはどうちゃらのエラーに成る
おそらくAI辺りの回答を真に受けてまんま貼り付けただけだと推測される
当人にVBAの知識が無いのかも知れないし、実務はこなしたことが無いのかも知れない　両方かも

落ち着け
これチャッピーのコピペだよ

>>697
自己紹介ですか？

電源管理で最大のプロセッサの状態を5%にしてみて

>>689
これって負荷がかかるだけじゃないの？

負荷がいやならプログレスバーなんか作るな
いつ終わるかわからないままずっと見張ってろ

もうそろそろ>>649を荒らし認定しようか

回ってるだけのプログレスバーでも進行状況で動くなら意味あるけど
別スレッドでアニメーションしてるだけの奴は全く意味ないよね
VBA関係なくてすまん

99%のままいつまでも進まないエクスプローラーのファイルコピーとか、あれどうにかならんの

Windows Update だと、100%になってもいつまでも終わらないけどな

>>705
実物の方はもう使えるようになってるから無視してる

>>701 そちらでは、どこに負荷が掛かってる？
こちらではCPUにもメモリにも、開始時も継続時も終了時も、特段の負荷は見受けられない

プログレスバーを100個ぐらい動かしても？

>>709
検証方法を教えてくれ
あとこれ必要か？

Private hWndProg As LongPtr
↓ ↓ ↓
Private hWndProg(99) As LongPtr

hWndProg使ってるところを辻褄合うようFor〜Nextで適当に調整して

ビッグバンプログレス

A列にデータが入ってて
それをB列C列に振り分けたい
少しならB1=A1、C1=A2、B2=A3、C2=A4、B3=A5、C3=A6、B4=A7、C4=A8
でもいいけど縦にいっぱいあるので
簡単にやる方法ある？

>>713
B列とC列にこの数式を入れる
=INDIRECT("A"&ROW()*2+COLUMN()-3)

なんかズレて入るんだけど、、、、

>>713
B1にこの数式を入れる
=HSTACK(CHOOSEROWS(A1:A100,SEQUENCE((ROWS(A1:A100)+1)/2)*2-1),CHOOSEROWS(A1:A100,SEQUENCE(ROWS(A1:A100)/2)*2))

もっと簡単にできた

B1にこの数式を入れる
=WRAPROWS(A1:A100,2)

offset関数でもイケる?

それ必要か？

揮発性関数はなるべく使いたくない

揮発性関数なしだと
作業列が必用では?

少なくとも2行分を読み込んで2個目の改行位置を探さないとA3を読み始められない

>>721
いいえ、必用ではありません

>>719
いいえ、必要ではありません

>>718
はい、イケます

ケフィアに見えた

いいえ、先輩
私達のケンカです！

ギコギコしませんスーです

プログレスバーを100個動かしてみたが遅くならないんだが

まさか本当にやるとは・・・

負荷テストなんだから1000個や10000個もやるべき

CPUをIntel Core2Duoに変えればExcel VBAの動作は全体に遅くなる

そもそもWindows 11 24H2が動かないのでは？

拡張子vbsのテキストファイルを作成し以下の1行「while 1: wend」を書いて保存
保存したvbsファイルを適当に何回かダブルクリックするとゆっくりになると思うよ

vbsの内容
----------------
while 1: wend
----------------

>>733
>>465　案外行けたりする　Excelサクサクには動かせないかも知らんけど

>>734
1行ずつなの？
何回かダブルクリック？

そだよ

これって負荷がかかるだけじゃないの？

質問者の意図や目的がわからん
負荷をかけて重くしたいのか、見た目が遅ければいいだけなのか、仕事をサボりたくてゆっくり処理してほしいのか

↑偉そうに質問する人

質問する人は偉そうにしてよいのですよ

これ質問なのか？？？

質問を装った荒らし

Enter押すと右下にカーソル動くセルあるんですがどう修正すればいいですか？

来世に期待

便利なのでそのままでいいかと

ゆっくり処理したらサボれないじゃん

プログレスパーをゆっくり終わらせてその間サボりたいのではる

>>734
これがファイナルアンサー？

そだよ

だから負荷をかけて重くしたいのか、見た目が遅ければいいだけなのか、仕事をサボりたくてゆっくり処理してほしいのか

質問を装った荒らし

RPAでマウス操作を目視できるやつみたいに自動化したかったです！

あと、俺じゃない人が質問して広がってるｗ

しかも俺じゃない人が勝手に回答してるしw

>>753
UWSC

あと、俺じゃない人が質問して広がってるｗ

>>756
(*´∀｀*)b　ありがとう！ベストアンサー賞です！！

これ会社のPCで動くのかな、更新止まってるのは完全に完成したってことよな。
とりあえず週明けやってみる㌧

しかも俺じゃない人が勝手に回答してるしw

UWSCが更新止まってて不安ならAHKかな
プログラミングできないとだけど

>>761
ありがとう、pythonを動かすことができるんだ。
batでbvsやpython動かすのと似てるのかな、やってみる㌧

Excelで各自の制作数を記入出来る表を印刷して配布→各部署から記入された数を入力する業務があるんだけど人数がバカ多くて効率化できないかと思ってるんだけどおすすめとかないですかね…
少々数値違ってもいいから手描きの数値を読み取ってそのままコピペとか出来たらかなり手間が減るんですが…360でそれらしい記述あったけど360じゃないし…スレ違いかもだけどチャットgptとかAI活用してる方いらっしゃる？

>>763
お前もそのバカの一人だろ
無理にエクセルを使うのならエクセルでフロントエンドだけ作ってdbに放り込めよ

あ、早速釣れましたか
罠にかかりましたねw
適当にスルーしましょう