Excel VBA質問箱 IV

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

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


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

10687 / 76734

←次へ　｜　前へ→


	【71593】コンボボックスを使って値を取得します

VBA初心者

- 12/3/21(水) 18:51 -


	引用なし

	パスワード

お世話になります、VBA初心者です
次のような処理がしたいのですが、うまく動きません
1.コンボボックスで値を選択し取得する
2.特定のシートをコピーし、取得した値＋日付をシートネームとする
下記のコードでは、25RF 80mAのみが書かれていますが、他にも品種が
あります
環境は、Excel2007です
念のため、自分が書いたコードを貼り付けておきます
VBA初心者なので、分かり易く教えて頂ければ幸いです

Private Sub UserForm_Initialize()
　　Dim sheetname As String
　　Dim myData(0, 1) As Variant
　　　　myData(0, 0) = "25RF 80mA"
　　　　myData(0, 1) = ""
　　　　
　　With ComboBox1
　　　　.Column() = myData
　　End With
　　
　　Select Case sheetname
　　　　Case "25RF 80mA"
　　　　　　Worksheets("日計表").Copy after:=Worksheets("日計表")
　　　　　　sheetname = InputBox("作成日を入力して下さい")
　　　　　　On Error Resume Next
　　　　　　Worksheets("25RF 80mA" & sheetname & "日").Select
　　　　　　If Err.Number = 9 Then
　　　　　　　　MsgBox "シートがありません"
　　　　　　End If
　　　　Case Else
　　　　　　Exit Sub

7 hits

▼

【71593】コンボボックスを使って値を取得します VBA初心者 12/3/21(水) 18:51

≪