excel2003を使用しています。
以下のような表があります。
コード 社名 終了日
A あ社 6/1
B い社
C う社
終了日に日付が入ったら別シートにその結果をコピーしたいのですが、もし、終了日に日付がまったくない時は、オートフィルタを設定しないか、コピーをしないかにしたいです。
この表一つでしたらマクロを実行しない方法もあるのですが、実際は複数の表を同時にオートフィルタしてコピーしてしまっているので、終了日に日付のまったくない表もあり、その場合、抽出結果をコピーした表がおかしくなります。
説明が不十分かも知れませんが、よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
> 説明が不十分かも知れませんが、...
全然足りないと思います。情報を小出しにしないで、マクロのご質問
ならソースコードを提示した方が、回答をもらいやすいですよ(^^;
# 状況説明に自信がない場合は特に。
オートフィルターを設定するコードは既にあるんですよね?
であれば、ご質問の趣旨は、
最終日の入力チェックを VBA で行うにはどうしたら良いか?
ってことであっていますか?
今回はデータの整合性(文字列や数値ではなく、ちゃんと日付が入力
されているかどうか)を確認する必要はなさそうです。
# この辺は入力規則で日付しか入力できないようにするなどの方法
# で対応した方が楽です。
何かが入力されて「いる・いない」だけを判定するロジックの一例を
紹介します。ワークシート関数の CountA を利用した方法です。
【前提】最終日の入力範囲は Sheet1 の C1:C10 とする
・データが全くないかを判定する
Dim rngR As Range
Set rngR = Sheet("Sheet1").Range("C1:C10")
If Application.CountA(rngR) = 0 Then
MsgBox "データがないです"
Else
MsgBox "OK ざんす"
End If
Set rngR = Nothing
・1件でも入力漏れがあるか判定する
Dim rngR As Range
Set rngR = Sheet("Sheet1").Range("C1:C10")
If Application.CountA(rngR) < rngR.Count Then
MsgBox "データが入力されていない箇所があります"
Else
MsgBox "OK ざんす"
End If
Set rngR = Nothing
確かに言葉足らずでした。申し訳ありません。
しかし、KenKen_SPさんのご回答の
>・データが全くないかを判定する
Dim rngR As Range
Set rngR = Sheet("Sheet1").Range("C1:C10")
If Application.CountA(rngR) = 0 Then
MsgBox "データがないです"
Else
MsgBox "OK ざんす"
End If
Set rngR = Nothing
を使いましたら、思ったようになりました。
ありがとうございました。感謝いたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでフィルタ後、考えている場所に値コピーができない。 1 2022/05/02 21:01
- Excel(エクセル) Excel フィルタ後のコピー貼付けと可視セルの関係について 3 2023/02/07 16:42
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- その他(プログラミング・Web制作) VB.NETの正規表現について 4 2022/04/12 16:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
autocad 数値が表示されなくな...
-
ドロップダウンリスト 自動表...
-
求人情報で「SAP入力可能な方」...
-
エクセル 日付超過でポップアッ...
-
VBAの日付チェックでオーバーフ...
-
ドロップダウンリストを2列で...
-
特殊漢字「はし」(橋のつくり...
-
小数点以下の入力規則
-
excelのInputBoxで日本語入力OF...
-
pdfの文字入力で一文字ずつしか...
-
エクセルVB ポップアップウィ...
-
エクセルのマクロの使い方
-
エクセルの質問です。 行数の最...
-
マクロ 入力規則は残し文字の...
-
弥生会計05、「摘要」入力について
-
ACCESSで日付型のフィールドにY...
-
バーコードリーダーを使ってフ...
-
一太郎でのハイフンの入力
-
あるスマホアプリ内で会員登録...
-
JWCADの質問
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ドロップダウンリスト 自動表...
-
【スプレッドシート】時間入力...
-
Excelについて
-
autocad 数値が表示されなくな...
-
エクセルの検索関数でシート内...
-
VBAの日付チェックでオーバーフ...
-
ドロップダウンリストを2列で...
-
Excelで日報を自動で作成したい...
-
マクロ 入力規則は残し文字の...
-
確定申告の医療費控除について
-
特殊漢字「はし」(橋のつくり...
-
エクセル 日付超過でポップアッ...
-
excelのInputBoxで日本語入力OF...
-
バーコードリーダーを使ってフ...
-
エクセルVB ポップアップウィ...
-
求人情報で「SAP入力可能な方」...
-
アクセス2000 クエリ抽出でBet...
-
excelで第二金曜日を…
-
エクセルで入力規則(リスト)...
-
pdfの文字入力で一文字ずつしか...
おすすめ情報