• ベストアンサー
  • 暇なときにでも

Excelでセル内の文字をファイル名にする方法と、下のSheet1タブを2列にする方法は?

Excel2003です。OSはWinXPです。質問は2つです。 1.セル内の文字をファイル名にする方法は? 例えばA1セルに 1153 と入っていたら、ファイルの名前を付けて保存するとき、普通は Book1.xls となりますが、 これを 1153.xls とするにはどうしたらよいですか? 2.下のSheet1タブを2列にする方法は? EXcelの下の方にシート切り替えがありますが、これを2列にするにはどうしたらよいですか?

共感・応援の気持ちを伝えよう!

  • 回答数2
  • 閲覧数632
  • ありがとう数1

質問者が選んだベストアンサー

  • ベストアンサー
  • 回答No.2

1は、前回の回答で間違いありませんが、もう少し詳しく処理方法を書きます。 (1)そのBookを開き、ツール→マクロ→新しいマクロの登録を選択。 (2)ダイアログボックスを確認、マクロ名(今回はMacro1のまま)を入力し、OK。 (3)そのBookを適当な名前(今回はBook1)で保存し、マクロの記録を終了。 (4)ツール→マクロ→マクロを選択、マクロ名を選択し、編集ボタンを押す。 すると、下記のようなモジュールが現れる。 Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 : 2006/8/29 ' ChDir "C:\Documents and Settings\管理者\保存するフォルダ○○" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\管理者\保存するフォルダ○○\Book1.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub ので、Filename:=の後の " から .xls" までを Range("A1") & ".xls" と変更する。 2については済みません。解りません。

共感・感謝の気持ちを伝えよう!

関連するQ&A

  • excel:あるsheet Bからその中の情報で別のsheetを表示する。

    (問題概要)あるsheet Bからその中の情報で別のsheetを表示する。 Mydocの中のAというフォルダに、ExcelのBOOKが複数個(A1~A5とB)あり、また各bookには複数個のシートが入っています。 ブックBの中に表形式で   B.xlsのsheet1   (表) 各book名 各sheet名 A1.xls     A1-1sheet  A1.xls A1-2sheet A1.xls A1-3sheet A2.xls A2-1sheet ~ A5.xls   A5-1sheet A5.xls   A5-2sheet などと入っています。 やりたいことは、この表のsheetの所などをクリックしたときに(方法はプログラムを作り安い方法でよいのですが)、当該シートを開き表示するようにしたいが、マクロがいいですか。その場合マクロはどんなふうに書けばいいでしょうか。 またBの表を作るため、BOOK内のsheet名の情報を採集する(コピー)方法はありますか

  • Excelについて:セルでデータを引っ張るファイル名を一律選択する方法

    教えてください。 Excelで他ファイルからデータを引用する場合、 =[file1.XLS]Sheet1!$B$1 の様に、 []内にファイル名(ここでは"flie1.xls")を入れればそのセルの内容が表示されると思うのですが、 そのファイル名をセルで指定することはできるでしょうか? 具体的にやりたい事は、 同一シート内のセルA1の値が"1234"であった時に、1234.xlsの中のSheet1!$B$1を探して表示する。 "1234"を"2345"に変更すれば、"2345".xlsの中のSheet1!$B$1を表示する。 ということが行いたいのです。 =[$A1$&".XLS"]Sheet1!$B$1 ではだめでした。 可能でしたら教えてください。 よろしくお願いします。

  • 開かなくなったエクセルのセルに入っている計算式を参照する方法を教えてください。

    WINDOWS2000SP4にEXCEL2000を使用しています。 作成していたエクセルファイルが「メモリ不足です」「一部表示が出来ません」とエラーが出て、 作業していたシートが真っ白になってしまいましたので、いったん終了いたしました。 再度立ち上げると、同じように「メモリ不足です」とエラーが出て立ち上がらなくなってしまいました。 A1~AO5000程度の範囲のセルにIF文がメインの条件式がめいっぱい詰まっているシートが15枚あるエクセルで、 66MB程度です。 おそらく、ファイル自体が破損してしまい立ち上げられないのだと判断したのですが、大量の条件式を救いたいと思っています。 新規のエクセルのセルに ='C:\Folder\[Book1.xls]Sheet1'!A1 とすると、破損したであろうエクセル(Book1.xls)のSheet1のA1の値が表示されるようです。 同じようにして、Book1のSheet1にある条件式(計算式)を抜き出す事は出来ないでしょうか? よろしくお願い致します。

その他の回答 (1)

  • 回答No.1

1.アクティブシートのA1セル値の文字をファイル名にする方法は、マクロ作成してください。 ActiveWorkbook.SaveAs Filename:= _ Range("A1") & ".xls", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False 2.3枚のシートを2枚に減らすということなら、 3列目のシートを右クリックして削除を選択。OK。 2.Excelを開いた時にいつもシートを2枚にしたいという時は、 ツールメニューのオプション→全般タブ→新しいブックのシート数を2に変更。OK。

共感・感謝の気持ちを伝えよう!

質問者からのお礼

1の答えをやってみたのですが、 実行時エラー’424’: オブジェクトが必要です。 と出てうまくいきません。

質問者からの補足

2の2列は上下2列です。シートが20ぐらいあるので見やすくしたいのです。

関連するQ&A

  • エクセルBook一覧

    よろしくお願いします。 Book1.xlsのシート1のセルA1から下に Book1.xlsと同じ階層にある全てのファイル名を抽出する方法はあるでしょうか? 500位あるのですが。

  • EXCEL VBAでカンマ区切りCSVファイルに変換する方法

    EXCELで作成したシートをVBAでカンマ区切りCSVファイルに変換する方法を教えてください 下記のプログラムではXLSファイルで保存されますが、カンマ区切りCSVにする方法が分かりませんでした。 '保存先パス名 NetPath = "V:\AAAA\" ' セルA1 には、ファイル名記入 BkName = ThisWorkbook.Sheets("Sheet1").Range("A1").Text & ".XLS" 補足:マクロを実行した時に自動でネットワークドライブ(V:\AAAA)へ保存、ファイル名はSheet1のセルA1の文字をファイル名として 保存するようにしたいです。 宜しくお願い致します。

  • エクセルで、他のファイルをリンクする際、ファイル名だけをオートフィルできませんか?

    たとえば、EXCELで A1に、  〇1.xls  というファイルの  シート1   の   B5 セルを参照した場合          A                  B                C 1  [〇1.xls]シート1!$B$5     [〇2.xls]シート1!$B$5      [〇3.xls]シート1!$B$5 2  [〇2.xls]シート1!$B$5 3  [〇3.xls]シート1!$B$5 4  [〇4.xls]シート1!$B$5 A1セルからオートフィルしたら、A4セルまで、もしくはC3セルまで ファイル名だけ変わる、というようなことはできないでしょうか? ちなみに、EXCEL2003です。 詳しい方いましたら、どうぞよろしくお願いいたします。

  • 名前を付けて保存

    Win-me Excel2000です。 Excelで名前を付けて保存するときに ファイル名がBook1.xlsになっていますが 保存するときにBook1.xlsではなく セルA1の文字が自動で入っているにはどうしたらよいですか。 何か、説明が悪いですけど。 保存するたびにファイル名をつけなくてはいけなくて B00k1では後で、開くときに内容がわかりにくくて、 A1セルの文字がファイル名でいいものですから。

  • エクセルのリンク元ファイル名のバグ

    エクセルのリンク元ファイル名のバグ エクセルのバグと思われる現象に遭遇しました。 ファイルが破損して、開けなくなる致命的なバグなんですが、 Webで検索しても関連する情報が見付からなかったので、 質問させて頂きます。 確認した環境  OS   : Windows 2000, Windows XP  Excel : Office 2000, Office 2003 不具合の概要  他のファイルへのリンクがあり、リンク元のファイル名に  カギ括弧が含まれていると、バグる。  保存して、開き直す度に、ファイル名にゴミデータが付加され、  繰り返すうちに、ファイルが破損し、開けなくなる。 不具合の再現方法 1.新規のBook(リンク元.xlsとします)を作り、適当にグラフを作成する。 2.一旦保存して終了。エクスプローラ上でファイル名にカギ括弧を付ける。   リンク元[1].xls にしたとします。 3.再度、リンク元[1].xls を開き、グラフをコピー。 4.別の新規Book(不具合.xlsとします)を作り、グラフを貼り付ける。 5.これで、不具合.xlsには、「ほかのファイルへのリンク」ができ、   リンク元のファイル名にカギ括弧が含まれている状態になります。   グラフのデータ要素をクリックすることでリンク元を確認できます。      保存前の状態   =SERIES(,'[リンク元(1).xls]Sheet1'!$B$7:$B$10,'[リンク元(1).xls]Sheet1'!$C$7:$C$10,1) 6.不具合.xlsを保存、終了、開くを繰り返すと、リンク元のファイル名にゴミが付加される。   最初の保存後のファイル名部分   'C:\TEMP\[リンク元[1].xls]Sheet1'   2回目の保存後のファイル名部分   'C:\TEMP\[リンク元[1].xls].xls]Sheet1'   正確な条件は特定出来ませんが、50回程繰り返すと、ファイルが壊れて開けなくなります。 グラフ以外でも数式内で リンク元[1].xls にリンクを設定した場合でも、 同様の結果となります。 前置きが長くなりましたが、ここで質問です。 まず一番知りたいのが、 1.この壊れた状態のファイルを復旧する方法。 そもそも、ファイル名にカギ括弧を付けなければ良いのですが、 IEが勝手に付けてしまうのです。 Webシステム上でExcelファイルを開く必要があるため、避けられません。 また、IE(6 or 7)以外のブラウザはシステムが未対応のため使用できません。 そこで、次の質問ですが、 2.IEでExcelファイルを開く際に、ファイル名に [1] が付加されないようにする方法。 出来てしまったリンクを解除する方法は、すでに調査済みで分かってますので、 情報は不要です。 何か情報をお持ちの方がいらっしゃいましたら、よろしくお願いします。 (画像は、ファイルが壊れる直前の状態です。)

  • 指定したセルでファイル名を保存するマクロについて

    マクロ初心者です。 A1セルの文字をファイル名にして保存する方法を知りましたが、A1セルとB1セルの文字をファイル名にして保存したい場合、どのようにすれば良いか分かりません。 A1セルに企業コード、B1セルに企業名です。 ファイル名を「請求書(13579いろは株式会社様)」としたいのです。 実際のマクロを一部抜粋しますが、下記の場合はファイル名は 「請求書(13579様).xls」となります。 Dim WS As Worksheet Dim fname As String fname = "C:\保存先\" & ("請求書(") & WS.Range("a1").Value & ("様)") & ".xls" どなたか教えて下さい。 どうぞよろしくお願い致します。

  • Excel 読み込むファイルの名前をセル参照

    Excelで他のファイルのあるセルの値を読み込む場合、  =[hogehoge.xls]Sheet1!$A$1 などと打ち込みますが、このファイル名の部分の一部に セルの値を持ってくるにはどうしたらいいのでしょうか? つまり、A1セルに「2」が入力されているときなら、  =[hogehoge2.xls]Sheet1!$A$1 A1セルに「3」が入力されているときなら、  =[hogehoge3.xls]Sheet1!$A$1 としたいのです。(他の部分は固定) よろしくお願いします。

  • エクセルでセル参照元のファイル名に*を使いたい

    お世話になります。 別ファイルのエクセルシートの特定のセルを参照させたいのですが、下記のようにファイル名の後にワイルドカードを使う方法はないのでしょうか? =[HH一覧表.xlsx]Sheet1!$B$5 ⇒ =[HH一覧表*.xlsx]Sheet1!$B$5 「HH一覧表 1月・・・」というようにファイル名がHH一覧表から始まる複数のファイルが有って、そのファイルを開いた時に別のエクセルに指定のセルを参照させたいのですが、何か方法は無いでしょうか? VBAのコードは教えてもらったのですが、ハードルが高く簡便法を探しています。

  • エクセル sheetタブ

    エクセルで急にsheetタブが出なくなりました。 オプション>表示>シートの見出し> チェックしてもでません 気まぐれにでたりします。 回避する方法を教えてください。

  • エクセルのタブが消える

    エクセルのタブが画面外に消えてしまい、表示されなくなりました。以前、セルを全部選択した状態で保存するとそうなってしまう。。。との話を聞いたことがありますが、タブの切り替え、ファイルをいじくることができずほとほと困っています。全部閉じて、普通のエクセルを開くとタブは表示されます。その後、くだんのファイルを表示させるとタブが表示されるのですが、また保存して開くと、タブが画面外(ずーっとした?)に消えてしまいます。 そのファイル自体、少々おかしくて、上のほうもエクセルの本体にはまり込んでいて、シート自体を動かすことができません。