|
御忙しい所申し訳ございません。
下記のマクロで顧客名を抽出していますが、
未収金額で抽出する時、どこを直せば宜しいでしょうか。
申し訳ございませんが、教えて頂けますでしょうか。
表は、下記のようになっています。
A1 B1 C1 D1 E1 F1 G1 H1
顧客コード 顧客名 部署 担当者 売上日 伝票番号 売上金額 未収金額
A2 B2 C2 D2 E2 F2 G2 H2
1000000 ×× ×× × 2006/01/01 000000 10,000 10,000
I1 J1 K1 L1 M1
備考 入金予定 入金情報 当社担当 UHNAMK
I2 J2 K2 L1 M2
× 2006/01/01 ×× ×× ××
となっております。
Sub 顧客名抽出CS用()
Dim strMoji As String
strMoji = InputBox("検索文字を入力してください")
strMoji = "*" & strMoji & "*"
Sheets("Sheet3").Activate
Cells.Clear
With Sheets("cs")
.Range("A1").AutoFilter Field:=2, Criteria1:=strMoji
.Range("A1").CurrentRegion.Copy _
Destination:=Sheets("sheet3").Range("A1")
.Range("A1").AutoFilter
End With
Sheets("sheet3").Columns("A:L").AutoFit
宜しくお願い致します。
|
|