下記マクロでMsgBox "空白です。"の部分の
メッセージボックスは現れるものの
空白です。の文字が出ません。
原因が分かりません。
全シートの左から3枚目以降のシートを対象に
A3:CEの中にデータが存在するかしないかを調べたいです。
データが残っていれば
ms = ms & vbLf & Sheets(i).Name & "にデータが残っています。" で表示されますが
データが無い場合は画像の通り、文字が出ません。
Sub 残データの確認()
Dim i As Long, cnt As Long, r As Long
Dim rng As Range
Dim ms As String
For i = 3 To Sheets.Count
Sheets(i).Select
With ActiveSheet
r = .UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
If r - 2 = 0 Then
On Error Resume Next
Else
On Error GoTo 0
Set rng = .Range("A3:CE" & r)
If WorksheetFunction.CountA(rng) = 0 Then
cnt = cnt + 1
Else
ms = ms & vbLf & Sheets(i).Name & "にデータが残っています。"
End If
End If
End With
Next i
If cnt = Sheets.Count - 3 Then
MsgBox "空白です。"
Else
MsgBox ms
End If
End Sub
No.3ベストアンサー
- 回答日時:
No.1さん、No.2さんのご指摘のとおりだと思います。
空シート数を数えるのではなく、残データシートの有無をフラグで判定する方法はいかがでしょう。
Sub 残データの確認()
Dim i As Long, r As Long
Dim rng As Range
Dim ms As String
Dim allEmpty As Boolean ' 3シート目以降全シート空のフラグ
allEmpty = True ' フラグを初期化
For i = 3 To Sheets.Count
With Sheets(i)
r = .UsedRange.Rows(.UsedRange.Rows.Count).Row
If r >= 3 Then
Set rng = .Range("A3:CE" & r)
If WorksheetFunction.CountA(rng) > 0 Then
ms = ms & vbLf & .Name & "にデータが残っています。"
allEmpty = False ' フラグを偽に設定
End If
End If
End With
Next i
If allEmpty Then ' 3シート目以降全シート空の場合
MsgBox "空白です。" ' 空白メッセージを表示
Else
MsgBox ms ' 残データがあるシートのメッセージを表示
End If
End Sub
新たにマクロまで組んでいただき
ありがとうございます。
実装してみたところ、見事に思った通りの結果
且つ、高速処理で満足しております。
No.2
- 回答日時:
3枚目以降で空白なら
cnt = cnt + 1
をするのですから、
ここの判定は -3 ではなく -2 なんじゃないかな。
If cnt = Sheets.Count - 2 Then
MsgBox "空白です。"
Else
No.1
- 回答日時:
こんばんは
なんだか意図して複雑にしているような・・
>データが無い場合は画像の通り、文字が出ません。
データがない場合をよく考えてみればわかるはずですけれど・・
>MsgBox ms
が実行されるので(変数msの内容は空白文字列)、何も表示されないように見えているだけでしょう。
1シートだけデータを残した状態で実行してみれば、「空白です。」が表示されませんか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) A2~I4179列にあるリストを支社名ごとにシートに分けたいです。 各シート名はA列にある支社名とし 3 2023/08/29 16:46
- Visual Basic(VBA) Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです 3 2024/02/05 22:10
- Visual Basic(VBA) WORD VBA プログラム修正をお願いします。 2 2024/04/25 23:43
- Visual Basic(VBA) VBA listBoxについて 2 2024/03/26 16:14
- Visual Basic(VBA) VBAコードについて 2 2024/03/10 12:41
- Visual Basic(VBA) VBAに関して 2 2023/11/09 20:57
- Visual Basic(VBA) マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定 6 2024/01/17 17:50
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルの計算
Excel(エクセル)
-
職場の人から聞かれており、こんなことができるか教えて下さい。 vbaとかはできません。。 下記リスト
Excel(エクセル)
-
自動入力で今月はMONTH(TODAY())で良いのですが、翌月はどのようにすれば良いでしょうか。
Excel(エクセル)
-
-
4
Excel初心者です。 詳しい方、効率の良いやり方を教えてください。 職場で、抽出したデータの表を見
Excel(エクセル)
-
5
エクセル 文字を増やしたい。
Excel(エクセル)
-
6
エクセルでの作業計算方法について
Excel(エクセル)
-
7
【関数】先頭だけにある、半角スペースを、とりのぞく事はできますか?
Excel(エクセル)
-
8
【マクロ】顧客番号にて一致させ、情報を表へ上書きする為には
Excel(エクセル)
-
9
エクセルで日付の入ったセルの月別の個数が知りたい
Excel(エクセル)
-
10
Excelにてある膨大なデータを管理しています。 そこで、特定の市町村にのみ色を付けたいです。 Ex
Excel(エクセル)
-
11
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
-
12
エクセルを使っていて2024/5/15と入力したのに令和元年とかででるのでしょうか?何か設定分かる方
Excel(エクセル)
-
13
【関数】適切な文字数の数字を取り出したい
Excel(エクセル)
-
14
Excelについて教えてください
Excel(エクセル)
-
15
エクセル②
Excel(エクセル)
-
16
Excelでセルの値が同じかどうか確認する関数(数式)を教えていただけないでしょうか?
Excel(エクセル)
-
17
関数の説明
Excel(エクセル)
-
18
エクセルで日付を数字+アルファベットと比較したい
Excel(エクセル)
-
19
エクセルの「赤」の印刷がうまくできなくなりました。
Excel(エクセル)
-
20
一つのセルに(例えばA1)入力された3桁・4桁の数字を並べ替えて同一行のセルに表示させる。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「未使用」と「不使用」ってど...
-
PCの内蔵メモリにデータは残る?
-
ネットカフェから、メールでき...
-
高速フーリエ変換でデータ数が...
-
日本通信の当月利用データ量は...
-
Rについての質問です。 Rを使い...
-
Excelの“並び替え”で文字コード...
-
インスタの設定について。 イン...
-
バラバラなPDFの画面上等のサイ...
-
相関係数の求め方
-
月次データから四半期データへ...
-
撮った写真がCD-Rに記録されて...
-
相関係数の求め方で質問
-
パレート図等で「N=100」とあ...
-
2度打ちとは、何でしょうか?...
-
個人情報を無断で掲載している...
-
プロ野球の球団別の残塁数を載...
-
排他的論理和の問題
-
FAXの表をエクセルに変換したい
-
外れ値について。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「未使用」と「不使用」ってど...
-
高速フーリエ変換でデータ数が...
-
PCの内蔵メモリにデータは残る?
-
パレート図等で「N=100」とあ...
-
ネットカフェから、メールでき...
-
下記マクロでMsgBox "空白です...
-
Excelの“並び替え”で文字コード...
-
XMLデータってなんですか?
-
Excel Webクエリ
-
データ用HDDの別のPCへの乗せ替え
-
エクセルのグラフのデータ系列...
-
職務質問で聞かれたデータはど...
-
時代はSSDなのにネットの最近の...
-
日本通信の当月利用データ量は...
-
ワードの差し込み印刷のデータ...
-
プロ野球の球団別の残塁数を載...
-
シリアルRS-232出力機器からの...
-
差し込み印刷がうまくできません
-
Excel ドロップダウンリスト(入...
-
表計算: 多次元の表を作りたい
おすすめ情報