Private Sub CommandButton2_Click()
'3Ó¤ë
If TextBox2.Value = 1 Then A = Array(3, 5, 7, 15, 17, 19)
If TextBox2.Value = 2 Then A = Array(5, 7, 9, 17, 19, 21)
If TextBox2.Value = 3 Then A = Array(7, 9, 11, 19, 21, 23)
If TextBox2.Value = 4 Then A = Array(9, 11, 13, 21, 23, 25)
If TextBox2.Value = 5 Then A = Array(11, 13, 15, 23, 25)
If TextBox2.Value = 6 Then A = Array(13, 15, 17, 25)
If TextBox2.Value = 7 Then A = Array(15, 17, 19)
If TextBox2.Value = 8 Then A = Array(17, 19, 21)
If TextBox2.Value = 9 Then A = Array(19, 21, 23)
If TextBox2.Value = 10 Then A = Array(21, 23, 25)
If TextBox2.Value = 11 Then A = Array(23, 25)
If TextBox2.Value = 12 Then A = Array(25)
If TextBox2.Value = "" Then A = Array(3, 5, 7, 15, 17, 19)
For I = LBound(A) To UBound(A)
For J = 4 To Cells(3, 4).End(xlToRight).Column
If Cells(A(I), J) = "¤é¯Z" Then Cells(A(I), J) = "©]¯Z"
If Cells(A(I), J) <> "" And Cells(A(I), J) = "©]¯Z" Then
Cells(A(I), J).Font.Color = RGB(Cells(1, 26), Cells(1, 27), Cells(1, 28))
Cells(A(I), J).Interior.Color = RGB(Cells(1, 32), Cells(1, 33), Cells(1, 34))
End If
Next J
Next I
Erase A
UserForm3.Hide
TextBox2.Value = ""
End Sub
½Ð°Ý«e½úÌ ¥H¤U³o¬q¸Ó¦p¦ó§ï¼g ¤~¯à°÷§ï¦¨°ÊºAªº³W«ß ¦p¦ó¥i¥HÁY´îµ{¦¡½X
ÁÙ¦³¤@Ó©µ¦ù°ÝÃD ·í©µ¦ù¨ì³Ì«á¤@Ó¤ë®É¤£º¡3Ó¤ë ¸Ó¦p¦ó©µ¦ù¦Ü¤U¤@¦~ªº²Ä¤@Ó¤ë
½Ð«e½úÌ«ü±Ð µ{¦¡¯S§OÃlªø ¬Ý°_¨Ó¥i¯à·|¦³¨Ç¤£¤è«K ¤£¦n·N«ä ^^"
If TextBox2.Value = 1 Then A = Array(3, 5, 7, 15, 17, 19)
If TextBox2.Value = 2 Then A = Array(5, 7, 9, 17, 19, 21)
If TextBox2.Value = 3 Then A = Array(7, 9, 11, 19, 21, 23)
If TextBox2.Value = 4 Then A = Array(9, 11, 13, 21, 23, 25)
If TextBox2.Value = 5 Then A = Array(11, 13, 15, 23, 25)
If TextBox2.Value = 6 Then A = Array(13, 15, 17, 25)
If TextBox2.Value = 7 Then A = Array(15, 17, 19)
If TextBox2.Value = 8 Then A = Array(17, 19, 21)
If TextBox2.Value = 9 Then A = Array(19, 21, 23)
If TextBox2.Value = 10 Then A = Array(21, 23, 25)
If TextBox2.Value = 11 Then A = Array(23, 25)
If TextBox2.Value = 12 Then A = Array(25)
If TextBox2.Value = "" Then A = Array(3, 5, 7, 15, 17, 19)
·s¼W¸ê®Æ§¨.rar (109.11 KB)
|