![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
下記マクロで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
![「下記マクロでMsgBox "空白です。"」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/e/505985268_667689d486742/M.jpg)
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(エクセル)
-
エクセルで 自動的に◯や数字を表示させることできます? 例えばなんですが 日付 山田 1 ◯ みたい
Excel(エクセル)
-
-
4
【マクロ】顧客番号にて一致させ、情報を表へ上書きする為には
Excel(エクセル)
-
5
エクセルの関数について教えてください
Excel(エクセル)
-
6
Excelに詳しい方! B列が「日」なら「休」と表示されるようにしたいのに何で全部の曜日に「休」と入
Excel(エクセル)
-
7
祝日と土曜、日曜の合計をカウントしたいです。 Excelで祝日シートを作成しております。 別シートの
Excel(エクセル)
-
8
2列に入っているデータを1列で表示する関数について
Excel(エクセル)
-
9
自動入力で今月はMONTH(TODAY())で良いのですが、翌月はどのようにすれば良いでしょうか。
Excel(エクセル)
-
10
エクセルの計算
Excel(エクセル)
-
11
エクセルでバーコード作成し使用しているんですが、違うパソコンで同じエクセルファイルを使用したらバーコ
Excel(エクセル)
-
12
【Excel】別シートから条件に合うリストを抽出するのは?
Excel(エクセル)
-
13
エクセルのクイックアクセスツールバーには何を登録したら良いですか?罫線を引く「格子・枠なし・外枠」と
Excel(エクセル)
-
14
PDFの請求明細をエクセルにしたい
Excel(エクセル)
-
15
特定の文字列を含む、住所を抽出する
Excel(エクセル)
-
16
【EXCEL】画像の黄色部分の抽出方法を教えてほしいです。
Excel(エクセル)
-
17
エクセル関数を使って
Excel(エクセル)
-
18
Excel VBAで全ての矢印を赤色に変更する方法
Excel(エクセル)
-
19
【ExcelVBA】名前を付けて保存→PDF保存をマクロで実行できますか?
Excel(エクセル)
-
20
エクセルで日付の入ったセルの月別の個数が知りたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「未使用」と「不使用」ってど...
-
大学、レポートのデータ引用元...
-
高速フーリエ変換でデータ数が...
-
PCの内蔵メモリにデータは残る?
-
ネットカフェから、メールでき...
-
職務質問で聞かれたデータはど...
-
Excelの“並び替え”で文字コード...
-
日本通信の当月利用データ量は...
-
窓関数(方形窓)について
-
PCのデータを勝手にコピーされ...
-
差し込み印刷がうまくできません
-
日本語についてです。 嘘のデー...
-
ExcelデータのMacとWindowsの文...
-
CSVファイルを・…
-
インスタの設定について。 イン...
-
正規分布へのfitting
-
情報処理試験の計算(簡単なは...
-
標準偏差の計算方法:「n」と「...
-
FAXの表をエクセルに変換したい
-
FFTにおけるゼロ追加、補間や分...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「未使用」と「不使用」ってど...
-
高速フーリエ変換でデータ数が...
-
PCの内蔵メモリにデータは残る?
-
パレート図等で「N=100」とあ...
-
ネットカフェから、メールでき...
-
下記マクロでMsgBox "空白です...
-
Excelの“並び替え”で文字コード...
-
XMLデータってなんですか?
-
Excel Webクエリ
-
データ用HDDの別のPCへの乗せ替え
-
エクセルのグラフのデータ系列...
-
職務質問で聞かれたデータはど...
-
時代はSSDなのにネットの最近の...
-
日本通信の当月利用データ量は...
-
ワードの差し込み印刷のデータ...
-
プロ野球の球団別の残塁数を載...
-
シリアルRS-232出力機器からの...
-
差し込み印刷がうまくできません
-
Excel ドロップダウンリスト(入...
-
表計算: 多次元の表を作りたい
おすすめ情報