Excel VBA質問箱 IV

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

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


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

14729 / 76807

←次へ　｜　前へ→


	【67567】Re:ActiveSheetにあるCombobxの値

ichi - 10/12/14(火) 11:20 -


	引用なし

	パスワード

kanabun さんに教えて頂きましたようにトライしました
３点ほど再度教えていただきたいので
よろしくお願いいたします
以下のように書きました

Sub Make_DropDown()
　　　　ActiveSheet.DropDowns.Add(200, 15, 70, 15).Select
　１）　ここの座標値(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)
　２）　　ここでエラーがでましたので　コメント　にしました
　　　　.Range("K4").Value = ActiveSheet.DropDowns("myCombo").ListIndex
　３）　　Range("K4").Value には選択された項目の順番（２番目なら２が）
　　　　　書かれ　項目名を書きたいのですが　　　
　 End With
　　　 ActiveSheet.Shapes("myCombo").Select
　　　 Selection.Cut
End Sub

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

1 hits

▼

【67543】ActiveSheetにあるCombobxの値 ichi 10/12/11(土) 12:01