実用に耐えるユーザーフォーム作成のコツは具体的実例を教科書に

ユーザーフォームはＵＩです。

VBAコードのバグ修正の様に何度も仕様変更はできません。

この問題解決の最速は、実例を教科書にすることです。

利用者側からの使いやすさやデザインや仕様は必須です。

ユーザーフォームの仕上がりも見栄えがイマイチだし、思うように動かないし、どうすればいい？

これを、今その場で出来る解決策は2つ。

• Ｑ＆Ａサイトに嵐のような質問
• 使用実例を載せているサイトをひたすら探し知識を頂く

何れかです。

基本的に、背後に表示される（データの表示された）シートの邪魔にならないような大きさに設定しましょう。

表示文字は視認性のいいサイズと色でカラフルにせずシンプルにデザインしましょう。

Private Sub テンプレ作成する_Click()
Module1.テンプレ作成2
End Sub

Private Sub データ連携する_Click()

End Sub

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem “ＭＳ Ｐゴシック”
.AddItem “ＭＳ Ｐ明朝”
.AddItem “游ゴシック”
.AddItem “”
End With
End Sub

Private Sub 伝票作成する_Click()

Dim Res As Variant
If 操作パネル.顧客番号.Value = “” Then
MsgBox “顧客番号が入力されていません。”
Exit Sub
End If

Module5.テンプレ作成1

End Sub

Private Sub 帳票印刷する_Click()
Module3.印刷設定
End Sub

Private Sub 伝票保存する_Click()
Module4.伝票保存
End Sub

Private Sub シートクリアする_Click()
Module5.Clearする
End Sub

Sub テンプレ作成2()

　For a = 2 To 4　　　　　　　　　　　‘操作パネルデータを使用で変更

　Worksheets(a).Select

　　　With ActiveSheet

　　　’一旦初期化
　　　　　.Cells.ClearFormats
・・・・・（途中省略）

　　　　　　Worksheets(“見積書”).Range(“F5”).ClearFormats
　　　　　End If
　　　End If

　　End With
　Next a

End Sub

‘帳票別設定

　　　　If ActiveSheet.Name = “請求書” Then
　　　　　　.Range(“D1”) = “請　求　書”

・・・・・（途中省略）

　　　　　　.Range(“B9”).VerticalAlignment = xlBottom
　　　　　　If 操作パネル.CheckBox2 = True Then 　　　　　‘操作パネルデータを使用で変更
　　　　　　　　Worksheets(“電子印鑑の登録”).Range(“B13”).Copy Worksheets(“請求書”).Range(“F5”)
　　　　　　　　Worksheets(“請求書”).Range(“F5”).ClearFormats
　　　　　　End If
　　　　End If

　　　　If ActiveSheet.Name = “納品書” Then
　　　　　　.Range(“D1”) = “納　品　書”

・・・・・（途中省略）

　　　　　　.Range(“B9”).VerticalAlignment = xlBottom
　　　　　　If 操作パネル.CheckBox2 = True Then 　　　　　‘操作パネルデータを使用で変更
　　　　　　　　Worksheets(“電子印鑑の登録”).Range(“B13”).Copy Worksheets(“納品書”).Range(“F5”)
　　　　　　　　Worksheets(“納品書”).Range(“F5”).ClearFormats
　　　　　　End If
　　　　End If

　　　　If ActiveSheet.Name = “見積書” Then
　　　　　　.Range(“D1”) = “見　積　書”

・・・・・（途中省略）

　　　　　　.Range(“B9”).VerticalAlignment = xlBottom
　　　　　　If 操作パネル.CheckBox2 = True Then 　　　　　‘操作パネルデータを使用で変更
　　　　　　　　Worksheets(“電子印鑑の登録”).Range(“B13”).Copy Worksheets(“見積書”).Range(“F5”)
　　　　　　　　Worksheets(“見積書”).Range(“F5”).ClearFormats
　　　　　　End If
　　　　End If
　　End With
　Next a
End Sub

‘請求納品見積へテンプレート再構築
　　For a = 2 To 4

　　　　Worksheets(a).Select
　　　　‘Module1.テンプレ作成2　　　　　　　　　　　　　‘削除

　　　　With Worksheets(a)
　　　　　　　　.Range(“A13:G” & KeRow).Borders.LineStyle = xlContinuous
　　　　　　　　.Range(“B14:B” & KeRow).Font.Size = 10 ‘品名のフォントサイズ
　　　　　　　　.Range(“B13:B” & KeRow).WrapText = True
　　　　　　　　.Range(“C13:D” & KeRow).HorizontalAlignment = xlCenter
　　　　　　　　.Range(“E13:F” & KeRow).NumberFormatLocal = “\ #,##0”
　　　　　　　　‘.Range(“F3”).Font.Size = 10　　　　　　　‘削除
　　　　　　　　‘.Range(“F3”) = “令和　　年　　月　　日”　‘削除　

  ‘日付の表記
.Range(“F3”).Font.Size = 10
.Range(“F3”).Value = “令和　　年　　月　　日”

Dim a As Long, m As Long, N As Long
Dim SaRow As Long, KeRow As Long
Dim Fsa As Variant, Fsb As Variant

・・・・・（途中省略）

‘請求納品見積へテンプレート再構築
　　For a = 2 To 4

　　　　Worksheets(a).Select

　　　　With Worksheets(a)
　　　　　　　　.Range(“A13:G” & KeRow).Borders.LineStyle = xlContinuous
　　　　　　　　.Range(“B14:B” & KeRow).Font.Size = 10 ‘品名のフォントサイズ
　　　　　　　　.Range(“B13:B” & KeRow).WrapText = True
　　　　　　　　.Range(“C13:D” & KeRow).HorizontalAlignment = xlCenter
　　　　　　　　.Range(“E13:F” & KeRow).NumberFormatLocal = “\ #,##0”

‘品名のフォント
　　　　Fsa = 操作パネル.品名F.Value 　　　　　　　　　‘操作パネルデータを使用
　　　　If Fsa = Null Or Fsa = “” Then
　　　　　　　　Fsa = 10
　　　　Else
　　　　　　　　.Range(Cells(14, 2), Cells(KeRow, 2)).Font.Size = Fsa
　　　　End If

‘顧客名のフォント
　　　　Fsb = 操作パネル.顧客F.Value 　　　　　　　　　‘操作パネルデータを使用
　　　　If Fsb = Null Or Fsb = “” Then
　　　　　　　　Fsb = 13
　　　　Else
　　　　　　　　.Range(“B6”).Font.Size = Fsb
　　　　End If

　　　　End With

　　　　　　Range(“F3”) = 操作パネル.発行年月日.Value 　‘操作パネルデータを使用
　　　　　　Range(“F3”).Font.Size = 10

　　Next a

‘請求納品見積シートへデータ転記
　　For N = 2 To SaRow

・・・・・（途中省略）

Sub 宛名設定()

Dim Res As Variant, CosNo As Long
Dim Ybn, Jus, Ate

　　Res = 0
　　Workbooks(“見納請3点伝票作成.xlsm”).Activate
　　Worksheets(“宛名の登録”).Select

‘操作パネルのデータより

　　CosNo = 操作パネル.顧客番号.Value
stepB:

　　If CosNo = Null Then
　　　　MsgBox “顧客番号が入力されていません。”
　　　　Exit Sub
　　Else

　　　　On Error GoTo 0
　　　　On Error Resume Next
　　　　Res = WorksheetFunction.Match(CosNo, Range(“B:B”), 0)
　　　　If Res = 0 Then GoTo stepA
　　End If

　　Ybn = Range(“D” & Res).Value　　　　　　　　 ‘郵便番号
　　Jus = Range(“E” & Res).Value　　　　　　　　  ‘住所
　　Ate = Range(“C” & Res).Value 　　　　　　　　 ‘宛名

　　For a = 2 To 4
　　　　With Worksheets(a)
　　　　　　　　.Range(“B3”) = Ybn
　　　　　　　　.Range(“B4”) = Jus
　　　　　　　　.Range(“B6”) = Ate & “　　様”
　　　　End With
　　Next a
stepA:
　　If Res = 0 Then
　　　　Ans = MsgBox(“一致する顧客番号はありません。” & vbCrLf & “正しい番号を入力しますか？” _
　　　　, vbYesNo + vbQuestion, “チェック”)
　　　　If Ans = vbYes Then
　　　　　　CosNo = InputBox(Prompt:=”半角数字で顧客番号を” & vbCrLf & “入力してください。”)
　　　　　　操作パネル.顧客番号.Value = CosNo
　　　　　　GoTo stepB
　　　　Else
　　　　　　MsgBox “宛名空欄で終了します”
　　　　　　Exit Sub
　　　　End If
　　End If

End Sub

Sub 印刷設定()

Dim SaRow As Long, KeRow As Long, NRow As Long
Dim a As Long, s As Long, b As Long
Dim Fsa As Variant, Fsb As Variant 

‘固定のフォントサイズ（品名以外）
.Range(Cells(14, 3), Cells(KeRow, 7)).Font.Size = 11
.Range(Cells(14, 1), Cells(KeRow, 1)).Font.Size = 10

‘品名のフォント
　　　　Fsa = 操作パネル.品名F.Value 　　　　　　　　‘操作パネルデータを使用
　　　　If Fsa = Null Or Fsa = “” Then
　　　　　　Fsa = 10
　　　　Else
　　　　　　.Range(Cells(14, 2), Cells(KeRow, 2)).Font.Size = Fsa
　　　　End If

‘顧客名のフォント
　　　　Fsb = 操作パネル.顧客F.Value 　　　　　　　　‘操作パネルデータを使用
　　　　If Fsb = Null Or Fsb = “” Then
　　　　　　Fsb = 13
　　　　Else
　　　　　　.Range(“B6”).Font.Size = Fsb
　　　　End If

　　End With

‘注記・項目のフォントサイズ

・・・・・（途中省略）

・・・・・（途中省略）

‘注記・項目のフォントサイズ
For s = 14 To KeRow
If Cells(s, 2) = “税込合計” Or Cells(s, 2) = “以下余白” Then
Cells(s, 2).Font.Size = 11
End If
Next s

‘フォント種選択（ユーザーフォームから選択）
　　If 操作パネル.ComboBox1.ListIndex = 0 Then
　　　　Cells.Font.Name = “ＭＳ Ｐゴシック”
　　ElseIf 操作パネル.ComboBox1.ListIndex = 1 Then
　　　　Cells.Font.Name = “ＭＳ Ｐ明朝”
　　ElseIf 操作パネル.ComboBox1.ListIndex = 2 Then
　　　　Cells.Font.Name = “游ゴシック”
　　Else
　　　　Cells.Font.Name = “ＭＳ Ｐゴシック”
　　End If
Next a

・・・・・（途中省略）

・・・・・（途中省略）

‘自動保存設定
　　If 操作パネル.CheckBox3 = True Then 　　　　　　‘操作パネルデータを使用
Module4.伝票保存
End If

End Sub

‘自動保存チェック
If 操作パネル.CheckBox3 = True Then 　　　　　　‘操作パネルデータを使用
Exit Sub
End If

Sub テンプレ作成1()

Worksheets(“宛名の登録”).Select
Range(“A:B”).NumberFormatLocal = “0_ “

Module1.テンプレ作成2
Module2.帳票作成

Worksheets(“請求書”).Select
Range(“A1”).Select

End Sub

Sub Clearする()

　　Answ = MsgBox(“実行するとシートが初期化されます。” & vbCrLf & “実行しますか？” _
　　　　, vbYesNo + vbQuestion, “チェック”)
　　If Answ = vbYes Then
　　　　With ActiveSheet
　　　　　　　　.Cells.ClearFormats
　　　　　　　　.Cells.ClearContents
　　　　　　　　.Cells.UseStandardHeight = True
　　　　　　　　.Cells.UseStandardWidth = True
　　　　　　　　.DrawingObjects.Delete
　　　　End With
　　Else
　　　　Exit Sub
　　End If

End Sub

Private Sub Workbook_Open()

操作パネル.Show vbModeless

End Sub

Private Sub Worksheet_Activate()

操作パネル.Show vbModeless

End Sub