No.3ベストアンサー
- 回答日時:
こんにちは。
最初に、ファイルをどのように作っているかが問題だと思います。以下のコードですと、Application の扱い方が変わります。Application側にインスタンスを設けるか、それとも、ボタンだけでよいのかが分かりません。既存のブックがある場合と、そうでない場合、新規ブックの場合ではコードが変わります。以下は、単にボタンにインスタンスを設けただけで、解除方法は書かれていませんが、解除の方法は、単に、Set ClassButton =Nothing でよいです。
>ファイル - 名前を付けて保存 のときに
>セルA1 ファイル名 と自動で出て欲しいのですができますか?
たとえば、このようになります。
挿入-Class モジュール
名前は変更しないでください。Class1 です。
Private WithEvents NewBtn As Office.CommandBarButton
Public Property Set myNewBtn(ByVal myBtn As CommandBarButton)
Set NewBtn = myBtn
End Property
Private Sub NewBtn_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Dim FileName As String
Dim KeyWord As String
Dim Ret As Integer
If ThisWorkbook.Worksheets("Sheet1").Range("A1").Value <> "" Then
KeyWord = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
FileName = "ABC" & KeyWord & ".xls"
Ret = Application.Dialogs(xlDialogSaveAs).Show(FileName)
CancelDefault = True
End If
End Sub
標準モジュール
'Option Explicit
Private ClassBtn As New Class1
Sub SetClass()
With Application
Set ClassBtn = New Class1
Set ClassBtn.myNewBtn = .CommandBars("Document").FindControl(, 748)
End With
End Sub
Sub Auto_Open()
Call SetClass
End Sub
No.2
- 回答日時:
Sheet1のA1に「ABC」を入力しておきます。
標準モジュールに
Sub test01()
Application.Dialogs(xlDialogSaveAs).Show arg1:=Worksheets("Sheet1").Range("A1")
End Sub
を貼り付け実行します。
おなじみの「名前をつけて保存」のダイアロウグ画面が出て、
ファイル名の欄が「ABC」になって、待機状態になります。
ここに左に「56赤」を入れる、という方法を考えてはどうですか。
左に入れるというのが、奇異な暗示だし、ファイル名全体を上記コードの前に作ってしまうのが普通科と思いますが。
a=Inputbox()ででも「56赤」の部分をとれば、
arg1:=a & "ABC"
で確認採用方式ができます。「保存」ボタンをクリックする必要あるが。
それを嫌うなら、ActiveWorkbook.SaveAs ファイル名
で良いのでは。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メールソフト「サンダーバード...
-
エクセルで「ファイル保存名」...
-
エクセル文書を保存したらメモ...
-
Excel画面の自動更新 Excelファ...
-
セルの塗りつぶしの色を好きな...
-
エクセルを上書き保存したのに...
-
マクロでエクセルをメール送信...
-
行と列を固定して表示するには
-
エクセル2019でPDFファイル名に...
-
csvファイルを上書き保存でカン...
-
「変更を保存しますか?」と聞...
-
パワーポイントをエクセルファ...
-
エクセルで「500時間」を「何日...
-
エクセル関数の解読サイトなん...
-
非表示モジュール内でコンパイ...
-
Lotus 1-2-3のファイルをExcel...
-
エクセル0:00と表示される原因
-
【スプレドシート】IMPORTRANGE...
-
ExcelファイルがDoxillionに突...
-
エクセルに変な矢印が出てクリ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル文書を保存したらメモ...
-
エクセルを上書き保存したのに...
-
いきなりPDFでPDFファイルを開...
-
エクセルでVBAを使用して1分毎...
-
メール添付されているファイル...
-
Excel画面の自動更新 Excelファ...
-
エクセルでCSVファイルとして保...
-
開いてるファイル(エクセル等)...
-
Illustratorファイルに読み取り...
-
マクロ VBA ファイル名を連番...
-
csvファイルを上書き保存でカン...
-
エクセル表のCSV化ができない
-
ピボットテーブルの更新ができない
-
「変更を保存しますか?」と聞...
-
エクセル・マクロ(VBA)で、指定...
-
エクセル2019でPDFファイル名に...
-
エクセル保存時に覚えのないメ...
-
メールソフト「サンダーバード...
-
エクセルの共有ファイルで、保...
-
EXCELで同一名のファイルがある...
おすすめ情報