Excel VBA質問箱 IV

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

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


41278 / 76736 ←次へ | 前へ→

【40539】Re:オプションボタン1回のみ有効する方法...
発言  漂流民  - 06/7/16(日) 0:03 -

引用なし
パスワード
   ▼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


この質問とは全く関係ないのですが、
"全体"って"各位"みたいな使い方をするんですか?
0 hits

【40514】オプションボタン1回のみ有効する方法は? saru3 06/7/15(土) 13:18 質問
【40539】Re:オプションボタン1回のみ有効する方法... 漂流民 06/7/16(日) 0:03 発言
【40549】Re:オプションボタン1回のみ有効する方法... さる 06/7/16(日) 14:58 お礼

41278 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free