VBA初心者です。
よろしくお願いします。
下記の様にユーザーフォーム上にフレームを設定し、そこにシートの内容を読み込んでチェックボックスを出現させるプログラムを書きました。
このチェックボックスを横並びに出現させる方法が知りたいのですが、探しても中々見つかりません。
どなたか教えていただけないでしょうか。
よろしくお願いします。
Dim chkbx() As MSForms.CheckBox
Dim chkcnt As Variant
Dim idx As Integer
chkcnt = Sheets(〇〇).Cells(Rows.Count, 1).End(xlUp).Row
If TypeName(chkcnt) <> "Boolean" Then
If chkcnt > 0 Then
ReDim chkbx(1 To chkcnt)
With Controls.Add("Forms.Frame.1")
.Top = 235
.Left = 20
.Height = 100
.Width = 270
For idx = 1 To chkcnt
Set chkbx(idx) = .Controls.Add("Forms.CheckBox.1", "Frame1")
With chkbx(idx)
.Top = (idx - 1) * 25 + 10
.Left = 10
.Height = 16
.Font.Size = 10
.Caption = Sheets(〇〇).Cells(idx, 1)
.AutoSize = True
End With
Next idx
End With
End If
End If
No.1ベストアンサー
- 回答日時:
チェックボックスの縦横の位置を、
> .Top = (idx - 1) * 25 + 10
> .Left = 10
で指定してるんですから、ここを変更するだけでは。
例えば、
.Top = 10
.Left = (idx - 1) * 100 + 10
とか。
横並びすると、キャプションの文字が長ければ重なっちゃうし、文字数によって間隔変えようとかしたら、面倒です。
出来ました!!ありがとうございます!!
このプログラムは人から頂いたものをアレンジしたものなのですが、意味を理解していない部分もあり困っていました。
おかげさまで、疑問の解決だけでなくプログラムの意味も理解できました。
キャプションの文字は短めで、それぞれに大きな差もないため、うまく調節していこうと思います。
本当に助かりました。
ありがとございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) エクセルVBAで以下のようなコードを書いたらエラーになりました。何処が間違っているの教えて? 1 2023/02/10 18:30
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フレーム内のオプションボタン...
-
Directshowを使って動画を画像...
-
URLを隠す、または別アドレスな...
-
フレーム内に移動したい
-
シンクライアントとMetaFrameの...
-
ドロップフレームの計算をエク...
-
フレームをまたいだ背景画像の...
-
チェックボックスを横並びに表...
-
「フレームのような」ページを...
-
ページの切り替えのフェードイ...
-
gotoAndPlayでシーンの移動
-
ComboBoxの設定方法
-
CupCatの使い方
-
phpで音を鳴らす
-
パブリッシュで左端が切れます
-
【FLASH】swapDepthsでMCが増...
-
ロールオーバーで他の画像を表...
-
SDHCカードのデータをPCに取り...
-
画像のフェードイン
-
AS3.0で子MCから他の子MCの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フレーム内に移動したい
-
Access2010でサブフォームのフ...
-
車の運転時のメガネ 縁なし(...
-
2倍速を等速動画に(車載動画)
-
VBで動的に作成したパネルの上...
-
フレームでのResponse.Redirect
-
シーケンス番号の初期値
-
トグルボタンの排他制御でご教...
-
KSR2 車体番号
-
めくれるカードの作成方法
-
ソーラーパネルのアルミフレー...
-
被写体のHSVを正確に取得(webca...
-
オシロスコープのような描写方...
-
gotoAndPlayで特定のフレームま...
-
【C++】IDirect3DSurfaceのディ...
-
ブラウザが揺れる(震動)させ...
-
富士通FMV-C600のHDD交換
-
モーショントゥィーンに関する...
-
Final Cut ProのDVD映像(チャ...
-
ドコモ携帯 N504isのフォトフ...
おすすめ情報