Excel VBA質問箱 IV

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

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


42256 / 76732 ←次へ | 前へ→

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

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