Excel VBA質問箱 IV

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

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


33904 / 76734 ←次へ | 前へ→

【48046】Re:マルチページについて
回答  りん E-MAIL  - 07/4/1(日) 14:10 -

引用なし
パスワード
   トムコ さん、こんにちわ。

>1つだけなら、Parent.Nameでページ位置を判定してそこに○というようにするには、
>どのようにマクロを組んだらよいのでしょうか?

前回のマクロをちょっと変えて。
Private Sub CommandButton2_Click()
  Dim obj As Object
  Dim PP(0 To 5) As String
  '
  For Each obj In Me.Controls
   Select Case UCase(TypeName(obj))
     Case "MULTIPAGE"
      NN% = obj.Value
     Case "OPTIONBUTTON"
      'Trueの時は配列に確保
      If obj.Value = True Then
        PP(obj.Parent.Index) = obj.Name
      End If
   End Select
  Next
  '結果表示(チェックされたものが無ければ空白が返ります)
  MsgBox PP(NN%), vbInformation, "該当ページのチェックされたオプション"
  Erase PP
End Sub
こんな感じです。

2 hits

【48035】マルチページについて トムコ 07/4/1(日) 2:27 質問
【48041】Re:マルチページについて りん 07/4/1(日) 10:46 発言
【48045】Re:マルチページについて トムコ 07/4/1(日) 13:46 お礼
【48046】Re:マルチページについて りん 07/4/1(日) 14:10 回答
【48047】Re:マルチページについて トムコ 07/4/1(日) 15:02 お礼
【48048】Re:マルチページについて りん 07/4/1(日) 18:11 回答
【48052】Re:マルチページについて トムコ 07/4/1(日) 21:02 お礼
【48053】Re:マルチページについて りん 07/4/1(日) 21:34 発言
【48066】Re:マルチページについて トムコ 07/4/2(月) 17:51 お礼

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