Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


42652 / 76732 ←次へ | 前へ→

【39143】Re:処理速度を速めるには??
質問  aaa  - 06/6/19(月) 10:18 -

引用なし
パスワード
   ▼ハチ さん:

ハチさんからおしえていただいた通り

>With Worksheets("Sheet2")
>  .Range("B2", .Range("H65536").End(xlUp)).Clear
>End With

を使用しましたが、実はSheet2には罫線を設定したり、一行目にラベルを設定しているのでそれまでクリアされてしまいました。
この処理をしてから罫線を引く処理と値を入れる方法を取った方が早いのでしょうか?

またコピーの件ですが、

>i = Worksheets("Sheet1").Range("I1").Value
>Worksheets("Sheet2").Range("B2:H" & i + 1).Value = _
>Worksheets("Sheet1").Range("A1:G" & i).Value

ハチさんの上記の手法でやってみると確かにコピーはできたのですが、値の書式設定が変わってしまい無理でした。
そのコピーのデータには日付や時間のデータが入っていますので、それが標準になってしまいましたので、コピーした後表示形式を変更する必要があります。

また数値データの件ですが、

>>Worksheets("Sheet2").Select
>>Range("H1:H" & i).Select
>>Selection.NumberFormatLocal = "\#,##0_);[赤](\#,##0)"

ハチさんのおっしゃるとおりCurrency型に変換しています。
すいません数値データではありません。書き方を間違えました。
Currency型に変える方法は上記のやり方が通常なのでしょうか?
もうちょっとスマートなやり方はありますか?

よろしくお願いします。
2 hits

【38986】処理速度を速めるには?? aaa 06/6/15(木) 16:47 質問
【39034】Re:処理速度を速めるには?? ハチ 06/6/16(金) 11:34 発言
【39143】Re:処理速度を速めるには?? aaa 06/6/19(月) 10:18 質問
【39038】Re:処理速度を速めるには?? Jaka 06/6/16(金) 12:08 発言
【39144】Re:処理速度を速めるには?? aaa 06/6/19(月) 10:21 発言
【39146】Re:処理速度を速めるには?? Jaka 06/6/19(月) 11:05 発言
【39153】Re:処理速度を速めるには?? aaa 06/6/19(月) 11:37 発言
【39166】Re:処理速度を速めるには?? Kein 06/6/19(月) 14:42 発言

42652 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free