Excel VBA質問箱 IV

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

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


44478 / 76732 ←次へ | 前へ→

【37271】Re:Targetの使い方
発言  Jaka  - 06/4/27(木) 15:31 -

引用なし
パスワード
   因みに上のコードに
 If Target.Count = 1 Then
なくても良いです。

一応目を通してみました。

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .Address(0, 0) <> "B1" Then Exit Sub
    If .Value = "" Then
     .Interior.ColorIndex = 3
      MsgBox ("社員番号を入力してください")
     Exit Sub
    Else
     .Interior.ColorIndex = xlNone
     社員番号出力
    End If
      '↓このI9セルとの比較は値?何の為に比較?
    If .Value = Range("I9").Value Then
     Select Case .Value
       Case 5:
         Call FormTest
         'Range("I9").Activate
         'ActiveCell.Clear
         '↑2つ合わせて、これで良いです。
         Range("I9").Clear
       Case 6:
         M消去
         'Range("B1:B5").Value = ""
         ' ↑でも良いけど..。
         'Target.Count = 1 ・・・と、していたから(省いたけど)
         'イベントの抑制は必須じゃないのかも知れないけど...。
         Application.EnableEvents = False
         Range("B1:B5").ClearContents
         Application.EnableEvents = true
         Range("B1").Activate
       Case Else
         Range("I9").Clear
     End Select
    End If
  End With
End Sub
0 hits

【37263】Targetの使い方 ハナ 06/4/27(木) 13:27 質問
【37264】Targetの使い方追加 ハナ 06/4/27(木) 13:35 質問
【37267】Re:Targetの使い方 ハチ 06/4/27(木) 14:01 回答
【37270】Re:Targetの使い方 Jaka 06/4/27(木) 14:44 発言
【37271】Re:Targetの使い方 Jaka 06/4/27(木) 15:31 発言
【37290】Re:Targetの使い方 ハナ 06/4/28(金) 9:03 お礼

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