|
▼K さん:
こんばんわ
>▼漂流民 さん:
>おはよう御座います。そして
>ありがとう御座います。説明が稚拙でご迷惑をかけています。
>
>>>Private Sub CommandButton1_Click()
>>> For i = 1 To Range("d65536").End(xlUp).Row
>>> If Cells(i, 4) = TextBox1 Then
>>> Cells(i, 16) = Date
>>> End If
>>> Next i
>>>End Sub
>・・・と・・・
>> If Cells(i, 4) <> TextBox1 Then
>> MsgBox "条件不一致 "
>> End If
>>違うようであればもう少し具体的に質問してください^^
>
>上と下のコードを繋いで作成したいんですが・・・
>テキストボックスから入力したValueと4列目のValueが一致した時には
>日時表示
時?
>一致しなかった時には
>Msgboxで「条件不一致」と表示させる事をしたいのです。
>For〜Nextを利用して作成したいのです。よろしくお願いします。
時刻も入れて、こんな感じでしょうか?
Private Sub CommandButton1_Click()
For i = 1 To Range("d65536").End(xlUp).Row
If Cells(i, 4) = TextBox1 Then
Cells(i, 16) = Date & " " & Time
Else
MsgBox "条件不一致 "
End If
Next i
End Sub
夜しか回答できませんが、違うようであれば気軽にに質問してください^^
|
|