　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-6-8 17:07 | 只看該作者

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

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

圖2

圖3

圖4

附檔

問題.rar (24.91 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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

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

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

5^#

發表於 2020-6-9 08:44 | 只看該作者

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

6^#

發表於 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

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

7^#

發表於 2020-6-9 10:44 | 只看該作者

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

回復 5# s13030029

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

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

TOP

s13030029