SQLの窓

2017年11月27日


Excel の VBA : ブックを開いたら、フォームを表示してボタンをクリックしたらセルにデータをセットする

まず、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





posted by lightbox at 2017-11-27 10:52 | Comment(0) | VBA | このブログの読者になる | 更新情報をチェックする
バッチ処理

Microsoft Office
container 終わり

フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
CSS ドロップシャドウの参考デモ
Google Hosted Libraries
cdnjs
BUTTONS (CSS でボタン)
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり