WORK備忘録

メモ

Excel_VBAシートベリファイ機能

2017-03-20 18:07:34 | 日記


Private Sub Worksheet_Change(ByVal Target As Range)

 Dim a_sheet_name As String
 a_sheet_name = CStr(ActiveSheet.Name)

Dim hi_a_sheet As Worksheet '非アクティブシート

If a_sheet_name = "Sheet1" Then

  Set hi_a_sheet = Worksheets("Sheet2") '比較元シート名
  
Else
    Set hi_a_sheet = Worksheets("Sheet1") '比較元シート名
    
  End If
  
  Dim a_sheet_val As String
  
  a_sheet_val = CStr(Target.Value) 'アクティブシート値
  
  Dim hi_a_sheet_val As String '非アクティブシート
  
     'ActiveSheet.Range("A1").Value = Target.Address
       Dim tg_addr As Variant
     tg_addr = Target.Address
     
     Dim hi_a_sheet_addr As Variant
    Set hi_a_sheet_addr = hi_a_sheet.Range(tg_addr)
     
   hi_a_sheet_val = CStr(hi_a_sheet_addr.Value)
   
  
      If hi_a_sheet_val <> "" Then 'sheet2はコメントにする
      
       If a_sheet_val = hi_a_sheet_val Then
      Target.Interior.Color = RGB(200, 255, 200)
      hi_a_sheet_addr.Interior.Color = RGB(200, 255, 200)
      
      Else
      Target.Interior.Color = RGB(255, 200, 200)
       hi_a_sheet_addr.Interior.Color = RGB(255, 200, 200)
      
      End If
      
      End If 'sheet2はコメントにする
      
End Sub


ジャンル:
ウェブログ
コメント   この記事についてブログを書く
この記事をはてなブックマークに追加
« フォーム更新デモ | トップ | Excel_VBA丁目番号 »
最近の画像もっと見る

コメントを投稿


コメント利用規約に同意の上コメント投稿を行ってください。

数字4桁を入力し、投稿ボタンを押してください。

あわせて読む

トラックバック

この記事のトラックバック  Ping-URL
  • 30日以上前の記事に対するトラックバックは受け取らないよう設定されております。
  • 送信元の記事内容が半角英数のみのトラックバックは受け取らないよう設定されております。
  • このブログへのリンクがない記事からのトラックバックは受け取らないよう設定されております。
  • ※ブログ管理者のみ、編集画面で設定の変更が可能です。