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