Excel VBA質問箱 IV

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

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


7622 / 13646 ツリー ←次へ | 前へ→

【37887】指定した文字を含むデータの抽出方法 サン 06/5/22(月) 17:30 質問[未読]
【37888】Re:指定した文字を含むデータの抽出方法 ハト 06/5/22(月) 17:47 回答[未読]
【37910】Re:指定した文字を含むデータの抽出方法 サン 06/5/23(火) 9:54 お礼[未読]

【37887】指定した文字を含むデータの抽出方法
質問  サン E-MAIL  - 06/5/22(月) 17:30 -

引用なし
パスワード
   シート1に全未収入金があり、シート2に1人の担当者だけの未収入金のファイルを作りたいのですがエラーが出てきます。
初心者でどこをなおしたらいいかわかりません。
教えて頂けますでしょうか。

シート1               シート2
A1   A2  A12
相手会社 カナ・・・当社担当       白紙
(漢字表記)(カナ表示) (漢字表記)    (ここにシート1で抽出した担当者の
                    一覧をコピーしたいんです)


Sub 指定文字()


Dim strMoji As String

strMoji = InputBox("検索文字を入力してください")
strMoji = "*" & strMoji & "*"

Sheets("Sheet2").Activate
Cells.Clear

With Sheets("sheet1")
  Range("A1").AutoFilter Field:=12, Criteria1:=strMoji
  .Range("A1").CurrentRegion.Copy _
Destination:=Sheets("sheet2").Range("A1")
  .Range("A1").AutoFilter

End With

Sheets("sheet2").Columns("A:L").AutoFit

End Sub

【37888】Re:指定した文字を含むデータの抽出方法
回答  ハト  - 06/5/22(月) 17:47 -

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

▼サン さん:
>シート1に全未収入金があり、シート2に1人の担当者だけの未収入金のファイルを作りたいのですがエラーが出てきます。
>初心者でどこをなおしたらいいかわかりません。
>教えて頂けますでしょうか。
>
>シート1               シート2
>A1   A2  A12
>相手会社 カナ・・・当社担当       白紙
>(漢字表記)(カナ表示) (漢字表記)    (ここにシート1で抽出した担当者の
>                    一覧をコピーしたいんです)
>
>
>Sub 指定文字()
>
>
>Dim strMoji As String
>
>strMoji = InputBox("検索文字を入力してください")
>strMoji = "*" & strMoji & "*"
>
>Sheets("Sheet2").Activate
>Cells.Clear
>
>With Sheets("sheet1")
>  Range("A1").AutoFilter Field:=12, Criteria1:=strMoji
ここ、点が抜けてます

  .Range("A1").AutoFilter Field:=12, Criteria1:=strMoji

>  .Range("A1").CurrentRegion.Copy _
>Destination:=Sheets("sheet2").Range("A1")
>  .Range("A1").AutoFilter
>
>End With
>
>Sheets("sheet2").Columns("A:L").AutoFit
>
>End Sub

【37910】Re:指定した文字を含むデータの抽出方法
お礼  サン E-MAIL  - 06/5/23(火) 9:54 -

引用なし
パスワード
   抽出できました。

助かりました。
本当にありがとうございました。

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