[[20141014214602]]　『マクロでセル内の内容を削除』（ハル）　ページの最後に飛ぶ

『マクロでセル内の内容を削除』（ハル）

 前回も質問させていただきましたが、うまくいきませんので再度質問させていただきます。
 Private Sub CommandButton4_Click()
  Sheets("AAA").PrintOut
  Sheets("AAA").Range("C31:V45").ClearContents
 End Sub

 上記コードがあります。ユーザフォーム内にコマンドボタンを配置し印刷後所定の
 セルの範囲の内容が削除されるようにしたいのですが、うまくいきません。
 セルについては、結合をしています。このことが原因なのでしょうか？

 どなたかご教示ください。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 >セルについては、結合をしています。

 結合範囲はどこからどこまでですか？
（カリーニン） 2014/10/14(火) 22:25

 >うまくいきません。

 どのようにうまくいかないかの説明も必要です。
 エラーが出るのなら、エラーメッセージとどこでエラーになるかを
 説明してください。

（カリーニン） 2014/10/14(火) 22:28

 Private Sub CommandButton4_Click() 'セレクトさせクリアーする
 Dim r As String
 Dim s As String              '（1）アクチィブシート（"AAA"）なら、（1）～（4）いらない
 r = Selection.Address
 s = ActiveSheet.Name         '（2）
   With Worksheets("AAA")
     .Activate                '（3）
     .PrintOut
     .Range("C31:V45").Select '結合セルも含め選択
     Selection.ClearContents  '選択セルクリアー
     .Range(r).Selec
     Worksheets(s).Activate    '（4）
   End With
 End Sub
（たまA） 2014/10/14(火) 23:17

他のおかしいところは無視して

  .Range(r).Selec  --->   .Range(r).Select

（Ｔ無いよ） 2014/10/15(水) 07:37

[[20141012160146]]　『セルの削除』（ハル）

 についている回答は無視して感謝も無し？
（マルチーズ） 2014/10/15(水) 09:16

 回答いただいた皆様ありがとうございました。
 大変連絡が遅くなり申し訳ありませんでした。

 （たまA）さまの回答で上手くいきました。
 ついでに質問させていただければと思いますが、質問の内容については("C31:V45")の範囲の削除
 ということでしたが、あわせてB2のセルについても削除を行いたい場合のコードを追記していただ
 けたら助かります。ご無理をいいますがよろしくお願いします。
（ハル） 2014/10/15(水) 14:00

.Range("C31:V45").Select を.Range("C31:V45,B2").Select

Ｔ無いよさんホローありがとう。
他のおかしいところが私にはわかりませんがよかったら教えて下さい。
（たまA） 2014/10/15(水) 19:52

 （たまA）さん、回答ありがとうございます。
 うまくいきました。
 大変ありがとうございました。
（ハル） 2014/10/15(水) 20:00

コメント返信：

[ 一覧(最新更新順) ]

[[20141014214602]] 『マクロでセル内の内容を削除』（ハル） ページの最後に飛ぶ

[[20141014214602]]　『マクロでセル内の内容を削除』（ハル）　ページの最後に飛ぶ