- ベストアンサー
エクセルのマクロのついて
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
No1さん同様ですが カレントフォルダに保存するなら、かつ再度保存する際の確認メッセージを表示しません Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=Sheets("A").Range("A1").Value & ".xls" Application.DisplayAlerts = True
その他の回答 (1)
- DoragonFang
- ベストアンサー率41% (91/221)
とりあえず、もっとも簡単な回答を。 エラー処理も何もしておりません。 ホントに保存するだけのマクロです。 もっとまともなのは他の方が回答されると思いますが(^^ゞ Sub 保存() Dim 保存名 As String 保存名 = Sheets("A").Range("A1").Value & ".xls" ActiveWorkbook.SaveAs Filename:=保存名 End Sub
お礼
早速のご回答有り難うございます。 一部エラーもでますが概ね使えました。 お返事遅くなりすいません。
関連するQ&A
- エクセルのマクロについて
エクセルのマクロ実行についてですが、 例えば、 E1セルの値が1ならばこうする（マクロ名 E1セル1） E2セルの値が2ならばこうする（マクロ名 E1セル2） E3セルの値が3ならばこうする（マクロ名 E1セル3） というマクロを別々に作りました。 これをボタンで実行する時に、 If Range("E1").Value = 1 Then ElseIf Range("E1").Value = 2 Then 2行目には作ったマクロを全部貼り付けないといけないのでしょうか？ それとも簡単にこの場合は、マクロ名E1セル1を実行するという命令することができるのでしょうか？ できるのであれば、入力方法を教えてください。 質問が分かりにくいと思いますが、よろしくお願いします。
- ベストアンサー
- Windows XP
- エクセルのマクロ
あるエクセルのファイルにLIST（A列に呼びだすエクセルファイル名、B列からD列に呼びだしたエクセルに貼り付ける文字列があり、それが100行程度ある)があり、そのLIST A列に書かれているエクセルファイルを開き、その開いたエクセルファイルのある特定のセルにB列からD列にあるセルをそれぞれに貼りつける作業を繰り返すようなマクロはできないでしょうか？ [流れ] LISＴに書いてあるエクセルファイルを呼び出す→文字列を貼りつける→保存(できれば名前を変えて保存(その場合は、LISTのE列に名称を記載)→閉じる→次のLISTのエクセルファイルを開く→それをLISTの最後の行まで終わるまで繰り返す。 よろしくお願いします。
- 締切済み
- Visual Basic
- エクセル2007 マクロについて教えてください
エクセルのデータが2個あります。 それぞれ、ファイル名は 顧客データ.xlsと個別シート.xlsです。 顧客データ.xlsには、10名のお客様の情報があり、Ａ１セルには ＩＤ番号 と入力してあり、 Ａ２～Ａ１１セルにＩＤ番号が入力されています。 『個別シート.xlsにマクロで顧客データ.xlsのデータをコピーし、ＩＤ番号のフォルダをデスクトップに新規作成し、ＩＤ番号を付けて保存する』マクロを作成中です。 顧客番号が1234のお客様のデータを、個別シートにコピーし、デスクトップに1234というフォルダを新規作成し、その中に 個別シート_1234.xls というファイル名で保存をしたいです。 顧客データを自動でコピーするまではできましたが、それ以降ができません。 MkDir "C:\ Documents and Settings\xxx\デスクトップ\nknk\ID " ChDir "C:\ Documents and Settings\xxxi\デスクトップ\nknk\ID " ActiveWorkbook.SaveAs Filename:="個別シート_" & ID & ".xls" ActiveWorkbook.Close マクロを実行すると『実行時エラー76：パスが見つかりません』とエラーになります。 （フォルダ作成の命令文のところが黄色くなります。） ちなみに、個別シートの指定したセルに、ＩＤはコピーされています。 正しく実行できる文を教えてください。また、以降の命令文は正しいでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルにマクロが！
エクセル（Excel2000）で、マクロを使っていないのにマクロが使われてしまいます。 例えば、 まず普通にスタート→プログラムと表示していき、エクセルを立ち上げる。 次にどこのセルでもいいから適当に文字を入力する。（例えば、A1にaと入力する） そして、ファイル→名前を付けて保存で保存する。 こうしてできたエクセルのファイルを普通に立ち上げると、「このファイルはマクロが使われています」と、マクロを有効にするか、無効にするかを確認する画面が出てきてしまいます。 どうしてでしょうか。直す方法はあるのですか。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロでマクロをアクティブにしたくない
エクセルのマクロをひとつの「マクロA」という名前で、データーファイルからセルに入っている内容などを呼び出しながらまくろAのシートにデーターを貼り付けながら作業をしています。 Workbooks.Open Filename:= _ "C:\Documents and Settings\owner\My Documents\マクロ.xls" Application.Run "マクロ.xls!マクロ" と記載すると、マクロXLSがアクティブになってしまいます。 その為記載に'ActiveWindow.WindowState = xlMinimized と入れたりするのですが、アクティブになるシートがマクロ以外にうまくいかないことがあるのです。 データーシートは、毎回データーが変わる関係で、DATA．ｘｌｓがAのときやBのときが発生します。
- ベストアンサー
- Excel（エクセル）
- エクセルのマクロの記憶について質問です。
知人にエクセルのマクロを作ってもらいました。（メモ帳に貼付けた状態で３種類あります） エクセルに保存する時に 「ツール」「マクロ」「新しいマクロの記憶」どこかのセルを２、３個クリック。 マクロ名は何も変えずに「Macro１」のまま、マクロの保存先は「個人用マクロブック」 セルを適当に２、３個クリック。で「記憶終了」をクリック。 次にＡｌｔとＦ１１を押す。 標準モジュールのModule１を開いてメモ帳のデータを貼付け。 マクロのタイトルはSub SSS（）となっています。 で、エクセルの終了「個人用マクロブックの変更を保存・・・」の画面で「はい」を クリック。 次にマクロを掛けたいデータを立ち上げてマクロを実行しようとして「ツール」「マクロ」の画面でPERSONAL.XLS．SSS というのとPERSONAL.XLS．Macro1というのが 出来ています。 これっておかしいのですよね？ どうすればよいのですか？ 何種類かマクロを使うので名前は「SSS」にしたいのです。 最初のマクロの記憶のところでマクロ名をMacro1のままにしたのは間違いですか？ 又、何度かマクロを保存しては削除したりと繰り返すとマクロ自体は一つ二つなんですが Module１がどんどん増えてModule８くらいになってしまっています。 どのようにすれば良いのですか？ 大変初歩的な質問で申し訳ありませんが宜しくお願いします。 ちなみにエクセルは２０００を使用しています。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ文で教えてください。
お世話になります。 エクセルマクロ文で セルD６ に保存するドライブ名（Ｃ とか Ｄ） セルＤ７に保存するフォルダ－名（資料2016 とか 閲覧2016 など） セルＤ8にファイル名 を置いて、 ドライブ名やフォルダ－名を任意に選択できる形で、作成したエクセルシ－トを保存するマクロ文を、お教えください。 ＴhisWorkbook.SaveAs "D:\資料2016"&fileName というような形で、fileＮame＝Ｒange（”Ｄ８”）と置いてあるのですが、ドライブ名とフォルダ－名とをＤ６とＤ７に任意の値を置いて当該文字によるドライブとフォルダ－にＤ８に記入したファイル名で保存したいというマクロ文を、お教えください。
- 締切済み
- 財務・会計・経理
- エクセルのマクロを使ってシートごとに名前をつけて保存したい
マクロ初心者です。宜しくお願いします。 １つのブックにシートが複数あります。 それぞれシートをコピーして新しいブックを作成し そのブックに名前をつけて保存したいです。 例えばブック名が「売上管理」でそのシートが「Ａ店」「Ｂ店」「Ｃ店」と３シートあるとします。 シート名：Ａ店を他のブックにコピーしてマイドキュメントに名前を付けて 保存する場合のマクロを教えてください。 ちなみにその際のブック名は「シート名+任意のセル（Ｄ２）」と できれば一番助かります。 ちなみにＤ２のセルにはToday関数が入ってます。
- ベストアンサー
- オフィス系ソフト
お礼
うまくいきました。 有り難うございました。 お返事遅くなりすいません。