複数行を選択して非表示にするマクロを組んでますが、PCによっては実行エラーがでるPCと出ないPCとで2通りで原因が分かりません。
Range( _
"11:11,17:17,23:23,29:29,35:35,41:41,55:55,67:67,73:73,79:79,85:85,91:91,111:111,117:117,123:123,129:129,135:135,141:141,147:147,153:153,159:159" _
).Select
Selection.EntireRow.Hidden = True

最後の行でエラーがでて
「実行時エラー'-2147417848(80010108):
'EntireRow’メソッドは失敗しました:’Range’オブジェクト」とでます。
また、実行したPCもWin-XP+EXCEL2003とVersionは同じです。
なぜ一方にはエラーがでるのか分かりません。どなたかヒントでもいただけないでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

こんばんは。



コードとしては、無理がありますが、片方にエラーが出るという理由は、分かりませんね。シートの保護でもしてあれば、そのようなエラーが発生しますね。

Sub Test1()
  Dim nRng As String
  Dim n As Variant
Dim ur As Range 
  nRng = "11,17,23,29,35,41,55,67,73,79,85,91,111,117,123,129,135,141,147,153,159"
  Set ur = Rows(11) 'エラー用のダミー
  For Each n In Split(nRng, ",")
    Set ur = Union(Rows(n), ur)
  Next
  ur.EntireRow.Hidden = True
  Set ur = Nothing
End Sub
    • good
    • 0
この回答へのお礼

遅くなりましたがありがとうございました

お礼日時:2009/05/23 22:21

なぜエラーになるのかは不明ですが



Rows(11).Hidden = True
Rows(17).Hidden = True
Rows(23).Hidden = True

のようにするのはいかがですか?
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング