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

首頁 > 辦公 > Excel > 正文

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

2019-10-25 20:23:52
字體:
來源:轉載
供稿:網友

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

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

Excel,活動,單元格,在行,背景,顏色,代碼

  上圖中,即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

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


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 夏邑县| 达日县| 二连浩特市| 夏津县| 奉新县| 淮滨县| 永善县| 汉阴县| 铁岭县| 茶陵县| 合江县| 托里县| 大田县| 六安市| 平阴县| 方正县| 昌江| 大港区| 保山市| 连州市| 洮南市| 塔城市| 福建省| 秦皇岛市| 璧山县| 澜沧| 广宗县| 锦州市| 新余市| 荆州市| 平武县| 新沂市| 德惠市| 平罗县| 宣威市| 武胜县| 曲阜市| 彰化市| 泰州市| 布尔津县| 永福县|