• 締切済み

エクセルマクロの作成

VBA初心者です。例えばSheet1のセルA1に日付が入っているとしてマクロでその日付をm.yyの形で名前を付け、なおかつ元のファイルがあった場所もしくは特定の場所に保存するにはどのように記述すればよいですか?

みんなの回答

  • marbin
  • ベストアンサー率27% (636/2290)
回答No.3

>実は特定のセルに入っている日付をm.yyの名前で保存するまでは >成功したのですが、 このコードをアップしてみてください。 少し改造するだけでいけると思います。 ※今晩から22日朝まではレスできません。 解決していない場合は、スレッドを見られた方 はフォローをお願いします。

  • marbin
  • ベストアンサー率27% (636/2290)
回答No.2

>>元のファイルがあった場所 >「元のファイル」の意味があいまいです。 ↑にはお答えいただけないのですか? また、VBAヘルプ、マクロの自動記録は 試したのでしょうか? 試した上でどこが分からないのでしょうか?

k-inaba
質問者

補足

失礼しました。 元のファイルというのはマイドキュメント内の特定のフォルダで テンプレートではないのですがテンプレート的に使用している データを入れる前のエクセルファイルです。 実は特定のセルに入っている日付をm.yyの名前で保存するまでは 成功したのですが、 ”特定のフォルダへ保存”との組み合わせが分かりません。 単に並べただけでは失敗しました。

  • marbin
  • ベストアンサー率27% (636/2290)
回答No.1

エクセルのバージョンをお書き下さい。 2000以上だいう前提です。 >マクロでその日付をm.yyの形で Format関数 で日付データを整形できます。 >元のファイルがあった場所 「元のファイル」の意味があいまいです。 アクティブブックなら ActiveWorkBook.Path マクロが記述されているブック自身なら、 ThisWorkBook.Path >もしくは特定の場所に保存するには "特定のフォルダのフルパス" で指定できます。 ↑で指定したフォルダにブックを保存するのは、 ブックオブジェクト.SaveAs "指定のパス" & "\" & "ブック名.xls" で出来ます。 マクロの自動記録、VBAヘルプも活用しましょう。

k-inaba
質問者

お礼

早速ありがとうございます。 バージョンは2000です。 恐れ入りますが超初心者用にもうちょっと具体的に教えていただければ非常にありがたいです。 お暇な時にでも宜しくお願いします。

関連するQ&A

  • マクロを作成するマクロを作成するには(Excel)

    すでにあるシートを見やすいように加工するマクロ(マクロ1とします)(並び替えたり、項目名の変更など)を作成し、それをマクロブックにして汎用運用しています。それで出来上がったシートに特定のセルをダブルクリックすれば、そのセルに今日の日付がセットされるマクロ(マクロ2とします)をその都度手書きで作成して実行しているのですが、そもそも前記のマクロ1の中にマクロ2を作成するマクロを記述したいのです。またマクロ2は特定シートにのみ有効となるように当該シートにはりつけています。作成方法をどなたかご教授よろしくお願いします。

  • VBAでマクロを使って、マクロ無効のエクセルシートとして名前を付けて保

    VBAでマクロを使って、マクロ無効のエクセルシートとして名前を付けて保存ってできますか?? FileFilter:="エクセルファイル(*.xlsx),*.xlsx" として保存すると、保存はできるのですが、開くことができません。 VBA初心者です。よろしくお願いします。

  • エクセル2000のマクロについて質問です

    マクロ初心者です。 現在「セルA1の値を、別シートのセルB10に貼り付ける」という非常にシンプルな内容(実際はこれを何度も繰り返すのですが)のマクロを記録により作っています。 今困っているのは、貼り付ける元のセル(現在のA1)の位置が、仕様変更によってたびたび変わるので、そうなると今の私のスキルでは、一々マクロの記録をやり直している状態です。 一々やり直さずにすむ、何かいい方法はあるでしょうか。 これは全く憶測で考えているのですが、例えば貼り付ける元のセルに名前をつけて、その名前のセルを選択する、のようなことができるとありがたいのですが。 (コピー元のセルが別の場所に移っても、常に該当のセルを選択してもらいたい) よろしくお願い致します。

  • Excelマクロで・・・

    ワークシート名が「AZ20020101」というような形で付いています。 このシート名から下8桁を日付型で(2002/1/1のような形で)セルに取り出すマクロを作りたいのですがどのようにしたらいいでしょうか。 お分かりの方いましたら大至急お願いします。

  • エクセルで<名前をつけて保存>するマクロに、保存時マクロを含めて保存させることは可能ですか

    エクセル、マクロとも初心者です。 (VBAはわかりません) エクセルのテンプレートファイルを開いて、必要箇所だけ入力すると、その日の日付をファイル名として、<名前を付けて保存する>ようなマクロを作りました。 このままだと、マクロも一緒に保存されてしまいますよね。 マクロを含まずに、<名前を付けて保存>させるマクロって可能ですか? できるとしたら、どうやればいいでしょうか。

  • Excelのマクロを使ってのオートフィル

    Excelのマクロを使ってのオートフィルについて教えて下さい。 類似の質問があったのですが、決まったセルからのものが多くわかりませんでした。 マクロはまだ始めたばかりです。 やりたいことはExcelの2つのシートに別のcsvファイルの数字を入れることです。 ExcelのSheet1のD1セルに日付を表す数字が入っています。 Sheet2と3には2行目に月の日付がずらりと並んでいます。 1列目には記録番号が入っています。 それぞれのシートにSheet1のD1セルと同じ日付の列を見つけて、 その下の行から1列目の記録番号を元に検索したcsvファイルのデータを引っ張ってきたいのです。   Sheets("Sheet1").Select Cells(3, (Sheets("Sheet2").Range("D1")).Select と最初に入れるセルを探しても違う列に飛んでしまったりします。 又、下のセルまで数式もコピーできずに止まったままです。 VBAまでは手が出せずに悩んでいます。どうか教えて下さい。よろしくお願いします。

  • Excelのマクロでシートを表示させる方法を教えて下さい

    初心者ですみません。 エクセルでsheet1の特定のセルに入力した値と同じ名前のシートを表示させるマクロを作成したいのですが、どうすればいいか教えて下さい。

  • エクセルのマクロについて

    マクロ初心者です。 エクセルであるセルの数値に100掛けた結果を同じセルに表示させたい場合はどういったVBAを使えばいいのでしょう。他のセルに一旦100掛けた数字を入れて、また元のセルに戻すという事は無しで・・ 例えば「0.25」をいうセルにマクロを流して「25.00」(小数点以下の桁数にはこだわりません)に変えたい場合です。

  • VBAマクロの操作(worksheet作成とworksheet名変更)

    VBAマクロ初心者のため 皆さんの知識をお借りしたく思い投稿しました。 やりたいことは ワークシート”sheet1”のセルA1へ"2007/04/01"と日付を 入力して マクロを実行すると ワークシート"4月1日から"ができるようなマクロが組みたいです。 あと、"sheet1"の内容が"4月1日から"へコピーされていれば幸いです。 以上、ご指導よろしくおねがいします。

  • EXCELのマクロに関して

    vbaのマクロに関して質問があります。 マクロをどのように作ればよいでしょうか? マクロは以下のようになっています。sheet1以外(sheet2,sheet3など)に単語を入れて、sheet1でフラッシュ単語のようにするマクロです。これに付け加えたい内容があります。sheet1のセルにある値を入れれば、sheet1以外のシートのある特定の列をフラッシュ単語としてだしたいと考えています。シートと列を指定したいと考えています。 どのように付け足せばよいでしょうか? Sub sample() Dim i As Integer i = 1 Worksheets("sheet1").Activate Do Sheet1.Range("A1").Value = Sheet3.Range("b" & i).Value '1000で1秒,oで場所,sheet2の場所 Call Sleep(1000) DoEvents i = i + 1 Loop Until IsEmpty(Sheet3.Range("b" & i).Value) '1000で1秒,oで場所,sheet2の場所 End Sub