Excel VBA質問箱 IV

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

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


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

38950 / 76732

←次へ　｜　前へ→


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

トホホ - 06/9/25(月) 10:41 -


	引用なし

	パスワード

ありがとうございます。
早速トライしてみようと思ったのですが、
下の様に記述するとエラーになりました。
何が間違っているのでしょうか？

Option Explicit
Sub main()
　　抽出 "LLL", 1
　　抽出 "MMM", 1
　　抽出 "TTT", 1
End Sub

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

0 hits

▼

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