Const fil1 As String = "c:\４月PKG.xls"  '定数の例
        Public Const dva As String = "b:"        '共通定数
	'
        Dim aaa As Integer     '整数型
        Public　xxx As Integer '整数型（共通の場合）
	Dim bbb As Long        '長整数型
	Dim ccc As Single      '単精度浮動小数点数型
	Dim ddd As Double      '倍精度浮動小数点数型

	Dim eee As String      '文字列型
	Dim fff As Date        '日付型
	Dim ggg As Currency    '通貨型
　　　
	Dim hhh As Object      '任意の型のオブジェクト
	Dim iii As Variant     'バリアント型
	Dim jjj                'バリアント型
        Dim kkk As Boolean     'ブ−ル型(TrueかFalse)
	Dim lll(50) As String   '文字列型１次配列
	Dim mmm(3.20) As String '文字列型２次配列
 
 ----- 下記の方法でも可（最近は余り使用しない）----------
	Dim aaa%             '整数型
	Dim bbb&             '長整数型
	Dim ccc!             '単精度浮動小数点数型
	Dim ddd#             '倍精度浮動小数点数型
	Dim eee$             '文字列型

----- １行に記述する場合　----------
（正)　Dim aaa As Integer,bbb AS Integer
 (誤)　Dim aaa,bbb AS Integer            'aaaはバリアント型となる

     For i = 2 To cend
        shu = Cells(i, 1)
              If VarType(shu) <> 8 Then
                Cells(i, 1).Select
                Selection.NumberFormat = "@"
                shu = "00" & shu
              End If
                
                lshu = LenB(shu)
              If lshu <> 5 Then
                   Cells(i, 1) = Right(shu, 5)
              End If
      Next

	Public Const filp As String = "11月PKG.XLS"
	Public Const filg As String = "11月架.XLS"
	Public Const filk As String = "11月欠品.XLS"

	Public Const filpa As String = "a:\進捗管理\11月PKG.XLS"
	Public Const filga As String = "a:\進捗管理\11月架.XLS"
	'
	Sub ファイル名()
	' 本マクロは、各プログラムで使用しているファイル名を
	' そのＶＢＡをそのつど変更するのは面倒なので
	' ここに集めた。（月一回変更すること）
	End Sub						

Sub 例s48()
    Cells(1, 2) = 3
    Cells(2, 2) = 5
    Cells(3, 2).Formula = "=SUM(B1:B2)"
    
    d1 = Cells(2, 2)
    d2 = Cells(2, 2).Formula
    d3 = Cells(3, 2)
    d4 = Cells(3, 2).Formula
End Sub

   moz = Cells(r, c).Formula
   If Left(moz, 1) = "=" Then
        ms1 = "セルに関数がありHTMLへ変換出来ません" & Chr$(10) _
               & "　　(セルの場所　行＝" & r & "　列＝" & c & ")"
        me2 = MsgBox(ms1, 16)
             Exit Sub 
        End If

　　If Cells(r, c).HasFormula Then　

If Application.IsError(Cells(r, c)) Then
     ms1 = "行＝" & r & "　列＝2" & c & "にエラ−値"
    me2 = MsgBox(ms1, 16)
        Exit Sub
 End If

Sub val()
  For i = 2 To 20
     dat1 = Cells(i, 2).Value
     MsgBox dat1
  Next
End Sub
Sub form()
  For i = 2 To 20
     dat2 = Cells(i, 2).Formula
     MsgBox dat2
  Next
End Sub
Sub txt()
  For i = 2 To 20
     dat3 = Cells(i, 2).Text
     MsgBox dat3
  Next
End Sub

Option Base 1

Sub 例s410()
Dim w  As Integer
Dim week As Variant
  week = Array("日", "月", "火", "水", "木", "金", "土")
    hia = InputBox("｢年/月／日｣を入力して下さい")
    If IsDate(hia) Then
        hi = CDate(hia)
        hi = Format(hi, "yyyy""年""mm""月""dd""日""")
    Else
        MsgBox "｢年/月／日｣を入力して下さい"
        Exit Sub
    End If
        w = Weekday(hi)
    MsgBox hi & " は " & week(w) & "曜日です"
End Sub

'Forステートメントによる初期化（小さな配列ではよく使用する）
Sub s411a()
For i = 0 To 5
   For j = 0 To 100
     da(i, j) = ""
   Next
Next
MsgBox "データチェック(" & da(1, 1) & ")"
End Sub

'動的配列を新たに宣言し初期化（要素数も変更できます）
Sub s411b()
ReDim da(5, 100) As String
MsgBox "データチェック(" & da(1, 1) & ")"
End Sub

'Eraseステートメントによる初期化（配列の初期化では一番便利）
Sub s411c()
Erase da
MsgBox "データチェック(" & da(1, 1) & ")"
End Sub

'Book1に記述のマクロ
Sub Macro1()
    ddd = "abcd"
    Call Application.Run("Book3.xls!Macro2", ddd)
End Sub

'Book3に記述のマクロ
Sub Macro2(ddd)
    Windows("Book3.xls").Activate
    Sheets("Sheet1").Select
    Cells(2, 2) = ddd
End Sub