Excel VBA質問箱 IV

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

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


76219 / 76732 ←次へ | 前へ→

【4937】Re:ボタン&コンボボックス
回答  Jaka  - 03/4/14(月) 17:45 -

引用なし
パスワード
   こんにちは。

まだ良く解りません。
ユーザーフォーム上に作るのかな?

昨日書いた物なので、質問の意図と違っていると思います。
シート上に作るのなら参考になれば....。

Sub コンボ作成()
  Dim CombB As Object, damiycomb As Object
  
  If Selection.Columns.Count <> 1 Then
    MsgBox "1列以上は、不可。"
    End
  End If
  
  On Error Resume Next
  Set damiycomb = ActiveSheet.Shapes("コンボ1").OLEFormat.Object
  If Err = 0 Then
    ActiveSheet.Shapes("コンボ1").OLEFormat.Object.Visible = True
    'End
  Else
    '                  横位置 縦位置 幅 高
    Set CombB = ActiveSheet.DropDowns.Add(323.25, 27, 80, 15) '.Select
    CombB.Name = "コンボ1"
  End If
  Err.Clear
  On Error GoTo 0
  
  With ActiveSheet.Shapes("コンボ1").OLEFormat.Object '.Value = xlOn
    .Placement = xlFreeFloating
    .ListFillRange = Selection.Address
    .ListIndex = 0
    .LinkedCell = ""
    .Display3DShading = False
    .OnAction = "コンボデータ"
  End With
  Set CombB = Nothing
End Sub

Sub コンボデータ()
  With ActiveSheet.Shapes("コンボ1").OLEFormat.Object
    MsgBox .List(.ListIndex)
  End With
End Sub
1 hits

【4860】ボタン&コンボボックス cat 03/4/10(木) 18:03 質問
【4870】Re:ボタン&コンボボックス Jaka 03/4/11(金) 12:32 発言
【4875】Re:ボタン&コンボボックス cat 03/4/11(金) 17:31 質問
【4925】Re:ボタン&コンボボックス つん 03/4/14(月) 9:49 発言
【4931】Re:ボタン&コンボボックス cat 03/4/14(月) 15:12 発言
【4937】Re:ボタン&コンボボックス Jaka 03/4/14(月) 17:45 回答
【4938】消すのをわすれていました。 Jaka 03/4/14(月) 17:54 回答
【4951】質問 cat 03/4/15(火) 11:11 質問
【4955】Re:質問 Jaka 03/4/15(火) 12:48 回答
【4957】Re:質問 cat 03/4/15(火) 14:21 発言
【4959】Re:質問 Jaka 03/4/15(火) 15:38 回答
【4960】Re:質問 cat 03/4/15(火) 16:49 お礼

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