Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38945 / 76732

←次へ　｜　前へ→


	【42911】Re:抽出結果を別シートに保存

トホホ - 06/9/25(月) 12:30 -


	引用なし

	パスワード

ありがとうございます。
マクロが終了し、今回は6種類のキーで
抽出した結果、6枚新規シートが作成されました。
が･･･。
なぜか"SL"を除くどの抽出結果シートにも"31"と"51"を含むレコードが
あるのです。試しに手で抽出したのですが、
その場合はきれいに結果が出ました。
どうして、関係ない"31"と"51"分類のレコードが一緒に抽出されるので
しょうか？
ちなみに"31"と"51"のフィールドは数値を文字列として
入力しています。

Option Explicit
Sub main()
　　抽出 "SL", 1
　　抽出 "31", 1
　　抽出 "51", 1
　　抽出 "4K", 1
　　抽出 "DH", 1
　　抽出 "P1", 1
End Sub

'分類=分類を文字列で指定。項目=列番号を数字で指定
Private Sub 抽出(ByVal SYOHIN As String, ByVal 項目 As Integer)
　　Dim Org_Sh As Worksheet '元Sheet
　　Dim Des_Sh As Worksheet '先Sheet
　　'元SheetをSet
　　Set Org_Sh = Worksheets("RE_CALCU")
　　'先SheetをSet なければ作成。
　　On Error Resume Next
　　　　Set Des_Sh = Worksheets(SYOHIN)
　　On Error GoTo 0
　　If Des_Sh Is Nothing Then
　　　　Set Des_Sh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
　　　　Des_Sh.Name = SYOHIN
　　Else
　　　　Des_Sh.Cells.Clear
　　End If
　　'AutoFilterでコピー
　　With Org_Sh.Range("A1")
　　　.AutoFilter Field:=項目, Criteria1:=SYOHIN
　　　.CurrentRegion.SpecialCells(xlVisible).Copy Des_Sh.Range("A1")
　　　.AutoFilter
　　End With
　
　　Set Org_Sh = Nothing
　　Set Des_Sh = Nothing
End Sub

1 hits

▼

【42805】抽出結果を別シートに保存 トホホ 06/9/22(金) 13:08