返回列表 上一主題 發帖

急!!! "無法設定種類Border的LineStyle屬性"

急!!! "無法設定種類Border的LineStyle屬性"

如圖1、圖2所示設定框線時所遇到的問題
這是從錄製巨集來修改的
而且"右鍵->儲存格格式"會沒反應
改了很多寫法
還是不知道問題出在哪
完成後會像圖4
圖1
1.JPG
2020-6-8 17:04

圖2
2.JPG
2020-6-8 17:04

圖3

圖3

3.JPG
2020-6-8 17:05

圖4

圖4

4.JPG
2020-6-8 17:05

附檔
問題.rar (24.91 KB)

Sub 合併()
Dim R&, xR As Range, T1$, T2$, TC$, xH As Range, K
R = [D65536].End(xlUp).Row
With Range("A12:M" & R)
     .UnMerge
     .Borders.LineStyle = xlNone
End With
Application.DisplayAlerts = False
For Each xR In Range("A12:A" & R)
    T1 = Split(xR(1, 4) & "-", "-")(0)
    If T1 <> TC Then TC = T1: Set xH = xR
    T2 = Split(xR(2, 4) & "-", "-")(0)
    If T2 <> TC Then
       For Each K In Array(1, 2, 3, 13)
           Range(xR(1, K), xH(1, K)).Merge
       Next K
    End If
Next
Range("A12:M" & R).Borders.LineStyle = 1
End Sub
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

本帖最後由 s13030029 於 2020-6-9 08:20 編輯

回復 2# 准提部林
准大
你是幫我簡化程式碼了嗎XD
T1 = Split(xR(1, 4) & "-", "-")(0)
可以說明一下這句是怎麼用的嗎?

TOP

本帖最後由 s13030029 於 2020-6-9 08:35 編輯

回復 2# 准提部林
因為這樣還不是我最終的表格
實際上做完會有標題列(如圖1、2)
所以准大的程式碼可能還要在修改一下
也可以幫我看看我的程式碼能不能簡短一點
謝謝

2.JPG
2020-6-9 08:28

1.JPG
2020-6-9 08:28


附檔有完整程式碼
問題.rar (33.96 KB)

TOP

回復 4# s13030029
因為我之前的想法是先做好標題列跟分頁後
再來做合併儲存格的動作
但是現在我想要先合併後再分頁
一頁都是23列
雖然說這兩種方法的框線都會出錯

TOP

回復 3# s13030029


將編碼"2-4", 分成2及4
RR=SPLIT("2-4","-")
RR(0)=2
RR(1)=4
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

本帖最後由 准提部林 於 2020-6-9 10:48 編輯

回復 5# s13030029

還沒執行程式前, 表格長什麼樣???
程式中的規則為何???  不想從你的程式碼去猜, 太累又可能出錯!!

劃框有出錯, 是因"合併格"時, 有些劃框指令無法執行,
所以, 執行程式前, 必須先將合併格解除, 且將框線清除~~
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

本帖最後由 s13030029 於 2020-6-9 11:09 編輯

回復 7# 准提部林

編輯前
(如有資料)
完成後.JPG
2020-6-9 11:06

空白的(如無資料)
一開始空白.JPG
2020-6-9 11:06


編輯開始("編輯"程式碼)
會先刪除除了第一頁以外的標題列
輸入資料
編輯開始.JPG
2020-6-9 11:06


編輯完成("完成"程式碼)
會從23列開始插入12列(因為一頁就是23列)
再複製1~11列的資料貼上
再執行"頁碼"程式
然後合併相同編號的製程標題欄
完成後.JPG
2020-6-9 11:05


但是要注意例如製程P4跨頁了
那第二頁也要有"P4","光學分檢"

TOP

回復 8# s13030029

有點麻煩, 給你分三段寫:
問題_v02.rar (25.14 KB)

我的程式碼, 一般剛接觸VBA的不太容易理解, 需要多花些時間
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 9# 准提部林
謝謝准大~
目前用起來沒問題
不過程式有很多疑問XD
圖中這個xU是怎麼計算的
為甚麼一個xU就可以刪除那麼多頁的標題列
1.JPG
2020-6-9 16:57

TOP

        靜思自在 : 有時當思無時苦,好天要積雨來糧。
返回列表 上一主題