Excel VBA質問箱 IV

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

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


55455 / 76732 ←次へ | 前へ→

【26051】Re:セルにチェックボックスを関連付けるには?
回答  だるま WEB  - 05/6/22(水) 16:21 -

引用なし
パスワード
   >1行1行に対して、カラムAにチェックボックスを割り当てて(関連付けて)、
>チェックが入った場合に、その行の色を変えたいと思っています。
>新しく行が増えた場合にも新たにチェックボックスを作成し、
>割り当てたいと考えています。

チェックボックスという形にこだわりますか。
もし形はどうでもいいというのであれば、右クリックで処理する手もあります。
これなら行が増えても減っても自動で追従します。^d^


===== ThisWorkbookモジュール =====
Private Sub Workbook_SheetBeforeRightClick _
  (ByVal Sh As Object, ByVal Target As Range, _
  Cancel As Boolean)
  
  Dim myCell As Range
  Dim myRange As Range
  
  With Target
  
    '二列以上選択していたら
    If .Columns.Count >= 2 Then Exit Sub
    'A列以外だったら
    If .Column <> 1 Then Exit Sub
    
    '処理対象範囲をシートの使用範囲との交わり部分とする
    Set myRange = Intersect(.Cells, _
      Target.Worksheet.UsedRange.EntireRow.Columns(1))
    If myRange Is Nothing Then Exit Sub
    
    For Each myCell In myRange
      With myCell
        If .Value = "レ" Then
          .Value = "-"
          .EntireRow.Interior.ColorIndex _
            = xlAutomatic
        Else
          .Value = "レ"
          .EntireRow.Interior.ColorIndex = 3
        End If
      End With
    Next
    
  End With
  
  Cancel = True
  
End Sub
0 hits

【26046】セルにチェックボックスを関連付けるには? EXCEL太郎 05/6/22(水) 15:06 質問
【26047】Re:セルにチェックボックスを関連付けるに... IROC 05/6/22(水) 15:50 回答
【26051】Re:セルにチェックボックスを関連付けるに... だるま 05/6/22(水) 16:21 回答
【26053】Re:セルにチェックボックスを関連付けるに... EXCEL太郎 05/6/22(水) 16:36 お礼

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