Excel 2010-マージされたセルのためのコンテンツボタンをクリアします
こんにちは、私はタブ内のさまざまなセルの内容をクリアするボタンを作成しようとしています.この問題は、多くのものがマージされたセルです.これが私が思い付いたものです:
SUB CLEARCELLS2()
'更新DVMay2018
範囲(「E8」).クリアコンテンツ
範囲(「E12」).クリアコンテンツ
範囲(「E16」).クリアチェント
範囲(「E20」).クリアコンテンツ
範囲( "E22").クリアコンテンツ
範囲( "E24").クリアコンテンツ
範囲(「E26」).クリアチェント
範囲(「E28」).クリアチェント
範囲( "E30").クリアコンテンツ
範囲( "E32").クリアコンテンツ
範囲(「E34」).クリアコンテンツ
範囲(「D42」).クリアチェント
範囲(「D44」).クリアコンテンツ
範囲(「D46」).クリアチェント
範囲(「D48」).クリアチェント
範囲( "D50").クリアチェント
範囲(「D55」).クリアコンテンツ
範囲(「D57」).クリアコンテンツ
範囲( "D59").クリアチェント
範囲(「D61」).クリアチェント
範囲(「D63」).クリアチェント
範囲(「D65」).クリアコンテンツ
範囲(「D67」).クリアコンテンツ
範囲( "D69").クリアチェント
範囲(「D71」).クリアコンテンツ
範囲( "D75").クリアコンテンツ
MSGBOX "フォームがクリアされました"
終了SUB
明らかに間違っていますが、E8,12,16がマージされている場合、どうやってそれを行うのでしょうか.
返信リスト(回答:1)
@ dv123
あなたのサブのアドレスをハードコーディングする代わりに、私はあなたを提案するでしょう:
- E8、E12、E16、...D75 を選択
- その選択IEの名前.myrange
それからあなたのサブは次のようになるべきです:
サブクリアフォーム()
Dim TargetRange AS範囲
targetRange= range( "myrange")
TargetRange.Cellsの各Cについて
c.mergecellsの場合
C.Mergearea.clearContents
C.CleletContents
の場合は終了
次のc
終了SUB