[已解决]请老师帮忙用VBA判断日期的单双号而控制字体的颜色

蒋德宏 · 发表于 2015-5-28 11:23

本帖最后由蒋德宏于 2015-5-28 11:26 编辑

请老师帮忙用VBA判断A列日期的单双号来控制A B C D E F 列的颜色，如果A列的日期是单号的话，其它列的颜色就为粉红色，如果A列的日期是双号的话，其它列的颜色为绿色，在打开Sheet2时候代码触发。谢谢各位老师了！

根据日期的单双号用VBA控制字体的颜色.rar (9.06 KB, 下载次数: 5)

冥王 · 发表于 2015-5-28 11:41

本帖最后由冥王于 2015-5-28 11:42 编辑

Private Sub Worksheet_Activate()
Dim intRow%, r As Range
intRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each r In Range("A2:A" & intRow)
If Application.IsEven(CVar(Split(r, " ")(0))) Then
r.Resize(1, 6).Font.Color = 16711935 '粉红
Else
r.Resize(1, 6).Font.Color = 5287936 '绿色
End If
Next
End Sub

复制代码

蒋德宏 · 发表于 2015-5-28 12:00

老师请问为什么当代码运行到A663行的时候就会提示错误呢？

蒋德宏 · 发表于 2015-5-28 12:03

冥王 · 发表于 2015-5-28 12:12

错误提示是什么？应该是你的数据格式的问题吧，你的表格是里面，日期跟后面的时间中间都是一个空格分开的吗？

冥王 · 发表于 2015-5-28 12:25

第5句改成这样试一下

If Application.IsEven(CVar(Left(Split(r, "-")(2), 2))) Then

复制代码

蒋德宏 · 发表于 2015-5-28 13:56

冥王发表于 2015-5-28 12:25
第5句改成这样试一下

老师您好！经过您刚刚改过代码以后问题解决了，但是运行代码的时候有些慢，现在内容有1千多行，每天都会增加内容，我是用窗体录入内容的，您看可以不可以有其它快一点的方法呢？谢谢！

蒋德宏 · 发表于 2015-5-28 14:07

蒋德宏发表于 2015-5-28 13:56
老师您好！经过您刚刚改过代码以后问题解决了，但是运行代码的时候有些慢，现在内容有1千多行，每天都会增 ...

老师您好！这是我用窗体录入保存内容到工作表按钮的代码：Private Sub CommandButton12_Click()Beep
If ListView1.ListItems.Count = 0 Then
TextBox1.SetFocus
Exit Sub
End If
Dim arr()
  Dim icount As Integer, Y As Integer, x
  icount = ListView1.ListItems.Count 'ListItems.Count 返回总行数
  ReDim arr(1 To icount, 1 To 6)
  For x = 1 To icount
      arr(x, 1) = ListView1.ListItems(x).Text  '把listview第1列(text）放在数组第一列
   For Y = 1 To 5
      arr(x, Y + 1) = ListView1.ListItems(x).SubItems(Y)
   Next Y
  Next x
Sheets("调出").Range("a65536").End(xlUp).Offset(1, 0).Resize(icount, 6) = arr
Me.ListView1.ListItems.Clear
ActiveWorkbook.Save
TextBox1.SetFocus
End Sub

您看可以在这个上面把颜色添加进去吗？

		自动登录	找回密码
密码			注册