標題: [發問] 連續重覆字提醒 [打印本頁]

---

作者: regedit77    時間: 2022-3-17 12:50     標題: 連續重覆字提醒

如果連續重覆的A第7次就變色提醒，試過 COUNTIF  OFFSET 發現只能一次中間斷了就沒辨法了

---

作者: samwang    時間: 2022-3-17 13:47

回復 1# regedit77

請測試看看，謝謝
Sub test()
Dim Arr, i&, j%, ct%
With Sheets(1)
    Arr = .UsedRange
    For i = 1 To UBound(Arr)
        ct = 0
        For j = 1 To UBound(Arr, 2)
            If Arr(i, j) = "" Then GoTo 95
            If UCase(Arr(i, j)) = "A" Then ct = ct + 1 Else ct = 0
            If ct = 7 Then .Cells(i, j).Font.ColorIndex = 3: ct = 0
        Next
95  Next
End With
End Sub

---

作者: hcm19522    時間: 2022-3-17 14:15

https://blog.xuite.net/hcm19522/twblog/590299357

---

作者: regedit77    時間: 2022-3-17 15:24

謝謝 samwang  hcm19522 兩位先進幫忙，  samwang 的太深了，不會用，但還是非常感謝，hcm19522 的可以使用，我在研究一下您是如何寫的 再次謝謝兩位

---

作者: regedit77    時間: 2022-3-17 15:48

請問一下 hcm19522 先進 為什麼mod 涵數外面要有個括號，一般不是都直接mod(x,x)嗎，還有為什麼要使用mod 想不出來

---

作者: hcm19522    時間: 2022-3-17 18:00

本帖最後由 hcm19522 於 2022-3-17 18:01 編輯

回復 5# regedit77

(一 ) (mod(~,7)=0)  (二) (A1<>"")   (三) (A1'"A")  三條件都要刮弧

---

作者: regedit77    時間: 2022-3-17 20:54

回復 6# hcm19522


    好的 謝謝您 我研究一下

---

作者: 准提部林    時間: 2022-3-18 20:08

=MOD(COLUMN()-MAX(($A1:A1<>A1)*COLUMN($A:A)),7)=0

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)