[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロでセル内の内容を削除』(ハル)
前回も質問させていただきましたが、うまくいきませんので再度質問させていただきます。 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
(T無いよ) 2014/10/15(水) 07:37
についている回答は無視して感謝も無し? (マルチーズ) 2014/10/15(水) 09:16
回答いただいた皆様ありがとうございました。 大変連絡が遅くなり申し訳ありませんでした。
(たまA)さまの回答で上手くいきました。 ついでに質問させていただければと思いますが、質問の内容については("C31:V45")の範囲の削除 ということでしたが、あわせてB2のセルについても削除を行いたい場合のコードを追記していただ けたら助かります。ご無理をいいますがよろしくお願いします。 (ハル) 2014/10/15(水) 14:00
T無いよさんホローありがとう。
他のおかしいところが私にはわかりませんがよかったら教えて下さい。
(たまA) 2014/10/15(水) 19:52
(たまA)さん、回答ありがとうございます。 うまくいきました。 大変ありがとうございました。 (ハル) 2014/10/15(水) 20:00
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.