| |
▼漂流民 さん：
お忙しい中、ご返事いただき感謝しています。
質問の仕方が不味いのでしょう。
今ひとつ回答が分かりません。
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
このコードは順調に動いています。
しかし、対象がない時、対象が無い旨の、例えば「条件不一致」を表示させて
終了したいのですが･･･
>時刻も入れて、こんな感じでしょうか？
>
>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
>
頂きました、上のコードは「条件不一致」ばかり表示されますが
何故でしょうか。
ｄ列の一行目に条件不一致が有っても、５行目にテキストの入力したものが
一致する場足は、日時が表示されたいのですが･･･
分かりにくい説明ですが、よろしくお願いします。
|
|
K
- 06/6/12(月) 21:44 -
