Excel VBA質問箱 IV

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

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


33902 / 76738 ←次へ | 前へ→

【48052】Re:マルチページについて
お礼  トムコ  - 07/4/1(日) 21:02 -

引用なし
パスワード
   りんさんたびたびのご回答ありがとうございます。

りんさんの考えていただいたマクロを使わせていただいたところ、ページが変わっても
○を記入することができるようになりました。
大変感謝しております。

ただ、一つだけ問題がありまして、これは、私の最初の質問で説明が足りなかったのですが、列が単純に並んでいないのです。

ST1 ’前期
第1回 第2回・・・第9回   特別講習    試験   補習
日月火 日月火・・・日月火 12345678 1234 1234

ST2 ' 後期
第1回 第2回・・・第9回   特別講習    試験   補習
日月火 日月火・・・日月火 12345678 1234 12345

オプションボタン

  ページ1      ページ2    ページ3   ページ4  ページ5
   前期        後期      特別講習    試験    補習
 日  月  火    日  月  火   前  後   前  後
OpB1 OpB10 OpB19 OpB44       OpB28    OpB40    OpB36
OpB2 OpB11 OpB20  ・       OpB29    OpB41    OpB37前
 ・ ・  ・   ・        ・     OpB42    OpB38期
 ・ ・  ・             ・     OpB43    OpB39分
OpB9 OpB18 OpB27          OpB35          OpB79後
                                OpB80期
                                 ・
見にくいですが、このように単純には並んでいないのです。

>また、オプションボタンのオブジェクト名がOpB*で、列番号が3つおきのようなので、オブジェクト名から列番号を計算しています。
>
>   '列番号計算
>   Ret = Val(Replace(UCase(PP(NN%)), "OPB", "")) * 3 + 1
>   St = 1 'これは分岐しなくていいのかな?
>   If Ret > 1 Then
>     MsgBox Ret, vbInformation, PP(NN%) 'Retの計算結果
>     '

↑このりんさんに考えていただいたマクロでは対応できませんでした。
複雑にしてしまった私が悪いのでしょうが、このように複雑に並んだ場合の対処法は
どのようにしたらよいのでしょうか?
何かお知恵を拝借したいのですが。
再三のお願いで大変恐縮ですがよろしくおねがいします。
0 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 お礼

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