Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


49264 / 76732 ←次へ | 前へ→

【32384】Re:フレームとチェックボックスとスクロールバーの連動 訂正
発言  ichinose  - 05/12/13(火) 20:03 -

引用なし
パスワード
   以下のフォームのイベントプロシジャーだけ差しかえてください

'======================================
Private Sub UserForm_Initialize()
  chkcnt = Application.InputBox("チェックボックスの数を入力", , , , , , , 1)
  If TypeName(chkcnt) <> "Boolean" Then
    If chkcnt > 0 Then
     ReDim chkbx(1 To chkcnt)
     With Controls.Add("Forms.Frame.1", "Frame1")
       .Top = 10
       .Left = 30
       .Height = 280
       .Width = 250
       .ScrollBars = 2
       For idx = 1 To chkcnt
        Set chkbx(idx) = .Controls.Add("Forms.CheckBox.1")
        With chkbx(idx)
          .Top = (idx - 1) * 50 + 10
          .Left = 15
          .Height = 16
          .Font.Name = "MS ゴシック"
          .Font.Size = 16
          .Caption = "チェックボックス" & idx
          .AutoSize = True
          End With
        Next idx
      .ScrollHeight = chkcnt * 50 + 30
      End With
     Set btn = Controls.Add("Forms.CommandButton.1")
     With btn
       .Top = 10
       .Left = 300
       .Width = 50
       .Height = 30
       .Caption = "スクロール"
       End With
     With Me
      .Width = 400
      .Height = 350
      End With
     End If
    End If
End Sub

0 hits

【32373】フレームとチェックボックスとスクロールバーの連動 こぼらー 05/12/13(火) 15:26 質問
【32382】Re:フレームとチェックボックスとスクロー... ichinose 05/12/13(火) 19:16 発言
【32383】Re:フレームとチェックボックスとスクロー... こぼらー 05/12/13(火) 19:49 お礼
【32384】Re:フレームとチェックボックスとスクロー... ichinose 05/12/13(火) 20:03 発言

49264 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free