Excel VBA質問箱 IV

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

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


14656 / 76734 ←次へ | 前へ→

【67567】Re:ActiveSheetにあるCombobxの値
質問  ichi  - 10/12/14(火) 11:20 -

引用なし
パスワード
   kanabun さんに教えて頂きましたようにトライしました
3点ほど再度教えていただきたいので
よろしくお願いいたします
以下のように書きました

Sub Make_DropDown()
    ActiveSheet.DropDowns.Add(200, 15, 70, 15).Select
 1) ここの座標値(200, 15, 70, 15).ですが座標値(ポイント値)
    の決め方が不明で 200,15 は適当に決め配置したい場所を
    探って決めました 
    座標値の基準が解りません
    Selection.Name = "myCombo"
    Selection.ListFillRange = "コード!$B$4:$B$7"
    Selection.LinkedCell = "$B$4"
    Selection.DropDownLines = 8   
    ActiveSheet.Shapes("myCombo").Select
    Selection.OnAction = "Mycomb_Change"    
    ActiveSheet.Shapes("myCombo").Select
    Range("A1").Select
End Sub

Sub Mycomb_Change()
  With ActiveSheet
    .DropDowns (Application.Caller)
    .DropDowns ("myCombo")
     ' ActiveSheet.Range("A4").Value = .List(.ListIndex)
 2)  ここでエラーがでましたので コメント にしました
    .Range("K4").Value = ActiveSheet.DropDowns("myCombo").ListIndex
 3)  Range("K4").Value には選択された項目の順番(2番目なら2が)
     書かれ 項目名を書きたいのですが   
  End With
    ActiveSheet.Shapes("myCombo").Select
    Selection.Cut
End Sub

よろしくお願いいたします

1 hits

【67543】ActiveSheetにあるCombobxの値 ichi 10/12/11(土) 12:01 質問
【67544】Re:ActiveSheetにあるCombobxの値 kanabun 10/12/11(土) 17:05 発言
【67546】Re:ActiveSheetにあるCombobxの値 ichi 10/12/12(日) 9:29 質問
【67547】Re:ActiveSheetにあるCombobxの値 kanabun 10/12/12(日) 10:59 発言
【67548】Re:ActiveSheetにあるCombobxの値 ichi 10/12/12(日) 12:12 お礼
【67567】Re:ActiveSheetにあるCombobxの値 ichi 10/12/14(火) 11:20 質問
【67568】Re:ActiveSheetにあるCombobxの値 Jaka 10/12/14(火) 11:32 発言
【67569】Re:ActiveSheetにあるCombobxの値 kanabun 10/12/14(火) 13:08 発言
【67570】Re:ActiveSheetにあるCombobxの値 ichi 10/12/14(火) 14:15 お礼
【67545】Re:ActiveSheetにあるCombobxの値 kanabun 10/12/11(土) 17:09 発言

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