OSはWindowsNT、Excel97です。
PC素人の営業さんが使う見積書の作成をしています。
そこで質問です。
コマンドボタンで保存ボタンを作成し、それを押すと「名前をつけて選択」画面が開き、保存先として決まったのフォルダが選択されている状態になっているという事は出来るでしょうか?(要するにフォルダを探す手間を省きたいのです)
保存操作の流れとして、保存コマンドボタンを押す→ファイル名を入れる→保存を押すとしたいのです。
宜しくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (4件)

こんな感じでしょうか。

コントロールツールボックスのコマンドボタンを使っています。
他Bookの関係が分からないのでExcelの終了はしていません。
終了ボタンのあるシートのコードウインドウに貼り付けます。ご参考に。(Excel2000です。97も問題ないと思います)

Private Sub CommandButton1_Click()
  Const userPath = "D:\0001\・・・・・" '*** ここでドライブとフォルダを指定する ***

  Dim myFileName As Variant '保存するファイル名

  ChDrive userPath 'ドライブ変更
  ChDir userPath 'フォルダの変更
  With Application
    'ファイル名を入力
    myFileName = .GetSaveAsFilename(ActiveWorkbook.Name, "excel(*.xls),*.xls")
    'キャンセルでなかったら
    If myFileName <> False Then
      '上書き確認
      If Dir(myFileName) <> vbNullString Then
        If MsgBox("既に同名ファイルが存在します。上書きしますか?", vbOKCancel, "上書確認") = vbCancel Then
          Exit Sub '上書きの中止を選択
        End If
      End If
      .DisplayAlerts = False 'メッセージを出さないようにする
      ActiveWorkbook.SaveAs myFileName '指定ファイル名で保存する
      .DisplayAlerts = True 'メッセージ表示を元に戻す
    End If
  End With
End Sub
    • good
    • 0
この回答へのお礼

ありがとうございました。

お礼日時:2001/11/30 09:37

今ファイルのある場所がCドライブで、保存先の初期値をDドライブのtamagawaという設定で・・・



Sub 保存()
  Dim FN As Variant

  ChDrive "D"
  ChDir "D:\tamagawa"

  FN = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Microsoft Excel ブック(*.xls),*.xls")
  If FN <> False Then
   ActiveWorkbook.SaveAs FN
  End If
End Sub

ということで、#3のnishi6さんの回答でできていると思うのですが。
    • good
    • 0
この回答へのお礼

ありがとうございました。

お礼日時:2001/11/30 09:37

ツール→オプション→全般で、カレントフォルダ名にその“決まったフォルダ”のバス名を入れる、というのでは駄目なのでしょうか?



「保存コマンドボタン」ってF12のことですか?(別に作成しなくても良いのでは...?)
    • good
    • 0
この回答へのお礼

ありがとうございました。マスターに選べなくてすみません。

お礼日時:2001/11/30 09:38

ほかの方は違うフォルダに保存するのでしょうか?


もしその方だけというのであれば、エクセルの保存先のフォルダを変更してみてはいかがでしょうか?
ほかのファイルもそのエクセルで開けば指定したフォルダが開くようになってしまいますが・・・。
ほかの方がパソコンに習熟しているのなら、初心者の方に親切な設計にした方がいいと思うので。

一応参考までに。
    • good
    • 0
この回答へのお礼

ありがとうございました。マスターに選べなくてすみません。

お礼日時:2001/11/30 09:38

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q先日、女性から「異性として見れない」と振られました この先も可能性は薄いでしょうか? 経緯を書きま

先日、女性から「異性として見れない」と振られました
この先も可能性は薄いでしょうか?

経緯を書きますと、お互いに失恋して間もない状態で一緒に飲みに行きました
知り合って2週間くらいでした
相手の女性は振られて4日程度、自分は振られて2ヶ月経っていました

お互いに様々な打ち明け話をして、酒の力もありましたがとても良い気晴らしになったと彼女も喜んでくれました

翌日から自分は一泊二日の旅行を控えていたのでお土産を渡すと約束し、3日後に再度会ってお茶をしました

その日はちょうど自分の1ヶ月遅れの誕生日だったのですが彼女のサプライズでプレゼントを貰いました
とても嬉しかったのですが帰り際に彼女に渡したお土産と一緒に彼女のクルマの中に置き忘れて帰ってしまいました

取りに行こうとしましたがすでにスッピンでパジャマだから無理と言われ、次の金土日も無理と言われ、「次回に渡すね」と約束してくれましたが、盆明けになると言われました

それから1週間後、タイトルの通りのLINEが送られて振られてしまいました

もう会いたくないのだなと自分は察したのでその時のLINEで「元気でね」と送るとブロックされてしまいました
恐らく削除もされてるかと思います

2回会って見切りを付けられたということでしょうか?
長くなり申し訳ありません
皆様の忌憚のないご意見宜しくおねがいします

先日、女性から「異性として見れない」と振られました
この先も可能性は薄いでしょうか?

経緯を書きますと、お互いに失恋して間もない状態で一緒に飲みに行きました
知り合って2週間くらいでした
相手の女性は振られて4日程度、自分は振られて2ヶ月経っていました

お互いに様々な打ち明け話をして、酒の力もありましたがとても良い気晴らしになったと彼女も喜んでくれました

翌日から自分は一泊二日の旅行を控えていたのでお土産を渡すと約束し、3日後に再度会ってお茶をしました

その日はちょうど自分の1ヶ...続きを読む

Aベストアンサー

異性としては見れないけど、
別に嫌っていた訳じゃなく、
友人としてはおつき合いしたいと思っていたんだと思います。

良くなかったのは、
プレゼントを置き忘れてしまった事(失礼だもん)と、

ふられた後の「元気でね」というメッセージです。
大人げない…と。


正直、振られた後の対応が一番肝心だと思います。

振った側もそれなりに気まずいし、気を遣います。
べつに自分から誘ったわけでもないのに告白されたあげく、
ふったら「元気でね」…とか送りつけてこられたら腹立ちますもん。
ガキかよって…。

私はそういう風に思った経験が実際にあります。

それまで、恋愛感情はなくとも、嫌っては居なかったですけど、
「もういいや。縁切っても。」って一気に冷めました。


振られても、根に持つ事も無く、
穏やかに接してくれたら、その後も関係は続きます。

男女関係じゃなくても、友人としてつき合って行く事はできますし、
私には実際そういう友人が居ますが、
それは、相手の懐の大きさ故だったと思います。
有り難いな…と思っています。


なお、女性はけっこうはっきりしています。
異性としては見れないと思ったら、
余程好感度が高くならない限りは覆りません。

1度、冷めたら、キッパリスッパリ終わりです。

だからこそ、男性は告白するにしても、振られるにしても
懐のでかさは必要だと思います。
その大きさに魅力を感じるのが女性だと思います。

異性としては見れないけど、
別に嫌っていた訳じゃなく、
友人としてはおつき合いしたいと思っていたんだと思います。

良くなかったのは、
プレゼントを置き忘れてしまった事(失礼だもん)と、

ふられた後の「元気でね」というメッセージです。
大人げない…と。


正直、振られた後の対応が一番肝心だと思います。

振った側もそれなりに気まずいし、気を遣います。
べつに自分から誘ったわけでもないのに告白されたあげく、
ふったら「元気でね」…とか送りつけてこられたら腹立ちますもん。
ガキかよって…。

...続きを読む

Qコマンドボタンを押したときシート2のa行の空白セルを選択したいのですが

コマンドボタンを押したときシート2のa行の空白セルを選択したいのですが以下のやり方では”RangeクラスのSelectメソッドが失敗しました。”のエラーが出てしまいます。どこがいけないのか教えてください。

Private Sub CommandButton1_Click()
Worksheets("sheet2").Activate
Range("a65536").End(xlUp).Offset(1).Select
End Sub

ちなみに、コマンドボタンはシート1にあります。
よろしくお願いします。

Aベストアンサー

こんにちは。maruru01です。

Range("a65536").End(xlUp).Offset(1).Select

ActiveSheet.Range("a65536").End(xlUp).Offset(1).Select

にして下さい。

Q内見と値引きの交渉、どちらを先に聞いたらいいですか

中古住宅を購入しようと考えています。よろしくお願いいたします。

不動産を購入しようと、不動産検索サイトを見ている段階なのですが、物件の問い合わせのページにきたところです。

そこでの問い合わせに、
売り主に売却の理由を聞いて、それによってどれだけ値引きができるかを先に聞いてから内見するか。
内見してから、値引きが可能ですかと不動産仲介業者に聞くか。

どちらを先にしたらよいでしょうか、というのが質問です。

値引きの可能性がないのに(買うことができないのに)内見しても、不動産業者さんに無駄に時間をとらせてしまいますので。

それでしたら先にどれだけ値引きが可能か聞くべきだと思うのですが、不動産業者さんはまず内見してもらいたいと考えるのでしょうか疑問に思った次第です。

どうぞよろしくお願いします。

Aベストアンサー

私は見てから値引き交渉しました。
見てみなければ値段は付けられないでしょう。
貴方が物件を見て、いくらなら買うと相手に言ってはいかがですか。
見もせずに値下げ交渉では相手も良い返事は出来ないと思います。
私は大きく値引きしてもらい買うことが出来ました。
希望額を伝えるのが良いと思います。

Qコマンドボタン押すと入力規則の指定した数字のマクロ

お世話になります、マクロで質問があります。

セル「U9」には入力規則がリストとして入力されています。リストの元の値は「   ,=DT9」と表示されドロップダウンリストに表示されるようになっています。

「U10」には「   ,=DT10」と、「U11」には「   ,=DT11」・・・と順番に入力されておりU39には「 ,=DT39」U39までセルに入力規則が適用されています。

そして「V9」には「   ,=DV9」と、「V10」には「   ,=DV10」・・・と順番に入力されており「V39」には「  ,=DV39」とV39までのセルに入力規則が適用されています。

そして「AD9」には「   ,=DR9」と、「AD10」には「   ,=DR10」・・・と順番に入力されており「AD39」には「  ,=DR39」とAD39までのセルに入力規則が適用されています。


そこで質問ですがコマンドボタンを押すと、U9~V39とAD9~AD39までのセルの入力規則「=○○○○」の方を自動で選択されるマクロはどの様に組めば宜しいでしょうか?

Aベストアンサー

>U9~V39とAD9~AD39までのセルの入力規則「=○○○○」の方を自動で選択されるマクロ

とくにムズカシク考える必要もありませんので,ご相談の通りにやってみます。

private sub CommandButton1_Click()
 dim h as range
 on error resume next
 for each h in range("U9:V39,AD9:AD39")
  h.formula = split(h.validation.formula1, ",")(1)
 next
end sub



#もっとも,ご相談で言ってる「コマンドボタン」が具体的にフォームなのかコントロールツールボックス/ActiveXコントロールなのかという方で,失敗するカモですけどね。

Qシュレディンガー方程式と不確定性原理とどちらが先か

シュレディンガー方程式と不確定性原理とどちらが先か

量子力学の初歩の質問ですが、
量子力学では、シュレディンガー方程式と不確定性原理のどちらが先にあるのですか。

Aベストアンサー

言葉の混乱による誤解ですね。専門家の物理学者の間では、不確定性関係と言う言葉はありますが、不確定性原理という言葉は便宜的に使われることがあっても、本質的な意味では使いません。

シュレディンガー方程式は量子力学の力学原理を表す方程式ですので、これを物理学の基本の方程式とか原理と呼びます。実はそれと本質的に等価の方程式があり、それをハイゼンベルグ方程式と言います。厳密には、シュレディンガー方程式は力学の状態を記述する方程式で、ハイゼンベルグ方程式は状態ではなく物理量を表す方程式ですので、その間には微妙に違いがあるのですが、それは細かい話しであり、共に物理学の基本原理を表した方程式です。

一方、不確定性関係式はこの基本法則であるハイゼンベルグ方程式から演繹的に導き出される一つの特殊な定理あるいは関係式のことすので、これを基本原理と呼ぶわかにはいかないのです。別な言い方をすると、ハイゼンベルグ方程式やシュレディンガー方程式から不確定性関係式を導き出すことは出来ますが、その反対に、不確定性関係式からはハイゼンベルグ方程式やシュレディンガー方程式を導き出すことは出来ません。だから、不確定性関係は原理ではないのです。

言葉の混乱による誤解ですね。専門家の物理学者の間では、不確定性関係と言う言葉はありますが、不確定性原理という言葉は便宜的に使われることがあっても、本質的な意味では使いません。

シュレディンガー方程式は量子力学の力学原理を表す方程式ですので、これを物理学の基本の方程式とか原理と呼びます。実はそれと本質的に等価の方程式があり、それをハイゼンベルグ方程式と言います。厳密には、シュレディンガー方程式は力学の状態を記述する方程式で、ハイゼンベルグ方程式は状態ではなく物理量を表す方程...続きを読む

Q【Excel VBA】コマンドボタンの選択&移動

Excel2003を使用しています。

以前、こちらで教えていただいて、1クリックで1ページ分移動するコマンドボタンを作成しました。
左クリックでDown、右クリックでUpし、Sheet2モジュールに下記のコードを記述しています。

このコマンドボタン自体を選択して、現在配置している場所(セル上)から移動させたい場合、どのように操作すればいいでしょうか?
右クリック、左クリック両方にページ移動が設定されているため、コマンドボタン自体を選択することができません…。
マクロが動作しないよう、一旦、コードを削除して、ボタンをクリックしてみたのですが、選択状態になりませんでした。
よろしくお願いします。

-------------------------------------------------------

Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 '左クリック-進む-Down
 '右クリック-戻る-Up
  CommandButton1.Caption = "左-Down, 右-Up"
  Dim WinTop As Long
  Dim i As Long
  i = Int((ActiveCell.Row) / 26) + 1
  If Button = 1 Then
    Application.Goto Cells(i * 26 + 1, 1), True
  ElseIf Button = 2 Then
    If i > 1 Then
      Application.Goto Cells((i - 2) * 26 + 1, 1), True
    End If
  End If
   WinTop = ActiveWindow.VisibleRange.Top + 2 '(2は縦の位置調整)
   CommandButton1.Top = WinTop
End Sub

Excel2003を使用しています。

以前、こちらで教えていただいて、1クリックで1ページ分移動するコマンドボタンを作成しました。
左クリックでDown、右クリックでUpし、Sheet2モジュールに下記のコードを記述しています。

このコマンドボタン自体を選択して、現在配置している場所(セル上)から移動させたい場合、どのように操作すればいいでしょうか?
右クリック、左クリック両方にページ移動が設定されているため、コマンドボタン自体を選択することができません…。
マクロが動作しないよう、一旦、コー...続きを読む

Aベストアンサー

デザインモードに切り替えると
移動できます。
「表示」-「ツールバー」-「VisualBasic」
で開いたツールバーの中にデザインモードに
するボタンがあります。

Q アルバイト先から主体性がないといわれました。一生懸命に毎日働いている

 アルバイト先から主体性がないといわれました。一生懸命に毎日働いている自分なのに、毎回「主体性がない」と言われるばかりです。主体性を出すにはどうすればいいんですか

Aベストアンサー

主体性の意味は辞書を引けばわかると思いますが
自分で何をしなければならないか判断して
自らの意思、責任で行動するということですよね。
逆にそれを指摘されるということは
誰かの指示がないと動けないとか
指示待ち状態が多いということではないですか。
アルバイトでは権限は無いに等しいので
貴方の職務の範囲を良く上司に確認し、理解して
その範囲内ならば貴方の判断で動くということと
その範囲を超える問題があるのなら速やかに
決定権限のある人、または担当の上司に報告して
相談しなさいということだと思いますよ。

Qエクセルでコマンドボタンを押すと指定のセルの色を変える

エクセルでA1セルにコマンドボタンを作り、そのコマンドボタンを押すと下のA2とA3セルが塗りつぶされるようにしたいのですが、VBAを使うのでしょうか??

Aベストアンサー

VBAですね。

コマンドボタンを ダブルクリックして開いたところに

Range("A2").Interior.ColorIndex = 6
Range("A2").Interior.Pattern = xlSolid
Range("A3").Interior.ColorIndex = 6
Range("A3").Interior.Pattern = xlSolid

と記述したらいいですよ。

Q脈アリの可能性ありますか?次はこちらから誘ってもいいと思いますか?友達の紹介で知り合った人に連絡先を

脈アリの可能性ありますか?次はこちらから誘ってもいいと思いますか?友達の紹介で知り合った人に連絡先を聞かれその後映画に誘われ食事もして12時間くらい一緒にいました。知り合った日から1ヶ月以上毎日LINEしてます。その後また食事とイルミネーション見てきました。少しですが手も繋がれました。部屋でDVDを見ました。でも指1本触れられてません。

Aベストアンサー

一緒にいて如何でした。
自分自身、脈がありそうなきがしましまか?
普通は、1か月その様な付き合いになれば、男がなんか行動起こすけどねえ。それがないとなれば、貴女から誘わなければ多分このまま行きそうですね。

Q[ExcelVBA] コマンドボタンを押しっぱなしにしている間、マクロを繰り返す方法

AccessVBAでは、コマンドボタンで「AutoRepeat」プロパティを使えば、
コマンドボタンを押しっぱなしにしている間、繰り返して処理を続けます。

しかし、
Excelの場合、コマンドボタンにAutoRepeatのような「繰り返しプロパティ」がありません。

このような場合、どのように同様な処理を行うのでしょうか?
簡単な作動例のコードを教えていただけると幸いです。


たとえば。作動のイメージですが。
Sub test1()
range("A1")=range("A1") + 1
End Sub

このtest1というマクロを、コマンドボタンを押しっぱなしにしている間、
繰り返して足し続けるような処理です。

コマンドボタンを1回クリックすれば、セルA1の数字は1増えますし、
押しっぱなしにしている間はカウントが増え続けます。

Aベストアンサー

こんばんは。

>このtest1というマクロを、コマンドボタンを押しっぱなしにしている間、
>繰り返して足し続けるような処理です。

私は、押し続けて、作動するボタンは知りません。
Excelの場合は、私は、こんな風にします。

'-------------------------------------------

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Dim flg As Boolean
Private Sub CommandButton1_Click()
  flg = Not flg
  CommandButton1.Caption = flg
  If flg Then
    Call Test1
  End If
End Sub
Sub Test1()
  Do
    Range("A1").Value = Range("A1").Value + 1
    Sleep 500  'スピードを調整
    DoEvents
  Loop While flg
End Sub

こんばんは。

>このtest1というマクロを、コマンドボタンを押しっぱなしにしている間、
>繰り返して足し続けるような処理です。

私は、押し続けて、作動するボタンは知りません。
Excelの場合は、私は、こんな風にします。

'-------------------------------------------

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Dim flg As Boolean
Private Sub CommandButton1_Click()
  flg = Not flg
  CommandButton1.Caption = flg
  If flg Then
   ...続きを読む


人気Q&Aランキング