|
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
よろしくお願いいたします
|
|