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