Excel VBA質問箱 IV

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

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


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

22367 / 76738

←次へ　｜　前へ→


	【59754】Re:Spreadsheetコントロールの操作について訂正

ichinose - 09/1/7(水) 10:00 -


	引用なし

	パスワード

訂正です。

>作成したUserform1のモジュールには
>
> '===============================================================
>Option Explicit
>Private s_w As Double
>Private s_h As Double
>Private WithEvents sp_h As MSForms.SpinButton
>Private WithEvents sp_v As MSForms.SpinButton
Private spd As object　' ←ここのデータの型を変更してください
> '=============================================================
>Private Sub sp_h_SpinDown()
>　　Me.Width = Me.Width - 6
>　　spd.Width = spd.Width * Me.Width / s_w
>　　reset_spin
>End Sub
> '=============================================================
>Private Sub sp_h_SpinUp()
>　　Me.Width = Me.Width + 6
>　　spd.Width = spd.Width * Me.Width / s_w
>　　reset_spin
>End Sub
> '=============================================================
>Private Sub sp_v_SpinDown()
>　　Me.Height = Me.Height + 6
>　　spd.Height = spd.Height * Me.Height / s_h
>　　reset_spin
>End Sub
> '=============================================================
>Private Sub sp_v_SpinUp()
>　　Me.Height = Me.Height - 6
>　　spd.Height = spd.Height * Me.Height / s_h
>　　reset_spin
>End Sub
> '=============================================================
>Private Sub reset_spin()
>　　　 With sp_h
>　　　　　.Width = 54
>　　　　　.Height = 24
>　　　　　.Left = Me.Width - .Width - 50
>　　　　　.Top = Me.Height - .Height - 25
>　　　 End With
>　　　 With sp_v
>　　　　　.Width = 24
>　　　　　.Height = 54
>　　　　　.Left = Me.Width - .Width - 12
>　　　　　.Top = Me.Height - .Height - 50
>　　　 End With
>End Sub
> '=============================================================
>Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
>　　If sp_h Is Nothing Then
>　　　 With Me
>　　　　　Set sp_h = .Controls.Add("Forms.SpinButton.1", , True)
>　　　　　Set sp_v = .Controls.Add("Forms.SpinButton.1", , True)
>　　　 End With
>　　　 reset_spin
>　　Else
>　　　 Controls.Remove sp_h.Name
>　　　 Controls.Remove sp_v.Name
>　　　 Set sp_h = Nothing
>　　　 Set sp_v = Nothing
>　　End If
>End Sub
> '=============================================================
>Private Sub UserForm_Initialize()
>　　With Me
>　　　 .Width = 425
>　　　 .Height = 350
>　　　 s_w = .Width
>　　　 s_h = .Height
>　　End With
>　　Set spd = Controls.Add("OWC.Spreadsheet.9", , True)
>　　With spd
>　　　 .Left = 0
>　　　 .Top = 0
>　　　 .Width = 200
>　　　 .Height = 150
>　　　 .AutoFit = True
>　　End With
>　　Set sp_h = Nothing
>　　Set sp_v = Nothing
>End Sub
>
>
>以上です。sampを実行してみてください。
>
>Userform1には、スプレッドシートが表示されていますよね？
>
>ユーザーフォームのスプレッドシート以外の箇所をダブルクリックしてください。
>隅にスピンボタンが表示されます。
>
>クリックして下さい。ユーザーフォームのサイズが変更されます。
>（再度、ダブルクリックすると、スピンボタンが消えます）
>
>今回は、スプレッドシートだけですが、他にコントロールがあれば、
>その制御もしなければなりません。
>
>試してみてください。

0 hits

▼

【59733】Spreadsheetコントロールの操作について いのっち 09/1/5(月) 11:47