精华内容
下载资源
问答
  • VBA示例之 获取一个单元格中有指定字体颜色部份数据,供初学者参考,大牛勿进~~~~~~~
  • vba获取单元的背景颜色

    千次阅读 2016-11-22 13:11:23
    Sub 宏1() ' ' 宏1 宏 ' ' 'Cells(7, 2).Interior.ColorIndex Worksheets("dsp3.0 pc").Range("B1").Value = InteriorColor(Range("G2")) End Sub Function InteriorColor(CellColor As Range) ...
    Sub 宏1()
    '
    ' 宏1 宏
    '
    
    '
        'Cells(7, 2).Interior.ColorIndex
        Worksheets("sheet1").Range("B1").Value = InteriorColor(Range("G2"))
        
    End Sub
    Function InteriorColor(CellColor As Range)
    Application.Volatile
    InteriorColor = CellColor.Interior.Color
    End Function
    

    展开全文
  • 使用VBA程序进行单元格颜色填充

    千次阅读 2019-11-15 15:56:37
    1. 打开Excel表格,点击【开发工具】,【Visual Basic】,打开VBA工程窗口。...Private Sub Worksheet_SelectionChange(ByVal Target As Range) '改变选择单元格时执行 Dim i, j, k As Integer...

    1. 打开Excel表格,点击【开发工具】,【Visual Basic】,打开VBA工程窗口。

    2. 双击VBA工程资源管理器里面的“Sheet1(Sheet1)”,在代码窗口里面输入以下代码:

    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range) '改变选择单元格时执行
    
    Dim i, j, k As Integer
    
    Set MySheet1 = ThisWorkbook.Worksheets("Sheet1")
    
    For i = 3 To 1000    '第3到1000行
    
    For j = 2 To 9       '第二列到第九列
    
    If MySheet1.Cells(i, j) <> "" Then     '如果单元格不是空白,则执行以下程序
    
       k = MySheet1.Cells(i, j).Value      '将单元格里面的值赋给变量 k
     
    
      If k < 60 Then
    
        MySheet1.Cells(i, j).Interior.Color = 65535   '填充颜色为黄色
    
      End If
    
    
      If k >= 60 And k < 80 Then
    
        MySheet1.Cells(i, j).Interior.Color = 5296274  '填充颜色为浅绿色
    
      End If
    
      If k >= 80 Then
    
        MySheet1.Cells(i, j).Interior.Color = 5287936   '填充颜色为绿色
    
      End If
    
      
    End If
    
    Next
    
    Next
    
    End Sub

    3. 输入完成之后,点击一下Sheet1工作表上面的单元格就会自动填充颜色,之后在指定范围内的单元格里面输入数值,单元格颜色也会跟着改变。

    展开全文
  • VBA示例之 选择指定范围内使用了填充颜色单元格,供初学者参考,大牛勿进~~~~~~~
  • 今天在做时序图,填充单元格颜色的时候,想让使用者从源单元格的颜色,来确定填充时单元格的颜色。用宏录制是: Sub Macro3() Range("D4:G8").Select With Selection.Interior .Pattern = xlPatternSolid ....

    今天在做时序图,填充单元格颜色的时候,想让使用者从源单元格的颜色,来确定填充时单元格的颜色。用宏录制是:

    Sub Macro3()
    
        Range("D4:G8").Select
        With Selection.Interior
            .Pattern = xlPatternSolid
            .ThemeColor = 7
            .TintAndShade = 0.4
            .PatternColorIndex = -4105
        End With
    End Sub
    

    其中颜色是ThemeColor表示的,开始填充的时候我把这个颜色定义为int类型,结果发现有时候会有色差甚至有时候还不对。colorIndex 我又定义为int类型,同样的情况。

    最后看Color的时候发现类型要定义为Variant类型,然后修改了,没有色差了。

    最后我选择了用color获得值类型为Variant,赋值也是Variant类型,解决问题。不过我还是不明白:color 、colorIndex 、ThemeColor三者的不同,我想大概是返回值的标识方法不一样,本质应该是一样的吧。

    Dim 颜色值 As Variant  '定义颜色变量类型为Variant
    
    颜色值 = Sheets("表格配置").Range("C4").Interior.Color '获取颜色值
    
    Cells(行号, 列号).Interior.Color = 颜色值  '赋值颜色值
    
    

    基于以上分析,解决了问题。OK,不求甚解,慢慢理解。

     

    后来。。。。。。。。。。。。。。。。。。。

    2021年2月15日发现一个问题,上面的颜色,和这里选择有关系主题颜色,标准颜色,和其他颜色,:

    1;录制宏的时候选择主题颜色对应的是ThemeColor


     

    而且还有一个有意思的事情是,主题颜色,下面对应的有一个系数一样的0.6,改为0.7颜色就会深浅变化一点。。。

     

    2:选择标准颜色的时候对应的是Color

     

    展开全文
  • 一、取值字体颜色值(用于excel工作中,根据字体颜色做出下一步操作) Public Function FontColor(rng As Range) FontColor = rng.Font.ColorIndex End Function 二、取值字体大小(用于...三、取值单元格颜色

    一、取值字体颜色值(用于excel工作中,根据字体颜色做出下一步操作)

    Public Function FontColor(rng As Range)
    
     FontColor = rng.Font.ColorIndex
    
    End Function

    二、取值字体大小(用于excel工作中,根据字体颜色大小做出下一步操作)

    Public Function FontSize(rng As Range)
    
     FontSize = rng.Font.Size
    
    End Function

    三、取值单元格颜色值(用于excel工作中,根据字体单元格颜色做出下一步操作)

    Public Function InteriorColor(rng As Range)
    
     InteriorColor = rng.Interior.ColorIndex
    
    End Function
    

    展开全文
  • VBA小例子,用来自动填充单元的颜色
  • Sub 宏1() Dim M As String Dim arrResult() As ... arrResult = VBA.Split(M, "-") Cells(i, 2).Interior.Color = RGB(CInt(arrResult(0)), CInt(arrResult(1)), CInt(arrResult(2))) 'For i = LBound(...
  • 目录 示例: 实现代码: ...参数SkipBlanks表示是否跳过空白单元格,若为True,则表示不将剪贴板中的空白单元格复制到目标区域。 参数Transpose表示是否转置,若为True,则表示转置。 示例: ..
  • Excel VBA单元格对象

    2020-06-18 15:08:38
    注意:①列标不区分大小写 ②VBA中字符用加双引号"",数字和变量无需加双引号""。所以,Cells(1,“A”)方式很好理解了。 多种方法引用单元格区域 Range(“A1:B2”)方式——表示A1到B2的单元格区域,包括
  • VBA单元格背景色类型

    千次阅读 2019-12-30 16:17:58
    一、颜色类型表 二、测试DEMO
  • Excel VBA Range单元格操作实例

    千次阅读 2020-02-16 21:51:53
    4.2取得最后一个非空单元格 xlDown/xlToRight/xlToLeft/xlUp Dim ERow as Long Erow=Range("A" & Rows.Count).End(xlUp).Row 4.3 复制单元格区域 注意:使用PasteSpecial方法时指定xlPasteAll(粘贴全部),并...
  • 009 设置单元格格式之字体(文档下载:关注本公众号,发送消息【教程】即可获得)通过VBA单元格字体进行设置也是比较常用的方式,那么本节内容我们就来学习如何使用VBA单元格中的字体进行设置。如图所示,字体设置...
  • Excel VBA:设置单元格边框

    千次阅读 2020-01-01 22:25:38
    单元格底纹的颜色或图形对象的填充颜色。 Tab 选项卡的颜色。 示例 此示例对 Chart1 中数值坐标轴的刻度线标志颜色进行设置。 Charts("Chart1").Axes(xlValue).TickLabels.Font.Color = _ RGB...
  • 怎样用VBA查找选定区域内包含某字符串的单元格,并用设定的底色显示
  • Excel VBA 单元格格式

    千次阅读 2017-12-04 11:00:01
    单元格水平 竖向居中 Sheet.Range(“A6”).HorizontalAlignment = = xlCenter ‘= 3单元格水平居中 Sheet.Range(“A6”).VerticalAlignment = xlCenter ‘=2 单元格竖向居中 此属性的值可设为以下常量之一: ...
  • Private Sub CommandButton1_Click... Arr = Sheets("0").Range("A1:K58")--这里是获取单元格的范围和sheet的名称 N = 1 For H = 1 To 58-- 这里是行数 For l = 1 To 11--这里是列数 cV = Cells(H, l).Interior...
  • VBA操作Excel之设置单元格属性

    千次阅读 2020-10-16 22:19:32
    VBA操作Excel简介一、VBA读写Excel文件 一、VBA读写Excel文件
  • '先选中要替换的区域,将特定背景的单元格都赋值为"√" ' Dim lColor As Long ' 'lColor = InteriorColor(Range("G2"))' lColor = 10213316 Worksheets("dsp3.0 pc").Range("B1").Value = lColor
  • Excel VBA自动给单元格填色

    千次阅读 2018-08-09 10:49:39
    要求:一个Excel文件中,有多个sheet,每个sheet中都有特定范围的单元格需要填充颜色,手动填充太麻烦,下面是VBA实现的自动填色 1 Sub incolor() 2 3 Dim i, j, sheetnum, rownum 4 5 '获取当前文档中的...
  • 最近因某项目的客户需求,需要使用vba,监听某工作簿的某工作表内单元格的值是否发生变化(在已有值上手动修改或者在空白处添加新值),如果有变化设置变化后的单元格的字体为红色。 作为初学vba的小白,在网上查了...
  • VBA处理工作表合并单元格 - 格式篇

    千次阅读 2018-03-01 01:49:30
    对于普通的规整数据,如果需要设置成间隔填充颜色,可以说是so easy。功能区中点几下鼠标(开始&gt;&gt;套用表格格式),选中自己喜欢的表格样式,瞬间完成这个任务。 如果数据表是有合并单元格的,套用...
  • 不知道大家有没有遇到过这样的需求,就是根据单元格填充颜色对其数据进行求和处理。今天我在这里和大家分享五种按颜色求和小技巧。 1、查找法 查找法主要利用颜色格式查找出全部满足条件的单元格,然后使用Excel...
  • 他的操作也不难,在这里跟大家分享2中方法,下面就让我们来看一下他是如何操作的一、使用vba对于这种自动填充颜色的功能,最简单有效的方法就是使用vba来实现这样的操作,首先我们点击工作表的名...
  • 我遇到了这个VBA解决方案来读取条件格式颜色: Selection.FormatConditions(1).BarColor.Color 但是我无法在上面的VBA块中实现它 . 我尝试用它的不同部分替换Interior.Color,似乎没有工作 . 有谁知道一个简单的...
  • 问题一:在VBA代码中,如何引用当前工作表中的单个单元格(例如引用单元格C3)? 回答:可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。 (1) Range("C3") (2) [C3] (3) Cells(3, 3) ...
  • 7、上级信息 parent.parent.name 8、内容判断 hasFormula 、hyperlinks.count 四、单元格格式 1、颜色 颜色的设置就两个属性 color 和 colorIndex Color 属性的属性值是rgb(1,2,3)或者QBColor(x) 2、内容判断 是否...
  • 25 获取当前单元格所在的行号和列号 26 格式刷(公式复用) 27 筛选 28 查找替换 29 单元格颜色 30 字符居中 31 添加公式 32 复制某个单元格 33 单元格引用 34 单元格边框 35 复选框执行 36 取消(退出软件) 37 If ...
  • 1、单元格引用 引用 含义 Range(“A1”) 单元格A1 Range(“A1:B2”) A1到B2的单元格区域 Range(“C5:D9,G9:H16”) 多块选定区域 ...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧145 使用自定义颜色设置窗体颜色 12 技巧146 在窗体中显示图表 12 146-1 使用Export方法 12 146-2 使用API函数 12 技巧147 窗体运行时调整控件大小 12 技巧148 在用户窗体上添加菜单 12 技巧149 在用户窗体上...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,282
精华内容 512
关键字:

vba获取单元格颜色