Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

48850 / 76732

←次へ　｜　前へ→


	【32811】Re:金額を入力すると、購買可能な果物の一覧表を作成したい

価格表 - 05/12/22(木) 15:17 -


	引用なし

	パスワード

お忙しいところ丁寧にありがとうございます。
さっそくやってみます！！！

▼こたつねこさん：
>価格表さん、みなさんこんばんは
>
>最初の関数を使用したいのなら、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

0 hits

▼

【32661】金額を入力すると、購買可能な果物の一覧表を作成したい 価格表 05/12/20(火) 15:51