精华内容
下载资源
问答
  • VBA小例子,用来自动填充单元的颜色
  • 使用VBA程序进行单元格颜色填充

    千次阅读 2019-11-15 15:56:37
    2. 双击VBA工程资源管理器里面的“Sheet1(Sheet1)”,在代码窗口里面输入以下代码: 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对指定单元格填充颜色并且赋值

    千次阅读 2016-12-20 09:19:00
    使用VBA对指定的单元格赋值并填充颜色 ====================================================== 代码区域 ====================================================== Sub row应用() For Each rw In Rows(&...

    使用VBA对指定的单元格赋值并填充颜色

    ======================================================

    代码区域

    ======================================================

    Sub row应用()
     For Each rw In Rows("1:13")
     If rw.Row Mod 2 = 0 Then
     rw.Interior.ColorIndex = 3
     rw.Value = 99
     End If
     Next
    End Sub

    效果如下图:

     

    展开全文
  • 10, excel vba 修改单元格颜色

    万次阅读 多人点赞 2018-03-07 19:07:19
    看数据总是很累的,一堆密密麻麻的.哪个数据才是我想要的呢? 比如一列里有各种各样的数据,我想知道哪些单元格的数据大于11的?...在vba中一种颜色都对应着一个数字或者说序列吧. 比如红色. 它对应的序列...

     看数据总是很累的,一堆密密麻麻的.哪个数据才是我想要的呢? 

    比如一列里有各种各样的数据,我想知道哪些单元格的数据大于11的?

    又比如一列里有各种各样的数据,我想知道哪些单元格的数据大于111的?

    这里比较好的一种方法就是给单元格加一些色彩.看起来更直观.

    又或者有些人比较好色.比如觉得看绿色让他很舒服.也可以设置单元格的颜色了.


    在vba中一种颜色都对应着一个数字或者说序列吧. 比如红色. 它对应的序列是3. 即(ColorIndex =3)

    最早我们知道,一个单元格可能存在着很多属性.比如 单元格.height   表示的是这个单元格格的高度. 

    当设置为   单元格.height =3 时. 我们就把单元格的高度设置为3了.

    vba中  单元格.Interior    表示这个单元格的背景.

    比如  range("A1").Interior   指的就是单元格 A1的背景.

    用  range("A1").Interior.ColorIndex  表示的就是A1的背景的色彩序列.


    如果我们要设置A1的背景的色彩为 红色,我们这样写就可以了:  range("A1").Interior.ColorIndex=3, 

    由前面知道,在vba里,每种颜色都关联着一个数字. 当我们把ColorIndex设置为3的时候, 就设置为了红色了.

    接下来我们用实际的代码,来做个体验

    假设有这样一个表格,我们要做的就是把 >11 的表格设置为红色




    代码如下:

    Public Sub diandian10()

       For Each danyuan In Range(Range("A1"), Range("A100").End(xlUp))
       
           If danyuan.Value > 11 Then
               danyuan.Interior.ColorIndex = 3
           End If
           
       Next


    End Sub





    运行后效果如图:



    我们可以看到确实单元格的背景色变成了红色

    代码分析:

    1, Range(Range("A1"), Range("A100").End(xlUp)): 这个表示的是单元格A1到A8这个范围. 至于为什么这句不是表示A1到A100呢?  因为后面有一个 end(xlup),这个表示的是a100往上的非空单元格,这里就是a8

    2,  If  danyuan.Value > 11Then  , 这句语句就是前面一节学到的 选择语句了, 我们还记得选择语句的结构是:

    if  条件  then

    do something

    end if 

    吧 .这里的条件就是   danyuan.Value > 11 , 当满足条件时,就会执行do something

    3, danyuan.Interior.ColorIndex = 3  : 这个就是我们今天要学的内容了.  翻译过来就是: 单元格.背景.色彩序列=3

    执行这个语句,就会把单元格变成红色.


    如果你想改变单元格的背景色用:

       单元格.Interior.ColorIndex=

    如果你想改变单元格的字体的颜色:

       单元格.font.ColorIndex=


    下面给出所有的颜色对应的序列,用来查阅:




    展开全文
  • VBA_单元格格式设置代码
    • 【对齐方式选项卡】
    With Selection	
            .HorizontalAlignment = xlRight	     水平对齐方式
            .VerticalAlignment = xlCenter	     垂直对齐方式
            .WrapText = False	                    自动换行
            .Orientation = 0	                    文字方向
            .AddIndent = False	                        缩进
            .IndentLevel = 0	                      缩进量
            .ShrinkToFit = False	             缩小字体填充
            .ReadingOrder = xlContext	            文字方向
            .MergeCells = False	                   合并单元格
    End With	
    



    ·

    • 字体格式选项卡
    With Selection.Font	
            .Name = "华文琥珀"	                      字体
            .Size = 9	                              字号
            .Strikethrough = False	                删除线
            .Superscript = False	                  上标
            .Subscript = False	                      下标
            .OutlineFont = False	               大纲字体
            .Shadow = False	                          阴影
            .Underline = xlUnderlineStyleNone	     下划线
            .ColorIndex = xlAutomatic	           字体颜色
            .TintAndShade = 0	              颜色变深或变浅
            .ThemeFont = xlThemeFontNone	       主题字体
    End With	
    



    ·

    • 填充色选项卡
     With Selection.Interior	
            .Pattern = xlSolid	                                   图案样式
            .PatternColorIndex = xlAutomatic	                   图案颜色
            .ThemeColor = xlThemeColorDark1	                       主体颜色
            .TintAndShade = -4.99893185216834E-02	          颜色变深或变浅
            .Color = 65535	                                         填充色
            .PatternTintAndShade = 0	                 对象的淡色和底纹图案
    End With	
    

    展开全文
  • 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(...
  • 他的操作也不难,在这里跟大家分享2中方法,下面就让我们来看一下他是如何操作的一、使用vba对于这种自动填充颜色的功能,最简单有效的方法就是使用vba来实现这样的操作,首先我们点击工作表的名...
  • 单元格颜色分字体颜色和背景颜色两种,设置颜色的方法有三种,色值、RGB函数和颜色序号,代码如下: '设置颜色的方法 Sub SetColor()  '设置字体颜色:红色  Sheets(1).Cells(13, 1).Font.Color = 255  ...
  • Excel VBA自动给单元格填色

    千次阅读 2018-08-09 10:49:39
    要求:一个Excel文件中,有多个sheet,每个sheet中都有特定范围的单元格需要填充颜色,手动填充太麻烦,下面是VBA实现的自动填色 1 Sub incolor() 2 3 Dim i, j, sheetnum, rownum 4 5 '获取当前文档中的...
  • Sub 颜色() Dim x As Integer Range("a1:b60").Clear For x = 1 To 56 Step 1 Range("a" & x) = x Range("b" & x).Interior.ColorIndex = x '填充颜色 Range("a" & x).Font.ColorIndex = x '字体颜色 Next End Sub
  • 我遇到了这个VBA解决方案来读取条件格式颜色: Selection.FormatConditions(1).BarColor.Color 但是我无法在上面的VBA块中实现它 . 我尝试用它的不同部分替换Interior.Color,似乎没有工作 . 有谁知道一个简单的...
  • 目录 示例: 实现代码: ...参数SkipBlanks表示是否跳过空白单元格,若为True,则表示不将剪贴板中的空白单元格复制到目标区域。 参数Transpose表示是否转置,若为True,则表示转置。 示例: ..
  • Sub 填充文档中所有空白单元格() Dim oCell As Cell For i=1 To ActiveDocument.Tables.Count For Each oCell In ActiveDocument.Tables(i).Range.Cells If oCell.Range.Text = Chr(13) & Chr(...
  • VBA在Excel中的应用(一):改变符合条件单元格的背景颜色  在使用excel处理数据的时候,为了能更清晰的标示出满足特定条件的单元格,对单元格添加背景色是不错的选择。手工处理的方式简单快捷,但是当遇到大批量...
  • 1、单元格颜色的设置 背景颜色用属性Interior,字体颜色用属性Font。颜色的值,可以用Colorindex,这种方法只有Excel规定的56中颜色,如下图所示: 也可以用RGB()函数,这样就可以设置成任何颜色。RGB()函数函数...
  • 原创代码: 1 自定义工具栏Sub MeNu_自定义模块()On Error GoTo ERR Dim M(1) As String MeNa = "自定义的模块" M(1) = "颜色筛选列表" For Each Menu In CommandBars If Menu.Name = M
  • 1、EXCEL-开发工具中Visual Basic 2、Sheet1上右键插入模块 3、代码粘贴 Function CountByBGColor(Col As ...'用于将用户自定义函数标记为易失性函数,无论何时在工作表的任意单元格中进行计算时,易失性函数
  • Sub 早期颜色值() For i = 0 To 15 '一共有16种颜色 Cells(i+1, 1).Interior.Color = QBColor(i) '从a1单元格开始填充颜色 Cells(i+1, 2) = i '从b1单元格开始填充索引值 Next i End Sub ***********************...
  • 无论是在Excel还是在PowerPoint中,经常需要使用过渡色填充,但是如何使用VBA实现过渡色填充呢?大家肯定会想到录制宏,接下来就测试一下,录制宏是否能够继续让旗开得胜。
  • 最近因某项目的客户需求,需要使用vba,监听某工作簿的某工作表内单元格的值是否发生变化(在已有值上手动修改或者在空白处添加新值),如果有变化设置变化后的单元格的字体为红色。 作为初学vba的小白,在网上查了...
  • 众所周知EXCEL是办公利器,特别是在报表处理工作较多的办公环境下,一个简单的EXCEL VBA的小技能就可以剩下你大量的时间。 这不是重点,最最重点的是,这个小小的效率提升会减少工作里重复劳动的烦躁感,幸福度upup...
  • 将永恒君的百宝箱设为星标精品文章第一时间读这几天遇到一个有点特别的需求。...他需要做的事情是:右手边查看样品,左手在Excel中做记录(即样品对应的单元格中输入s,d,f三个字母中的一个,同时单元格标记颜...
  • DataGridView 单元格自动填充在DataGridView单元格中,当输入指定字符时,自动完成填充. 通过 TextBox实现 AutoCompleteMode AutoCompleteMode.Suggest: AutoCompl ...个人永久性免费-Excel催化剂功能第62波-单元格...
  • 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...
  • 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(粘贴全部),并...
  • 转载自品略图书馆... 代码如下: Sub InsertPic() "ExcelHome VBA编程学习与实践 by:看见星光 Dim Arr, i&, k&, n&, pd& Dim PicName$, PicPath$, FdPath$...
  • VBA处理工作表合并单元格 - 格式篇

    千次阅读 2018-03-01 01:49:30
    对于普通的规整数据,如果需要设置成间隔填充颜色,可以说是so easy。功能区中点几下鼠标(开始&gt;&gt;套用表格格式),选中自己喜欢的表格样式,瞬间完成这个任务。 如果数据表是有合并单元格的,套用...

空空如也

空空如也

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

vba单元格填充颜色代码