Excel VBA質問箱 IV

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

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


57494 / 76732 ←次へ | 前へ→

【23974】Re:オートフィル抽出後のコピー範囲指定
回答  ウッシ  - 05/4/8(金) 20:58 -

引用なし
パスワード
   こんばんは

こんな感じで、

Private Sub CommandButton5_Click()
  '先頭行を項目名行として、指定したセル範囲AutoFilterする。
  Dim a As Variant
  a = Application.InputBox( _
      "半角数字で入力してください!", _
      "絞り込みの日を入力して下さい! ", 1)
  
  If VarType(a) = vbBoolean Then Exit Sub
  
  With Application
    .ScreenUpdating = False
    '元のシート(AutoFilterで抽出するシート)
    With Worksheets("元データ")
      .Range("A1").AutoFilter Field:=3, Criteria1:=a
      '抽出された行の可視セルのみCopyする。(先頭行はタイトルなので含めない)
      With .AutoFilter.Range.Offset(1).Columns(5).Resize(, 29)
        If Application.CountA(.Cells) = 0 Then
          .Parent.AutoFilterMode = False
          Exit Sub
        End If
        .Copy
      End With
      
      '貼り付けシート名
      With Worksheets("日誌")
        '貼付先の左上端のセルを指定値のみ複写
        .Cells(36, 1).PasteSpecial _
          Paste:=xlPasteValues, Operation:=xlNone, _
          SkipBlanks:=False, Transpose:=False
      End With
      'AutoFilterの解除
      .AutoFilterMode = False
    End With
    .CutCopyMode = False
    .ScreenUpdating = True
  End With
End Sub

1 hits

【23967】オートフィル抽出後のコピー範囲指定 asedaku 05/4/8(金) 18:37 質問
【23974】Re:オートフィル抽出後のコピー範囲指定 ウッシ 05/4/8(金) 20:58 回答
【23976】Re:オートフィル抽出後のコピー範囲指定 asedaku 05/4/8(金) 22:39 お礼
【23978】Re:オートフィル抽出後のコピー範囲指定 ウッシ 05/4/8(金) 22:44 回答
【23980】Re:オートフィル抽出後のコピー範囲指定 asedaku 05/4/8(金) 23:01 お礼

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