Excel VBA質問箱 IV

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

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


28892 / 76732 ←次へ | 前へ→

【53130】Re:Optionbuttonのチックしていないメッセージを出す方法
回答  bykin  - 07/12/16(日) 16:41 -

引用なし
パスワード
   こんにちわ。

>全く同じような構文で、bykinさんのアドバイスをまねて
>作成した下のコードが、又正確な動作をしません。

Exit For の位置がおかしいんですわ。
↓これでどーでっか?

Private Sub CommandButton1_Click()
  Dim c As Object
  Dim Buf As String
  Dim Flg As Boolean

  For Each c In Me.Controls
    If TypeName(c) = "OptionButton" Then
      If c.Value Then
        Buf = c.Caption
        Flg = True
        Exit For
      End If
    End If
  Next c
  If Not Flg Then
    MsgBox "未選択です"
  Else
    MsgBox Buf & vbCrLf & "が選択されています"
  End If
End Sub

コードのインデント(字下げ)をきちんとやらんと、こういうミスしまっせ。
気ぃつけておくれやす。

ほな。
1 hits

【53115】Optionbuttonのチックしていないメッセージを出す方法 Yoshida 07/12/15(土) 21:08 質問
【53116】Re:Optionbuttonのチックしていないメッセ... bykin 07/12/16(日) 0:04 回答
【53121】Re:Optionbuttonのチックしていないメッセ... Yoshida 07/12/16(日) 11:08 質問
【53129】Re:Optionbuttonのチックしていないメッセ... りん 07/12/16(日) 15:58 発言
【53130】Re:Optionbuttonのチックしていないメッセ... bykin 07/12/16(日) 16:41 回答
【53151】Re:Optionbuttonのチックしていないメッセ... Yoshida 07/12/17(月) 19:04 お礼
【53167】Re:Optionbuttonのチックしていないメッセ... りん 07/12/18(火) 8:07 発言
【53187】Re:Optionbuttonのチックしていないメッセ... Yoshida 07/12/19(水) 7:18 お礼
【53117】Re:Optionbuttonのチックしていないメッセ... Hirofumi 07/12/16(日) 1:57 発言

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