• ベストアンサー

選択したリストとデーターの記入位置

nishi6の回答

  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.2

シートはSheet1とします。A2~A8に範囲名Youbiを付けます。(曜日のつもりです) ユーザーフォームに  テキストボックス(TextBox1)と  コンボボックス(ComboBox1)を作成。コンボボックスのRowSourceをYoubiとします。 ユーザーフォームのコードウインドウに下の3行を貼り付けます。 Private Sub ComboBox1_Click()   Worksheets("Sheet1").Range("Youbi").Cells(ComboBox1.ListIndex + 1, 2) = TextBox1.Text End Sub 質問のにあるように指定したリストの隣に表示されると思いますが・・・がんばって下さい。では。

ny57
質問者

お礼

ありがとうございます。 コンボで指定しているのは Private Sub UserForm_Initialize() 'ユーザーフォームを初期化する 10 For I = 0 To 6 'Iが0から6まで(12行-1から18行-1まで) 20 ComboBox1.AddItem Worksheets("Sheet1").Cells(I + 12, 1).Value 'シートのA列 30 Next '繰り返す End Sub こんな方法です。 ここに、教えていただいた三行を追加したところ「構文エラー」になりました。色々確かめてもうまくいきません。。。 使っているのがmacのエクセル98or2001なのでエクセルにもその辺りの違いが出たりするのでしょうか??

関連するQ&A

  • リスト選択したものをワークシートに自動表示させるには?

    エクセル2007を使用しています。 コンボボックス?のリストから選択したものを、別のワークシート内の コンボボックスに自動的に表示させるにはどうすればよいのでしょうか? つまり、ワークシート1のリスト(A,B,C)から「A」を選択すると、 ワークシート3のリスト(A,B,C)も自動的に「A」が表示されるように したいのです。 用語が間違っているかもしれませんが、よろしくお願いします。

  • ExcelVBA コンボボックスリストのリセット

    4月からマクロを勉強し始めて、壁にぶつかっています。 ユーザーフォームでオプションボタンの下にコンボボックス(1)を、そのさらに下にもうひとつコンボボックス(2)をレイアウトしました。 コンボボックス(1)は選ばれたオプションボタンによって、異なるリストを表示させるようにしてあります。 わからないのは、コンボボックス(2)のリストをコンボボックス(1)で選ばれた文字によって変えたいのです。 たとえば、コンボボックス(1)で"A"と選択されたら、コンボボックス(2)にはリストA'が、(1)で"B"と選択されたら、(2)にはりすとB'が…、というように、場合分けさせたいのです。 方法をご存知の方がいらっしゃいましたら、ご教示ください。よろしくお願いいたします。

  • エクセルのコンボボックス 選択リストを未選択にする

    よろしくお願いします。 エクセル2007でコンボボックスを設定しました。 リストはあらかじめ別シートで作成してあります。 矢印をクリックするとリストが選択されるようになり、設定はこれでよいだろうと思うのですが、 何も選択していない状態を表示したいのです。 一旦リストを選択してしまうと、リスト内のどれかを選ばなくてはならなくなってしまい、 何も選んでいない状態(空白)にできません。どうしたらできるか、どなたか教えてください!

  • リストのどの値も選択しないようにする &リストの文

    エクセルのシート上にリストボックスがあるのですが、 vbaで、リストのどの値も選択しないようにするコードと、 vbaでリストの文字を選択するコード、 (例えば「a」を選択中にする)方法を教えていただけますか?

  • VB2005 コンボボックスのリスト

    csvファイルをdatagridview1に読み込みました。 datagridview1の指定列のデータからコンボボックスに値を追加したいと考えました。 do loop でdatagridview1の行数分リスト追加しました。 コンボボックス.items.add(指定列の内容) 作成されたリストは A A A B B B C C ・・・・・ となりました。 これを A B C にしたいのですが・・・・ どういう方法がよろしいでしょうか?

  • エクセル コンボボックス 値選択後フォーカス移動

    はじめまして。 エクセルのアクティブXのコンボボックスを直接ワークシートに貼り付けて操作していますが、どうしても解決出来ない問題があります。 このコンボボックスで値を選択した後、フォーカスを別のセルに移動すると、一瞬、前の値が表示され、その後直前に選択した値に戻ります。 例えば、A、B、Cというリストがあり、Aを選択し、その後、Bを選択して、フォーカスを別のセルに移動すると、コンボボックスにAが一緒表示されます。でも、すぐにBに変わるのですが、Aのバックグラウンドを赤しているため、かなり、そのチラツキが目立ちます。 どなたか解決方法を教えてください。

  • エクセルVBA コンボボックスからの選択

    コンボボックスにある選択項目を選択した後、 エクセルの指定されたセルへ選択した項目を 貼り付けたいのですが、どのように指示したら よいのでしょうか? 例えば コンボボックス内の選択項目が A・B・Cとあったとします、その項目の 中からAを選択したら、作業中のsheetの A1のセルへAと表示させるにはどうしたら よいのでしょうか? アドバイスお願い致します。

  • 複数のリストボックスからリンク

    ホームページで複数のリストボックスから内容を選択して、指定したページへ移動させようと思っているのですが、方法がわかりません。 例えば、 ・1つ目のリストボックス・・・A ・2つ目のリストボックス・・・B を選ぶと "/a/b/" にリンクする、というようにしたいと思っています。 わかる方は、ぜひ教えてください!

  • 複数のコンボボックスの項目の表示/非表示について(VB6.0)

    コンボボックスにて Combo1(0)のリスト "A" "B" "C" Combo1(1)のリスト "A" "B" "C" Combo1(2)のリスト "A" "B" "C" Combo1(3)のリスト  ・  ・  ・ と複数のコンボボックスを用意し、それらのコンボボックスにおいて表示するの内容を全て同じ内容にします。この時、例えばCombo1(0)で"A"が選択されると、他のコンボボックスでは"A"がリストに表示されなくなる、またCombo1(0)にて"A"を選択解除すると他のコンボボックスにおいて再度"A"がリストに表示されるという様に、同じリストを持つ複数のコンボボックスにおいて、重複選択できないように表示/非表示を切り替えたいのですが上手い方法が思いつきません。分かる方がおられましたら御教授宜しくお願いします。

  • コンボボックスの選択後のカーソル位置について

    VB6でプログラムを作成しています。 コンボボックスのリストから選択後のカーソル制御について質問です。 コンボボックスのリストから選択後に選択したものが全選択となり カーソルが文字列の最後尾に移動してしまいます。 文字列よりコンボボックスの幅が小さい場合にカーソルが最後尾に移動すると表示が先頭からの表示になりません。 選択後にコンボボックスの表示が選択したものの文字列が先頭から表示 されるように制御したいのですが。 どのように制御したらよいか、知っている方教えてください。