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.実行結果

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

本日日付が表示されます

EXCEL VBA 連想配列

1．サンプル

Dim myDict As Object
Dim i As Variant 

Set myDict = CreateObject("Scripting.Dictionary")

 '' セット
 myDict.Add "A", 10
 myDict.Add "B", 20
 myDict.Add "C", 30

 ''表示
 For Each i In myDict
    Debug.Print i
    Debug.Print myDict(i)
  Next i

2.実行結果

myDict の内容が表示されます