複数のテキストボックスに記載した内容を一つのセルにまとめて記載したい

前提・実現したいこと

入力フォームに複数のテキストボックスがあった場合、複数のテキストボックスに入力した内容を一つのセルにまとめて記載したいと思っています。
具体的には、以下のような入力フォームがあった場合

セルA1に、顧客コードに入力されたもの+日付(この二つはハイフンでつなぐことにします)+選択された拡張子が転記されるようにしたいのです。
ex. 顧客コードがA29123、日付が20190206、選択された拡張子がPDFだったら「A29123-20190206.PDF」という風に転記されるようにしたいのです…。

試してみたこと

通常の入力フォームの様式でA1:A3にそれぞれのテキストボックスに入力したものが転記され、A4には

=A1"-"&A2&A3

と関数を表記しています。入力したコードは以下の通りです。

VBA
1Option Explicit
2
3Private Op As String
4Private lastrow As Long
5
6Private Sub Userform_Initialize()
7'フォーム起動時の動作'
8Me.txtDate.Text = Format(Date, "YYYYMMDD")
9End Sub
10
11Private Sub cmdRegist_click
12   
13    lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
14
15    Worksheets("ファイル名生成").Cells(lastRow, 1) = Me.txtCD
16    Worksheets("ファイル名生成").Cells(lastRow, 2) = Me.txtDate
17    Worksheets("ファイル名生成").Cells(lastRow, 3) = Op
18
19    txtCD = ""
20    txtDate = ""
21    OpPDF.Value = False
22    OpCSV.Value = False
23    
24    Worksheets("ファイル名生成").Cells(Rows.Count, 3).End(xlUp).Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes
25End Sub
26
27Private Sub OpPDF_click()
28    Op = ".pdf"
29End Sub
30
31Private Sub OpCSV_Click()
32    Op = ".CSV"
33End Sub
34
35Private Sub cmdDate_click()
36    txtDate.Text = Format(Date, "YYYYMMDD")
37End Sub

補足

私が試した方法でもやりたいことは実現できているので困っているわけではありませんが、もし、複数のテキストボックスに記載した内容を一つのセルにまとめて記載できる方法があるなら……と後学のために伺いたいと思っております。(ネットの海もさまよいましたが、求める回答や近しいものが出てこなかったので、もしかしたら実現不可能…？とも思っています)
なお使用しているエクセルはExcel2010です。

行動規範の内容に同意します

回答1件

ベストアンサー

今やっているようにワークシート側の数式で連結させるか、VBA側でワークシートに反映させるときに一緒に連結した文字列を設定してあげるか、どちらかかと思います。
そもそも単純な連結ではなく、最初の2つはハイフンで、残りはそのまま連結、という単純なパターンではないので、今のやり方で十分だと思います。
文字列を連結させる関数は、VBA側ではJoin関数、ワークシート側ではConcatenate関数またはExcel2016以降であればTEXTJOIN関数などがあるので、それらを使ってもいいでしょう。
但し今回のように途中一箇所だけ異なる文字で連結しないといけない場合は、多少工夫が必要です。

投稿2019/02/06 04:42