Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10057 / 76736

←次へ　｜　前へ→


	【72232】Re:excel ヴァージョン

山下 - 12/6/24(日) 8:14 -


	引用なし

	パスワード

ＵＯ3さん、さっそくありがとうございます。

Private Sub UserForm_Initialize()
　　Dim p As Page
　　Dim sz As Double
　　Dim wk As String
　　Dim idx As Long
　　
　　If Sheets("work").Range("A1").Value <> 1 Then
　　　　ken = kenn(): Sheets("hinnmei").Range("A1").Select
　　Else
　　　　Sheets("zaiko").Range("C65536").End(xlUp).Select
　　　　ken = ActiveCell.Row - 1
　　　　Sheets("zaiko").Select: Sheets("zaiko").Range("C2").Select
　　End If
　　
　　With Me
　　　.Height = 320
　　　.Width = 420
　　　End With
　　With Controls.Add("Forms.MultiPage.1")
　　　 .Top = 40
　　　 .Left = 5
　　　 .Height = 200
　　　 .Width = (9.75 * 40 + 12) + 0.75
　　　 .Pages.Remove 1
　　　 With .Font
　　　　　.Name = "ＭＳゴシック"
　　　　　.Size = 10
　　　　　sz = Int(.Size / 0.75) * 0.75
　　　　　End With
　　　 Set p = .Pages(0)
　　　 p.Caption = String(Int((Int(.Width / 0.75) * 0.75 - 12.75) / sz), "　")
　　　 wk = p.Caption
　　
　　　 Mid(wk, 1, 80) = "--------------------------------------------------------------------------------"
　　　 p.Caption = wk
　　　 p.ScrollBars = 2
　　　 p.ScrollHeight = 5000
　　　 For idx = 1 To ken
　　　　　　Set c_lal(idx) = New Class1
　　　　　　With c_lal(idx)
　　　　　　　　.id = idx
　　　　　　　　Set .lal = p.Controls.Add("Forms.Label.1")
　　　　　　　　With .lal
　　　　　　　　　　.Top = (idx - 1) * 20 + 5
　　　　　　　　　　.Left = 30
　　　　　　　　　　.Width = 50
　　　　　　　　End With
　　　　　　End With
　　　　　　
　　　　　　Set c_lbl(idx) = New Class1
　　　　　　With c_lbl(idx)
　　　　　　　　.id = idx
　　　　　　　　Set .lbl = p.Controls.Add("Forms.Label.1")
　　　　　　　　With .lbl
　　　　　　　　　　.Top = (idx - 1) * 20 + 5
　　　　　　　　　　.Left = 80
　　　　　　　　　　.Width = 230
　　　　　　　　End With
　　　　　　End With
　　　　　　
　　　　　　Set c_txt(idx) = New Class1
　　　　　　With c_txt(idx)
　　　　　　　　.id = idx
　　　　　　　　Set .txt = p.Controls.Add("Forms.TextBox.1")
　　　　　　　　With .txt
　　　　　　　　　　.Top = (idx - 1) * 20 + 5
　　　　　　　　　　.Left = 280
　　　　　　　　　　.Width = 80
　　　　　　　　　　.TextAlign = fmTextAlignRight
　　　　　　　　End With
　　　　　　End With
　　　　Next

　　　　For idx = 1 To ken
　　　　　　p.Controls(3 * (idx - 1)).Caption = ActiveCell.Offset(idx - 1, 1).Value
　　　　　　p.Controls(3 * (idx - 1) + 1).Caption = ActiveCell.Offset(idx - 1, 2).Value
　　　　Next
　　　 End With
Set c_eve = New Class1
Set c_eve.p_obj = Me
End Sub

F8でステップごとに動かして行くと、
Set p = .Pages(0)
で
実行時エラー　13
型が一致しません
となります。

0 hits

▼

【72230】excel ヴァージョン 山下 12/6/24(日) 6:57