• ベストアンサー

リストボックスの項目に、他のブックのセルの値を設定するには?

x0000xの回答

  • x0000x
  • ベストアンサー率52% (67/127)
回答No.1

単価表.xlsのSheet1のA2:B10を表示するとして、 以下で表示できます。 ただし、単価表.xlsはOPEN済みの場合です。 ColumnCount=2 ColumnWidth=2cm;3cm RowSource=[単価表.xls]Sheet1!A2:B10 Excel2003で確認。

korin_1003
質問者

お礼

早速の回答ありがとうございます。 参考にさせていただきました。

関連するQ&A

  • コンボボックスに設定する値

    ユーザーフォーム上のコンボボックスに設定する値を ワークシートの入力規則のリストで設定した値から参照するにはどうしたらいいでしょうか? 入力規則の値は、元の値のテキストボックス?に直接入力されているので これをどこかのセル範囲を参照して~というのはナシでお願いします。

  • ■ 他のブックのセル値を取り込むことは可能ですか?

    マクロで他のブックの特定のセルの値を取り込むことは可能ですか? 例えば、今A.xls B.xlsという2つのエクセルファイルを開いていまして、A.xlsの A4 の値を B.xls の G8 に入れたいのですが・・・。 説明分かりにくかったでしょうか? もしお分かりになった方がいらっしゃいましたら教えていただけないでしょうか? よろしくお願いします。

  • エクセルユーザーフォームのチェックボックスのCaptionにセルの値を入れたい。

    表題の通りで、エクセルユーザーフォームにチェックボックスを作成し、そのCaptionにセルの値を入れたい場合、どのようにすればいいのでしょうか。 つまり、シートのセルの値が変われば、ユーザーフォームのチェックボックスの文字が変わっているようにしたいのです。 エクセル2003です。 よろしくお願い致します。

  • コンボボックスの値リスト(MS-ACCESS)

    コンボボックスウィザードを使って、値リスト形式で項目を選択するというフォームを作成中です。リストの選択項目数が少ない入力欄には、全ての項目が表示されるのですが、例えば30個という多くの項目を記述すると、13個しか表示されません。ネットで色々検索してみましたが、対処方法が見つかりません。どこか、制限値みたいなものを設定する箇所があるのでしょうか?

  • リストボックスの値を全選択する

    エクセルのユーザーフォームにリストボックスとコマンドボタンを設置し、 コマンドボタンをクリックするとリストボックス内の値を全選択する。 という動作は出来ますでしょうか。 勉強不足で申し訳ありませんが、ご教示願います。

  • VBA リストボックスの値をセルに転記

    よろしくお願いします。 したいことは、 ユーザーフォームのリストボックスで複数の値を選んで複数セルに転記する。 ActiveCell.offset(10, 5) ⇐ リストボックスで選んだ1つ目 ActiveCell.offset(11, 5) ⇐ リストボックスで選んだ2つ目 ActiveCell.offset(12, 5) ⇐ リストボックスで選んだ3つ目 下の構文では1つしか転記できません。 Dim n As Integer, s As String For n = 0 To ListBox3.ListCount - 1 If ListBox3.Selected(n) Then s = s & ListBox3.List(n) & vbCrLf ActiveCell.offset(10, 5).Value = s End If Next

  • excelでVBAでユーザーフォームのリストBOX

    下記VBAの作成の仕方を教えていただけないでしょうか。 やりたいこと (1)sheet2のA1セル~A5セルまでの間の間をユーザーフォームのリストボックスに登録する (2)sheet1のA1セルをクリックすると、ユーザーフォームが起動し、任意のリストをクリックすると、 その値がA1セルに格納され。ユーザーフォームが終了する。 ※コマンドボタンは使わずにお願いします。なおexcel2000です。

  • あるセルの選択内容によって次ぎのセルをクリックした時に表示させるリストボックスの中身を変更したい。

    EXCEL VBAについての質問です。 初心者です。宜しくお願い致します。 使用環境はWindows 2000 service pack4 Excel 2000. =質問= セルA1をクリックするとあるリストボックスを表示させること の応用です。 セルA1をクリックするとリストボックスが表示させること自体 は以下の文で作動します。(userform1の中にリストボックス を設定してある。) Private Sub Worksheet_selectionChange(ByVal Target As Range) If Target.Address = "$A:$1" Then UserForm1.Show Cancel = True End if End sub この応用として、セルA1で選択された項目(値)によってセルA2 をクリックした時に表示させるリストボックス(ユーザーフォ ーム)を変更したい。 例えばセルA1の選択が"ABC"でセルA2をクリックするとリスト ボックス2(ユーザーフォーム2)が、選択が"EFG"の場合は リストボックス3(ユーザーフォーム3)が表示されるように したい。 セルA1の選択肢は最大4つでセルB1用に4つのユーザーフォー ムを準備することは問題ありません。 また、セルA1の選択項目を一旦どこかのセルに飛ばして数値化 しても問題なし。 最初、excelのIndirectとIf関数を使って、作業用シートでA1 を参照し、その項目(値)によって参照するリストを分けよう と思っていたのですが、セルA1、A2の幅が広ければよかったの ですが、1つのセル幅を小さく設定しなければならず、その場 合indirect関数で開いたリストは1つの項目に対し2~3文字し か表示できない状態になりました。 セルA1、A2の幅が小さくてもindirectによって開かれるリスト の幅が変更できればいいのですが、それは出来ないようです。 Worksheet_selectionChangeにIF文を加えてみたりしたのです が上手くいきません・・・ 海外で仕事をしているので参考文献やVBAに詳しい人に聞く事 ができません。 ご尽力のほど、宜しくお願い致します。

  • リストボックスについて

    ユーザーフォームで使うリストボックスですが、項目が少ないので三角マークをなくしたいのです。 リストボックスを大きくするとなくなるみたいですが、必要以上に大きくしないとダメです。 設定できるところはあるのでしょうか? また、縦ではなく横長にリストを表示させることはできますか? オプションの、ロウソースのところで、シート!A2:A5みたいな感じでしていますが、A2:C2とかにしてもダメです・・ よろしくご教授くださいませ。

  • ExcelVBAでユーザーフォーム内のリストボックスの設定について

     教えてください、ExcelVBAでユーザーフォーム内にリストボックスを作りました。 複数列・複数行のワークシートデータを参照する設定です。  列は12列で、一番左の列に番号をふってあります。  行は31行で、一行目がタイトル表示してあります。  質問なのですが、このリストボックスは全列・全行表示する大きさでユーザーフォーム内に作成してあるのですが、いざマクロを動かすと幅は問題ないんですが、高さが縮んで自動的にスクロールが表示されます。  ユーザーフォームを大きくしてリストボックスも大きくしてやっても同じです。 このリストボックスの高さを固定させる設定はどうすれば良いでしょうか。