Excel VBA質問箱 IV

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

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


43116 / 76732 ←次へ | 前へ→

【38673】Re:TRUEの場合にそのセルのみ値にするには
質問  にしもり  - 06/6/8(木) 12:08 -

引用なし
パスワード
   自力で加筆中ですが、下の Loop Until .Value = Range(m + 5, 4).Valueで止まってしまいます。文法が間違っているでしょうか。

<加筆中>
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim m As Integer
  
  With Target
   If .Address <> "$E$6" Then Exit Sub
   If .Count > 1 Then Exit Sub
   If IsEmpty(.Value) Then Exit Sub
   
' 入力規制したので不要?
'   If InStr(.Text, ":") < 2 Or _
'    InStr(.Offset(, -1).Text, ":") < 2 Then
'     MsgBox "開始時間・終了時間を" & vbLf & _
'     "0:00:00 の時刻形式で入力して下さい", 48
'     GoTo ELine
'   End If

   If .Offset(, -1).Value <= TimeValue("9:00:00") And _
    .Value > TimeValue("9:00:00") Then
     Do
      MyNm = InputBox("お名前を入力して下さい")
     Loop While MyNm = ""
    
    m = 0
    Do
    m = m + 1
    If IsEmpty(.Offset(, m).Value) Then
      .Offset(, m).Value = MyNm
    Else
      MsgBox "すでに入力があります"
'        Range("F65536").End(xlUp).Offset(1).Value = MyNm
    End If
    Loop Until .Value = Range(m + 5, 4).Value
   Else
     GoTo ELine
   End If
  End With
  Exit Sub
ELine:
  Application.EnableEvents = False
  Range("D6:E6").ClearContents
  Application.EnableEvents = True
End Sub

1 hits

【38613】TRUEの場合にそのセルのみ値にするには にしもり 06/6/7(水) 11:08 質問
【38625】Re:TRUEの場合にそのセルのみ値にするには Kein 06/6/7(水) 16:02 回答
【38631】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/7(水) 16:38 質問
【38634】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/7(水) 16:47 発言
【38635】Re:TRUEの場合にそのセルのみ値にするには Kein 06/6/7(水) 17:02 発言
【38636】Re:TRUEの場合にそのセルのみ値にするには Kein 06/6/7(水) 17:04 回答
【38641】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/7(水) 17:28 質問
【38673】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/8(木) 12:08 質問
【38675】Re:TRUEの場合にそのセルのみ値にするには やっちん 06/6/8(木) 12:33 発言
【38678】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/8(木) 13:21 質問
【38681】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/8(木) 14:19 質問
【38686】Re:TRUEの場合にそのセルのみ値にするには Kein 06/6/8(木) 14:56 回答
【38699】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/8(木) 17:15 質問
【38701】Re:TRUEの場合にそのセルのみ値にするには Kein 06/6/8(木) 17:37 回答
【38702】Re:TRUEの場合にそのセルのみ値にするには Kein 06/6/8(木) 17:47 発言
【38704】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/8(木) 18:14 質問
【38715】Re:TRUEの場合にそのセルのみ値にするには Kein 06/6/8(木) 21:53 回答
【38730】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/9(金) 9:35 質問
【38777】Re:TRUEの場合にそのセルのみ値にするには Kein 06/6/9(金) 21:34 回答
【38823】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/11(日) 16:32 質問
【38825】Re:TRUEの場合にそのセルのみ値にするには Kein 06/6/11(日) 17:53 回答
【38835】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/12(月) 1:01 お礼
【38913】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/14(水) 11:45 質問
【38932】Re:TRUEの場合にそのセルのみ値にするには Kein 06/6/14(水) 18:21 回答
【38934】Re:TRUEの場合にそのセルのみ値にするには にしもり 06/6/14(水) 18:38 お礼

43116 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free