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

[µo°Ý] ´M§ä¤½­¿¼Æ

[µo°Ý] ´M§ä¤½­¿¼Æ

­º¥ý§PÂ_B1¡BC1¡BD1¡BE1¡BF1¡K¡K¦³¨S¦³¸ê®Æ¡A¦p¦³¦h¤Ö­Ó¸ê®Æ´N¬d§ä¦h¤ÖÄ檺¦@¦P­¿¼Æ¡G

1. ¦bB2:¡H31 ªí¤¤¬d§äB1¡BC1¡BD1¡BE1¡BF1¡K¡Kªº¦@¦P­¿¼Æ¬Û¦P­È¡AµM«áµ¹¥¦­Ì¶ñ¤WÃC¦â¥H«K¿ëÃÑ¡A²Ä¤@²Õªº¶ñ¤W¤@­ÓÃC¦â¡A²Ä¤G²Õªº¶ñ¤W¥t¤@­ÓÃC¦â¡A²Ä¤T²Õªº¶ñ¤W²Ä¤T­ÓÃC¦â¡A¥H¦¹Ãþ±À¡C

* ¡H¬°Åܶq¡AB1¡BC1¡BD1¡BE1¡BF1¡K¡K¦³¦h¤Ö­Ó¸ê®Æ´N¬°¦h¤Ö­ÓÅܶq

ÁÂÁ¡I



´M§ä¤½­¿¼Æ.rar (7.37 KB)

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-10-7 00:43 ½s¿è

¦^´_ 1# maiko
  1. Sub TEST()
  2.     Dim a As Long, x
  3.    
  4.     a = Application.WorksheetFunction.lcm(Range([b1], [b1].End(xlToRight)))
  5.     For Each x In Range([b2], [b1].End(xlToRight).End(xlDown))
  6.         If x.Value Mod a = 0 Then
  7.             x.Interior.ColorIndex = 3 + int(x / a) Mod 54
  8.         End If
  9.     Next
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_  maiko
stillfish00 µoªí©ó 2013-10-7 00:40



   
¦³ÂI°ÝÃD¡G´N¬O¤£¯à§PÂ_­n¬d§äªºÄæ¼Æ¦h¤ÖÄæ¤~§ä¥X¨CÄ檺¤½¦P­¿¼Æ¡C¤£¬O¨ä¤¤¨âÄ榳¦@¦P­¿¼Æ´N§ä¥X¨Ó¡A¤£¬O³o¼Ë¡A­n©Ò¦³Äæ³£¦³¦@¦P­¿¼Æ¤~§ä¥X¨Ó¡CÁÂÁ¡I

TOP

¦^´_ 3# maiko
«e¤@¦¸ªºµ²ªG¨S²M±¼?

TOP

¦^´_ 3# maiko
  1. Sub Ex()
  2. Dim Rng As Range, A As Range
  3. Set Rng = Range([B1], [B1].End(xlToRight))
  4. x = Application.WorksheetFunction.Lcm(Rng)
  5. y = Rng.Count
  6. For Each A In Range(Rng(1).Offset(1).Resize(, y), Rng(1).Offset(1).Resize(, y).End(xlDown))
  7.    If A Mod x = 0 And Application.CountIf(Range(Rng(1).Offset(1).Resize(, y), Rng(1).Offset(1).Resize(, y).End(xlDown)), A) = y Then
  8.       A.Interior.ColorIndex = 3 + Int(A / x) Mod 54
  9.    Else
  10.       A.Interior.ColorIndex = xlNone
  11.    End If
  12. Next
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_  maiko
Hsieh µoªí©ó 2013-10-7 16:11



   
Hsieh¤j¡A¯à§_¨C¦¸°õ¦æ¤§«e²M°£ÃC¦â®æ¦¡¡H©M¦Û°Ê­pºâB2:¡H1ªí¤¤ªº¦@¦P­¿¼Æ¡H

ÁÂÁ¡I

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD