まず、VBA のコードを記述するのに、オプションで開発タブを表示するようにします。そして、マクロ有効ブックとして保存します
次に、開発タブより『コードの表示』をクリックしてコードを表示します
ユーザフォームを追加して、フォームにボタンを作成します
ボタンを追加するツールウインドウを閉じた場合は、フォームをクリックして選択し、表示メニューより選択して表示させます
ボタンをクリックした時の処理を記述するため、フォームのボタンをダブルクリックしてクリックイベントを表示させ、まずテストの為にメッセージボックスを表示させるコードを記述します
MsgBox ("テスト")ブックを開いた時にフォームを表示させる為に、ThisWorkBook をダブルクリックしてエディタを表示させ、Open イベントを選択して以下のように記述します
ここまでで保存して、いったん Excel を終了させてから再度開き、フォームが表示される事を確認します
最後に、ボタンのイベントに以下のコードを追加してセルへのデータ転送のテストを行います
Private Sub CommandButton1_Click()
MsgBox ("テスト")
Dim Youbi(8) As String
Youbi(1) = "日曜"
Youbi(2) = "月曜"
Youbi(3) = "火曜"
Youbi(4) = "水曜"
Youbi(5) = "木曜"
Youbi(6) = "金曜"
Youbi(7) = "土曜"
Dim I As Integer
For I = 1 To 7
Worksheets("Sheet1").Cells(I, 1).Value = Youbi(I)
Next
End Sub
|
|
【VBAの最新記事】
- VBA : 一ヶ月の予定リストの作成して、csv を読み込んでデータを表示する
- Excel で 角丸四角形や1つの角を切り取った四角形で、角丸や切り取った長さを一定に設定する為の VBA Sub プロシージャ
- VBA : Microsoft Access(.accdb) の読み込み
- VBA : livedoor お天気API の JSON データを読み込んで利用する
- VBA : シートの保護と部分的なセル入力の許可
- VBA : 挿入した『テキストボックス』にアクセスする
- VBA : InternetExplorer.Application 経由で JSON.parse を使用する方法
- VBA : FileSystemObject でテキストファイル(CSV) を読み込んでセルにセットする
