Excel VBA質問箱 IV

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

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


43088 / 76732 ←次へ | 前へ→

【38701】Re:TRUEの場合にそのセルのみ値にするには
回答  Kein  - 06/6/8(木) 17:37 -

引用なし
パスワード
   入力規制が設定されている範囲は、D:E列の6行目から11行目までに
限定しても良いのですね ? それなら

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Stm As Single, Etm As Single
  Dim Sc As Variant, Ec As Variant
  Dim Flg As Boolean
  Dim Rc As Long
  Dim Unm As String

  If Intersect(Target, Range("E6:E11")) _
  Is Nothing Then Exit Sub
  With Target
   If .Count > 1 Then Exit Sub
   If IsEmpty(.Offset(, -1).Value) Then Exit Sub
   If Not .Validation.Value Then
     Flg = True: GoTo ELine
   End If
   Rc = .Row
   Stm = CSng(.Offset(, -1).Value)
   Etm = CSng(.Value)
  End With
  If Stm >= Etm Then
   Flg = True: GoTo ELine
  End If
  With Application
   Sc = .Match(Stm, Rows(4), 1)
   Ec = .Match(Etm, Rows(4), 1)
   If IsError(Sc) Or IsError(Ec) Then
     Flg = True: GoTo ELine
   End If
   Do
     Unm = InputBox("氏名を入力して下さい")
   Loop While Unm = ""
ELine:
   .EnableEvents = False
   If Flg Then
     MsgBox "入力した値は間違っています。" & _
     "クリアして終了します", 48
     Cells(Rc, 4).Resize(, 2).ClearContents
   Else
     Cells(Rc, 6).Resize(, 37).ClearContents
     Range(Cells(Rc, Sc), Cells(Rc, Ec)).Value = Unm
   End If
   .EnableEvents = True
  End With
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 お礼

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