[[20170602214356]] 『VBAで文字を連結する方法を教えてください。』(りりちゃん☆彡) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『VBAで文字を連結する方法を教えてください。』(りりちゃん☆彡)

こんばんわ。いつもお世話になっております。
りりちゃん☆彡です。御無沙汰しております。

どなたかお分かりになる方教えてください。

リストの「入力されている部分を自動で判断」して、セルに入力されている
「文字を連結してもらいたい」です。

1.リストはCSV出てきますが、前に相談したやり方で普通のエクセルファイルになるようになっています。

2.できたファイルのA列〜D列を利用して、文字を連結してもらって
ファイル名を作りたいです。
最終的にネットで見付けた、リネームvbaを使用してダウンロードした
pdfファイルに自動で名前を付るつもりです。

イメージは下記の通りです。
リストはA1に題名です。A2だいたい今は50行くらいありますが、
年末までには増えて行くと思います。

日付   会社名  商品名 数量  ファイル名

20170602 ○○株式会社  XYウ300  5 【ここに連結したやつを入れたいです。】   

3.リストが年末までにどんどん増えて行くと思うので、ファイル名【】内の所はどんどん増えて行きます。
【】は入れなくて大丈夫です。

今は、手入力で関数を使って連結させています
=CONCATENATE(TEXT(A2,"yymmdd"),B2,C2,D2)&"枚"
が、量がだんだん増えてきてしまっており、VBAでできてくれればいいのに。。
と思いました。

最終的にファイル名

20170602_○○株式会社_XYウ300_5枚.pdf

という風になって欲しいのですが、どんな風にすれば
良いか分からず困ってしまっております。

どなたか教えてください。

りりちゃん☆彡

< 使用 Excel:Excel2007、使用 OS:Windows8 >


 > 今は、手入力で関数を使って連結させています 
 > =CONCATENATE(TEXT(A2,"yymmdd"),B2,C2,D2)&"枚" 
 > が、量がだんだん増えてきてしまっており、VBAでできてくれればいいのに。。 

 質問の意図がよく分かりません。
 表の各行ごとの処理ということでしょうか?
 毎回毎回計算式を手入力すれば、それは大変ですが、
 計算式をコピーして増幅すればいいだけのことではないですか?
 VBAだからといって何も特別のことはないので。
 今のとおり、計算式で対応するのが一番だと思います。
 どのようなことを期待しておられるのか、
 もう少し説明してください。

(γ) 2017/06/03(土) 09:03


横から失礼します。

多分
>20170602_○○株式会社_XYウ300_5枚.pdf
それぞれのセル値の区切りに"_"を入れたいのではないかと思われます。
質問文からの憶測ですが。

(じゅんじゅん) 2017/06/03(土) 09:18


ああそうなんですか。
じゃあ、
=CONCATENATE(TEXT(A2,"yymmdd"),"_",B2,"_",C2,"_",D2)&"枚"
という計算式で質問しないといけないなあ。
 
お勧めは変わりません。
これを下にコピーすればいいだけだと思います。
どうしてもマクロだということなら、
Format と 文字連結演算子& を使えば良いだけです。
質問者さんの力量ならむずかしいことはないと思料しますが?

(γ) 2017/06/03(土) 09:41


(γ) 様、(じゅんじゅん) 様

こんばんわ。
γ 様、御無沙汰しております。いつもお世話になりありがとうございます。
じゅんじゅん様、初めまして。

りりちゃん☆彡です。
この度は、お世話になっております。

相談した内容がイマイチわかりにくくてすみません。

じゅんじゅんさまがおっしゃっている、
>それぞれのセル値の区切りに"_"を入れたいのではないかと思われます。
が、やりたかったことです。言葉が足りなくて分かりにくくなってしまってすみません。。

γ様が教えてくれた↓みたくやればなるんですね。
=CONCATENATE(TEXT(A2,"yymmdd"),"_",B2,"_",C2,"_",D2)&"枚"

文字の最後に、自動で .pdf ってなって欲しかったので、
=CONCATENATE(TEXT(A2,"yymmdd"),"_",B2,"_",C2,"_",D2)&"枚"&".pdf"
ってやったら希望どおりになりました(*^^*)

γ様、じゅんじゅん様、ありがとうございました。

本当は、上から下まで自動で判断してもらってなってくれたらいいのにと思っていたのですが、
γ様おすすめのコピーのほうがいいのか。。って今は思っています(*'▽')

お二人ともお忙しい中、ありがとうございました。
(りりちゃん☆彡) 2017/06/04(日) 21:42


 >=CONCATENATE(TEXT(A2,"yymmdd"),"_",B2,"_",C2,"_",D2)&"枚"&".pdf"

 CONCATENATEと & を併用してるの初めて見ましたけど、なかなか斬新でんな。

 =CONCATENATE(TEXT(A2,"yymmdd"),"_",B2,"_",C2,"_",D2,"枚.pdf")
 =TEXT(A2,"yymmdd")&"_"&B2&"_"&C2&"_"&D2&"枚.pdf"
 
(よみびとしらず) 2017/06/04(日) 22:02

(よみびとしらず)様

書込みありがとうございます。
りりちゃん☆彡です。

お世話になっております。

教えてくださった、下記の関数でも、同じ結果になるんですね。

=TEXT(A2,"yymmdd")&"_"&B2&"_"&C2&"_"&D2&"枚.pdf"
また一つ、関数を覚えることができて良かったです(*'▽')

ありがとうございました。

りりちゃん☆彡
(りりちゃん☆彡) 2017/06/05(月) 21:10


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.