Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33901 / 76738

←次へ　｜　前へ→


	【48053】Re:マルチページについて

りん

- 07/4/1(日) 21:34 -


	引用なし

	パスワード

トムコさん、こんばんわ。

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

パターンがよくわからないので、列とシートの分岐を元のコードを修正して使いましょう。
トムコさんの元のコードのIf文を、以下のようなSelectCase文に直していってください。オブジェクト名を””ではさんでください。また、エラー回避の為に大文字で比較しているので、全部大文字で書いてください。

途中からですが==========
　 '結果表示（チェックされたものが無ければ空白が返ります）
　 If PP(NN%) = "" Then
　　　MsgBox "チェックを入れてからクリックしてね", vbExclamation
　 Else
　　　'列番号分岐
　　　Select Case UCase(PP(NN%))
　　　　 Case "OPB1":　ST = 1: ReT = 4
　　　　 Csse "OPB2":　ST = 1: ReT = 7
　　　　 Case "OPB3":　ST = 1: ReT = 10
　　　　 Case "OPB4":　ST = 1: ReT = 13
　　　　　　　　　　・
　　　　　（ボタンの数だけ分岐を付ける）
　　　　　　　　　　・
　　　 Case Else
　　　　　ST = 0: ReT = 0
　　　End Select
　　　'
　　　If St = 0 then
　　　　 MsgBox PP(NN%), vbExclamation, "オブジェクト名確認"
　　　Else
　　　　記録 '記録をよぶならここ
　　　Else
　 End If
　 Erase PP
End Sub

ボタンのならびによっては纏められそうな気もしますが、とりあえず。

0 hits

▼

【48035】マルチページについて トムコ 07/4/1(日) 2:27