|
価格表さん、みなさんこんばんは
最初の関数を使用したいのなら、VBAで×以外を転記する
という方法でやればどうでしょう?
関数を使用せず全てVBAでと言うことであれば、以下の
コードをシートモジュールに貼り付けてC1セルに希望の
金額を入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range)
Const lngStart As Long = 2 'データ開始行
Dim SERU As Range
Dim lngEnd As Long
Dim lngRow As Long
Dim i As Long
For Each SERU In Target
If SERU.Address(0, 0) = "C1" Then
'転記開始行セット
lngRow = 2
With ActiveSheet
.Range("C" & lngRow, .Range("C" & lngRow).End(xlDown)).Clear
lngEnd = .Range("A65536").End(xlUp).Row
For i = lngStart To lngEnd
If .Cells(i, 2).Value <= SERU.Value Then
.Cells(lngRow, "C").Value = .Cells(i, 1).Value
lngRow = lngRow + 1
End If
Next i
End With
End If
Next
End Sub
|
|