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

首頁 > 辦公 > Excel > 正文

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

2024-08-23 19:53:34
字體:
供稿:網(wǎng)友

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

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

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

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

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

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

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

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

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

  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窗口并關(guān)閉,回到Excel窗口,效果就出來了。

  知識擴(kuò)展:

  部分代碼解釋:

  Columns().Interior.ColorIndex = 0

  x = ActiveCell.Column

  Columns(x).Interior.ColorIndex = 13

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

  y = ActiveCell.Row

  Rows(y).Interior.ColorIndex = 13

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


發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 高州市| 文昌市| 曲周县| 五原县| 仲巴县| 崇义县| 内江市| 大理市| 阿巴嘎旗| 黑山县| 澳门| 武汉市| 历史| 正定县| 临沭县| 仲巴县| 江城| 宝丰县| 遂平县| 稻城县| 盐山县| 阿荣旗| 肇州县| 涡阳县| 井冈山市| 乐昌市| 吉首市| 大安市| 太仆寺旗| 门源| 施秉县| 大悟县| 嘉义县| 历史| 古交市| 靖州| 连山| 治多县| 高邮市| 潍坊市| 临泉县|