JPG, PNG, Code, 説明文のテスト

ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文

以下のこれはJPG

JPGです

ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文

これはPNG

ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文 ここに説明文

Option Explicit

'Check1_AとCheck1_Bはチェックボックス
'Check1_AとCheck1_Bは同じグループにあるが、それぞれは独立してON/OFFできる
'それぞれのチェックボックスは、それぞれクリックしてTRUEになったとき、カラーになる
'FALSEになったとき、ホワイトに戻る

                        Private Sub Check1_A_Change()

                                        If Check1_A.Value Then
                                                Range("J4") = "TRUE"
                                                Range("Check1_A").Interior.Color = RGB(255, 153, 153)
                                                Check1_A.BackColor = RGB(255, 153, 153)
                                        Else
                                                Range("J4") = "FALSE"
                                                Range("Check1_A").Interior.Color = RGB(255, 255, 255)
                                                Check1_A.BackColor = RGB(255, 255, 255)
                                                
                                        End If
                        End Sub
                        
                        Private Sub Check1_B_Change()

                                        If Check1_B.Value Then
                                                Range("K4") = "TRUE"
                                                Range("Check1_B").Interior.Color = RGB(102, 255, 102)
                                                Check1_B.BackColor = RGB(102, 255, 102)
                                        Else
                                                Range("K4") = "FALSE"
                                                Range("Check1_B").Interior.Color = RGB(255, 255, 255)
                                                Check1_B.BackColor = RGB(255, 255, 255)
                                        End If
                        End Sub
                        
'Button1_OKとButton1_NGはラジオボタン
'Button1_OKとButton1_NGは同じグループにあって、どちらか一方だけがTRUEになる

'このどちらかのボタンがTRUEになったとき、そのボタンのボックスがカラーになり、もう片方はFALSEになってホワイトになる

                        Private Sub Button1_OK_Change()

                                        If Button1_OK.Value Then
                                                Range("J10") = "TRUE"
                                                Range("Button1_OK").Interior.Color = RGB(153, 255, 204)
                                                Button1_OK.BackColor = RGB(153, 255, 204)
                                        Else
                                                Range("J10") = "FALSE"
                                                Range("Button1_OK").Interior.Color = RGB(255, 255, 255)
                                                Button1_OK.BackColor = RGB(255, 255, 255)
                                        End If
                        End Sub
                        
                        Private Sub Button1_NG_Change()

                                        If Button1_NG.Value Then
                                                Range("K10") = "TRUE"
                                                        Range("Button1_NG").Interior.Color = RGB(255, 204, 153)
                                                        Button1_NG.BackColor = RGB(255, 204, 153)
                                        Else
                                                Range("K10") = "FALSE"
                                                        Range("Button1_NG").Interior.Color = RGB(255, 255, 255)
                                                        Button1_NG.BackColor = RGB(255, 255, 255)
                                        End If
                        End Sub

Option Explicit
‘Check1_AとCheck1_Bはチェックボックス
‘Check1_AとCheck1_Bは同じグループにあるが、それぞれは独立してON/OFFできる
‘それぞれのチェックボックスは、それぞれクリックしてTRUEになったとき、カラーになる
‘FALSEになったとき、ホワイトに戻る
Private Sub Check1_A_Change() If Check1_A.Value Then Range("J4") = "TRUE" Range("Check1_A").Interior.Color = RGB(255, 153, 153) Check1_A.BackColor = RGB(255, 153, 153) Else Range("J4") = "FALSE" Range("Check1_A").Interior.Color = RGB(255, 255, 255) Check1_A.BackColor = RGB(255, 255, 255) End If End Sub Private Sub Check1_B_Change() If Check1_B.Value Then Range("K4") = "TRUE" Range("Check1_B").Interior.Color = RGB(102, 255, 102) Check1_B.BackColor = RGB(102, 255, 102) Else Range("K4") = "FALSE" Range("Check1_B").Interior.Color = RGB(255, 255, 255) Check1_B.BackColor = RGB(255, 255, 255) End If End Sub
‘Button1_OKとButton1_NGはラジオボタン
‘Button1_OKとButton1_NGは同じグループにあって、どちらか一方だけがTRUEになる
‘このどちらかのボタンがTRUEになったとき、そのボタンのボックスがカラーになり、もう片方はFALSEになってホワイトになる
Private Sub Button1_OK_Change() If Button1_OK.Value Then Range("J10") = "TRUE" Range("Button1_OK").Interior.Color = RGB(153, 255, 204) Button1_OK.BackColor = RGB(153, 255, 204) Else Range("J10") = "FALSE" Range("Button1_OK").Interior.Color = RGB(255, 255, 255) Button1_OK.BackColor = RGB(255, 255, 255) End If End Sub Private Sub Button1_NG_Change() If Button1_NG.Value Then Range("K10") = "TRUE" Range("Button1_NG").Interior.Color = RGB(255, 204, 153) Button1_NG.BackColor = RGB(255, 204, 153) Else Range("K10") = "FALSE" Range("Button1_NG").Interior.Color = RGB(255, 255, 255) Button1_NG.BackColor = RGB(255, 255, 255) End If End Sub

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です