12
返回列表 上一主題 發帖

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

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
4# 跳轉到 »
發表於 2020-6-9 08:33 | 只看該作者
本帖最後由 s13030029 於 2020-6-9 08:35 編輯

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




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

TOP

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
3#
發表於 2020-6-9 08:14 | 只看該作者
本帖最後由 s13030029 於 2020-6-9 08:20 編輯

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

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
2#
發表於 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

        靜思自在 : 不要隨心所欲，要隨心教育自己。
12
返回列表 上一主題