返回列表 上一主題 發帖

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

papaya

帖子
323 
主題
79 
精華
0 
積分
407 
點名
0  
作業系統
win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-10-22 
最後登錄
2022-1-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-10-24 11:32 | 顯示全部帖子

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

  1.   Sub 畫框線()

  3.     Columns("A:B").Select
  4.     Selection.FormatConditions.Delete
  5.     Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
  6.         Formula1:="="""""
  7.     With Selection.FormatConditions(1).Borders(xlLeft)
  8.         .LineStyle = xlContinuous
  9.         .Weight = xlThin
  10.         .ColorIndex = xlAutomatic
  11.     End With
  12.     With Selection.FormatConditions(1).Borders(xlRight)
  13.         .LineStyle = xlContinuous
  14.         .Weight = xlThin
  15.         .ColorIndex = xlAutomatic
  16.     End With
  17.     With Selection.FormatConditions(1).Borders(xlTop)
  18.         .LineStyle = xlContinuous
  19.         .Weight = xlThin
  20.         .ColorIndex = xlAutomatic
  21.     End With
  22.     With Selection.FormatConditions(1).Borders(xlBottom)
  23.         .LineStyle = xlContinuous
  24.         .Weight = xlThin
  25.         .ColorIndex = xlAutomatic
  26.     End With
  27. End Sub
複製代碼
各位大大:
我才剛學VBA錄製，請大家不吝指導。感恩!
請問:
上面的"A.B二欄不等於空白的儲存格畫框線"程式碼要如何簡化?
或是
一般的程式碼要如何撰寫?
謝謝!
收藏 分享

papaya

帖子
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

papaya

帖子
323 
主題
79 
精華
0 
積分
407 
點名
0  
作業系統
win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-10-22 
最後登錄
2022-1-18 
3#
發表於 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

帖子
323 
主題
79 
精華
0 
積分
407 
點名
0  
作業系統
win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-10-22 
最後登錄
2022-1-18 
4#
發表於 2017-10-27 04:36 | 顯示全部帖子
回復 3# naruto018
附上需求的圖片:

TOP

papaya

帖子
323 
主題
79 
精華
0 
積分
407 
點名
0  
作業系統
win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-10-22 
最後登錄
2022-1-18 
5#
發表於 2017-10-28 13:17 | 顯示全部帖子
本帖最後由 papaya 於 2017-10-28 13:19 編輯

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

TOP

papaya

帖子
323 
主題
79 
精華
0 
積分
407 
點名
0  
作業系統
win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-10-22 
最後登錄
2022-1-18 
6#
發表於 2017-10-29 08:45 | 顯示全部帖子
回復 7# naruto018
不好意思，能不能教我用For...Next
將 <>""的儲存格畫框線。
謝謝您!

TOP

papaya

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

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題