2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

851 :名無しさん@そうだ選挙にいこう:2011/07/31(日) 19:32:20.18
>>849
数千・・・にはなりませんが数百にはなりますね。

実作業の部分は
Workbooks("仕訳帳日付順").Worksheets("sheet1").Range(Cells(RowB, 1), Cells(RowC, 3)).Copy
Workbooks("元帳_一般会計").Worksheets("会議費").Cells(3, 2).PasteSpecial Paste:=xlPasteValues

これと同様な単純なコピペコードが2、300個ほど続きます。
エラーが出たときに原因を特定しやすくしようと小分けにしたのですが、
やはり内部の同じモジュールにサブプロージャとして書き込むべきでしょうか・・・?

>>850
今回新しく作る整理用の帳簿に並び替えながら転記するためのコードなんですが、
何しろ数が多いので、ミスがないように自動で処理させるとなると
どうしてもVBAを避けて通れません。
おっしゃるとおりループで処理させるようなコードを組めば短く済むのでしょうが、
解説サイトを見ながらコードを書いているようなレベルなので、
いきなり難しい構文に挑戦するよりは、
多少冗長でもなるべく簡単な構文のコードだけで暫定版を組んでおき、
ある程度複雑なコードが組めるようになった時点できれいにまとめた完成版に差し替えようと考えています。

345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.01.03 2014/02/20 Code Monkey ★
FOX ★ DSO(Dynamic Shared Object)