[[20181019160113]]　『マクロ登録にて「ファイル→名前を付けて保存」』（事務まま）　ページの最後に飛ぶ

『マクロ登録にて「ファイル→名前を付けて保存」』（事務まま）

マクロ登録にて「ファイル→名前を付けて保存」をしたいのですが

名前を付けて保存の「名前」がセルの中にある文字なのです。

やってみたのですが１回目の文字そのものを覚えてしまって
違う文字に変えたところ１回目の文字にてまた保存されてしまいます。

セルの中の文字をコピーする動作を覚える事はは不可能なのでしょうか。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 「マクロの記録」のことでしょうか。
 通常であれば
 ActiveWorkbook.SaveAs Filename:="\\パス\" & worksheets("Sheet1").range("A1").value & ".xlsm"
 のようにすればできるかと思います。
（ろっくん） 2018/10/19(金) 16:18

できそうなんですね！

すみません、その式をどうしたら良いかわからず･･･
再度教えて頂けますか？
<(_ _)>
（事務まま） 2018/10/19(金) 16:27

マクロ記録は、セル値を貼る部分までは再現してくれない（コードを見ると判りますが、単なる文字列指定になっているはず）ので、ろっくんさんの書いたように、その部分はRangeを参照するよう手修正しましょう。（例は既に書かれていますよ）

なんでそんな事になるのかを考えると、Excelにとってはダイアログに貼られた文字列が、セルからのものなのか、メモ帳等の外部のものなのか区別できないので、単純に文字列としてコード出力するしかないのでしょうね。
（???） 2018/10/19(金) 16:30

横からになるが「マクロの記録」を使って記録させることは出来ないので、
エクセルからVisual Basic Application を開いてプログラムを記述する必要がある。

ろっくんさんの表記を借りると

 ActiveWorkbook.SaveAs Filename:="\\パス\" & worksheets("Sheet1").range("A1").value & ".xlsm"

上の「"\\パス\"」と書かれたところに保存したい場所を記述
worksheets("Sheet1")　で名前が書かれているシートを指定
range("A1")　で名前が書かれているセルの場所を指定している

上記３箇所を訂正すれば完成するので自分でやるべし
これらはVBAの基礎なので、ここで質問するより「エクセル　VBA」等で検索をかけて初心者向けサイトを探して見る事をおすすめする
（名無し） 2018/10/19(金) 16:35

ありがとうございます＾＾ｖ！
（事務まま） 2018/10/19(金) 16:49

 1.マクロの記録を終了させたら、[開発]タブ-[マクロ]-[(自身で付けたマクロ名)]を選択、[編集]ボタン押下。
   （[開発]タブが出ていない場合は出し方をネット検索してみてください）
 2.VBEが起動しますので、Sub (マクロ名)～End Sub 間の中に
   ActiveWorkbook.SaveAs Filename:="\\○○～.xlsm"
   という一文があるはずですので、名無しさんの言われている通りに編集。
 3.VBEは右上「×」で閉じる。
 4.マクロを実行させる。

 というような手順になるかと思います。
（ろっくん） 2018/10/19(金) 16:58

余計なお世話かもですが、エディタを開くだけなら、
もっと簡単に「Alt」+「F11」でＯＫな気がします。

（もこな２） 2018/10/19(金) 18:49

余計なお世話その2

".xlsm"と言ってるので、「FileFormat」も必要じゃないでしょうか？

（もこな２） 2018/10/19(金) 19:27

 余計なお世話について。
 1.エディタを開くのが目的ではありません。
   目的のプロシージャを直接表示させるのが目的なので。
 2.マクロの記録後なので編集の必要な最小限を提示しただけです。
 というのが私の意図でした。
（ろっくん） 2018/10/20(土) 00:25

＞目的のプロシージャを直接表示させるのが目的
あぁなるほど、「直接」表示させるのがポイントだったんですね。余計な一言失礼しました。

ちなみに、[開発]タブが出ていない場合～の件に反応してエディタを開くだけとおもったんですが、
「編集」でエディタを起動するなら、「開発」タブではなく、「表示」タブ－「マクロ」－「マクロの表示」という手もあるようです。

（もこな２） 2018/10/21(日) 08:20

コメント返信：

[ 一覧(最新更新順) ]

[[20181019160113]] 『マクロ登録にて「ファイル→名前を付けて保存」』（事務まま） ページの最後に飛ぶ

[[20181019160113]]　『マクロ登録にて「ファイル→名前を付けて保存」』（事務まま）　ページの最後に飛ぶ