こんにちは、よろしくお願いします
エクセルのWorksheetFunction.CountBlankのエラーについて教えてください
1
WorksheetFunction.CountBlank(Range("D17:I17,D19:I19"))はエラーになります
エラーメッセージは
WorksheetFunctionクラスのCountBlankプロパティーを取得できません
と表示されます
2
WorksheetFunction.CountBlank(Range("D17:I17"))はOKです
やはり、1のように離れた複数セルのCountBlankはサポートしてないということでしょうか?
それとも、私の範囲指定が間違ってますか?
No.3
- 回答日時:
> 私の範囲指定が間違ってますか?
どこかのセルに「=COUNTBLANK(D17:I17,D19:I19)」と入力して
みれば 数式として成立するかどうかはすぐ分かると思います。
COUNTBLANK関数を使うのが目的なのかもしれませんが
Dim r As Range, cnt As Long
cnt = 0
For Each r In Range("D17:I17,D19:I19")
If r.Value = vbNullString Then cnt = cnt + 1
Next r
MsgBox cnt & "個です。"
No.2
- 回答日時:
こんにちは!
VBAでなく通常のワークシート関数のCountBlank関数を使って離れた範囲をしてしてみてください。
やはりエラーになります。
VBAのWorksheetFunctionはそのままワークシート関数を使うコトですので、
数式によるエラーはVBAでも使えません。
やり方としては
① 範囲を指定してループさせる方法
② 二つの範囲の空白セルをプラスする方法
といった感じになると思います。
↓のSample1が① でSample2 が②になります。
Sub Sample1()
Dim cnt As Long, c As Range, myRng As Range
Set myRng = Range("D17:I17, D19:I19")
For Each c In myRng
If c = "" Then
cnt = cnt + 1
End If
Next c
MsgBox cnt
End Sub
Sub Sample2()
Dim myRng1 As Range, myRng2 As Range
Set myRng1 = Range("D17:I17")
Set myRng2 = Range("D19:I19")
MsgBox WorksheetFunction.CountBlank(myRng1) + WorksheetFunction.CountBlank(myRng2)
End Sub
※ 他にも色々やり方はあると思います。m(_ _)m
こんにちは、ありがとうございます
アドバイスいただいたように、二つの範囲を足し算したらちゃんと計算してくれました
Setを覚えました
ありがとうございました
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応 3 2022/12/27 22:27
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Excel(エクセル) VBA カゥントで数値の範囲を規制 1 2022/05/20 06:20
- Visual Basic(VBA) Excelのマクロ ブック間である範囲をコピー Workbooks(“a.xlsx“).Sheets 3 2022/05/12 17:02
- Excel(エクセル) エクセルを活用した受注表作成の中で関数・数式を教えてください。 3 2022/07/23 08:14
- Visual Basic(VBA) 飛び地セルの空白判定 2 2022/10/24 15:54
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) エクセルの関数式を教えてください。 2 2022/11/29 21:09
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
vbaでworksheetfunctionでの複数関数がエラーになります
Visual Basic(VBA)
-
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
-
4
特定の範囲内に空白セルがいくつあるかを数えるマクロを作りたいのですが。
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SUM関数の範囲に#N/Aが...
-
もしセルが"#N/A"なら~をする...
-
Excelでエラー(#N/Aなど)値を...
-
APEXをやっていたらこんなエラ...
-
Eエクセルの計算方法で空欄を0...
-
ExcelでVBAを使用した際に、『...
-
VBAで「致命的なエラー」が出ま...
-
VLOOKUPで求めた数値をさらにVL...
-
チケット何回もエラーは高額請求?
-
自動改札のエラーって…
-
Chatgptから送られてきたリンク...
-
エクセルのエラー文について
-
ACCESS VBA でのエラー解決の根...
-
送信エラー時、レポートメール...
-
エラーコードがわかりません
-
システムエラーです:&H80004005...
-
iPhone11です。 キャリアはドコ...
-
「-2147012889」というエラーで...
-
インポートエラーのテーブルを...
-
事務用コピー機がエラー表示で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでエラー(#N/Aなど)値を...
-
SUM関数の範囲に#N/Aが...
-
もしセルが"#N/A"なら~をする...
-
ExcelでVBAを使用した際に、『...
-
自動改札のエラーって…
-
Eエクセルの計算方法で空欄を0...
-
送信エラー時、レポートメール...
-
APEXをやっていたらこんなエラ...
-
ACCESS VBA でのエラー解決の根...
-
VBAで「致命的なエラー」が出ま...
-
Chatgptから送られてきたリンク...
-
普段から使っている乗車券が改...
-
VLOOKUPで求めた数値をさらにVL...
-
EXCELマクロで☓400とでます
-
チケット何回もエラーは高額請求?
-
VLOOKUP関数についての質問です...
-
改札エラーについて
-
エクセルのエラー文について
-
■□■読み方■□■ #N/A, #VALUE!, ...
-
システムエラーです:&H80004005...
おすすめ情報