帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-7-19 01:07 | 只看該作者

請問vba的內外框線

本帖最後由 eric093 於 2013-7-19 01:09 編輯

請問各位高手，關於vba的內外框線該如何寫！
With Range("a1:c4").Borders
.LineStyle = 4
.LineStyle = 1
.ColorIndex = 3
.Weight = 3
End With

我想在a1:c4的內框為虛線，最外框為實線，我怎麼想不出來，也找不到答案！
請問各位高手該如何寫呢？感恩！

初學者

樓主熱帖

mhl9mhl9

中學生 Rank: 2

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

2^#

發表於 2013-7-19 03:13 | 只看該作者

回復 1# eric093

我會用錄制巨集

lmh

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-7-19 06:24 | 只看該作者

回復 1# eric093

Option Explicit
Sub Ex()
With Range("a1:c4").Borders 'Borders(框線)物件
.LineStyle = 3 '框線的式樣
.ColorIndex = 3 '框線的顏色
.Weight = 2 '框線的粗細
.Parent.BorderAround 1, 2, 3
'BorderAround(外框) LineStyle,Weight,ColorIndex
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2013-7-19 06:25 | 只看該作者

回復 1# eric093
這是不是符合你所要的答案？

Sub Ex()
With Range("A1:C4")
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlInsideVertical).Weight = xlHairline
.Borders(xlInsideHorizontal).Weight = xlHairline
End With
End Sub

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2013-7-19 07:05 | 只看該作者

本帖最後由 c_c_lai 於 2013-7-19 07:06 編輯

回復 3# GBKEE
您的模組比較適宜，且又簡潔，謝謝！

Sub Ex2()
With Range("A1:C4").Borders ' Borders(框線)物件
.LineStyle = 3 ' 框線的式樣
.ColorIndex = 15 ' 框線的顏色 1:黑 2:無 3:紅 4:淡綠 5:藍 6:黃 7:橘 8:天藍 9:紫 15:灰
.Weight = 1 ' 框線的粗細 xlHairline = 1 (毫線(最細的框線))、xlThin = 2 (細線)、
' xlMedium = -4138 (適中)、xlThick = 4 (粗線 (最寬的框線) )
.Parent.BorderAround 1, xlMedium, 1 ' BorderAround(外框) LineStyle, Weight, ColorIndex
End With
End Sub

複製代碼

TOP

eric093

中學生 Rank: 2

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

6^#

發表於 2013-7-19 11:12 | 只看該作者

感謝各位的持助，我收到了！
謝謝c_c_lai ，也感謝 GBKEE還有 mhl9mhl9給的意見！

TOP