ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý ARRAY½d³ò §ï¦¨ °ÊºA «ü©w ½d³ò°ÝÃD ½Ð«e½ú­Ì«ü±Ð

[µo°Ý] ½Ð°Ý ARRAY½d³ò §ï¦¨ °ÊºA «ü©w ½d³ò°ÝÃD ½Ð«e½ú­Ì«ü±Ð

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)

´N¬O¤ë¥÷ªº³¡¤À  §ï¦¨¥i¥H¥Î¿é¤Jªí³æªº¤è¦¡ 2­Ó¤ë½ü¤@¦¸ ©ÎµÛ¬O 3­Ó¤ë½ü¤@¦¸

TOP

¦^´_ 2# °a¤ªºµ

¦Û¤v¼gªº³W«h¦Û¤v¬Ý±oÀ´, ³o¤~¬O³Ì­«­nªº, ²¤Æ¤£¤@©w´N¦n!!!
¥u¤@±i¤u§@ªí´N¬Ý±o²´ªá, ¤£¤Ó·Q¥h¤F¸Ñ,
¤é´Á°µ¦¨¤å¦r, ¹ïEXCEL¨Ó»¡, ¤£¬O¦n²ßºD, ¹ï©¹«áªººûÅ@¤Î²Î­p¹Bºâ³£¦³»Ùê,
Åý¬Ý¨ìªº¬O"®æ¦¡", ¤º®e¬O¯u¹ê¼Æ­È, ¬O³Ì¦nªº~~

TOP

ÁÂÁ­㴣¤j¤j ©¹«á§Ú·|§ï±¼³o­ÓÃa²ßºDªº

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-6-17 02:06 ½s¿è

¦^´_ 1# °a¤ªºµ

»Ý¨D¡G
½Ð°Ý«e½ú­Ì ¥H¤U³o¬q¸Ó¦p¦ó§ï¼g ¤~¯à°÷§ï¦¨°ÊºAªº³W«ß ¦p¦ó¥i¥HÁY´îµ{¦¡½X

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)

¦P·N·Ç¤j»¡ªº¡A¦Û¤v¼gªºµ{¦¡¦Û¤v¯à¬ÝÀ´¡A¤~¬O³Ì¦nªº¡I
§O¤H¼gªº«Üµu«Ü¼F®`¡A§A¦pªG¬Ý¤£À´¡A¤§«á­n§ïµ{¦¡¤]µL±q¤U¤â¡A·|§óµh­W
¨Ì§Aªº»Ý¨D¡Aµ{¦¡§ï¦¨¦p¤U¡A¦ý°õ¦æ³t«×¤£·|¤ñ¸û§Ö~


k = TextBox2.Value: If k = "" Then k = 1
For i = k To 12: Idx = Idx + 1
  If Idx < 4 Or Idx > 6 Then
    itm = itm + 1: If itm = 7 Then Exit For
    s = s & "," & i * 2 + 1
  End If
Next i
A = Split(Mid(s, 2), ",")
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-6-17 02:30 ½s¿è

¦^´_ 1# °a¤ªºµ


¼gªk¤G¡G
k = TextBox2.Value: If k = "" Then k = 1
For i = k To 12
  s = s & "," & i * 2 + 1
  itm = itm + 1: If itm = 6 Then Exit For
  If i = k + 2 Then i = i + 5
Next i
A = Split(Mid(s, 2), ",")


¬Ý§Aı±o¨º­Ó§A¤ñ¸û¦n²z¸Ñ
·s¤â¤£«Øij¦bFor°j°é¸Ì­±§ïFor°j°éªºÅܼƭÈ
¥H§K¤£¤p¤ß´N§Ë¦¨µL½a°j°é¡A©Ò¥H¤£¤Ó±ÀÂ˦¹¼gªk
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-6-17 02:43 ½s¿è

¦^´_ 6# n7822123


º|§ï¨ì¡A­×¥¿¼gªk¤G

k = TextBox2.Value: If k = "" Then k = 1
For i = k To 12
  s = s & "," & i * 2 + 1
  itm = itm + 1: If itm = 6 Then Exit For
  If i = k + 2 Then i = i + 3    '¸õ¹L«á3­Ó°j°é
Next i
A = Split(Mid(s, 2), ",")
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

ÁÂÁ n7822123 ¤j¤j  µ{¦¡¤Ö«Ü¦h¦æ¤F
·í©µ¦ù¨ì³Ì«á¤@­Ó¤ë®É¤£º¡3­Ó¤ë ¸Ó¦p¦ó©µ¦ù¦Ü¤U¤@¦~ªº²Ä¤@­Ó¤ë©O?

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-6-17 19:05 ½s¿è

¦^´_ 8# °a¤ªºµ


1) ¤é¾ä¥u¦³¤@¦~¥÷, «ç©µ¦ù¤U¦~«×???
2) ¬°¦ó­n§Ë³o»ò¦hform???
3) ¶ñ©³¦â¦Ó¤v, ¦ó¥H­n¥Îvgaªí³æ¥h½Õ, ¤£Ä±¤Ó½ÆÂø???
4) ¨C­Ó¤ë¥Î31Äæ, ­n«ç¦C¦L¦¨¤@±i?

TOP

¦^­ã´£¤j¤j¨º­Ó§Ú¥u¬O·Q­n½m²ß¥Îªº¦]¬°§ÚÁÙ¬O·s¤â>"<    R1C4 ªº 2020 §ï¦¨2021 ¥i¥H©µ¦ùÅã¥Ü¤U¤@¦~¥÷
¯Z§O ½ü¯Z ªº³¡¤À ¬O¥i¥H©µ¦ù ¦ý¬O¨C­Ó¤ë¤Ñ¼Æ¤£¦P ­n°µ¨ì 2~3­Ó¤ëªº©µ¦ù´N¥d¦í¤F ^^"

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD