Excel VBA質問箱 IV

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

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


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

40482 / 76732

←次へ　｜　前へ→


	【41348】Re:シートのコピー（計算式を除く）：一...

へっぽこ - 06/8/7(月) 12:08 -


	引用なし

	パスワード

ジャーンプ！機能は…

ワークシートの画面で、
・対象となるセル範囲を選択。
・「編集」→「ジャンプ」と選択。（イキナリＦ５でもおんなじ）
・「セル選択」を押す。
・「数式」を選んで、「ＯＫ」

で数式が入力されているセルが選ばれるのでDELキーでクリアすれば
いいかなーと思いました。

これをマクロで書くとこんな感じでしょうか。
（対象範囲を勝手にA1～E14とさせてもらいます）

Sub サンプル()
　　Dim 該当セル As Range
　　'ジャーンプ機能。
　　Set 該当セル = Range("A1:E14").SpecialCells(xlCellTypeFormulas, 23)
　　If 該当セル Is Nothing Then
　　　　MsgBox "数式セルはありません。"
　　Else
　　　　'DELキーと一緒。
　　　　該当セル.ClearContents
　　End If
End Sub

ちなみに
SpecialCells(xlCellTypeFormulas, 23)
　　　　　　　　　　　　　　　　 ~~
の23はジャンプの画面にある
数値　　→ xlNumbers　　→ 1
文字　　→ xlTextValues → 2
論理値　→ xlLogical　　→ 4
エラー値→ xlErrors　　 →16
をぜーんぶ足した値だったりします。
なので
23と書く代わりに
～(xlCellTypeFormulas, xlNumbers + xlTextValues + xlLogical + xlErrors)
という書き方もアリです。

さらに
～(xlCellTypeFormulas, 16) としたり
～(xlCellTypeFormulas, xlErrors) とすれば、
数式の中でもエラーになっているもの(#N/Aや#VALUEなど)だけを
対象にすることもできます。

以上で～す。(^^)/

0 hits

▼

【41343】シートのコピー（計算式を除く）：一部数... まったくの初心者です。 06/8/7(月) 11:23