vba 删除 添加checkbox_如何设置EXCEL输入内容后自动添加边框?
在Excel中我們經常需要對輸入的表格內容添加邊框,一般的操作步驟是,先輸入內容,再設置邊框。但這樣的問題在于,如果我們下次還要繼續輸入內容,還要再次添加邊框,如果刪除內容,還要手動去除邊框。
那有沒有一種方法,可以跟隨我們的輸入內容同步變化,輸入內容之后自動添加邊框,刪除內容自動去除邊框?就如同下圖這樣:
有2種基本方法可以實現上述效果,一種是利用條件格式,一種是利用VBA代碼。
一、條件格式法
首先全選整個工作區,在『開始』菜單下找到『條件格式』『新建規則』,然后選擇『使用公式確定要設置格式的單元格』,并在下方文本框中輸入公式=A1<>"",最后點擊『格式』,設置合適的邊框樣式即可。
二、VBA法
在『開發工具』菜單找到『Visual Basic』,點擊打開VBE窗口,雙擊左側的Sheet1項目,在右側輸入如下代碼,保存即可生效:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each a In UsedRange If a <> "" Then a.Borders.LineStyle = xlContinuous ElseIf a = "" Then a.Borders.LineStyle = xlNone End If NextEnd Sub如下圖所示。
代碼的原理很簡單,就是只要工作表發生變化,比如點擊不同單元格,輸入或刪除內容,就會觸發Worksheet_SelectionChange事件。這個事件會遍歷整個數據塊中的每一個單元格,如果內容不為空則設置邊框樣式,如果內容為空則去除邊框樣式。
注:如果你的菜單欄沒有『開發工具』這一項,可以在『文件』菜單下找到『選項』命令,點擊打開Excel的設置窗口。在『自定義功能區』最右側,勾選『開發工具』復選框,點擊『確定』即可開啟。
總結
以上是生活随笔為你收集整理的vba 删除 添加checkbox_如何设置EXCEL输入内容后自动添加边框?的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: python3 web服务器_pytho
- 下一篇: python中break和continu