papaya

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-10-24 11:32 | 只看該作者

[發問] 不等於空白的儲存格畫框線

Sub 畫框線()
Columns("A:B").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="="""""
With Selection.FormatConditions(1).Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.FormatConditions(1).Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.FormatConditions(1).Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.FormatConditions(1).Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub

複製代碼

各位大大:
我才剛學VBA錄製，請大家不吝指導。感恩!
請問:
上面的"A.B二欄不等於空白的儲存格畫框線"程式碼要如何簡化?
或是
一般的程式碼要如何撰寫?
謝謝!

樓主熱帖

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

2^#

發表於 2017-10-25 14:56 | 只看該作者

本帖最後由 papaya 於 2017-10-25 14:58 編輯

是我的說明不清楚?還是錄製的程式碼不能再簡化?

"小學生"沒有搜索的權力，不僅是初學習者的障礙，也是增加論壇容量負擔的原因之。
假如能讓"小學生"有搜索已解決題的權力，
可能一般的基本問題，就可以藉搜索找到答案，以減輕論壇的容量負載。

TOP

naruto018

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2020-5-17

3^#

發表於 2017-10-26 16:50 | 只看該作者

回復 2# papaya

參考看看

Sub 畫框線2()
Columns("A:B").FormatConditions.Delete
With Columns("A:B").FormatConditions.Add(Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="=""""")
With .Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub

複製代碼

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

4^#

發表於 2017-10-27 04:18 | 只看該作者

回復 3# naruto018
不好意思，果然是我的發問不夠準確。

原本我是錄製A,B二欄畫框線，錄製出來的程式碼一大堆；
爬文後，卻見到只要一列程式碼就可以達到目的
Sub 畫框線()
Range("A:B").Borders.LineStyle = xlContinuous
End Sub
或
Sub 畫框線()
Columns("A:B").Borders.LineStyle = xlContinuous
End Sub

所以，請問大大:
只要將A,B二欄不是空白的儲存格畫框線，
上面的程式碼要怎麼再編輯?
謝謝您!

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

5^#

發表於 2017-10-27 04:36 | 只看該作者

回復 3# naruto018
附上需求的圖片:

TOP

naruto018

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2020-5-17

6^#

發表於 2017-10-28 11:38 | 只看該作者

回復 5# papaya

參考看看

Sub 畫框線3()
Columns("A:B").FormatConditions.Delete
With Columns("A:B").FormatConditions.Add(Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="=""""")
.Borders.LineStyle = xlContinuous
End With
End Sub

複製代碼

搜尋功能可以多利用Google搜尋
搜尋特定網站
關鍵字+site:網站網址

TOP

naruto018

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2020-5-17

7^#

發表於 2017-10-28 12:03 | 只看該作者

回復 5# papaya

加註解

Sub 畫框線3()
Columns("A:B").FormatConditions.Delete '刪除A.B欄格式化條件
With Columns("A:B").FormatConditions.Add(Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="=""""") '在A.B欄新增一個格式化條件，條件為儲存格不為空白
.Borders.LineStyle = xlContinuous '設定格式化條件的外框格式
End With
End Sub

複製代碼

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

8^#

發表於 2017-10-28 13:17 | 只看該作者

本帖最後由 papaya 於 2017-10-28 13:19 編輯

回復 7# naruto018
程式碼簡化許多了!
感謝您耐心的加註解和指導!
您提供的資訊很實用，謝謝您^_^

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

9^#

發表於 2017-10-29 08:45 | 只看該作者

回復 7# naruto018
不好意思，能不能教我用For...Next
將 <>""的儲存格畫框線。
謝謝您!

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

10^#

發表於 2017-10-29 20:11 | 只看該作者

回復 7# naruto018
已找到答案了!謝謝您^^

Sub 有值儲存格畫框線()

            For Each a In Range("A:B")  'A,B欄有值儲存格畫框線
               If a <> "" Then a.Borders.LineStyle = xlContinuous
            Next
End Sub

TOP