Excel VBA質問箱 IV

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

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


37802 / 76738 ←次へ | 前へ→

【44097】Re:オートフィルタで抽出したデータをコピー
お礼  卓司  - 06/11/3(金) 22:11 -

引用なし
パスワード
   ▼ponpon さん:

>で、こんな風にしてみました。
>
>Option Explicit
>Private Sub Worksheet_Activate()
>
> With Worksheets("Sheet1")
>  If .AutoFilterMode = False Then
>    .Range("A1").AutoFilter Field:=1, Criteria1:=1
>  End If
>  If .AutoFilter.Range.Columns(1).Rows.Count = 1 Then
>    MsgBox "対象データがありません。"
>    .AutoFilterMode = False
>    Exit Sub
>  Else
>    Sheets("Sheet2").Cells.ClearContents
>    .AutoFilter.Range.Offset(1).Copy
>    Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues
>    .AutoFilterMode = False
>    Application.CutCopyMode = False
>  End If
> End With
>
>End Sub

ponponさん 
祝日なのにご回答ありがとうございます。
問題はかなり解決されましたが、これだと
1.列Aになにも何もはいっていない場合、(セルA2から下方向)
2.列Aに「1」以外の数値が入っている場合、(「2」とか「3」とかを間違って
入力した場合)
に”対象データがありません。”の表示がされません。
ponponさんのコードだと、どのような場合にメッセージ表示されるのでしょうか。
教えてください。よろしくお願いします。
0 hits

【44094】オートフィルタで抽出したデータをコピー 卓司 06/11/3(金) 20:03 質問
【44095】Re:オートフィルタで抽出したデータをコピー ponpon 06/11/3(金) 20:48 発言
【44097】Re:オートフィルタで抽出したデータをコピー 卓司 06/11/3(金) 22:11 お礼
【44098】Re:オートフィルタで抽出したデータをコピー ponpon 06/11/3(金) 22:39 発言
【44099】Re:オートフィルタで抽出したデータをコピー 卓司 06/11/3(金) 23:03 お礼

37802 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free