返回列表 上一主題 發帖

[發問] 第一列增加顏色標示。

[發問] 第一列增加顏色標示。

本帖最後由 ziv976688 於 2019-5-12 13:06 編輯

測試檔︰ 第一列增加顏色標示。.rar (67.37 KB)
檔案內增加工作表後,再將2個工作表的第一列增加顏色標示
當檔案名稱日期=DATA!A欄日期時,則將該檔案內各工作表之B$1︰AX$1有出現= DATA!D︰J的數字標示底色(= D︰I 標示6號底色; = J標示4號底色)。

請問︰VBA語法要如何增寫?
謝謝幫忙!

回復 1# ziv976688

      請參考 :
  http://forum.twbts.com/viewthrea ... p;extra=&page=5
    43#

  謝謝

TOP

回復 1# ziv976688

     建議版主把自己的程式 PO 出來,可以互相學習,
      也較容易找出問題在哪裡。

TOP

回復 3# Scott090

我不會寫VBA,只是想請教以你的解答再增加第1列的需求,應該如何增寫?
謝謝你!

TOP

本帖最後由 ziv976688 於 2019-5-12 16:55 編輯

回復 2# Scott090
有看到下列2段程式碼:
FinishCatFile:
      With shSample
            .[b2].Resize(colorNo, colNo) = arDATA
            .Range(.[A1], .[AZ1]).Interior.ColorIndex = 0
            GoSub HasTheData
            
ColoringFields:
            For i = 1 To 7    '(D、E、F、G、H、I、J)
                  If i < 7 Then .Cells(1, xNumber(1, i) + 1).Interior.ColorIndex = 6 Else .Cells(1, xNumber(1, i) + 1).Interior.ColorIndex = 8
            Next
            
            .Copy
      End With



HasTheData:
      xDate = Format(Mid(Cat, 2, 10), "yyyy/m/d")
      With ThisWorkbook.Sheets("總表")
            RowNo = 0
            RowNo = .[A:A].Find(xDate, Lookat:=xlPart).Row  
            If RowNo <> 0 Then xNumber = .Range(.Cells(RowNo , "D"), .Cells(RowNo , "J")).Value  
      End With          'end of numbers getting

但不知道要如何修改和插入的位列?
請你指教!謝謝你!

TOP

回復 5# ziv976688

   請核對是否所需:
      新增資料表(Tab及欄位底色20190513).rar (69.02 KB)

    好奇的問,同樣的東西好像有幾個人在問,這是甚麼東西?

TOP

回復 6# Scott090
感謝指導!
應該是下載了同樣的統計App

TOP

回復 6# Scott090
1.png
6 天前 01:58

請問S大:
當DATA!A欄日期=檔案日期,但=DATA!A欄日期的D:J是""(沒有數字)時,則也能繼續執行完成增加"前三小"的工作表和索引標籤標示黃色的需求。
只是工作表的第一列沒有再標示黃色和綠色(EX:2019-05-07)-Ans。
程式碼要怎麼修正?
謝謝你!

測試檔: Downloads.rar (87.42 KB)

TOP

回復 8# ziv976688

     請加入紅色自 的 指令,用以避開有空白碼的錯誤:
     For i = 1 To 7    '(D、E、F、G、H、I、J)
                  If xNumber(1, i) <> "" Then
                        j = Rng.Find(xNumber(1, i), LookIn:=xlValues, searchorder:=xlByColumns).Column
                        If i < 7 Then .Cells(1, j).Interior.ColorIndex = 6 Else .Cells(1, j).Interior.ColorIndex = 4
                  End If
            Next

TOP

回復 9# Scott090
感謝修正!
再次謝謝你的幫忙!

TOP

        靜思自在 : 成功是優點的發揮,失敗是缺點的累積。
返回列表 上一主題