【090】Excel VBA 基础

Excel Object Model：

• Application Object (Excel): Stab Me!!!
• Font Object (Excel): Stab Me!!!
• Worksheet Object (Excel): Stab Me!!!

Ref: Visual Basic Language Reference

Ref: VBA Course: Colors

具体使用例子：

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
       Next
   Next

   　　VB、VBA、VB.NET 基本差不多，就是类不同罢了！
   参考：Excel VBA Interior.ColorIndex 色彩列表
   参考：Interior Object Members
   
   
2. 每一行上面增加一行，然后空行通过上下的平均求得！
   参考数据：https://files.cnblogs.com/alex-bn-lee/GOCI.rar
   参考代码：（现将txt导入excel中）
   

   Sub add()
       For n = 6 To 1000 Step 2    
           Rows(n).Select
           Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove   'Rows(i).Insert 也可以
       Next
   End Sub
   
   Sub 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   
       Next
   End 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
       Next
   
   End Sub

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

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

 

 

 

 

 

 

 

 

 

 

 

 

VBA Course 详细X

  没有英汉互译结果
  请尝试网页搜索