指定號碼在偶數欄的總個數及奇數欄的總次數 - Excelㄧ般區

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

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

11^# 跳轉到 »

發表於 2021-8-23 00:15 | 顯示全部帖子

本帖最後由 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

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

12^#

發表於 2021-8-23 07:37 | 顯示全部帖子

本帖最後由 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

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