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

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

1^# 跳轉到 »

發表於 2020-6-8 20:54 | 顯示全部帖子

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2020-6-9 10:38 | 顯示全部帖子

回復 3# s13030029

將編碼"2-4", 分成2及4
RR=SPLIT("2-4","-")
RR(0)=2
RR(1)=4

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

3^#

發表於 2020-6-9 10:44 | 顯示全部帖子

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

回復 5# s13030029

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

劃框有出錯, 是因"合併格"時, 有些劃框指令無法執行,
所以, 執行程式前, 必須先將合併格解除, 且將框線清除~~

TOP

准提部林