BlogJava-Jcat-随笔分类-VBAhttp://www.blogjava.net/Jcat/category/30224.html宠辱不惊，闲看庭前花开花落～～zh-cnSat, 29 Aug 2009 21:29:26 GMTSat, 29 Aug 2009 21:29:26 GMT60小工具http://www.blogjava.net/Jcat/archive/2009/05/20/271788.htmlJcatJcatWed, 20 May 2009 12:20:00 GMThttp://www.blogjava.net/Jcat/archive/2009/05/20/271788.htmlhttp://www.blogjava.net/Jcat/comments/271788.htmlhttp://www.blogjava.net/Jcat/archive/2009/05/20/271788.html#Feedback0http://www.blogjava.net/Jcat/comments/commentRss/271788.htmlhttp://www.blogjava.net/Jcat/services/trackbacks/271788.html运行该Sub，所有单元格的字母都会变成大写的
Sub  cap()
 Dim  cell  As  Range
 For   Each  cell In UsedRange
    cell.Value  =   UCase $(cell.Value)
 Next
End Sub

给定一段时间，计算出什么时候到期
Sub  deadline()
     Dim  deadtime  As   Date
    deadtime  =   DateAdd ( " d " , Cells( 2 ,  2 ),  Now )        ' day
    deadtime  =   DateAdd ( " h " , Cells( 2 ,  3 ), deadtime)   ' hour
    deadtime  =   DateAdd ( " n " , Cells( 2 ,  4 ), deadtime)   ' minute
    ActiveCell.Value  =  deadtime
 End Sub

' 选中右移
ActiveCell.Value  =   123
Cells(ActiveCell.Row, ActiveCell.Column  +   1 ).Select
ActiveCell.Value  =   456



Jcat 2009-05-20 20:20 发表评论
]]>Array in VBAhttp://www.blogjava.net/Jcat/archive/2008/03/28/189328.htmlJcatJcatFri, 28 Mar 2008 10:11:00 GMThttp://www.blogjava.net/Jcat/archive/2008/03/28/189328.htmlhttp://www.blogjava.net/Jcat/comments/189328.htmlhttp://www.blogjava.net/Jcat/archive/2008/03/28/189328.html#Feedback0http://www.blogjava.net/Jcat/comments/commentRss/189328.htmlhttp://www.blogjava.net/Jcat/services/trackbacks/189328.htmlDeclaring and Initialization
Option   Explicit
 
 Sub  arrayInVBA()
     Dim  a1( 5 )  As   String
     Debug.Assert  LBound (a1)  =   0
     Debug.Assert  UBound (a1)  =   5
     Debug.Assert  TypeName (a1)  =   " String() "

     Dim  a2( 2   To   5 )  As   Integer
     Debug.Assert  LBound (a2)  =   2
     Debug.Assert  UBound (a2)  =   5
     Debug.Assert  TypeName (a2)  =   " Integer() "

     Dim  arrayFunction: arrayFunction  =  Array( " aa " ,  " bb " ,  " cc " ,  " dd " ,  " ee " ,  " ff " )
     Debug.Assert  LBound (arrayFunction)  =   0
     Debug.Assert  UBound (arrayFunction)  =   5
     Debug.Assert  TypeName (arrayFunction)  =   " Variant() "

     ' initialize by Array() function
     Dim  i  As   Integer
     For  i  =   0   To   5
        a1(i)  =  arrayFunction(i)
     Next  i
    
     For  i  =   0   To   5
       Debug.Print a1(i)
     Next  i
 End Sub


Jcat 2008-03-28 18:11 发表评论
]]>Optional argument for Functionhttp://www.blogjava.net/Jcat/archive/2008/03/28/189294.htmlJcatJcatFri, 28 Mar 2008 08:23:00 GMThttp://www.blogjava.net/Jcat/archive/2008/03/28/189294.htmlhttp://www.blogjava.net/Jcat/comments/189294.htmlhttp://www.blogjava.net/Jcat/archive/2008/03/28/189294.html#Feedback0http://www.blogjava.net/Jcat/comments/commentRss/189294.htmlhttp://www.blogjava.net/Jcat/services/trackbacks/189294.htmlMUST declare the optional argument as a Variant data type. Then you can use the IsMissing function within the procedure.

Option Explicit

Function explicitType(Optional s As Integer)
    Debug.Assert IsNull(s) = False
    Debug.Assert IsMissing(s) = False
    Debug.Assert s = 0
    explicitType = s
End Function


Function variantType(Optional s)
    Debug.Assert IsNull(s) = False
    Debug.Assert IsMissing(s) = True
    'Debug.Print s  'Error 448
    variantType = s
End Function


Sub test()
    Debug.Print explicitType()
    Debug.Print variantType()
End Sub



Jcat 2008-03-28 16:23 发表评论
]]>基础samplehttp://www.blogjava.net/Jcat/archive/2008/03/26/188782.htmlJcatJcatWed, 26 Mar 2008 08:26:00 GMThttp://www.blogjava.net/Jcat/archive/2008/03/26/188782.htmlhttp://www.blogjava.net/Jcat/comments/188782.htmlhttp://www.blogjava.net/Jcat/archive/2008/03/26/188782.html#Feedback0http://www.blogjava.net/Jcat/comments/commentRss/188782.htmlhttp://www.blogjava.net/Jcat/services/trackbacks/188782.htmlControlling Function Recalculation
' the same as Round excel-function
Function  nonStaticRand()
    Application.Volatile  True
    nonStaticRand  =   Rnd ()    ' Rnd is a vba-function
End Function

' Calculate only once, so rand number won't be changed afterwards
Function  staticRand()
    Application.Volatile  False    ' you can ignore this line, default is False
    staticRand  =   Rnd ()
 End Function



Jcat 2008-03-26 16:26 发表评论
]]>Logic & Loophttp://www.blogjava.net/Jcat/archive/2008/03/25/188551.htmlJcatJcatTue, 25 Mar 2008 10:05:00 GMThttp://www.blogjava.net/Jcat/archive/2008/03/25/188551.htmlhttp://www.blogjava.net/Jcat/comments/188551.htmlhttp://www.blogjava.net/Jcat/archive/2008/03/25/188551.html#Feedback0http://www.blogjava.net/Jcat/comments/commentRss/188551.htmlhttp://www.blogjava.net/Jcat/services/trackbacks/188551.html      ' 'Logical Structures
     Dim  flag  As   Integer
     ' 1)
     If   True   Then  flag  =   1   Else  flag  =   0
    Debug.Assert flag  =   1
     ' 2)
     If   False   Then
        flag  =   1
     Else
        flag  =   0
     End   If
    Debug.Assert flag  =   0
     ' 3)
    flag  =   IIf ( True ,  1 ,  0 )
    Debug.Assert flag  =   1
    
     ' 'Logical Operators
    Debug.Assert ( 1   =   1 )  =   True
    Debug.Assert  Not  ( 1   =   1 )  =   False
    Debug.Assert ( True   And   False )  =   False
    Debug.Assert ( True   Or   False )  =   True


' 'Loop Structure
For  i  =   1   To   5
    
     If    Then
         Exit   For   ' 相当于Break
     End   If
Next  i



Jcat 2008-03-25 18:05 发表评论
]]>语法基础http://www.blogjava.net/Jcat/archive/2008/03/20/187437.htmlJcatJcatThu, 20 Mar 2008 03:16:00 GMThttp://www.blogjava.net/Jcat/archive/2008/03/20/187437.htmlhttp://www.blogjava.net/Jcat/comments/187437.htmlhttp://www.blogjava.net/Jcat/archive/2008/03/20/187437.html#Feedback0http://www.blogjava.net/Jcat/comments/commentRss/187437.htmlhttp://www.blogjava.net/Jcat/services/trackbacks/187437.html Options
Option Explicit
You must explicitly define each variable that you use.

Option Private Module
You can force all procedures in a module to be private - even those declared with the Public keyword.
You can omit the Private keyword from your Sub declarations.
Option Base [01]
The lower bound of an array, created using the Array function, is determined by Option Base statement at the top of the module. The default lower bound is 0

Declaring Variables
Dim  变量  As   String
变量  =   " initialization "

Const  常量  As   String   =   " initialization "

Dim  定长字符串  As   String   *   10
定长字符串  =   " 超过ten个无效（中文英文都算1个，看来编码用的unicode） "



Executing Sub from another Procedure
Option   Explicit


Sub  executingWay()
    add  " flame " ,  1 ,  2

    Call  add( " call " ,  1 ,  2 )

     Dim  subName  As   String : subName  =   " add "
    Run subName,  " run " ,  1 ,  2
End Sub


Sub  add(exeBy  As   String , x  As   Integer , y  As   Integer )
     MsgBox  exeBy  &   " :  "   &  (x  +  y)
 End Sub


Executing Function from another Procedure
Option   Explicit

Function  executingWay()
    Debug.Print add( " flame " ,  1 ,  2 )

     Dim  funcName    As   String : funcName  =   " add "
    Debug.Print Run(funcName,  " run " ,  1 ,  2 )
 End Function


Function  add(exeBy  As   String , x  As   Integer , y  As   Integer )  As   String
    add  =  exeBy  &   " :  "   &  (x  +  y)
 End Function



Jcat 2008-03-20 11:16 发表评论
]]>