Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26075 / 76732

←次へ　｜　前へ→


	【55993】selectしないで処理するには

cn1 - 08/5/29(木) 0:20 -


	引用なし

	パスワード

下記コードにおいて
セレクトしないで消去する方法を教えて下さい。
全て結合セルです。
Range("H10:Q11,Y10:AH11,・・・).ClearContents　とすると
Error"結合された一部を変更することはできません"
下記なら問題なく動きますが・・・
よろしくお願いします。

Sub 消去()
　　ActiveSheet.Unprotect
　　Application.EnableEvents = False
　　Range("H10:Q11,Y10:AH11,H12:AM13,J14:J15,Y15:AF15,Z16:AC16,
　　　　　 AF16:AI16,M18:Y18,AD18:AI18,N23:AH23,H24:Q24,Y24:AH24,L27:AD27,
　　　M29:N29,Q29:AH29,M30:AH31,M32:W32,AD32:AH32,O33:Y34,H35:AI38")_
　　.Select
　　Selection.ClearContents

　　Application.Goto Reference:="R9C2"
　　ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
　　ActiveSheet.EnableSelection = xlUnlockedCells
　　Application.EnableEvents = True
End Sub

0 hits

▼

【55993】selectしないで処理するには cn1 08/5/29(木) 0:20

≪