Excel VBA質問箱 IV

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

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


33897 / 76734 ←次へ | 前へ→

【48053】Re:マルチページについて
発言  りん E-MAIL  - 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

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

3 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 お礼

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