VBA：同じユーザフォームの使いまわしでLabelのCaptionが変わらない。

Question

VBAにて、１つのユーザフォームを使いまわして、ページを進めるという形にしたいと思っています。また、ユーザフォーム上にはLabelでページ番号を表示しており、このページ番号（Label.Caption）は同ユーザフォーム上にある「進む」ボタン（CommandButton）を押すことで、カウントが増えるというようにしています（しているつもりです）。ですが、進むボタンを押してもページ番号のカウントが増えていきません。（厳密には、内部では増えているようなのですが、Captionの値が変更されません。）何が足りないのか、わかる方がいましたら、回答をお願いします。

Private Sub CommandButton2_Click()  '「進む」ボタン

If Bunbo = Bunshi Then
    確認フォーム.Show
Else
    Bunshi = Bunshi + 1
    Me.Label18.Caption = Bunshi & "/" & Bunbo & "ページ"
End If

ちなみに、Bunbo、Bunshiの初期値は1つ前のユーザーフォームで定義しています。

Comments

[errormaker74]

デバッグしてみて`Bunshi`の数字がカウントアップできているなら
ラベル名を間違えていないか確認したほうが良いかもしれませんね。
`Me.Label18.Caption`の`Label18`は表示を変更したいラベル名とあっていますか？

[m_m_0824]

早速にご意見ありがとうございます。’Label18’　が違っていました。ものすごく初歩的なミスで情けない話です・・・。Label18を変更したところ、意図のとおりに動きました！大変ありがとうございました。

Answer 1

VBA

Private Sub CommandButton2_Click() '「進む」ボタン

If Bunbo = Bunshi Then
確認フォーム.Show
Else
Bunshi = Bunshi + 1
Me.Label39.Caption = Bunshi & "/" & Bunbo & "ページ"
End If

これで解決しました。