急!!! "無法設定種類Border的LineStyle屬性"
- 帖子
- 97
- 主題
- 33
- 精華
- 0
- 積分
- 129
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2019-5-7
- 最後登錄
- 2022-8-25
|
急!!! "無法設定種類Border的LineStyle屬性"
如圖1、圖2所示設定框線時所遇到的問題
這是從錄製巨集來修改的
而且"右鍵->儲存格格式"會沒反應
改了很多寫法
還是不知道問題出在哪
完成後會像圖4
圖1
圖2
圖3
圖3
圖4
圖4
附檔
 問題.rar (24.91 KB)
|
|
|
|
|
|
|
|
- 帖子
- 2729
- 主題
- 10
- 精華
- 0
- 積分
- 2785
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2023-12-10
|
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
| 只看該作者
本帖最後由 s13030029 於 2020-6-9 08:35 編輯
回復 2# 准提部林
因為這樣還不是我最終的表格
實際上做完會有標題列(如圖1、2)
所以准大的程式碼可能還要在修改一下
也可以幫我看看我的程式碼能不能簡短一點
謝謝
附檔有完整程式碼
問題.rar (33.96 KB)
|
|
|
|
|
|
|
|
- 帖子
- 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列
雖然說這兩種方法的框線都會出錯 |
|
|
|
|
|
|
|
- 帖子
- 2729
- 主題
- 10
- 精華
- 0
- 積分
- 2785
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2023-12-10
|
6#
發表於 2020-6-9 10:38
| 只看該作者
回復 3# s13030029
將編碼"2-4", 分成2及4
RR=SPLIT("2-4","-")
RR(0)=2
RR(1)=4 |
|
|
|
|
|
|
|
- 帖子
- 2729
- 主題
- 10
- 精華
- 0
- 積分
- 2785
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2023-12-10
|
7#
發表於 2020-6-9 10:44
| 只看該作者
本帖最後由 准提部林 於 2020-6-9 10:48 編輯
回復 5# s13030029
還沒執行程式前, 表格長什麼樣???
程式中的規則為何??? 不想從你的程式碼去猜, 太累又可能出錯!!
劃框有出錯, 是因"合併格"時, 有些劃框指令無法執行,
所以, 執行程式前, 必須先將合併格解除, 且將框線清除~~ |
|
|
|
|
|
|
|
