No.2ベストアンサー
- 回答日時:
No1です。
追加質問について、回答します。
A1セルが空白の時はC1セルとH1セルの値をくっつけて名前とします。
もし、C1,D1,E1,~H1セル全部くっつけたいということでしたら
fn2 = .Range("C1").Value & .Range("H1").Valueの部分に&で書き足してください。
なお、さきほどの回答にあやまり(& "\" が抜けていた)がありましたので修正します。
Sub TEST02()
Dim pt As String, fn As String, fn2 As String
pt = ActiveWorkbook.Path
With Sheets("Sheet1")
fn = .Range("A1").Value
fn2 = .Range("C1").Value & .Range("H1").Value
End With
Sheets(Array("Sheet2", "Sheet3")).Copy
ActiveWorkbook.SaveAs Filename:=pt & "\" & IIf(fn = "", fn2, fn)
ActiveWorkbook.Close
End Sub
この回答への補足
補足の質問にも丁寧に答えていただきありがとうございます。
思っていたとおりのができました。
あと、もう1つ質問です。
保存先を指定するダイアログボックスを表示させたいのですが、
(保存先を指定したい)どうすればよいですか?
No.3
- 回答日時:
こう次々と初期の質問から飛躍するのはどんなもんでしょうねえ。
本来は、別の質問としてアップするべきと思いますが・・・。横からですが、一応おこたえします。
No1-2さんのをほとんど丸写しになってしまいますが、そのほうがわかりやすいでしょう。merlionXXさん、すみません。
Sub HOZONN()
Dim pt As String, fn As String, fn2 As String
Dim Rtn
pt = ActiveWorkbook.Path
With Sheets("Sheet1")
fn = .Range("A1").Value
fn2 = .Range("C1").Value & .Range("H1").Value
End With
Sheets(Array("Sheet2", "Sheet3")).Copy
Rtn = Application.Dialogs(xlDialogSaveAs) _
.Show(ARG1:=IIf(fn = "", fn2, fn) & ".xls", ARG2:=1)
If Rtn = False Then Exit Sub
ActiveWorkbook.Close
End Sub
No.1
- 回答日時:
10/5 東京ですが、/ はブックやシートの名前に使えないので 10.5 東京 としました。
Sub TEST01()
Dim pt As String
pt = ActiveWorkbook.Path
Sheets(Array("Sheet2", "Sheet3")).Copy
ActiveWorkbook.SaveAs Filename:=pt & "10.5 東京.xls"
ActiveWorkbook.Close
End Sub
この回答への補足
早速ありがとうございます。
質問の仕方が悪かったので申し訳ありませんが、あと少し。
シート名はsheet1のA1のセルの値をつけたい場合と、
A1のセルが空欄でC1からH1のセルの値を結合してつけたい場合は
どのようにすればよろしいですか?
1から10まで聞いてしまいスミマセン。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) VBA For Each 〜 複数条件について 3 2022/10/20 20:05
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Visual Basic(VBA) エクセルVBA 2 2022/04/27 13:29
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
振込用紙の東京MTとは
-
転勤で札幌に住んで二年ですが...
-
♪カステラ一番,電話は二番♪,...
-
「なんで」と「なにで」の使い分け
-
無料でパソコンが使えてプリン...
-
東京で東京ジョーズのようなお店
-
飾っていた御札が落ちてしまい...
-
出身地とは
-
最近ここら辺という言葉が標準...
-
特定の文字列があったらその行...
-
エクセル セルの関数中の一部を...
-
「○○県は○○市~」にある"は"とは?
-
「そんなこと言わんでよ」の言...
-
「しっちゃかめっちゃか」と「...
-
20代後半で単身上京。(女で...
-
希塩酸は薬局に売っているので...
-
東京の食べ物はまずい?
-
原田国際法律事務所とゆうとこ...
-
東京からフェリーで和歌山にい...
-
関西人が無理して標準語を喋っ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
振込用紙の東京MTとは
-
転勤で札幌に住んで二年ですが...
-
♪カステラ一番,電話は二番♪,...
-
「○○県は○○市~」にある"は"とは?
-
「なんで」と「なにで」の使い分け
-
「しっちゃかめっちゃか」と「...
-
最近ここら辺という言葉が標準...
-
東京からフェリーで和歌山にい...
-
福島駅から見える山脈の名前は?
-
「より」と「から」の使い分け...
-
地図とかの「至」は何と読む?
-
とても後悔しています。受験生...
-
特定の文字列があったらその行...
-
紛失したiPhoneが戻ってきまし...
-
飾っていた御札が落ちてしまい...
-
出身地とは
-
東日本の人は「ひっつく」とい...
-
東京~銀座辺りで、朝早くから...
-
東京に遊びにいくにはいくらく...
-
20代後半で単身上京。(女で...
おすすめ情報