日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

vba 删除 添加checkbox_如何设置EXCEL输入内容后自动添加边框?

發布時間:2024/7/23 编程问答 33 豆豆
生活随笔 收集整理的這篇文章主要介紹了 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输入内容后自动添加边框?的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。