有没办法通过编程获取Excel工作表中单元格对象的属性

RT。。。。。。

下面是一个简单的例子，设定单元格A5的格式，'后为解释，程序运行时会忽略。
Sub Macro1()

Range("B5").Select '选中某单元格
Selection.Font.ColorIndex = 4 '字体颜色设为绿色
Selection.Interior.ColorIndex = 6 '单元格颜色设为黄色
Selection.Font.Bold = True '字体加粗
Selection.Font.Name = "Arial" '设字体为Arial
Selection.Font.Size = 12 '设字体大小为12

End Sub

下面的例子是得到某单元格的部分格式属性

Sub test()
Range("B5").Select
MsgBox Selection.Font.ColorIndex
MsgBox Selection.Interior.ColorIndex
MsgBox Selection.Font.Bold
MsgBox Selection.Font.Name
MsgBox Selection.Font.Size
End Sub

初学者，先使用工具，宏，录制宏，然后出现一类似录音机按钮，你做些单元格设置等动作，然后按停止按钮。再到工具，宏，VBA编辑器，左上窗口的模块，模块1，宏1，打开，可以看到一些代码，回忆你刚才坐的动作。慢慢练习。

你还可以把下面的例子粘到刚才宏的窗口中，把窗口弄小些，点上面的放音按钮，可以看到宏 是如何工作的：
Sub test2()

Dim i As Byte
For i = 1 To 30
Cells(i, 1) = i
Cells(i, 2).Interior.ColorIndex = i
Next i

End Sub

另外，最常见的语句还有IF Then End：
在上面例子的next i之前粘贴如下语句：
If i = 3 Then
i = i + 1
End If
会把A3和 B3 跳过。

熟能生巧。

vb 里的代码很简单，你在excel里对单元格设置时使用录制宏，然后查看宏，宏代码在vb里基本可用。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息