|
りんさんたびたびのご回答ありがとうございます。
りんさんの考えていただいたマクロを使わせていただいたところ、ページが変わっても
○を記入することができるようになりました。
大変感謝しております。
ただ、一つだけ問題がありまして、これは、私の最初の質問で説明が足りなかったのですが、列が単純に並んでいないのです。
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の計算結果
> '
↑このりんさんに考えていただいたマクロでは対応できませんでした。
複雑にしてしまった私が悪いのでしょうが、このように複雑に並んだ場合の対処法は
どのようにしたらよいのでしょうか?
何かお知恵を拝借したいのですが。
再三のお願いで大変恐縮ですがよろしくおねがいします。
|
|