アクセス解析
セル・シート
データ
ファイル
フォーム
その他
作品紹介
30代のJ-POP
TOPページ
閲覧したい項目をクリックすると表示されます
このページで紹介しているマクロを実行したことによるトラブルについては
ページ管理者は責任を負えませんので自己の責任においてご使用ください。
フォーム操作系
001.ユーザーフォームを表示する
フォーム名.Show
・Showの後にvbModelessをつけることによりシートもアクティブにすることができる
つまりフォームで作業しつつその下になっているシートも編集できるようになります。
使用例
ユーザーフォーム「入力」をモードレスで表示する
Sub test
入力.Show vbModeless
End Sub
010.フォームのリストボックスへデータを代入する
With リストボックス名
.ColumnCount = 3(必要な列数)
.AddItem セルまたは変数または値(1列目)
.List(i - 1, 1) = セルまたは変数または値(2列目)
.List(i - 1, 2) = セルまたは変数または値(3列目)
End With
・リストボックスの先頭データは「1」からではなく「0」から始まる
ことを覚えておいてください(最初のうちはよくハマリます).
使用例
シートのA列・B列・C列にあるデータの1行目から10行目までを
フォームのリストボックス(ListBox1)へ代入する。
Private Sub ボタン_Click
Dim GYO
Dim i
GYO = 1
With ListBox1
.ColumnCount = 3
For i = 1 To 10
.AddItem Cells(GYO, 1)
.List(i - 1, 1) = Cells(GYO, 2)
.List(i - 1, 2) = Cells(GYO, 3)
GYO = GYO + 1
Next i
End With
End Sub
page top↑