Excel VBA質問箱 IV

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

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


3433 / 13644 ツリー ←次へ | 前へ→

【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の「o」が抜けてるのを指摘しただけのコメントでした。
でも、考えたら実行したら「変数が宣言されてません」って叱られるので、そんなことではないかな・・・と、思ってたところに、neptuneさんの、丁寧な回答が入ってたので、ちと恥ずかしくなって消しちゃったのだ^^;

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