VBA 配列

1.文法

次のように宣言します。

Dim 配列名(最小値 to 最大値) As データ型

2.サンプル

Sub Sub1()

 Dim str(1 To 3) As String

 str(1) = "1番目"

 str(2) = "2番目"

 str(3) = "3番目"

 Debug.Print (str(1))

 Debug.Print (str(2))

 Debug.Print (str(3))

End Sub

3.実行結果

1番目
2番目
3番目

VBA Windowの最大化

1. サンプル

Sub MySub()
 
 Application.WindowState = xlMaximized
 
End Sub

2.実行結果

EXCELが最大化されます。

VBA EXCELのバージョン

1.文法

Application.Version

を利用する。

2.サンプル

Sub MySub()
 
   ''EXCELのバージョン
   Debug.Print Application.Version

End Sub

3.実行結果

17.0

が表示されました。

EXCEL VBA ユーザ定義型の利用

1.文法

Type を利用します

2.サンプル

'#--------------
'  ユーザ型の宣言
'#--------------
Type UserType
  Id As Integer
  Name As String
End Type


Sub Macro1()

  Dim User As UserType
 
  User.Id = 1
  User.Name = "いけいけ理系NEO"
 
  Debug.Print (User.Id)
  Debug.Print (User.Name)
 
End Sub

3.実行結果

1
いけいけ理系NEO

が表示されます

EXCEL VBA 本日日付を取得する

Date関数を利用します

1.サンプル

Debug.Print Date

2.実行結果

イミディエイトウインドウに

本日日付が表示されます