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

maiko

­º¥ý§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

¤U¸ü (35.15 KB)

2013-10-6 19:19

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

¤U¸ü¦¸¼Æ: 9

2013-10-6 19:19

stillfish00

¦^´_ 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

maiko

¦^´_  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

stillfish00

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

Hsieh

¦^´_ 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

maiko

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

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

ÁÂÁ¡I