莫少聪电影全集国语-aplumproject.com

google seo -> telegram: @ehseo6

">Newsnet 2022-10-05 00:50
  • home  >   /雅安粕寻科技股份有限公司  >   莫少聪电影全集国语
  • 只是朋友电影中文『网址:ff00.co』国漫电影,女神捕系列电影之借刀,情侣必看电影-F2F4Y5L8-  铮?I   E  O.com

    韩国电影 妈妈的朋友『网址:ff00.co』九九电影网怎么打不开了,浮士德电影,齐鲁电影网林海雪原-F2F4Y5L8-   B 铮? F  D.com

    VBA   发布时间:2022-10-05  发布网站:脚本宝典  www.js-code.com
    脚本宝典收集整理的这篇文章主要介绍了excel vba 高亮显示当前行代码脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。
    代码:
    复制代码 代码如下:

    PRivate Sub Worksheet_SelectionChange(ByVal Target As Range)
    ThisWorkBook.names.Add "XM", Target
    End Sub

    这几行代码的作用是,当选择新的单元格时,将这个单元格(或者区域)定义为名称“XM”,在条件格式设置中可以引用这个名称。
    如下面的附件,将代码粘贴完成后,返回工作表中,选择A4:I15,点击菜单“格式—条件格式”,设置:
    公式1:=(A4<>"")*(A4=XM)
    (如果A4不为空,并且A4等于XM)
    公式2:=ROW()=ROW(XM)
    (如果当前的行号等于XM的行号)
    用代码定义名称,我们需要它的即时更新,鼠标点到什么,这个名称“XM”就更新什么。
    例如,当鼠标点击F7单元格,XM便等于F7,ROW(XM)=7,设置条件格式的区域中,凡是Row()等于7(说白了就是第7行)的单元格便显示背景色。
    手工定义也可得到相同的效果,可以试试。然后比较一下,用代码的好处是什么
    当选中B6单元格时有不一样的情况出现,是因为区域中设置了两个条件格式,它符合第一个条件便显示第一种格式,符合第二个条件便显示第二个格式。
    点击菜单“格式—条件格式”可看清楚。
    初学有一个问题?能否把 高亮显示单元格 做成 自动起动的宏,让用户的鼠标单击工作表的某一个单元格后,相应的行和列都显示一种 或者 两种背景色!
    直接用vbA设置背景色,做法如下:
    鼠标右键点击工作表标签,选择“查看代码”,将下面代码粘贴到光标处:
    代码:
    复制代码 代码如下:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Rng As Range
    Set Rng = Target.Range("a1")
    Cells.Interior.ColorIndex = 0 '清除所有背景色
    Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
    Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
    End Sub

    其中40、36为颜色索引号,不同的数值代表不同的颜色,对应索引如下:
    如果工作簿中的每张工作表都有相同效果,应该怎么做?
    按Alt+F11打开VBE编辑器,在工程管理器中双击模块“ThisWorkbook”,将下面的代码粘贴到光标处:
    代码:
    复制代码 代码如下:

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Rng As Range
    Set Rng = Target.Range("a1")
    Cells.Interior.ColorIndex = 0 '清除所有背景色
    Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
    Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
    End Sub

    使用了这个代码后,表中的“复制”和“拷贝”功能就被禁止了,不知有无办法可以解决?
    可在代码第二行(清除颜色之前就行)插入一行代码:
    If Application.CutCopyMode Then ExIT Sub '如果处于选取状态则退出程序
    代码:
    复制代码 代码如下:

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Application.CutCopyMode Then Exit Sub '如果处于选取状态则退出程序
    Dim Rng As Range
    Set Rng = Target.Range("a1")
    Cells.Interior.ColorIndex = 0 '清除所有背景色
    Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
    Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
    End Sub

    脚本宝典总结

    以上是脚本宝典为你收集整理的excel vba 高亮显示当前行代码全部内容,希望文章能够帮你解决excel vba 高亮显示当前行代码所遇到的问题。

    如果觉得脚本宝典网站内容还不错,欢迎将脚本宝典推荐好友。

    本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
    如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。
    标签:excelexcel
    捕鱼平台免费招代理 世界杯平台多少钱 代理体彩要多少钱一个月 血战到底谁赢了 代理彩票站需要什么播报器
    开云体育是真的吗 网络捕鱼代理怎么做 做彩票代理违法吗 足彩 技巧 皇冠代理
    皇冠足球盘怎么代理 皇冠公司代理怎么做 凤凰体育彩票 体育品牌代理商加盟条件 足球 怎么买
    足球 网站 老虎机的软件 朋友代理彩票赚了钱 想做彩票代理怎么申请 电子普通发票