|
▼かみちゃん さん:
たびたび、申し訳ございません。
シートの未収入金の金額をカンマ入りで入力しても、
シート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
|
|