sub insertRows() for i = 825 to 3 Step - 1 for x = 1 to cells(i,6).value -1 rows(i+1).Insert next x next i end sub
@user-hk2dn5gw1m
7 ай бұрын
@@gogogonininini2896 これ下から順に処理してるのか 賢いな
@Garlic014-8 ай бұрын
でもこの内容だと処理時間長そう
@gogogonininini2896
7 ай бұрын
動画の内容だと処理時間長くなりますね(PCスペックによるでしょうが、数分かかるかと)。 下記内容でアプリケーションの描画処理を止めれば約30秒程度で処理完了しました。 環境:Intel Core i5-3320M CPU, 16GB DDR3 Excel:Microsoft Office Standard 2019 仮想のレコード:3~825行、納品数:1-100(ランダム生成) ↓VBAコード sub insertRows() start_time = Timer Application.ScreenUpdating = False for i = 825 to 3 Step - 1 for x = 1 to cells(i,6).value -1 rows(i+1).Insert next x next i Application.ScreenUpdating = True Debug.Print Timer - start_time end sub
Пікірлер: 15
『簡単ならお前がやれよ』←大正解
他人本位なアピールとして取る前提だから悩んだり途中で勉強投げたくなるんだよ。 勉強がそのまま業務効率に使えるのはExcel VBAとRPAでMOSはビミョーだった。 簿記2級はいくら問題解いても作成能力であって諸表の分析能力が育まれない。無駄だとは言わないが、それ取った後にビジネス会計検定や税法、FPと併用して応用を効かせないと宝の持ち腐れになる。
ジャンプで対象の数字選択して、一括で行追加なら3パターンで終わらない?
この作業終えて渡した後、どうせ次の作業(別ファイル参照して貼るみたいなの)も頼まれるから、最終形がどうなるか聞いてちゃんと金も取ってVBA書くべき。
ショートじゃ見にくいです。
見えん
ワイ「GPTさん、エクセルさんにコード教えてあげて」
変数の宣言をしていないし、コードも内容と違う気がしますが気のせいでしょうか。
@8x4mo72
9 ай бұрын
一応変数は変数宣言の強制をしてなきゃ勝手に判断してくれるから…、 ちゃんと使っていくマクロなら宣言した方がいいけど、やっつけでこの場だけの処理なら時短かなと。 コードは最終行から納品数分行の挿入(x繰り返し)して、1行上へを行数分i繰り返してるから、やりたい内容通りかと。
肝心の内容コードが見えんコード見せろ
@gogogonininini2896
7 ай бұрын
sub insertRows() for i = 825 to 3 Step - 1 for x = 1 to cells(i,6).value -1 rows(i+1).Insert next x next i end sub
@user-hk2dn5gw1m
7 ай бұрын
@@gogogonininini2896 これ下から順に処理してるのか 賢いな
でもこの内容だと処理時間長そう
@gogogonininini2896
7 ай бұрын
動画の内容だと処理時間長くなりますね(PCスペックによるでしょうが、数分かかるかと)。 下記内容でアプリケーションの描画処理を止めれば約30秒程度で処理完了しました。 環境:Intel Core i5-3320M CPU, 16GB DDR3 Excel:Microsoft Office Standard 2019 仮想のレコード:3~825行、納品数:1-100(ランダム生成) ↓VBAコード sub insertRows() start_time = Timer Application.ScreenUpdating = False for i = 825 to 3 Step - 1 for x = 1 to cells(i,6).value -1 rows(i+1).Insert next x next i Application.ScreenUpdating = True Debug.Print Timer - start_time end sub
@Garlic014-
7 ай бұрын
@@gogogonininini2896unionが行の追加に使えるのか分からないけど、使えるならそっちの方が早そう。