Excel VBA質問箱 IV

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

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


26080 / 76737 ←次へ | 前へ→

【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

4 hits

【55993】selectしないで処理するには cn1 08/5/29(木) 0:20 質問
【55994】Re:selectしないで処理するには galikun 08/5/29(木) 6:09 回答
【55995】Re:selectしないで処理するには cn1 08/5/29(木) 10:05 発言
【55996】Re:selectしないで処理するには ponpon 08/5/29(木) 10:24 発言
【55998】Re:selectしないで処理するには cn1 08/5/29(木) 11:02 質問
【55999】Re:selectしないで処理するには kanabun 08/5/29(木) 11:05 発言
【56000】Re:selectしないで処理するには cn1 08/5/29(木) 11:19 発言
【56002】Re:selectしないで処理するには kanabun 08/5/29(木) 12:00 発言
【56005】Re:selectしないで処理するには cn1 08/5/29(木) 12:20 発言
【56011】Re:selectしないで処理するには kanabun 08/5/29(木) 15:07 発言
【56023】Re:selectしないで処理するには cn1 08/5/29(木) 20:19 発言
【56025】Re:selectしないで処理するには cn1 08/5/29(木) 20:47 お礼

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