Excel VBA質問箱 IV

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

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


42250 / 76732 ←次へ | 前へ→

【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
4 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 お礼

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