vba 单元格 一系例操作

 

1.单元格取值赋值

Private Sub CommandButton1_Click()
Range( " A1 " )  =   " 111 "
Range( " A2 " ).Value  =   " 2222 "
Range( " A10 " )  =  Range( " A1 " )
Range( " A11 " )  =  Cells( 2 ,  1 ).Value
Range( " A12 " )  =  Cells( 2 ,  1 )

Range("A13").ClearContents         '清除内容

 

 

Range("a20").Formula = "=rand()"  '单无格公式

End Sub

 

2.单元格设置颜色

Cells( 1 ,  1 ).Interior.ColorIndex  =   3   ' 单无格的颜色   

         

转载于:https://www.cnblogs.com/Ewin/archive/2008/08/03/1259443.html