エクセルで数式を作りたいのですが・・・

質問

エクセルについての質問です。
下記のように7行目にカウンター（マクロ）を作っているとします。

　列　　A　　　　　　　B　　　　　　C

　行　　　　　　　　来客数　　　　1１時（現在時刻）
　１　　１０（時）　　
　２　　１１（時） 　　　４
　３　　１２（時）
　４　　１３（時）

　７　　来客数 　　　 ４　　＠（←ボタン）

上記のようなエクセルシートでボタン（＠）を押すとC列の時刻とA列で同じ時刻の行B列に値を反す式をご示唆ください。お願いいたします。ちなみに現在時刻は＝TODAYから＝HOUR()で反しています。

回答No.3

mt2008

セル関数をそのままVBAにしました。
エラー処理等は必要に応じてつけて下さい。

Private Sub CommandButton1_Click()
　　Range("B7") = WorksheetFunction.VLookup(Range("C1"), Range("A1:B6"), 2, False)
End Sub

回答No.2

KURUMITO

シート上にボタンを配置するために「開発」タブの「挿入」からActiveXコントロールの「コマンドボタン」をクリックしてからシート上で四角形を描くようにしてコマンドボタンを設けます。
コマンドボタンを右クリックして「コードの表示」を選択します。
表示の画面には次のコードを入力します。

Private Sub CommandButton1_Click()
Dim n As Integer
Range("C1") = Hour(Time)
With Range("A2:A6")
Set x = .Find(Hour(Time), LookIn:=xlValues)
If Not x Is Nothing Then
n = Range(x.Address).Row
Cells(n, "B") = Range("B7")
Else
MsgBox "該当する時間表示がありません"
End If
End With
End Sub

「開発」タブの「デザインモード」タブをクリックしモードを解除して終了します。

回答No.1

asanohikari1015

百円ショップのダイソーに「イチからはじめる！Excel」という本が売っています。105円です。ここでお教えするより手元に本をおく方が良いと思います。

補足

asanohikari1015様
回答ありがとうございます。
ただ、 恐れ入ります。
それを言い出すと、この質問サイトの意味をなさないかと思いますがどうでしょうか？
それでも、自力で調べなさいとの事なら自力で調べます。