Excel VBA質問箱 IV

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

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


23539 / 76738 ←次へ | 前へ→

【58565】Re:計算式が入っているのセルに色
回答  りん E-MAIL  - 08/10/30(木) 11:24 -

引用なし
パスワード
   Sub さん、こんにちわ。

>セルを反転させた範囲のみ対象とし,
>一括変換(計算式が入っているセルの色塗り)をしたいの
>ですがどうすれば良いでしょうか。

手動でする場合は、
(セルを選択) → 編集→ジャンプ→セル選択「数式」 → 色づけ

これを記録すると、
Sub Macro1()
  Selection.SpecialCells(xlCellTypeFormulas, 23).Select
  With Selection.Interior
    .ColorIndex = 6
    .Pattern = xlSolid
  End With
End Sub

SpecialCellsは該当セルがないとエラーになるので、ちょっと手を加えて、

Sub Macro1()
  Dim r1 As Range
  '数式がないとエラーになるのでスキップを入れておく
  On Error Resume Next
  Set r1 = Selection.SpecialCells(xlCellTypeFormulas, 23)
  On Error GoTo 0
  '分岐
  If r1 Is Nothing Then
   MsgBox Selection.Address & "に数式なし", vbExclamation
  Else
   With r1.Interior
     .ColorIndex = 6 '黄色
     .Pattern = xlSolid
   End With
  End If
End Sub

こんな感じです。
2 hits

【58564】計算式が入っているのセルに色 Sub 08/10/30(木) 11:18 質問
【58565】Re:計算式が入っているのセルに色 りん 08/10/30(木) 11:24 回答
【58568】解決です。ありがとうございました。 Sub 08/10/30(木) 11:38 お礼

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