国产探花免费观看_亚洲丰满少妇自慰呻吟_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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 任丘市| 沙雅县| 余姚市| 沾益县| 仙居县| 闻喜县| 航空| 潮州市| 绥中县| 安阳县| 安陆市| 开阳县| 花莲市| 麦盖提县| 通州区| 嫩江县| 邯郸市| 灵寿县| 中西区| 三亚市| 陕西省| 汝州市| 营口市| 黔西县| 兰坪| 沛县| 安远县| 思南县| 蓬溪县| 独山县| 曲松县| 乌恰县| 大化| 大荔县| 泰州市| 科技| 榆林市| 南木林县| 称多县| 甘谷县| 隆德县|