VBA Do while Loop で、1から10まで表示する

1. サンプル

Sub MySub()

  Dim i As Integer
 
  i = 0
 
  Do While i < 10
    i = i + 1
    Debug.Print i
  Loop
 
End Sub

2.実行結果

 1
 2
 3
 4
 5
 6
 7
 8
 9
 10

EXCEL VBA 2日前の日付を求める

DateAdd関数を利用します

1.サンプル

Debug.Print DateAdd("d", -2, Date)

DateAddの第一引数は、間隔( d = 日 )

第二引数は、2日前、第三引数は、本日日付を返す関数です。

2.実行結果

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

2020/04/29

等、2日前の日付が表示されます。

VBA フォームの処理

VBA フォームの挿入

1.EXCELのメニュから、[開発]を選択する

2.[Visual Basic]を選択して、Visual Basicエディターを起動する

3.Visual Basicエディターで、[挿入]-[ユーザフォーム]を選択する

4.ユーザフォームが起動する

フォームの表示

1.文法

  [フォームオブジェクト名].show

2.実行結果

　フォームが表示される

フォームの非表示

1.文法
 
 [フォームオブジェクト名].Hide

  or

  unload [フォームオブジェクト名]

前者は、メモリ上にフォーム情報が残る（再表示できる）が、

後者は、メモリから破棄される。