急!!! "無法設定種類Border的LineStyle屬性"
- 帖子
- 97
- 主題
- 33
- 精華
- 0
- 積分
- 129
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2019-5-7
- 最後登錄
- 2022-8-25
|
急!!! "無法設定種類Border的LineStyle屬性"
|
|
|
|
|
|
- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-7-23
|
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 |
|
|
|
|
|
|
- 帖子
- 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)
可以說明一下這句是怎麼用的嗎? |
|
|
|
|
|
|
- 帖子
- 97
- 主題
- 33
- 精華
- 0
- 積分
- 129
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2019-5-7
- 最後登錄
- 2022-8-25
|
4#
發表於 2020-6-9 08:33
| 只看該作者
|
|
|
|
|
|
- 帖子
- 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列
雖然說這兩種方法的框線都會出錯 |
|
|
|
|
|
|
- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-7-23
|
6#
發表於 2020-6-9 10:38
| 只看該作者
回復 3# s13030029
將編碼"2-4", 分成2及4
RR=SPLIT("2-4","-")
RR(0)=2
RR(1)=4 |
|
|
|
|
|
|
- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-7-23
|
7#
發表於 2020-6-9 10:44
| 只看該作者
本帖最後由 准提部林 於 2020-6-9 10:48 編輯
回復 5# s13030029
還沒執行程式前, 表格長什麼樣???
程式中的規則為何??? 不想從你的程式碼去猜, 太累又可能出錯!!
劃框有出錯, 是因"合併格"時, 有些劃框指令無法執行,
所以, 執行程式前, 必須先將合併格解除, 且將框線清除~~ |
|
|
|
|
|
|
- 帖子
- 97
- 主題
- 33
- 精華
- 0
- 積分
- 129
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2019-5-7
- 最後登錄
- 2022-8-25
|
8#
發表於 2020-6-9 11:04
| 只看該作者
|
|
|
|
|
|
- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-7-23
|
9#
發表於 2020-6-9 15:49
| 只看該作者
回復 8# s13030029
有點麻煩, 給你分三段寫:
問題_v02.rar (25.14 KB)
我的程式碼, 一般剛接觸VBA的不太容易理解, 需要多花些時間 |
|
|
|
|
|
|
- 帖子
- 97
- 主題
- 33
- 精華
- 0
- 積分
- 129
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2019-5-7
- 最後登錄
- 2022-8-25
|
10#
發表於 2020-6-9 16:57
| 只看該作者
回復 9# 准提部林
謝謝准大~
目前用起來沒問題
不過程式有很多疑問XD
圖中這個xU是怎麼計算的
為甚麼一個xU就可以刪除那麼多頁的標題列
|
|
|
|
|
|
|