国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

讓Excel活動單元格所在行和列都著上背景顏色的VBA代碼

2024-08-23 19:28:13
字體:
來源:轉載
供稿:網友

  在Excel中,為了增強活動單元格的對比性,有時候我們常常需要修改其背景顏色、字體、字號等,用來區分和其它單元格的對比!

  本教程,讓我們一起來學習,如何讓Excel活動單元格所在行和列都著上背景顏色,首先看下圖。

讓Excel活動單元格所在行和列都著上背景顏色的VBA代碼 武林網

  上圖中,即C3單元格,被鼠標選中,說明是活動的單元格,如何做才能做到如上圖的效果,C3活動單元格所在的行和列,其背景顏色都著上顏色,這樣可以方便我們觀察單元格,正確的錄入數據。

  這得使用VBA代碼來完成,方法如下:

  首先在Excel窗口中,按下鍵盤上的組合鍵:Alt + F11

  這個時候,會彈出VBA窗口。

  ①右鍵點擊左邊列表中的 Sheet1 并選中查看代碼。這樣就會彈出一小個VBA輸入窗口。

  ②在小窗口中的上面,左邊選擇Worksheet名稱,右邊選擇SelectionChange事件。下面就可以在其內部輸入代碼了,代碼如下:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Columns().Interior.ColorIndex = 0

  x = ActiveCell.Column

  Columns(x).Interior.ColorIndex = 13

  y = ActiveCell.Row

  Rows(y).Interior.ColorIndex = 13

  End Sub

  最后,保存VBA窗口并關閉,回到Excel窗口,效果就出來了。

  知識擴展:

  部分代碼解釋:

  Columns().Interior.ColorIndex = 0

  x = ActiveCell.Column

  Columns(x).Interior.ColorIndex = 13

  如上代碼的功能,是讓活動單元格所在列著上背景顏色的代碼。

  y = ActiveCell.Row

  Rows(y).Interior.ColorIndex = 13

  如上代碼的功能,是讓活動單元格所在行著上背景顏色的代碼。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 如皋市| 博爱县| 永福县| 胶南市| 龙门县| 黔西县| 彭州市| 贡觉县| 西城区| 金平| 武乡县| 高平市| 长白| 彰武县| 邯郸县| 榆林市| 岑溪市| 班玛县| 邵阳县| 绥江县| 运城市| 溆浦县| 潼关县| 平陆县| 大庆市| 新干县| 肃宁县| 金坛市| 阳东县| 江北区| 黑水县| 江达县| 名山县| 仁怀市| 政和县| 米脂县| 钦州市| 中山市| 辽阳县| 青龙| 尉犁县|