• 締切済み

選択した複数の項目を1つのセルに表示する方法

初めまして、VB初心者のjoukoです。 宜しくお願いします。 ・えんぴつ　・消しゴム　・ノート　・コンパス という項目の中から受注したもの（消しゴム5個、ノート10冊、シャーペンの芯10ケース）を1つのセルの中に転記したいのですが、どのようにすればよいのかわかりません。リストボックスを使うと複数選択できますが、選択枠にないシャーペンを入れることができません。どのような形をとったらよいでしょうか？ また個数はテキストボックスに入力という形をとろうと思ってます。 会社の伝票処理が効率よくできるように参考書を買ってやってみてるのですが、どう調べていいのかもわからず困ってます。宜しくお願いします。

noname#35077
noname#35077

みんなの回答

回答No.1

ＶＢＡレベルでやることなのか疑問だけど… リストボックスにない場合は、書き込むってことにしちゃえばいいんじゃないの？ もうすこしＥｘｃｅｌシートのイメージがわかるようにしてほしいな。 つまり 　　Ａ　　　　　　　　　　　　　Ｂ １　リストボックス（消しゴム）　５ ２　リストボックス（ノート）　　１０ ・・・ ってのを一つのセルにしたいの？

noname#35077
質問者

補足

ご回答ありがとうございます。 うまく説明できないのですが、 テキストボックスや、コマンドボタンなどを使ってユーザーフォームを作り、できがった物を使って伝票を入力し、管理するものを作ろうとしています。 ＜リストボックス＞ 　　　　　　　　　えんぴつ 　　　　　　　　　消しゴム 　　　　　　　　　ノート 　　　　　　　　　コンパス これを選択して ＜エクセルワークシート＞ 　　　　　　　　　　　１　　　　　　　　　　　　　　　　　　　２ Ａ　消しゴム×5,ノート×10,シャーペンの芯×10　　　　　　　3,500 Ｂ　えんぴつ×3,消しゴム×5,ノート×15 　　 3,000 ってな具合にしたいのですが・・・

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • エクセルのデータベース

    いつもお世話になっています。 エクセルを使い集計表を作りたいのですが売った商品を一覧の中から選ぶようにしたいのですがどうすればいいのでしょうか？ 例）鉛筆　 　　消しゴム 　　シャーペン 　　シャーペン芯 　　ノート ↑これを選んで選択できるようにしたい。 宜しくお願い致します。

  • 鉛筆の代替品

    仕事で鉛筆を使うようにと言われています。 その理由は、以下のような感じです。 ・シャーペンで書かれた文字との差を出すため。 （シャーペンで書かれているページなどの中に、鉛筆で書かれたページがあると見つけやすい（？）から。） ・大きい文字や図を書くので、鉛筆のほうがきれい。 （濃さとか太さの違いだと思います。） ・すぐに消せる。 しかし、書く量が多いのですぐに削らなくてはならないし、短くなってしまい、持ち運びの点でもキャップをしなければならなかったり、何本も持っていなければならず、不便に感じています。 そこで、上のような条件に当てはまるような物で鉛筆より便利なものを探しています。何かいいものをご存知の方、教えてください。 今、推奨されているのは、B以上の鉛筆です。シャーペンで太い芯というのはどのくらいの太さまであるのでしょうか？また、芯の太さが変わると、それに対応したシャーペンが必要なのでしょうか？ よろしくお願いします。

  • シャープペンシルの芯がつまった際の対処方法ありますか

    0.3mmのシャープペンシルの金属部の先に芯が詰まり取り除けません。 消しゴムに備え付けの針金では、押しても芯が詰まりすぎているせいか、芯が中で固まってしまっているかのように 取り除けないのですが、何か方法ありますでしょうか。 お気に入りのシャーペンなので気になっています。 よろしくお願いします。

  • 皮膚をつねる行為

    物心ついた時からずっと肘の内側の部分をつねっていました。 小学校にあがると鉛筆、中学ではシャーペンを刺していたため今では刺青のように黒く跡が残っています。 また、シャーペンの芯を出した状態で刺していたので中で折れて芯が残ったり、そこに膿がたまったのを出すのが密かな楽しみになっていました。 そして、いまではつねる場所が変わり二の腕の柔らかい部分をよくつねってしまいま二の腕も黒くなりました。 無意識なのか自分の中で当たり前になってしまっているのかもうつねる理由すらも分からなくなってしまいました。

  • 芯ホルダーのカラー芯ってどんなのありますか？

    芯ホルダーのカラー芯ってどんなのありますか？ 今日はじめて芯ホルダーの存在を知りました。鉛筆のような描き心地でシャーペンのように芯の出し入れができてるので気に入ってその場で買っちゃいました。 イラストで下書きにカラー芯青とか使ってPCに取り込むとき青色だけとばせるし、カラー芯だと紙が汚れにくいとか目立つから消し忘れが少ないなどというのを聴きました。 uniのカラー芯で消せるタイプとかあるそうですが、 消しゴムで消せるカラー芯の2.0mm以上のってあるのでしょうか？

  • 売上伝票作成方法

    弥生販売09で、受注伝票から売上伝票を作成しようとしましたが、 弥生販売は“￥”しか対応できないそうです。 しかし、得意先の中には“￥”“＄”“€”色々な通貨での 取引があり、困っております。 そこで、Excelで受注伝票をフォーマットとし、 売上伝票、請求書に対応できる様にしたいと思ったのですが、 結局“書式の変更”が必要で、不便を感じております。 “リストボックス”や“コンボボックス”を使いたいと 思うのですが、どうやって使うものか判りません。 B1セルで▼ボタンを押すと“￥”“＄”“€”が表示され、 選ぶとC1セルの通貨表示が変更されるというのは どうすればいいでしょうか? 宜しく御教授下さいます様、お願い申し上げます。

  • エクセル VBA if構文

    毎度お世話になります。 下記プログラミングですが、 シャーペンまたはボールペンがコンボボックス1で 選択された場合はコンボボックス2で10束または50束の選択肢となり 消しゴムまたはシャー芯がコンボボックス2で 選択された場合はコンボボックス2で100コまたは1000コの選択肢としたいのですが 他の方法がありますでしょうか。 宜しくお願い致します。 If Me.ComboBox1.Value = "シャーペン" Or Me.ComboBox1.Value = "ボールペン" Then ComboBox2.Style = fmStyleDropDownCombo ComboBox2.RowSource = "" ComboBox2.Clear ComboBox2.AddItem "10束" ComboBox2.AddItem "50束" ComboBox2.ListIndex = -1 End If If Me.ComboBox1.Value = "消しゴム" Or Me.ComboBox1.Value = "シャー芯" Then ComboBox2.Style = fmStyleDropDownCombo ComboBox2.RowSource = "" ComboBox2.Clear ComboBox2.AddItem "100コ" ComboBox2.AddItem "1000コ" ComboBox2.ListIndex = -1 End If

  • 複数条件に一致するデータの抽出方法について

    Excel2007を使用しています。 ネット等で色々方法を模索したのですがお手上げだった為、質問させて下さい。 別々の人間が管理している、下記のような二つのシートがあります。 Sheet1 A列（店舗コード） B列（取引先名）　 C列（取扱商品） 0102 　　　　　　○商店□支店 ノート星柄 0100 　　　　　　○商店○支店 ノートストライプ 0102 　　　　　　○商店□支店 消しゴム星柄　　　 0103　　　　 ○商店△支店　　 鉛筆無地　　　 　　 0100 　　　　　　○商店○支店　　 鉛筆水玉 Sheet2 A列（店舗コード） B列（取引先名、商品）　 　　　　C列（商品単価） 0102 　　　　　　○商店□支店　ノート星柄　　　　　　　130 0100 　　　　　　ストライプノート　○商店○支店　　　　100 0100 　　　　　　○商店○支店　水玉模様の鉛筆　　　　　50 0102 　　　　　　星柄の消しゴム　○商店□支店　　　　　80 0103　　　　 ○商店△支店　鉛筆無地　　　　　　　　　40 このうちSheet1にD列を増やして、Sheet2の商品単価を自動的に反映するようにしたいです。 少ない知識から抽出ならVLOOKUPだ！ということで、実際にやってみたのですが… 0102　　○商店□支店　　　　ノート星柄　　　 130（あってる） 0100　　○商店○支店　　　　ノートストライプ 100（あってる） 0102　　○商店□支店　　　　消しゴム星柄　　　 130（本当は80円） 0103　　○商店△支店　　　　鉛筆無地　　　　　　　　40（あってる） 0102　　○商店○支店　　　　鉛筆水玉 　　　　　100（本当は50円） 店舗コード0103は一つしかないので問題なく商品単価を抽出します。 ところが店舗コード0100、0102は二つずつある為、それぞれ一番目のものしか抽出しません。 理想 0102 ○商店□支店 ノート星柄　　　　　　130 0100 ○商店○支店 ノートストライプ　　　100 0102 ○商店□支店 消しゴム星柄　　　　　80 0103　　　○商店△支店　　 鉛筆無地　　　　　　　40 0100 ○商店○支店　　 鉛筆水玉　　　　　　　50 自動的にこうなるように式を組みたいのですが、何関数を使えばいいのでしょうか？ 前方一致や後方一致など色々試行錯誤してみましたが、ご覧の通りSheet2のB列は 入力方法がバラバラでいかんともしがたく…。 なお実際のデータは数が膨大なので、最初の一つを設定したあとはセルDを下へ ドラッグすると一気に反映されるような形にしたいです。 どうぞみなさまのお知恵をお貸しいただければと思います。宜しくお願い致します。

  • 書いた字が裏移りしない方法

    大学ノートにシャーペンで字を書き、何日かすると紙の裏に字が浮き出てしまうのです。 防ぐ方法はありますか？ 私は筆圧が強いせいか、文字を書くと紙が凹みます。（前のページ側から見ると、凸になります） すると、前のページに書いた文字とがこすれて、凸部分に鉛筆が付いてしまうのです。 今のところ、消しゴムで必死に消していますが、手が掛かってどうしようもないのです。 説明が下手で申し訳ございません！ 誰か、教えてください！

  • 選択したものだけを対象とする方法

    PGはVB6・DBはAccess2002という環境です。 現在、テキストボックスに条件を入力し、一部でも入 力条件と一致すればDBより抽出するようにしていてい ますが、データの状態により、抽出する数は変動しま す。このランダム数、抽出してきた結果の中で、選択 したもののみを更に次のステップへと活用していきた いのですが、この「選択したもののみ」という箇所の コードが分かりません。ご存知の方、是非、ご教授願 います。 お願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する