Excel VBA質問箱 IV

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

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


6061 / 13645 ツリー ←次へ | 前へ→

【47413】ユーザーフォームの値をセルに カイゾー 07/3/9(金) 14:46 質問[未読]
【47415】Re:ユーザーフォームの値をセルに とおりすがり 07/3/9(金) 14:56 発言[未読]
【47416】Re:ユーザーフォームの値をセルに Jaka 07/3/9(金) 14:58 発言[未読]
【47417】Re:ユーザーフォームの値をセルに Kein 07/3/9(金) 15:00 回答[未読]
【47428】Re:ユーザーフォームの値をセルに カイゾー 07/3/9(金) 17:04 お礼[未読]

【47413】ユーザーフォームの値をセルに
質問  カイゾー  - 07/3/9(金) 14:46 -

引用なし
パスワード
   ユーザーフォームのコンボボックスの値が
セルに入るようにしたいのですが
うまくいきません。
自分で打ったコードは下のようなものです。

Private Sub ComboBox1_Change()

End Sub

Private Sub Label1_Click()
Sheets("Sheet1").Cells(G1).Value = ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
  Me.ComboBox1.List = Array(5, 10, 15, 20, 30, 60)
  Me.ComboBox1.ListIndex = 0
End Sub

よろしくお願いします。

【47415】Re:ユーザーフォームの値をセルに
発言  とおりすがり  - 07/3/9(金) 14:56 -

引用なし
パスワード
   >うまくいきません。
どううまく行かないのでしょう?
エラーになるなら何行目でしょう?

【47416】Re:ユーザーフォームの値をセルに
発言  Jaka  - 07/3/9(金) 14:58 -

引用なし
パスワード
   >Sheets("Sheet1").Cells(G1).Value = ComboBox1.Value
         Cells(1,"G")
         Cells(1,7)
         Range("G7")

【47417】Re:ユーザーフォームの値をセルに
回答  Kein  - 07/3/9(金) 15:00 -

引用なし
パスワード
   >Sheets("Sheet1").Cells(G1).Value


Sheets("Sheet1").Range("G1").Value

です。ヘルプをよく見て正しく覚えて下さい。

【47428】Re:ユーザーフォームの値をセルに
お礼  カイゾー  - 07/3/9(金) 17:04 -

引用なし
パスワード
   みなさんありがとうございますorz
問題は解決したんですが
ボタンではなくラベルに等式を書いているという
ありえないことをやっていることをやっている僕でしたorz

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