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

[µo°Ý] «ü©wÀx¦s®æ½d³òÅܧ󩳦âÃC¦â°ÝÃD½Ð±Ð-VBA

[µo°Ý] «ü©wÀx¦s®æ½d³òÅܧ󩳦âÃC¦â°ÝÃD½Ð±Ð-VBA

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2018/6/1 06:51): ¤W¶ÇÀɮ׬ݬÝ

dear  all ¤j¤j
1.«ü©wÀx¦s®æ½d³òÅܧóÃC¦â°ÝÃD½Ð±Ð
1.1 ¹Ï¤@¬°§PÂ_­ì«h. 1¬°½d³ò°_©lÂI ¦p¹Ï¤@  
        range(a2:a3)¤@²Õ   - Àx¦s®æÂÅ©³  
        range(a4:a6)¤@²Õ   - Àx¦s®æ¬õ©³
       range(a7:a7)¤@²Õ  - Àx¦s®æ¶À©³  
       range(a8:a9)¤@²Õ........
2.¤£¦P²ÕÀx¦s®æ©³¦â¤£¦P.
3.VBA¦p¦ó®Ñ¼g,·Ð¤£§[½ç±Ð   thanks *10000  
¹Ï¤@
range("a2")=1
range("a3")=2
range("a4")=1
range("a5")=2
range("a6")=3
range("a7")=1
range("a8")=1
range("a9")=2..........
ù

¥»©«³Ì«á¥Ñ luhpro ©ó 2018-6-10 02:14 ½s¿è

¦^´_ 1# rouber590324
©êºp, ¬°¤Fµ{¦¡­pºâ¤è«K,
©³¦âÅܧ󶶧ǨS¦³¨Ì§A©Ò­z.

­Y­n»Ý­n§¹¥þ¨Ì§A©Ò­zªº¶¶§ÇÅܧ󩳦â,
§Ú·Q¨ìªº¬O¥Î¤@­Ó«ü©wÃC¦â¥N¸¹ªº°}¦C¨Ó¨ú¥Î,
¨º»Ý­n§A¥ý´£¨Ñ§¹¾ãªºÃC¦â´`Àô¸ê®Æ,
¦A¨Ó¬Ýµ{¦¡­n¦p¦ó­×§ï...
  1. Private Sub Åܧ󩳦â_Click()
  2.   Dim iColor%
  3.   Dim lRow&
  4.   
  5.   lRow = 1
  6.   iColor = 2
  7.   Do While Cells(lRow, 1) <> 0
  8.     If Cells(lRow, 1) = 1 Then
  9.       iColor = iColor + 1
  10.       If iColor > 48 Then iColor = 3
  11.     End If
  12.     Cells(lRow, 1).Interior.ColorIndex = iColor
  13.     lRow = lRow + 1
  14.   Loop
  15. End Sub
½Æ»s¥N½X
  1. Private Sub ²M°£©³¦â_Click()
  2.   Cells.Interior.ColorIndex = -4142
  3. End Sub
½Æ»s¥N½X


Åܧ󩳦â.zip (9.62 KB)

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD