[發問] 尋找公倍數

maiko

首先判斷B1、C1、D1、E1、F1……有沒有資料，如有多少個資料就查找多少欄的共同倍數：

1. 在B2:？31 表中查找B1、C1、D1、E1、F1……的共同倍數相同值，然後給它們填上顏色以便辨識，第一組的填上一個顏色，第二組的填上另一個顏色，第三組的填上第三個顏色，以此類推。

* ？為變量，B1、C1、D1、E1、F1……有多少個資料就為多少個變量

謝謝！

下載 (35.15 KB)

2013-10-6 19:19

尋找公倍數.rar (7.37 KB)

下載次數: 9

2013-10-6 19:19

maiko

回復  maiko
Hsieh 發表於 2013-10-7 16:11

   
Hsieh大，能否每次執行之前清除顏色格式？和自動計算B2:？1表中的共同倍數？

謝謝！

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

複製代碼

stillfish00

回復 3# maiko
前一次的結果沒清掉?

maiko

回復  maiko
stillfish00 發表於 2013-10-7 00:40

   
有點問題：就是不能判斷要查找的欄數多少欄才找出每欄的公同倍數。不是其中兩欄有共同倍數就找出來，不是這樣，要所有欄都有共同倍數才找出來。謝謝！

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

複製代碼