|
▼saru3 さん:
こんばんわ
※オブジェクト名はデフォルトを使うようにして下さい。
>オプションボタン4つ分けています。
>クリックすると語尾をつけるようにします。
>テキストボックスも表示しますが、間違えてクリックしても
>他のオプションボタンをクリックしたら消えませんでした。
>このままで実行したらダブりしてしまった。
>キャノン株式会社 様 御中 様と表示してしまう。
>
>
>どうしたらいい方法がありましたら教えていただけませんか?
>よろしくお願いします。
どのようにしたいのかちょっと分かりませんが、
提示されたコードと照らし合わせて意味を汲むと、こんな感じですか?
Private KokyakuName1 As String, KokyakuName2 As String, kei1 As String, kei2 As String
Private Sub TextBox1_Enter()
TextBox1.Value = KokyakuName1
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
KokyakuName1 = TextBox1.Value
TextBox1.Value = KokyakuName1 + " " & kei1
End Sub
Private Sub TextBox2_Enter()
TextBox2.Value = KokyakuName2
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
KokyakuName2 = TextBox2.Value
TextBox2.Value = KokyakuName2 + " " & kei2
End Sub
Private Sub OptionButton1_Click()
Call keishou("様")
End Sub
Private Sub OptionButton2_Click()
Call keishou("御中")
End Sub
Private Sub OptionButton3_Click()
Call keishou("殿")
End Sub
Private Sub OptionButton4_Click()
Call keishou("全体")
End Sub
Private Function keishou(kei As String)
If CheckBox1.Value = False Then
kei2 = kei
TextBox2.Value = KokyakuName2 + " " & kei2
Else
kei1 = kei
TextBox1.Value = KokyakuName1 + " " & kei1
End If
End Function
この質問とは全く関係ないのですが、
"全体"って"各位"みたいな使い方をするんですか?
|
|