返回列表 上一主題 發帖

[發問] 指定號碼在偶數欄的總個數及奇數欄的總次數

[發問] 指定號碼在偶數欄的總個數及奇數欄的總次數

TEST.rar (6.25 KB)
C2= (M$2︰DF$50)的偶數欄=B2的總個數
C3= (M$2︰DF$50)的偶數欄=B3的總個數


C50= (M$2︰DF$50)的偶數欄=B50的總個數


D2= (M$2︰DF$50)的偶數欄=B2之奇數欄總次數
D3= (M$2︰DF$50)的偶數欄=B3之奇數欄總次數


D50= (M$2︰DF$50)的偶數欄=B50之奇數欄總次數

請問︰
C2的函數公式 ?
D2的函數公式 ?
謝謝 !

回復 21# samwang
我不是意在比較寫法~您可能誤會我的意思了

If..... Then......End If 只能用在單純的需求,
貴語法的適用範圍寬廣許多~所以才一再冒昧大擾您~尚請見諒

非常謝謝您耐心的指導和熱心幫忙~感恩

TOP

回復 20# ziv976688

後學也是學習中,每個人寫法不一定都一樣,只要能寫出需求功能就好,感謝。

TOP

本帖最後由 ziv976688 於 2021-8-23 07:41 編輯

回復 19# samwang
不太能理解您的意思,
尋找 = .[A4:A9] 且字體顏色=7號的數字,取代為4號底色 >> 這是不是和#16程式需求一樣嗎?

是的!  謝謝您
-----------------
不好意思~
我只會最基本的 If..... Then......End If  的語法
EX :這個需求,我只會~
Sub test()
Dim i%, j%, k%

With Sheets("Sheet1")
For i = 4 To 9
  For j = 2 To 50
    For k = 2 To 110
    If Cells(j, k).Font.ColorIndex = 7 Then
     If (Cells(j, k) = Cells(i, 1)) Then
      Cells(j, k).Interior.ColorIndex = 4
     End If
     If (Cells(j, k) = Cells(10, 1)) Then
      Cells(j, k).Interior.ColorIndex = 8
     End If
    End If
Next k
Next j
  Next i
End With
End Sub

因為很想學習貴語法,所以才冒昧一題勞煩您這麼多次~尚請見諒
謝謝您

TOP

回復  samwang
S大大 : 您好 !
不好意思,能否請您另外再指導~以尋找→取代的方式來完成需求?
EX1:範圍 ...
ziv976688 發表於 2021-8-23 00:15


不太能理解您的意思,
尋找 = .[A4:A9] 且字體顏色=7號的數字,取代為4號底色 >> 這是不是和#16程式需求一樣嗎?

TOP

本帖最後由 ziv976688 於 2021-8-23 00:44 編輯

回復 16# samwang
S大大 : 您好 !
不好意思,能否請您另外再指導~以尋找取代的方式來完成需求?
EX1:範圍 = .Columns("B:DF"),尋找 = .[A4:A9] 且字體顏色=7號的數字,取代為4號底色。
EX2:範圍 = .Columns("B:DF"),尋找 = .[A10] 且字體顏色=7號的數字,取代為8號底色。
恕小弟笨拙~當標示的範圍改變時,原程式碼的各關鍵數字~我無法調整到完全符合(總有衝突)需求的數字。
謝謝您!

======================================
如下列錄製以尋找取代的方式之程式碼 :  
With Sheets("Sheet1")
.Columns("B:DF").Select
    With Application.FindFormat.Font
        .FontStyle = "粗體"
        .Subscript = False
        .ColorIndex = 7
    End With
    Application.ReplaceFormat.Interior.ColorIndex = 8
    Selection.Replace What:=.[A10], Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=True
End With

TOP

回復 16# samwang
完全OK了!
感謝您

TOP

回復 15# ziv976688

儲存格反顏色如下,請測試看看,謝謝

Sub test()
Dim Arr, Brr
With Sheets("Sheet1")
    Arr = .[a1:a10]
    R = .Columns("M:V").Find("*", , , , , 2).Row
    Brr = .Range("M1:DF" & R)
    For i = 4 To UBound(Arr)
        If i < UBound(Arr) Then
            .Cells(i, 1).Interior.Color = 65280
            For j = 1 To UBound(Brr, 2) Step 2
            For i2 = 2 To UBound(Brr)
                If Brr(i2, j) = Arr(i, 1) Then
                .Cells(i2, j + 12).Interior.Color = 65280
                End If
            Next i2
            Next j
        Else
            .Cells(i, 1).Interior.Color = 16776960
            For j = 1 To UBound(Brr, 2) Step 2
            For i2 = 2 To UBound(Brr)
                If Brr(i2, j) = Arr(i, 1) Then
                .Cells(i2, j + 12).Interior.Color = 16776960
                End If
            Next i2
            Next j
        End If
    Next
End With
End Sub

TOP

本帖最後由 ziv976688 於 2021-8-22 14:34 編輯

回復 13# samwang
不好意思~懇請您再指導取代的語法:
將M:V = A4:A9且為7號字顏的數字~標示4號底色
將M:V = A10且為7號字顏的數字~標示8號底色
謝謝您!

Book1.rar (4.04 KB)

TOP

回復 13# samwang
OK了
謝謝您多次的熱心幫忙和指導~感恩

TOP

        靜思自在 : 得理要饒人,理直要氣和。
返回列表 上一主題