人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

以前の質問のマクロ変更をお願いできますでしょうか?

http://q.hatena.ne.jp/1306425084

にて質問したものです。
詳細はURLにありますが、内容を下記のようにしたいのですが、
マクロ変更をお願いできますでしょうか。

そのセルにカーソルをおいてマクロをかけると、インプットBOXで
商品名は?
[みかん]
[りんご]
その他→

と、なるところ、常に1番目、2番目、3番目のインプットBOX内の選択肢に、
現在カーソルがおいてあるセルの行を固定したA,B,C列が選べるようにしてほしいのです。

例・現在、E3にカーソルがある。

商品名は?
1.A3 [A3の値表示]
2.B3 [B3の値表示]
3.C3 [C3の値表示]
4.[みかん]
5.[りんご]
6.その他→

そこでB3を選択したならば、B3の値が選択されたと判断してほしいのです。
何番目の質問でもA,B,Cが質問の1、2、3に現れるようにしてください。

お手数ですがよろしくお願いいたします。

●質問者: naranara19
●カテゴリ:コンピュータ 科学・統計資料
✍キーワード:A3 BOX C3 E3 URL
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● TransFreeBSD
●100ポイント ベストアンサー

確認していませんが、31-32行目に挿入して以下の様にすればOKだと思います。

 selectList = Split(Replace(Mid(.Value, startDelimiterLength + 1, .Length - startDelimiterLength - stopDelimiterLength), choicesStopDelimiter, ""), choicesStartDelimiter)
 Const selCells = 3 ' 選択肢に追加する欄の数
 For i = UBound(selectList) + selCells To 1 Step -1
 If i > selCells Then
 selectList(i) = selectList(i - selCells)
 Else
 selectList(i) = ActiveSheet.Cells(ActiveCell.Row, i).Value
 End If
 Next i
 inputboxText = selectList(0)

"Const selCells = 3"の行は最初の方に移動した方が、見た目が良いかもしれません。

あと、今気がついたのですが、変換部分が複数あった場合も毎回加えるので良いのでしょうか?

◎質問者からの返答

大変失礼しました。ご回答に気づきませんでした。31行-32行目というのがどこにあたるのか、御手すきの時にお返事いただけたら幸いです。

誠に申し訳ありませんでした。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ