Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12310 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11306】コンボボックスの選択欄の取得 evian 04/3/5(金) 9:38 質問
【11309】Re:コンボボックスの選択欄の取得 IROC 04/3/5(金) 9:55 回答
【11311】Re:コンボボックスの選択欄の取得 evian 04/3/5(金) 10:13 質問
【11310】Re:コンボボックスの選択欄の取得 Ｊカーター 04/3/5(金) 10:07 回答
【11312】Re:コンボボックスの選択欄の取得 evian 04/3/5(金) 10:25 お礼
【11306】コンボボックスの選択欄の取得
質問  evian  - 04/3/5(金) 9:38 -
引用なし
パスワード
   ActiveXコントロールのコンボではなく、
フォームコントロールのコンボボックスについて教えてください。

選択されている項目を取得したいのですが、どうしたらよいのでしょうか？
リンクセルを設定すればIndexは取得できますが、項目自体を取得したいのです。
どなたかご教授ください。
宜しくお願いします。(Win2000, Excel2000)
【11309】Re:コンボボックスの選択欄の取得
回答  IROC  - 04/3/5(金) 9:55 -
引用なし
パスワード
   Indexから参照先のセルを判断して
文字を取得できませんか？
【11310】Re:コンボボックスの選択欄の取得
回答  Ｊカーター  - 04/3/5(金) 10:07 -
引用なし
パスワード
   こんにちは。
選択時に取得するなら
以下のマクロを登録しておけば取得できます。
---------------------------------------------------------------
Sub ドロップ1_Change()
　　With ActiveSheet.DropDowns(Application.Caller)
　　　　MsgBox .List(.ListIndex)
　　End With
End Sub

別のアクションで取得したいなら
Application.Callerの部分を
対象ドロップダウンのオブジェクト名に変更して下さい。
【11311】Re:コンボボックスの選択欄の取得
質問  evian  - 04/3/5(金) 10:13 -
引用なし
パスワード
   ▼IROC さん：
>Indexから参照先のセルを判断して
>文字を取得できませんか？

回答ありがとうございます。
上記の方法は考えていたのですが、
コントロール上に表示してるんだから、
そのまま取得できないのかなぁと思ったので、ご質問させていただきました。

コントロールを選択しても、
テキストの編集ができない時のシェイプ選択と同じ状態だから、
やはり無理なんですかねぇ
【11312】Re:コンボボックスの選択欄の取得
お礼  evian  - 04/3/5(金) 10:25 -
引用なし
パスワード
   ▼Ｊカーター さん：

おぉ〜　うまくいきました！
まさに私がやりたかったことそのものです！
ありがとうございます。
さすがですね！またよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12310 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free