Excel VBA質問箱 IV

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

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


11292 / 76735 ←次へ | 前へ→

【70981】Re:UsedRange.SpecialCells(xlCellTypeFormulas)について
発言  kanabun  - 12/1/23(月) 11:43 -

引用なし
パスワード
   ▼りんご さん:

>Book内の全てのシートで、関数が設定されているかどうかのチェックをしている
>のですが、
>intShIndxのシート中に計算式が1つも入っていないため、エラーとなっています。

参考までに、もし私が同じチェックをするとしたら、
こう書きます。
Sub Check1()
  Dim sh As Worksheet
  Dim r As Range
  For Each sh In ActiveWorkbook.Worksheets
    Set r = Nothing
    On Error Resume Next '該当セルがなくても エラーで中断しない
    Set r = sh.UsedRange.SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0
    If r Is Nothing Then
      MsgBox "数式はありません", , sh.Name
    Else
      MsgBox "このシートには " & r.Count & "個の数式があります"
    End If
  Next
End Sub

3 hits

【70980】UsedRange.SpecialCells(xlCellTypeFormulas)について りんご 12/1/23(月) 11:20 質問
【70981】Re:UsedRange.SpecialCells(xlCellTypeFor... kanabun 12/1/23(月) 11:43 発言
【71049】Re:UsedRange.SpecialCells(xlCellTypeFor... りんご 12/1/27(金) 9:46 お礼
【71056】Re:UsedRange.SpecialCells(xlCellTypeFor... りんご 12/1/27(金) 11:05 質問
【71058】Re:UsedRange.SpecialCells(xlCellTypeFor... りんご 12/1/27(金) 11:20 お礼
【71060】Re:UsedRange.SpecialCells(xlCellTypeFor... kanabun 12/1/27(金) 11:22 発言
【71059】Re:UsedRange.SpecialCells(xlCellTypeFor... kanabun 12/1/27(金) 11:20 発言

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