Ｐａｇｅ 354 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ダイアログボックスを表示して保存したいのですが 初心者 02/11/15(金) 17:24 ┣Re:ダイアログボックスを表示して保存したいのですが よろずや 02/11/16(土) 12:21 ┗Re:ダイアログボックスを表示して保存したいのですが クウガ 02/11/17(日) 15:29 ┗Re:ダイアログボックスを表示して保存したいのですが 初心者 02/11/18(月) 9:13 ┗Re:ダイアログボックスを表示して保存したいのですが クウガ 02/11/18(月) 12:10 ┗Re:ダイアログボックスを表示して保存したいのですが 初心者 02/11/18(月) 12:37 ┗Re:ダイアログボックスを表示して保存したいのですが 初心者 02/11/18(月) 12:38 ┗Re:ダイアログボックスを表示して保存したいのですが クウガ 02/11/18(月) 14:13 ┗Re:ダイアログボックスを表示して保存したいのですが 初心者 02/11/18(月) 14:50 ┗Re:ダイアログボックスを表示して保存したいのですが クウガ 02/11/18(月) 18:31 ─────────────────────────────────────── ■題名 ： ダイアログボックスを表示して保存したいのですが ■名前 ： 初心者 <kaz2000@izu.co.jp> ■日付 ： 02/11/15(金) 17:24 -------------------------------------------------------------------------
| ダイアログボックスを表示して保存したいのですが、現在のファイル名の頭にworksheets().range("B2")valueの言葉をのせたいのですがどうすればいいでしょうか？ |
| ▼初心者 さん： >ダイアログボックスを表示して保存したいのですが、現在のファイル名の頭に > worksheets().range("B2")valueの言葉をのせたいのですがどうすればいいでしょうか？ やりたいことのイメージが伝わってこないのですが... ダイアログボックスって、どのダイアログボックスのこと？ 今はどうやっているのですか？ |
| ▼初心者 さん： >ダイアログボックスを表示して保存したいのですが、現在のファイル名の頭にworksheets().range("B2")valueの言葉をのせたいのですがどうすればいいでしょうか？ こういうことでしょうか？ fn = worksheets("Sheet1").range("B2")value fileSaveName = Application.GetSaveAsFilename( _ fileFilter:="Excel ﾌｧｲﾙ (*.xls), *.xls),その他のﾌｧｲﾙ (*.*),*.*", _ Title:="保存名の設定", InitialFilename:=fn) |
| 返事が遅くなりました＜（＿）＞ ダイアログボックスを表示させたときに現在のファイル名の上にB2の記述（B2 Sheet1)としたいのですがどうすればよろしいでしょうか？ |
| ▼初心者 さん： >返事が遅くなりました＜（＿）＞ >ダイアログボックスを表示させたときに現在のファイル名の上にB2の記述（B2 Sheet1)としたいのですがどうすればよろしいでしょうか？ ごめんなさい。まだ、いまいち解っていないのすが、 現在のファイル名の上 というのは、どこのことでしょうか？ |
| たとえばBook1とします。 この場合ダイアログボックスを開くとファイル名のところにBook1と表示すると思うのですが、そのときに Book1（Sheet.B2の内容） と表示させたいのです。＾＾ 宜しくお願い致します。 |
| ▼初心者 さん： >たとえばBook1とします。 >この場合ダイアログボックスを開くとファイル名のところにBook1と表示すると思うのですが、そのときに Book1（Sheet.B2の内容） と表示させたいのです。＾＾ >宜しくお願い致します。 ごめんなさい反対でした（Sheet.B2の内容）Book1 と表示したいです。 |
| ▼初心者 さん： >>たとえばBook1とします。 >>この場合ダイアログボックスを開くとファイル名のところにBook1と表示すると思うのですが、そのときに Book1（Sheet.B2の内容） と表示させたいのです。＾＾ >>宜しくお願い致します。 > >ごめんなさい反対でした（Sheet.B2の内容）Book1 と表示したいです。 fn = "(" & Sheets("Sheet1").Range("B2").Value & ")" & ActiveWorkbook.Name fileSaveName = Application.GetSaveAsFilename( _ fileFilter:="Excel ﾌｧｲﾙ (*.xls), *.xls),その他のﾌｧｲﾙ (*.*),*.*", _ Title:="保存名の設定", InitialFilename:=fn) こういうことでしょうか？ |
| ありがとうございます。＾＾ なぞが解けました・・・しかしダイアログの保存ボタン押しても保存できないのは何故なんでしょう？ |
| ▼初心者 さん： >ありがとうございます。＾＾ >なぞが解けました・・・しかしダイアログの保存ボタン押しても保存できないのは何故なんでしょう？ これは保存名を取得するためのダイアログで、保存はしません。 ActiveWorkbook.SaveAs Filename:=fileSaveName などで、保存してください。 |