資料剖析+加框線 - Excel程式區 - 麻辣家族討論版版

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

21^# 跳轉到 »

發表於 2017-8-6 20:07 | 只看該作者

回復 19# v03586

Sub test1()
Dim R, xR As Range, xH As Range
R = [D65536].End(xlUp).Row
For Each xR In Range([D2], [D65536].End(xlUp))
　　If xH Is Nothing Then Set xH = Cells(xR.Row, "AD")
　　If xR(2) <> xR Then
　　　With Range(xR(1, -2), xH)
　　　　　　.Borders.Weight = 4
　　　　　　If .Columns.Count > 1 Then .Borders(11).Weight = 2
　　　　　　If .Rows.Count > 1 Then .Borders(12).Weight = 2
　　　End With
　　　Set xH = Cells(xR.Row + 1, "AD")
　　End If
Next
End Sub

只適用于無合併格！！！
　

TOP

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

22^#

發表於 2017-8-9 15:30 | 只看該作者

本帖最後由 v03586 於 2017-8-9 15:31 編輯

回復 20# 准提部林

感謝板大提供的兩個版本!!! 最後我選擇有合併格的 !!!
可否再請教大大一個問題...

在我Test report的EXCEL "機台數"的分頁, 去做一個類似分析資料, 因為我知道樞紐分析用錄製的
   只要他的參考資料有新增沒有被錄製進去的資訊就會跳出錯誤

    程式步驟是, 開啟Test Report 再打開"參考資料" →  再按產生報表
   程式會從參考資料抓取要的資料到Test report 去做資料彙整
   直到Moudle3『機台數』只是把參考資料中我要的資料抓過來, 再做一個篩選
   剩下的資料要做分析的
   Q1:  能否將Moudle3 篩選完的資料在同一個分頁『機台數』呈現出  上圖的資料呢?
            如果PKG是空白代表機台待料, 可否把空白字眼換成" 待料 "