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

[µo°Ý] §Q¥ÎVBA³]©w®æ¦¡¤Æ±ø¥ó

[µo°Ý] §Q¥ÎVBA³]©w®æ¦¡¤Æ±ø¥ó

§Q¥ÎExcel »s§@¼Ð³æÀÉ¡A¸ê®ÆL ¼Ð³æÀÉ.rar (26.62 KB) ¡C
²{§Æ±æ¯à°÷¦b¼t°Ó³ø»ù¶W¥X³Ì§C»ù50%®É¡A¥i¥H¥X²{¬õ©³¡A¥Ø«e¤w¨Ï¥Î³]©w®æ¦¡¤Æ±ø¥ó¡A¦ý¦]ÀÉ®×±Nµ¹¦h¤H¨Ï¥Î¡A¥BÀH®É·|¦b¤¤¶¡´¡¤J¦æ¼Æ¡A¬°ÁקK¤é«á¥i¯à·|§Ñ°O¥[¤J®æ¦¡¤Æ±ø¥ó¡A¦]¦¹§Æ±æ§ï¥ÎVBA¤è¦¡¡A¦b¿é¤J§¹¦¨«á°õ¦æ§PÂ_¡C§Æ±æ¦U¦ìÀ°¦£«ü¾É¦p¦ó¹F¦¨¡C

«D±`·PÁÂdonald
¦p¦¹¥i§¹¦¨§Ú¥Ø«e©Ò»Ý
¦ý¦]¼Ð³æ¦³¼ÆºØ¡A¨C¤@Ãþ¼t°Ó®a¼Æ¤£¦P¡A¦]¦¹¥²»Ý³]©w½d³ò¬°¤ñ¸û½d³ò¬°²Ä5Äæ¨ì³Ì¥kÄæ-7¡A
¤~¯à¤è«K¨C¤@Ãþ¼Ð³æ¡A³Â·Ð¦A«ü¾É¤@¤U¡C

TOP

¦^´_ 3# tsuan
  1. Sub Ex()
  2. k = Rows(2).Find("¤W´Á¼Æ¶q").Column - 1
  3. Range([E2], Cells(2, k)).EntireColumn.Interior.ColorIndex = 0
  4. For Each a In Range([E2], Cells(2, k)).EntireColumn.SpecialCells(xlCellTypeConstants, 1)
  5. r = a.Row
  6. If a > Application.Min(Range(Cells(r, 5), Cells(r, k))) * 1.3 Then a.Interior.ColorIndex = 3
  7. Next
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁÂHsieh:
§¹¥þ²Å¦X§Ú©Ò·Q­n¹F¦¨ªº
¯u¬O·P¿E

TOP

¤Ó¦n¤F¡A¯u¬O§Q®`
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD