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

質問

Excel２００３です。ＯＳはＷｉｎＸＰです。質問は２つです。

１．セル内の文字をファイル名にする方法は？
例えばＡ１セルに　1153　と入っていたら、ファイルの名前を付けて保存するとき、普通は　Ｂｏｏｋ１．ｘｌｓ　となりますが、
これを　1153.xls とするにはどうしたらよいですか？

２．下のSheet1タブを２列にする方法は？
ＥＸｃｅｌの下の方にシート切り替えがありますが、これを２列にするにはどうしたらよいですか？

回答No.2

jakotama92 · ベストアンサー

１は、前回の回答で間違いありませんが、もう少し詳しく処理方法を書きます。

（１）そのＢｏｏｋを開き、ツール→マクロ→新しいマクロの登録を選択。
（２）ダイアログボックスを確認、マクロ名（今回はＭａｃｒｏ１のまま）を入力し、ＯＫ。
（３）そのＢｏｏｋを適当な名前（今回はＢｏｏｋ１）で保存し、マクロの記録を終了。
（４）ツール→マクロ→マクロを選択、マクロ名を選択し、編集ボタンを押す。
すると、下記のようなモジュールが現れる。
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"　と変更する。

２については済みません。解りません。

回答No.1

jakotama92

１．アクティブシートのＡ１セル値の文字をファイル名にする方法は、マクロ作成してください。
ActiveWorkbook.SaveAs Filename:= _
Range("A1") & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

２．３枚のシートを２枚に減らすということなら、
３列目のシートを右クリックして削除を選択。ＯＫ。

２．Ｅｘｃｅｌを開いた時にいつもシートを２枚にしたいという時は、
ツールメニューのオプション→全般タブ→新しいブックのシート数を２に変更。ＯＫ。

お礼

１の答えをやってみたのですが、

実行時エラー’４２４’：
オブジェクトが必要です。

と出てうまくいきません。

補足

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