Excel VBA質問箱 IV

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

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


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

11364 / 76807

←次へ　｜　前へ→


	【70981】Re:UsedRange.SpecialCells(xlCellTypeFormulas)について

kanabun - 12/1/23(月) 11:43 -


	引用なし

	パスワード

▼りんごさん： >Book内の全てのシートで、関数が設定されているかどうかのチェックをしている >のですが、 >intShIndxのシート中に計算式が１つも入っていないため、エラーとなっています。参考までに、もし私が同じチェックをするとしたら、こう書きます。 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