Excel VBA質問箱 IV

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

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


42263 / 76732 ←次へ | 前へ→

【39540】金額で抽出したいのですが・・・
質問  サン E-MAIL  - 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

宜しくお願い致します。
2 hits

【39540】金額で抽出したいのですが・・・ サン 06/6/26(月) 14:31 質問
【39541】Re:金額で抽出したいのですが・・・ Statis 06/6/26(月) 14:51 発言
【39544】Re:金額で抽出したいのですが・・・ サン 06/6/26(月) 15:04 発言
【39542】Re:金額で抽出したいのですが・・・ かみちゃん 06/6/26(月) 14:55 発言
【39545】Re:金額で抽出したいのですが・・・ サン 06/6/26(月) 15:06 発言
【39547】Re:金額で抽出したいのですが・・・ かみちゃん 06/6/26(月) 15:11 回答
【39553】Re:金額で抽出したいのですが・・・ サン 06/6/26(月) 15:35 発言
【39557】Re:金額で抽出したいのですが・・・ かみちゃん 06/6/26(月) 16:08 発言
【39559】Re:金額で抽出したいのですが・・・ サン 06/6/26(月) 16:37 お礼

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