Excel VBA質問箱 IV

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

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


3559 / 13646 ツリー ←次へ | 前へ→

【61436】VBEチェックボックスでのセルの背景色の変更 tuki 09/5/8(金) 12:29 質問[未読]
【61438】Re:VBEチェックボックスでのセルの背景色の変更 つん 09/5/8(金) 12:52 回答[未読]
【61442】Re:VBEチェックボックスでのセルの背景色の変更 tuki 09/5/8(金) 13:15 お礼[未読]

【61436】VBEチェックボックスでのセルの背景色の変更
質問  tuki  - 09/5/8(金) 12:29 -

引用なし
パスワード
   エクセルVBEの質問です。

現在、下記の様にユーザーホームのTextBox1に記入したものがSheet1のA列に順次記入されていくようにしているのですが、新たにユーザーホームにチェックボックス1を作り、チェックを入れたものはセルの背景が赤になるように設定したいのですがどのようにすれば良いでしょうか。

よろしくおねがいします。

-----------------------------------------------------------------

Private Sub CommandButton1_Click()
Dim lRow As Long
  With Worksheets("Sheet1")
    lRow = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & lRow + 1).Value = TextBox1.Value
  End With
  ComboBox1.Value = ""
End Sub

----------------------------------------------------------------

【61438】Re:VBEチェックボックスでのセルの背景色の変更
回答  つん  - 09/5/8(金) 12:52 -

引用なし
パスワード
   ▼tuki さん
こんにちは^^


  With Worksheets("Sheet1")
    
    lRow = .Range("A" & Rows.Count).End(xlUp).Row
    With .Range("A" & lRow + 1)
      .Value = TextBox1.Value
      If CheckBox1.Value = True Then
        .Interior.ColorIndex = 3
      End If
    End With
    
  End With

こういうことかなあ?

【61442】Re:VBEチェックボックスでのセルの背景色の変更
お礼  tuki  - 09/5/8(金) 13:15 -

引用なし
パスワード
   つんサンこんにちわ^^

教えていただいたとおり書き換えましたら成功いたしました。
明確な回答ありがとうございました。

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