Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3447 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【62245】シートセルの値をコンボボックスに読み込む kanji 09/7/3(金) 18:37 質問[未読]
【62247】Re:シートセルの値をコンボボックスに読み... neptune 09/7/3(金) 19:17 回答[未読]
【62249】Re:シートセルの値をコンボボックスに読み... kanji 09/7/3(金) 19:37 お礼[未読]
【62248】Re:シートセルの値をコンボボックスに読み... neptune 09/7/3(金) 19:26 発言[未読]
【62255】Re:シートセルの値をコンボボックスに読み... つん 09/7/4(土) 15:49 発言[未読]
【62245】シートセルの値をコンボボックスに読み込...
質問  kanji  - 09/7/3(金) 18:37 -
引用なし
パスワード
   よろしくお願いします
シートのセルの値をユーザーホーム上のテキストボックスと
コンボボックスに読み込んだ時にテキストボックスは問題なく
読み込めますが、コンボボックスでは読み込めません。
プロパティの動作など変更してみましたがダメでした。
省略した内容ですが下記のコードで行っています。
また、セルの値はコンボボックス内の値と同じ値です。

Private Sub CommandButton1_Click()　　　　　
　Worksheets("実験").Select
　Range("A5").Select　　　
　TextBox1.Value = ActiveCell.Offset(0, 2).Value'これは読み込める　　　
　CombBox1.Value = ActiveCell.Offset(0, 3).Value'CombBoxには読み込めない
　CombBox2.Value = ActiveCell.Offset(0, 4).Value　　　
End Sub

ご指導をよろしくお願いいたします
【62247】Re:シートセルの値をコンボボックスに読...
回答  neptune  - 09/7/3(金) 19:17 -
引用なし
パスワード
   ▼kanji さん：
そういう時は、先ずHelpを見ましょう。使用例もあるはずです。

>　CombBox1.Value = ActiveCell.Offset(0, 3).Value'CombBoxには読み込めない
'CombBoxには読み込めない
という事なので、これは本当はcombbox1にデータを追加したいと言う事ですよね？
additemメソッドのHelpを見てください。使用例があります。

>　CombBox2.Value = ActiveCell.Offset(0, 4).Value　　　
同じです。

ここからはお節介。
私は、初めてのコントロールの時はHelpの使用例をそのままコピペして、
実行したりする事があります。そんなに時間は掛かりませんし。
そうする事によってcomboboxの事がある程度理解できると思いますし、
掲示板で聞くよりよっぽど自分の為になります。
それでわからなければ聞いた方が良いです。

又、メソッド、プロパティも一通りザッとですが、名前だけでも目を通します。
・・・まぁこれは少し経験、慣れは必要と思いますけど。
【62248】Re:シートセルの値をコンボボックスに読...
発言  neptune  - 09/7/3(金) 19:26 -
引用なし
パスワード
   あれっ。

「読み込めない」の意味を私と違う解釈をしたレスが・・・・消えた。
ご迷惑をかけたようでごめんなさい。
【62249】Re:シートセルの値をコンボボックスに読...
お礼  kanji  - 09/7/3(金) 19:37 -
引用なし
パスワード
   neptuneさん
早速ありがとうございます
まずはHelpで学習してみます
【62255】Re:シートセルの値をコンボボックスに読...
発言  つん  - 09/7/4(土) 15:49 -
引用なし
パスワード
   ▼neptune さん：
ごめんなさい。
消したの、私でございます。

ComboBoxの「ｏ」が抜けてるのを指摘しただけのコメントでした。
でも、考えたら実行したら「変数が宣言されてません」って叱られるので、そんなことではないかな・・・と、思ってたところに、neptuneさんの、丁寧な回答が入ってたので、ちと恥ずかしくなって消しちゃったのだ＾＾；
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3447 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free