[[20140911001331]]　『b列に入力するとcに』（かつれつ）　ページの最後に飛ぶ

『b列に入力するとcに』（かつれつ）

B列に○が入力されると　C列に担当者を入力してくださいとなにか表示でないですか？
できればなにかメッセージがでるみたいな
マクロでも構いません
もしくはB列に入力するとC列に塗りつぶしなるようしたいです

　　A　B　C
1 ○　C2　担当者を入力してください
2
3

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 条件付き書式の場合の例です。
 C1の設定です。

 =AND(B1="○",C1="")
（カリーニン） 2014/09/11(木) 00:39

 シートモジュールに貼り付けてください。

 Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("B1:B100"), Target) Is Nothing Then
        Cancel = True
        On Error GoTo ErrSyori
        Application.ScreenUpdating = False

        Select Case Target.Value
          Case "○": MsgBox "C列に担当者を入力してください"
          Case Else
        End Select
     End If
 ErrSyori:
 End Sub
（ところてん） 2014/09/11(木) 11:49

ところてんさんありがとうございます。モジュールに入力
しましたがどうも作動しません
（かつれつ） 2014/09/12(金) 12:36

標準モジュールでなくシートモジュールに貼り付けて
くれましたでしょうか？
以下シートモジュール貼り付け手順です。

Altキーを押しながら[F11]キーを押します。
左窓に　sheet1 sheet2 sheet3 thisworkbook 表示されたと思います。
左窓のsheet1にカーソルを合わせてダブルクリック→右窓に白地の大きな窓が出てきます。
そこに下記コードを貼り付けてください、sheet1でB列入力すればmsgboxが・・・。
’----------ここから--------------------

 Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("B1:B100"), Target) Is Nothing Then
        Cancel = True
        On Error GoTo ErrSyori
        Application.ScreenUpdating = False

        Select Case Target.Value
          Case "○": MsgBox "C列に担当者を入力してください"
          Case Else
        End Select
     End If
 ErrSyori:
 End Sub
’---------ここまで--------------------
（ところてん） 2014/09/12(金) 12:56

早速のご返事ありがとうございます。試してみます
（かつれつ） 2014/09/12(金) 13:01

コメント返信：

[ 一覧(最新更新順) ]

[[20140911001331]] 『b列に入力するとcに』（かつれつ） ページの最後に飛ぶ

[[20140911001331]]　『b列に入力するとcに』（かつれつ）　ページの最後に飛ぶ