• “慰安妇”及领土问题引争端 韩日关系再起波澜 2018-06-18
  • 崔世安:特区政府支持澳门青年到内地实习和学习-澳门-时政频道-中工网 2018-06-18
  • 西成高铁可刷身份证乘车 2018-06-18
  • 国家卫健委:未来老人照护的主体应是社区和家庭 2018-06-18
  • 4月用电量增速回升至7.8% 2018-06-17
  • 白色污染带来生存危机 限塑令实施十年效果难言满意-中工博客-中工网 2018-06-17
  • 明年国际油价稳中看涨 电动车应用或催生原油需求拐点 2018-06-16
  • 大型儿童歌舞剧《东方梦娃》首演 2018-06-16
  • 北京警方全面启动春运安保工作 抓获嫌疑人1600余人 2018-06-16
  • 陕西小贷行业规模位居全国中游 19个省份小贷公司减少|陕西|小贷-要闻 2018-06-15
  • 黄毅清凌晨爆料:赵薇已经离婚!赵薇工作室辟谣! 2018-06-15
  • 山西代表团审议“两高”报告 骆惠宁楼阳生参加审议 2018-06-15
  • “2018世界杯战绩”在看全迅网【独家微视频】美国总统特朗普结束对中国的国事访问 抵达… 2018-06-14
  • 深圳今年拟资助254个“双创”项目 2018-06-14
  • 阳泉煤业:高度重视现金分红工作 2017年净利预增逾265% 2018-06-14
  • VBA判断单元格内容格式、颜色、合并单元格及返回数值

    时间:2016-03-05   作者:snow   来源:互联网

    一、判断数值的格式

    '1 判断是否为空单元格

      Sub d1()

         [b1] = ""

         'If Range("a1") = "" Then

         'If Len([a1]) = 0 Then

         If VBA.IsEmpty([a1]) Then

            [b1] = "空值"

          End If

      End Sub

    '2 判断是否为数字

      Sub d2()

        [b2] = ""

        'If VBA.IsNumeric([a2]) And [a2] <> "" Then

        'If Application.WorksheetFunction.IsNumber([a2]) Then

          [b2] = "数字"

        End If

      End Sub

    '3 判断是否为文本

      Sub d3()

        [b3] = ""

        'If Application.WorksheetFunction.IsText([A3]) Then

         If VBA.TypeName([a3].Value) = "String" Then

           [b3] = "文本"

        End If

      End Sub

    '4 判断是否为汉字

       Sub d4()

          [b4] = ""

          If [a4] > "z" Then

            [b4] = "汉字"

          End If

       End Sub

    '5 判断错误值

    Sub d10()

        [b5] = ""

        'If VBA.IsError([a5]) Then

        If Application.WorksheetFunction.IsError([a5]) Then

           [b5] = "错误值"

        End If

    End Sub

      Sub d11()

        [b6] = ""

        If VBA.IsDate([a6]) Then

           [b6] = "日期"

        End If

    End Sub

    二、设置单元格自定义格式

     Sub d30()

          Range("d1:d8").NumberFormatLocal = "0.00"

     End Sub

    三、按指定格式从单元格返回数值

    'Format函数语法(和工作表数Text用法基本一致)

    'Format(数值,自定义格式代码)

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    'Excel中的颜色可以用两种方式获取,一种是EXCEL内置颜色,另一种是利用QBCOLOR函数返回

    Sub y1()

     Dim x As Integer

      Range("a1:b60").Clear

      For x = 1 To 56

        Range("a" & x) = x

        Range("b" & x).Font.ColorIndex = 3

      Next x

    End Sub

     Sub y2()

      Dim x As Integer

       For x = 0 To 15

        Range("d" & x + 1) = x

        Range("e" & x + 1).Interior.Color = QBColor(x)

       Next x

     End Sub

    Sub y3()

      Dim 红 As Integer, 绿 As Integer, 蓝 As Integer

      红 = 255

      绿 = 123

      蓝 = 100

      Range("g1").Interior.Color = RGB(红, 绿, 蓝)

    End Sub

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    '单元格合并

    Sub h1()

      Range("g1:h3").Merge

    End Sub

    '合并区域的返回信息

    Sub h2()

     Range("e1") = Range("b3").MergeArea.Address '返回单元格所在     的合并单元格区域

    End Sub

    '判断是否含合并单元格

    Sub h3()

     'MsgBox Range("b2").MergeCells

     ' MsgBox Range("A1:D7").MergeCells

      Range("e2") = IsNull(Range("a1:d7").MergeCells)

      Range("e3") = IsNull(Range("a9:d72").MergeCells)

    End Sub

     '合并H列相同单元格

       Sub h4()

        Dim x As Integer

        Dim rg As Range

        Set rg = Range("h1")

         Application.DisplayAlerts = False

        For x = 1 To 13

          If Range("h" & x + 1) = Range("h" & x) Then

            Set rg = Union(rg, Range("h" & x + 1))

          Else

             rg.Merge

            Set rg = Range("h" & x + 1)

          End If

        Next x

        Application.DisplayAlerts = True

       End Sub

    tag : 合并   颜色
    相关文章
    发表评论