Excel VBA質問箱 IV

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

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


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

42266 / 76735

←次へ　｜　前へ→


	【39540】金額で抽出したいのですが・・・

サン

- 06/6/26(月) 14:31 -


	引用なし

	パスワード

御忙しい所申し訳ございません。

下記のマクロで顧客名を抽出していますが、
未収金額で抽出する時、どこを直せば宜しいでしょうか。

申し訳ございませんが、教えて頂けますでしょうか。

表は、下記のようになっています。

　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

宜しくお願い致します。

0 hits

▼

【39540】金額で抽出したいのですが・・・ サン 06/6/26(月) 14:31

≪