アクセス解析
セル・シート
データ
ファイル
フォーム
その他
作品紹介
30代のJ-POP
ＴＯＰページ
閲覧したい項目をクリックすると表示されます
このページで紹介しているマクロを実行したことによるトラブルについては
ページ管理者は責任を負えませんので自己の責任においてご使用ください。
フォーム操作系
001.ユーザーフォームを表示する
フォーム名.Show
・Showの後にvbModelessをつけることによりシートもアクティブにすることができる
つまりフォームで作業しつつその下になっているシートも編集できるようになります。
使用例
ユーザーフォーム｢入力｣をモードレスで表示する
Sub test
入力.Show vbModeless
End Sub
010.フォームのリストボックスへデータを代入する
With リストボックス名
.ColumnCount = ３（必要な列数）
.AddItem セルまたは変数または値（１列目）
.List(i - 1, 1) = セルまたは変数または値（２列目）
.List(i - 1, 2) = セルまたは変数または値（３列目）
End With
・リストボックスの先頭データは｢１｣からではなく｢０｣から始まる
ことを覚えておいてください(最初のうちはよくハマリます).
使用例
シートのＡ列・Ｂ列・Ｃ列にあるデータの１行目から１０行目までを
フォームのリストボックス(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↑
閲覧したい項目をクリックすると表示されます
閲覧したい項目をクリックすると表示されます