Excel VBA質問箱 IV

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

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


7365 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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

宜しくお願い致します。

【39541】Re:金額で抽出したいのですが・・・
発言  Statis  - 06/6/26(月) 14:51 -

引用なし
パスワード
   こんにちは

一度、マクロの記録で試してみて何処が違うか確認してきては如何ですか?

【39542】Re:金額で抽出したいのですが・・・
発言  かみちゃん  - 06/6/26(月) 14:55 -

引用なし
パスワード
   こんにちは。かみちゃん です。

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

未収金額の条件がわかりません。
未収金額が1円以上なのか、-1円以下があるのか?など・・・
それよりも、一般操作の「オートフィルタ」で未収金額を抽出することはできますか?
できるのであれば、「マクロの記録」で記録してみればだいたいのことはわかりますよ。
あとは、入力した条件をどのように反映させたらいいかだけですので・・・

【39544】Re:金額で抽出したいのですが・・・
発言  サン E-MAIL  - 06/6/26(月) 15:04 -

引用なし
パスワード
   ▼Statis さん:

ご返答有難うございます。

マクロの記録でやってみたいのですが

Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="=3,195", Operator:=xlAnd
                       ↑
                      金額の部分を任意にするには、どうしたら宜しいでしょうか。

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


>こんにちは
>
>一度、マクロの記録で試してみて何処が違うか確認してきては如何ですか?

【39545】Re:金額で抽出したいのですが・・・
発言  サン E-MAIL  - 06/6/26(月) 15:06 -

引用なし
パスワード
   ▼かみちゃん さん:

ご回答有難うございます。

マクロの記録でやってみたのですが、

Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="=3,195", Operator:=xlAnd
                       ↑
金額の部分を任意にするためには、どうしたら宜しいでしょうか。

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

>こんにちは。かみちゃん です。
>
>>下記のマクロで顧客名を抽出していますが、
>>未収金額で抽出する時、どこを直せば宜しいでしょうか。
>
>未収金額の条件がわかりません。
>未収金額が1円以上なのか、-1円以下があるのか?など・・・
>それよりも、一般操作の「オートフィルタ」で未収金額を抽出することはできますか?
>できるのであれば、「マクロの記録」で記録してみればだいたいのことはわかりますよ。
>あとは、入力した条件をどのように反映させたらいいかだけですので・・・

【39547】Re:金額で抽出したいのですが・・・
回答  かみちゃん  - 06/6/26(月) 15:11 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>Selection.AutoFilter Field:=8, Criteria1:="=3,195", Operator:=xlAnd
>                       ↑
>金額の部分を任意にするためには、どうしたら宜しいでしょうか。

指定した金額と「等しい」という条件でいいのであれば、
とりあえず、以下のような感じでいかがですか?

Sub Macro2()
 Dim strMoji As String
 
 strMoji = InputBox("抽出金額を入力してください")

 Sheets("Sheet3").Activate
 Cells.Clear

 With Sheets("Sheet1").Range("A1")
  .AutoFilter Field:=8, Criteria1:="= & Val(strMoji), Operator:=xlAnd
  .CurrentRegion.Copy Destination:=Sheets("Sheet3").Range("A1")
  .AutoFilter
 End With
End Sub

【39553】Re:金額で抽出したいのですが・・・
発言  サン E-MAIL  - 06/6/26(月) 15:35 -

引用なし
パスワード
   ▼かみちゃん さん:

たびたび、申し訳ございません。

シートの未収入金の金額をカンマ入りで入力しても、
シート3に表題しかコピーされませんでした。

BOXの中の数字は、どのように入力すれば宜しいでしょうか。
3,195で大丈夫でしょうか。

御忙しい所、大変もうしわけございませんが
教えて頂けますでしょうか。

宜しくお願い致します。


>こんにちは。かみちゃん です。
>
>>Selection.AutoFilter Field:=8, Criteria1:="=3,195", Operator:=xlAnd
>>                       ↑
>>金額の部分を任意にするためには、どうしたら宜しいでしょうか。
>
>指定した金額と「等しい」という条件でいいのであれば、
>とりあえず、以下のような感じでいかがですか?
>
>Sub Macro2()
> Dim strMoji As String
> 
> strMoji = InputBox("抽出金額を入力してください")
>
> Sheets("Sheet3").Activate
> Cells.Clear
>
> With Sheets("Sheet1").Range("A1")
>  .AutoFilter Field:=8, Criteria1:="= & Val(strMoji), Operator:=xlAnd
>  .CurrentRegion.Copy Destination:=Sheets("Sheet3").Range("A1")
>  .AutoFilter
> End With
>End Sub

【39557】Re:金額で抽出したいのですが・・・
発言  かみちゃん  - 06/6/26(月) 16:08 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>シートの未収入金の金額をカンマ入りで入力しても、
>シート3に表題しかコピーされませんでした。
>
>BOXの中の数字は、どのように入力すれば宜しいでしょうか。
>3,195で大丈夫でしょうか。

未収入金は、数値をセルの書式設定でカンマ付き表示しているだけですよね?
InputBoxの中に、金額をカンマ付きで入力する必要があるのですか?
それであれば、カンマを削除してしまえばいいと思います。

strMoji = InputBox("抽出金額を入力してください")
の部分を
strMoji = Replace(InputBox("抽出金額を入力してください"), ",", "")
とすればいいと思います。

【39559】Re:金額で抽出したいのですが・・・
お礼  サン E-MAIL  - 06/6/26(月) 16:37 -

引用なし
パスワード
   ▼かみちゃん さん:

何度も何度もすいませんでした。

有難うございました。

助かりました。本当に有難うございます。


>こんにちは。かみちゃん です。
>
>>シートの未収入金の金額をカンマ入りで入力しても、
>>シート3に表題しかコピーされませんでした。
>>
>>BOXの中の数字は、どのように入力すれば宜しいでしょうか。
>>3,195で大丈夫でしょうか。
>
>未収入金は、数値をセルの書式設定でカンマ付き表示しているだけですよね?
>InputBoxの中に、金額をカンマ付きで入力する必要があるのですか?
>それであれば、カンマを削除してしまえばいいと思います。
>
>strMoji = InputBox("抽出金額を入力してください")
>の部分を
>strMoji = Replace(InputBox("抽出金額を入力してください"), ",", "")
>とすればいいと思います。

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