Excel Object Model：

• Application Object (Excel):
• Font Object (Excel):
• Worksheet Object (Excel):

Ref:

Ref:

具体使用例子：

1. 修改单元格的颜色：
   　　使用单元格的 Interior 类！其中 Color 属性可以修改或是显示单元格的背景颜色！ColorIndex 则是通过数字来修改单元格的背景颜色！
   
   For i = 2 To 19    For j = 2 To 19        If Cells(i, j) = "A" Then            Cells(i, j).Select            Selection.Interior.Color = RGB(255, 255, 0)　　'通过选取改变        End If        If Cells(i, j) = "C" Then            Cells(i, j).Interior.Color = RGB(255, 0, 255)　　'直接通过单元格来修改        End If        If Cells(i, j) = "D" Then            Cells(i, j).Select            Selection.Interior.ColorIndex = 2　　　　'用索引修改        End If    NextNext
   　　VB、VBA、VB.NET 基本差不多，就是类不同罢了！
   参考：参考：
2. 每一行上面增加一行，然后空行通过上下的平均求得！
   参考数据：
   参考代码：（现将txt导入excel中）
   Sub add()    For n = 6 To 1000 Step 2            Rows(n).Select        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove   'Rows(i).Insert 也可以    NextEnd SubSub avg()    For n = 6 To 704 Step 2            For m = 1 To 9                    Cells(n, m) = (Cells(n - 1, m) + Cells(n + 1, m)) / 2               Next       NextEnd Sub
3. ComboBox的使用
   　　首先需要为其增加内容，这个内容的增加需要在窗体加载/激活的时候触发，如下实现：
   　　
   　　之后在Activate事件中增加Item，利用ComboBox的AddItem方法：
   Private Sub UserForm_Activate()    ComboBox1.AddItem "C"        ComboBox1.AddItem "D"        For m = 1 To 100        ComboBox2.AddItem m    NextEnd Sub

   　　ComboBox1中，增加了C和D，ComboBox2中，增加了从1到100的数字！

   　　

4. TabIndex属性：按照数字顺序，一次通过点击“TAB”键实现每个控件之间的遍历！
   TabStop属性：True说明参加上面的遍历，False则说明不参加上面的遍历！
5. 待定

 

 

 

 

 

 

 

 

 

 

 

 

 

X

  没有英汉互译结果