帖子: 43
主題: 8
精華: 0
積分: 75
點名: 0
作業系統: windows xp
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-4-24
最後登錄: 2022-3-17

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2022-3-17 12:50 | 只看該作者

[發問] 連續重覆字提醒

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

Excel.jpg (32.69 KB)

連續相同字.rar (6.52 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

8^#

發表於 2022-3-18 20:08 | 只看該作者

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

TOP

regedit77

中學生 Rank: 2

帖子: 43
主題: 8
精華: 0
積分: 75
點名: 0
作業系統: windows xp
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-4-24
最後登錄: 2022-3-17

7^#

發表於 2022-3-17 20:54 | 只看該作者

回復 6# hcm19522

好的謝謝您我研究一下

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-25

熱烈參與勳章

6^#

發表於 2022-3-17 18:00 | 只看該作者

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

回復 5# regedit77

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

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

regedit77

中學生 Rank: 2

帖子: 43
主題: 8
精華: 0
積分: 75
點名: 0
作業系統: windows xp
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-4-24
最後登錄: 2022-3-17

5^#

發表於 2022-3-17 15:48 | 只看該作者

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

TOP

regedit77

中學生 Rank: 2

帖子: 43
主題: 8
精華: 0
積分: 75
點名: 0
作業系統: windows xp
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-4-24
最後登錄: 2022-3-17

4^#

發表於 2022-3-17 15:24 | 只看該作者

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

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-25

熱烈參與勳章

3^#

發表於 2022-3-17 14:15 | 只看該作者

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

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

2^#

發表於 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

TOP