Ｏｆｆｉｃｅ2007でＶＢＡの実行が遅くなる？

質問

普段Office2000を使っているのですが、新しくOffice2007の入ったパソコンが導入されて、以前に作ったマクロを走らせてみたのですが、なぜか処理が非常に重くなります。
何か仕様変更か何かで、文法やルールが変わったとかあるのでしょうか？ちなみに問題のマクロは以下の通りです。

Sub 空白セルに右下がりの斜線()
　'選択したすべてのセルに対して、データがnullだった場合、
　'右下がりの斜線を引きます。
　Dim r As Range
　'選択範囲の斜線をクリア
　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　If TypeName(Selection) = "Range" Then
　　For Each r In Selection
　　　If r.Value = "" Then
　　　　With r.Borders(xlDiagonalDown)
　　　　　.LineStyle = xlContinuous
　　　　　.Weight = xlHairline
　　　　　.ColorIndex = xlAutomatic
　　　　End With
　　　End If
　　Next r
　End If
End Sub

ちなみにOffice2000では正常に動きます。（それ以外のバージョンではためしていません。）

回答No.2

Wendy02 · ベストアンサー

こんにちは。

私の知っている範囲ですが、一度、試してほしいのは、一旦、マクロを通した後に、xlsm ファイルとして保存したら、どうでしょうか。マクロ自体の問題ではないように思います。そのままですと、マクロはスクリプトを読むだけなので、遅いのではないかと思います。

お礼

お返事が遅くなりすみません。

エクセル2007を開いたときに、ファイル名のところに「互換モード」みたいなことが書いてあったのをみて、保存し直したらというのは考えたのですが、そのときはダメでした。

ただ、「マクロを通した後に保存」というのをしていなかったので、それが原因でしょうか。マクロを通すというのは、マクロを実行させてから別名保存すればよいのでしょうか。

回答No.4

OtenkiAme

こんにちは。

NO1です。

複合セルって結合したセルのことでしょうか？
私の環境では、結合セルがあってもうまく動作しています。

原因はよくわかりませんが、マクロを動かす前に
デバッグ＞（VBAProject）のコンパイルを実行してから
マクロを動かしてみたらどうでしょうか？

また、時間のかかっている処理が、
罫線を削除する処理なのか、罫線を引く処理なのか
調べてみては如何でしょうか？

お礼

お返事が大変遅くなってすみません。

あれからいろいろと試しているのですが、結局一からコードを書き直しました。
なので、遅くなった原因がどこにあったかいまいちわかっていないのですが・・・

いろいろご回答ありがとうございました！

回答No.3

Wendy02

#2の回答者です。

「マクロを通した後に保存」というのをしていなかったので、それが原因でしょうか。マクロを通すというのは、マクロを実行させてから別名保存すればよいのでしょうか。

互換モードではなく、Office 2007用で、拡張子を換えますので、結果的には別名になってしまいますよね。実際に、試したことがないというか、私は、基本的には、互換モードでは扱わないようにしていますのです。今回の場合は該当しないのですが、Office 2003 のVBAとは違う部分があるので、コードとして、互換モードは難しいのです。

お礼

あれからいろいろといじっているのですが、結果あまりよくわかりません。とりあえず、一からコード等を書き直すことで解決しました。大変遅くなりましたが、ありがとうございました！

回答No.1

OtenkiAme

こんにちは。

こちらの環境ではそれ程の違いは、ありませんが、
一つずつセルを調べて罫線を引くより、まとめて引いた方がいいかもしれませんね。

Sub Macro1()
　　Dim r As Range
　　If TypeName(Selection) <> "Range" Then Exit Sub
　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　On Error Resume Next
　　Set r = Selection.SpecialCells(xlCellTypeBlanks)
　　On Error GoTo 0
　　If Not r Is Nothing Then
　　　　With r.Borders(xlDiagonalDown)
　　　　　　.LineStyle = xlContinuous
　　　　　　.ColorIndex = xlAutomatic
　　　　　　.Weight = xlThin
　　　　End With
　　End If
　　Set r = Nothing
End Sub

お礼

お返事が遅くなりすみません。

Selection.SpecialCells(xlCellTypeBlanks)で空白セルのみを一括選択してから斜線を引くという仕組になるほどと思いました。
ただ、複数セルを複合した形で表を使っているため、Selection.SpecialCells(xlCellTypeBlanks)でうまく抽出できませんでした。

もうちょっと悩みながら、がんばってみたいと思います。ありがとうございました。