リストボックス文字を連結しセルへ入力

質問

左上入力表にユーザーフォームリストボックスより選出実行された文字をB列にはリストボックス１の選出文字をC列にはリストボックス２、３、４から選出された文字を連ねて入力したいのですが。
尚、行に記入があれば次の空白から順に入力したい。
どなたかコードが解る方よろしくお願いします。

回答No.4

cj_mover · ベストアンサー

＃１、２、３、ｃｊです。
＃３補足欄へのレスです。

５つの大項目のうち、
　どの大項目を扱うべきなのか、
　対象となる大項目の先頭行は（絶対位置で）何行めなのか、
という情報を、私はどうすれば知ることができますか？
対象となる大項目の先頭行より下、最初に見つかる空セル、
が出力ポイントになる、ということのようですが、何分、起点が解りません。
そちらでは解るということでしたらば、

' ' ●（２／３択）●アクティブセルより下の行で、一番上にある空セル、に出力
　　Range("B" & ActiveCell.Row & ":B" & Rows.Count).SpecialCells(xlCellTypeBlanks).Areas(1)(1).Resize(, 2).Value = 氏名_項目()

この記述の
　ActiveCell.Row の部分を
　　対象となる大項目の先頭行の、（絶対位置での）行位置を
　　数値で
　指定して貰えればいいんだと思います。

実際には変数を使うなり工夫する必要はあるでしょうけれど
　対象となる大項目の先頭行の、（絶対位置での）行位置が
　10、であるならば、

　　Range("B" & 10 & ":B" & Rows.Count).SpecialCells(xlCellTypeBlanks).Areas(1)(1).Resize(, 2).Value = 氏名_項目()

という風に数値が当て嵌められるようにそちらで書き換えてみて下さい。

また、
　対象となる大項目の先頭行以下の３行（のＢ列）には必ず値が設定してある
　　（対象となる大項目の先頭行の、（絶対位置での）行位置が
　　　10、であるという例ならば、
　　　B10:B12 の範囲は必ず値が設定してある、という意味）
　ということならば、
上の記述をより簡単なものにして

　　Range("B" & 10).End(xlDown).Offset(1).Resize(, 2).Value = 氏名_項目()

のように書けるのかも知れません。

もっとも、
対象となる大項目と次なる大項目、の間に必ず空行がある、
という、大前提、で成り立つものですから、
対象となる大項目配下に出力するつもりが、次なる大項目配下になってしまう場合もあります。
大前提が崩れないように注意してください。

現状で私からアドバイス出来るのは、これ位のものです。

先々のこともあるので、またちょっと気になったことを書いておきます。
例えば、（本件と類似した例という意味で）
　２行めが項目タイトルで、
[番号]＿＿[氏名]＿＿[項目]
　と、なっていて、
　３行め以降データ
１＿＿"大分類"＿＿"hoge"
２＿＿"小分類"＿＿"piyo"
３＿＿"氏名１"＿＿"hogehoge"
４＿＿（空）＿＿（空）
５＿＿"大分類"＿＿"fuga"
６＿＿"小分類"＿＿"hogera"
７＿＿"氏名２"＿＿"fugapiyo"
８＿＿"氏名３"＿＿"piyopiyo"
９＿＿（空）＿＿（空）
10＿＿（空）＿＿（空）

　のような様式の表なんでしょうかね？

樹形図を二次元的に表した表、を編集するのは扱いが非常に難しいです。
将来的にお奨めしておきたいこととして、
【リレーショナルデータベース】について、さわりだけでも
知っておくと、色々な可能性や汎用性、融通性、などが見えてくると思います。
現在のような様式で表示したり印刷したりする必要があるにしても、
それは専ら表示用「レポート」にして、
入力作業や編集は別に「テーブル」を用意してそちらで行う
ようにシステムを作っておいた方が、すべての作業工程がシンプルになり
誰にも扱い易い、理解され易いものになると思います。

余談が過ぎたかも知れませんが、ご参考まで。

お礼

いろいろと親切丁寧に解答下さりありがとうございます。
おかげで思ったような処理が出来上がりました。
本当にありがとうございました。