Scribd
Upload
56 views

Imembuf DBG

The document contains an if/else if statement that sets the text of the QTN variable based on the background color of different cells. Depending on which cell has a green background color, a different mathematical expression string will be set as the text.

Uploaded by

Jp Visande
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
56 views

Imembuf DBG

The document contains an if/else if statement that sets the text of the QTN variable based on the background color of different cells. Depending on which cell has a green background color, a different mathematical expression string will be set as the text.

Uploaded by

Jp Visande
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

If A2.BackColor = Color.

Green Then
QTN.Text = "1+1+1"
ElseIf A3.BackColor = Color.Green Then
QTN.Text = "1+4"
ElseIf A6.BackColor = Color.Green Then
QTN.Text = "4+3+2"
ElseIf B3.BackColor = Color.Green Then
QTN.Text = "1+1"
ElseIf B4.BackColor = Color.Green Then
QTN.Text = "3+2"
ElseIf B6.BackColor = Color.Green Then
QTN.Text = "1+0"
ElseIf B7.BackColor = Color.Green Then
QTN.Text = "2+2"
ElseIf C3.BackColor = Color.Green Then
QTN.Text = "2+3+2"
ElseIf C5.BackColor = Color.Green Then
QTN.Text = "2+1"
ElseIf C8.BackColor = Color.Green Then
QTN.Text = "1+3+2"
ElseIf C9.BackColor = Color.Green Then
QTN.Text = "1+1"
ElseIf D3.BackColor = Color.Green Then
QTN.Text = "2+2+1+1"
ElseIf D5.BackColor = Color.Green Then
QTN.Text = "2+5+2"
ElseIf D6.BackColor = Color.Green Then
QTN.Text = "5+0"
ElseIf D7.BackColor = Color.Green Then
QTN.Text = "1+2"
ElseIf E1.BackColor = Color.Green Then
QTN.Text = "0+3"
ElseIf E2.BackColor = Color.Green Then
QTN.Text = "3+1+3"
ElseIf E4.BackColor = Color.Green Then
QTN.Text = "2+3+1"
ElseIf E8.BackColor = Color.Green Then
QTN.Text = "1+0"
ElseIf E9.BackColor = Color.Green Then
QTN.Text = "2+1+2"
ElseIf F1.BackColor = Color.Green Then
QTN.Text = "4+2+3"
ElseIf F4.BackColor = Color.Green Then
QTN.Text = "1+5+1"
ElseIf F7.BackColor = Color.Green Then
QTN.Text = "1+4+1"
ElseIf G1.BackColor = Color.Green Then
QTN.Text = "5+0"
ElseIf G2.BackColor = Color.Green Then
QTN.Text = "1+0"
ElseIf G5.BackColor = Color.Green Then
QTN.Text = "1+1"
ElseIf G7.BackColor = Color.Green Then
QTN.Text = "2+3+3"
ElseIf H1.BackColor = Color.Green Then
QTN.Text = "1+1"
ElseIf H3.BackColor = Color.Green Then
QTN.Text = "2+2+2+2"
ElseIf H6.BackColor = Color.Green Then
QTN.Text = "3+2+2"
ElseIf H7.BackColor = Color.Green Then
QTN.Text = "0+1"
ElseIf I4.BackColor = Color.Green Then
QTN.Text = "2+2"
ElseIf I7.BackColor = Color.Green Then
QTN.Text = "0+1+1"
ElseIf I8.BackColor = Color.Green Then
QTN.Text = "1+1+3"
ElseIf I9.BackColor = Color.Green Then
QTN.Text = "1+3+5"
End If

eto yung sampla na sinasabi ko;

If A2.Text = "3" And A3.Text = "5" And A6.Text = "9" And B4.Text = "5" And B3.Text
= "2" And B6.Text = "1" And B7.Text = "4" And C3.Text = "7" And C5.Text = "3" And
C8.Text = "6" And C9.Text = "2" And D3.Text = "6" And D5.Text = "9" And D6.Text =
"5" And D7.Text = "3" And E1.Text = "3" And E2.Text = "7" And E4.Text = "6" And
E8.Text = "1" And E9.Text = "5" And F1.Text = "9" And F4.Text = "7" And F7.Text =
"6" And G1.Text = "5" And G2.Text = "1" And G5.Text = "2" And G7.Text = "8" And
H1.Text = "2" And H3.Text = "8" And H6.Text = "7" And H7.Text = "1" And I4.Text =
"4" And I7.Text = "2" And I8.Text = "5" And I9.Text = "9" Then

You might also like