エクセル2000のVBAについて質問です。
シート内に記入した、件名と年月を、ファイル名とするには、どうすれば良いでしょうか?
セルA1に件名「○○○の件」
セルB1に作成日が日付書式で「2009/12/07」 と、あるとします。
この入力情報を元にして「○○○の件(0912).xls」と言うファイル名で保存したいです。
更に欲を言うと、件名にファイル名での禁則文字(/や?など)が想定されますので、全部を全角に変換したいです。
現状は、シート内余白に
件名は「=JIS(A1)」で全角に変換。
年月は「=TEXT(B1,"yy")」と「=TEXT(B1,"mm")」で、それぞれ抽出して、
変数を定義して
ThisWorkbook.Path & "\" & 件名 & "(" & 年 & 月 & ")" & ".xls"
で、保存しています。
このシート内の関数を止めて、VBAの中だけで処理する知恵をお貸し下さい。
お願い致します。
No.2ベストアンサー
- 回答日時:
#1です。
>今日が12月でも、B1に書かれているのが11月ならば0911としたいです。
ThisWorkbook.Path & "\" & StrConv(Range("A1").Value,vbWide) & "(" & Format(Range("B1").Value ,"yymm") & ")" & ".xls"
ですね。
重ね重ね早速のご回答ありがとうございます。
最初に頂いたご回答で、応用が利けば出来るだろうにと思われたかも知れませんが、ご親切にありがとうございました。
上記のご回答でバッチリ動きました。ありがとうございました。
No.5
- 回答日時:
(1)手操作
(2)VBA
ファイル名をセルの値と関連付けてファイル名にすることはできない
はず。文字列ベースのコピペは別として)
だから(2)によらざるをえない。
件名の文字を全角に統一するのはStrconvのvbWideを使えば良い。
年、月はYear、MonthというVBの関数で半角数値や文字列はわかる。半角数値も&で結合すると文字列になる。
これも全角で統一するのかどうか質問に書いてないね。
件名&年&月全体をStrconvで全角かする手もある。
年、つき部分を半角文字列にするならFormat関数でできる。
ーーー
Googleででも「Strconv関数」「Format関数」で照会すれば、直ぐ内容はわかる。
TEXT-->Format関数(VB)
JIS-->Strconv関数(VB)
が対応。
年月はYear、Month関数。(VB)
ありがとうございました。
2~3日色々と調べ悩んだんですけど、現状は....の方法しか思い付かずに
この場に質問させて頂きました。
知識の豊富な皆様方は直ぐに分かる様な簡単な事だったかも知れませんが、
ちょっとした改善でたまにVBAを使用する私にとっては、やりたい事がどの関数で
出来るのか判断するのも難しいです。
今回、皆様方に教えて頂きました、FormatやStrConvも初めて知りましたので
大変勉強になりました。
今後も別件にて、簡単なことかも知れませんが、質問させて頂く事があるかと
思いますが、また、宜しくお願い致します。
No.1
- 回答日時:
ThisWorkbook.Path & "\" & StrConv(Range("A1").Value,vbWide) & "(" & Format(date,"yymm") & ")" & ".xls"
かな?(未検証ですが。。。)
早速の回答ありがとうございます。
件名のA1を全角でファイル名に出来ました。
年月ですが、Format(date,"yymm") ですと、今日の年月が入りました。
今日の年月ではなくて、B1に書かれている年月を取り込みたいのですが。
今日が12月でも、B1に書かれているのが11月ならば0911としたいです。
可能でしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- Visual Basic(VBA) エクセルのマクロコードの一部分を変更する方法について教えてください。 2 2023/02/17 08:40
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
COBOL・全角判定
-
英数字のみ全角から半角に変換
-
エクセルにMicrosoft Barcode C...
-
住宅にカナを入力する際に丁目...
-
全角英数字の必要性が理解できない
-
IEからEdgeへの移行に伴うIMEの...
-
word差し込み印刷 半角カタカ...
-
VBA 文字に半角が含まれて...
-
capeofdragonと申します Excel2...
-
エクセルでの”々”の扱い
-
全角スペース
-
CString Format にて全角空白文...
-
VBAの文字列の中に”(全角のダブ...
-
小説の点々は……と繋がらなくて...
-
VBで「全角」文字を「半角」に...
-
[VBScript]バイト長の判定
-
Accessのテキストボックスの入...
-
VBで、String型のデータが、...
-
全角/半角キーをSendkeys関数で...
-
明細書の英数字の全角・半角に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
全角英数字の必要性が理解できない
-
英数字のみ全角から半角に変換
-
住宅にカナを入力する際に丁目...
-
エクセルにMicrosoft Barcode C...
-
VBA 文字に半角が含まれて...
-
IEからEdgeへの移行に伴うIMEの...
-
プログラミングでは、半角括弧...
-
word差し込み印刷 半角カタカ...
-
半角と 全角の 違いは?
-
よくアカウント等に使われる 半...
-
正規表現で、全角文字を半角文...
-
ダブルコーテーションの置換
-
LaTeXで半角カンマと全角カンマ...
-
コマンドプロンプト 全角を含ん...
-
Excel関数またはVBAでの質問に...
-
VB.net、テキストボックス入力...
-
VBで、String型のデータが、...
-
大文字と全角文字は同じ意味で...
-
COBOL・全角判定
-
VBAの文字列の中に”(全角のダブ...
おすすめ情報