如何改变EXCEL里面格子的颜色？？

[bary1980]

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("C:\OutDemo.xls", , False)
Set xlSheet = xlBook.Worksheets(1)

With xlSheet.d
'写入报表日期
.Cells(5, 8) = CStr(Date)
End With

xlBook.Save
xlApp.Quit
请问如果我要把格子Cells(1,1)的颜色变成黄色，怎么办，怎么动态的添加代码
（不要在OutDemo.xls中手动修改）
请写明代码，非常感激

[bary1980]

我着急啊，请大家务必关注

[liangfang]

Private Sub Form_Click()
Dim excelApp As Excel.Application
Set excelApp = New Excel.Application
On Error Resume Next
excelApp.Visible = True
excelApp.Workbooks.Add
With excelApp.ActiveSheet
Dim i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 10
.Cells(i, j).Value = "A"
Next j
DoEvents
Next i
End With
ActiveCell.Offset(0, 0).Activate'这句就是你格子的颜色变成黄色
的坐标,
Selection.Interior.ColorIndex = 6'这句就是颜色,6 为黄色

Set excelApp = Nothing

End Sub

换句话来说你只要在你的源码中加入

ActiveCell.Offset(0, 0).Activate'这句就是你格子的颜色变成黄色
的坐标(0, 0),
Selection.Interior.ColorIndex = 6'这句就是颜色,6
这两句就可以了

[liangfang]

我要多点分可以吗?

[liangfang]

20 分真在太小啦!我要多D!多D!多D!多D!多D!多D!,多谢!

[bary1980]

怎么控制颜色的坐标啊

[东方小女人]

最简单的办法是：在excel中录制宏，在vb中粘上宏代码！

[liangfang]

Private Sub Form_Click()
Dim excelApp As Excel.Application
Set excelApp = New Excel.Application
On Error Resume Next
excelApp.Visible = True
excelApp.Workbooks.Add
With excelApp.ActiveSheet
Dim i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 10
.Cells(i, j).Value = "A"
Next j
DoEvents
Next i
End With
excelApp.ActiveSheet.Cells(5, 1).Interior.ColorIndex = 6
(5,A)变成黄色
excelApp.ActiveSheet.Cells(6, 3).Interior.ColorIndex = 6
(6，C)变成黄色
Set excelApp = Nothing

End Sub

_______________________
Cells(行, 列) 坐标 1 代表A列 2 代表B列 3 代表为……
行 用数字代表
这样你想那行变色者得啦!

[linlinux]

xiongying860421(文盲)

讲的好,录制宏,然后粘贴,Easy.:D