- ベストアンサー
コマンドボタンで上書保存を作りたい！
OSはWindowsNT、Excel97です。 パソコン素人の営業さんが使う見積書をエクセルで作っているのですが、全ての操作をコマンドボタンで済ませたいと考えています。 いったん保存した後、修正する場合の上書保存ボタンを作りたいのですが、どのように作れば良いでしょうか？コードが分からないので教えてください。宜しくお願いします。
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こういう質問でしょうか。 Private Sub CommandButton1_Click() ThisWorkbook.Saved = True ThisWorkbook.Save 'メッセージを出さずに保存する End Sub
関連するQ&A
- コマンドボタンで「終了ボタン」を作りたい！
こんにちは。OSはWindowsNT、Excel97です。 PC初心者さんが使うエクセルの見積データを作成しており、より簡単に操作して頂くためにコマンドボタンで操作を簡略化したいと思っています。 そこで質問なのですが、ファイルを閉じようとする時、よく右隅の×ボタンを押し、「保存しますか？はい、いいえ、キャンセル」という画面がでます。私の作っているデータでは上書されると困るので保存をして欲しくないのですが、その辺が使い手の方には分かり難いようで、よく上書されてしまいます。読み取り専用にするとか保護設定するとか方法はあるとは思いますが、データ作成上それが出来ません。出来れば、コマンドボタンで「終了ボタン」を作り、保存せずに終了できるようにしたいのです。こういう事って可能でしょうか？ 皆様、宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- コマンドボタンについて
OSはWindowsNT、Excel97です。 今、PC素人の営業さんが簡単に使える見積書の作成をしております。操作を簡略化する為、操作のほとんどをコマンドボタンで済ませたいのです。 そこでお聞きしたのですが、通常、「ファイル」→「名前をつけて保存」で出てくる「保存画面」（ファイル名や保存方法を入力したりする）をコマンドボタンを押すと出てくるようにしたいのです。極力、メニューバーやツールバーを使わないようにする為の苦肉の策です・・・。（笑） こういった事は可能でしょうか？宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- コマンドボタンで保存先のフォルダ指定は出来ますか？
OSはWindowsNT、Excel97です。 PC素人の営業さんが使う見積書の作成をしています。 そこで質問です。 コマンドボタンで保存ボタンを作成し、それを押すと「名前をつけて選択」画面が開き、保存先として決まったのフォルダが選択されている状態になっているという事は出来るでしょうか？（要するにフォルダを探す手間を省きたいのです） 保存操作の流れとして、保存コマンドボタンを押す→ファイル名を入れる→保存を押すとしたいのです。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- 原本に上書されないためには・・・。
こんにちは。エクセルで見積表を作りました。この見積表を営業さん達に使って頂きたいと考えているのですが、営業さん達は皆さんパソコン初心者なので見積表の原本の上に上書保存してしまわないかと心配です。そこで必ず別名で保存して貰えるように、原本に上書保存が出来ないようにしたい（注意マークが出るとか、パスワードを入れないと上書できないとか）のですが、どのようにすれば良いでしょうか？私も営業さんに負けないくらいの初心者なので、かみ砕いて教えてください。宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- ＦＤの上書保存が出来ない
エクセルで表を作成し、３．５インチのＦＤ（１．４４ＭＢ）に保存しました。その後、少し修正をし、上書保存をしたところ、「ディスクがいっぱいです。」「保存出来ませんでした。」とのメッセージが・・・。容量の確認をした所、データの容量は、７１６ＫＢでした。不思議に思い、データを１度、ハードディスクに保存し、再度ＦＤに保存したら出来ました。つまり、上書保存が出来ないのです。何故なんでしょう？？？初心者ですので分かり易く教えてください。宜しくお願いします。
- ベストアンサー
- その他(PCパーツ・周辺機器)
- コマンドボタンで印刷ボタンを作りたい！！
OSは、WindowsNTです。アプリケーションは、Excel97です。 以前、こちらで「フォーム」の「ボタン」で印刷ボタンを作る方法を教えて頂いたのですが、「コントロールツールボックス」の「コマンドボタン」で印刷ボタンを作る事は出来るでしょうか？ 説明不足な点がありましたら補足させて頂きますので、宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- ユーザーフォームのコマンドボタンをマクロで操作したい
Excel97でユーザーフォームを出しながらセルに入力できるようにしたいので、 http://www.ap.wakwak.com/~miko/Excel_Note/11-01_userform.htm#11-01-13 このサイトに書かれているように、ユーザーフォームにコマンドボタンを作成して、 ボタンのコードを Private Sub CommandButton1_Click() Application.GetOpenFilename End Sub とし、「ファイルを開く」ダイアログを表示させてキャンセルするようにしたのですが、 この「コマンドボタンをクリックしてファイルを開くダイアログをキャンセルする」操作は 自動化できるのでしょうか？ パソコンに慣れていない人用に作っているものですので、できるだけ使う人の操作を 少なくしたいのです。 ブックを開いた時にユーザーフォームを出すところまではできたのですが、 ユーザーフォームのコマンドボタンを自動的にクリックしてダイアログを キャンセルする方法がわかりません。 ご存知の方、どうぞよろしくご教授お願いいたします。 使用しているのは、 OS：Windows98SE ソフト：Excel97 です。
- ベストアンサー
- オフィス系ソフト
- エクセルのコード修正について
OSはWindowsNT、Excel97です。 コマンドボタンで、保存ボタンを作ったのですが、保存したデータを呼び出すと、 上書するにはパスワードを入力しないといけない画面が出てきてしまいます。 これをパスワードを入れなくても画面がすぐ開くようにしたいのですが、以下のコードをどう作りかえれば良いですか？ 宜しくお願いします。 Private Sub CommandButton4_Click() Dim FName As String FName = Sheets("フッ素ガルタイト見出し").Cells(6, 3) Application.WindowState = xlMinimized Application.WindowState = xlNormal ActiveWorkbook.SaveAs Filename:="\\業務\見積\" & FName & ".xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="gf3002", ReadOnlyRecommended:= _ False, CreateBackup:=False End Sub
- ベストアンサー
- オフィス系ソフト
- エクセル既存のコマンドをユーザー定義のコマンドボタン等に割り付けたい。
エクセル既存のコマンドをユーザー定義のコマンドボタン等に割り付けたい。 お世話になります。 どなたか教えてください。 他のアプリケーションから画像をキャプチャーし、 それをエクセルに貼り付け、そこにオートシェイプなどを使い修正指示等を描きこむ作業をしています。 少しでも楽にしようと、ユーザーフォーム上に配置したコマンドボタン・ピクチャ等に既存のコマンドを割付て見ました。 オートシェイプ 線 の場合 Application.CommandBars.FindControl(, 130).Execute これで(上記の作成した)ボタンを左クリックした時に、オートシェイプのツールバー内の“線”コマンドと同じように1本の線がひけました。 ただ、オートシェイプのツールバー内の“線”コマンドを使用した時は、 シングルクリックの時は線を一本描くとコマンドが終了、ダブルクリックの時は線が連続して描けます。 自分で追加したボタンでもこのように動作させる方法は無いでしょうか？ (ダメとは思いつつダブルクリックのイベントに上記コードを記述しましたが、、、やはりダメでした。） さらにexcel2003の場合は上記コードが動作したのですが、 2007の場合は動作せず、線が描けません。なぜでしょうか？ 以上2点かなり調べましたが解らず、行き詰まってしまいました。 どなたか教えてください。 よろしくお願いいたします。
- 締切済み
- その他MS Office製品
- Excel2003 VB コマンドボタン
Excel2003 VB コマンドボタン VB初心者です。コマンドボタンをクリックしたら、テキストボックス１に入力してあるコードと一致する値を別シートのデータTBからvlookupで呼び出してテキストボックス２に表示したいのですが、うまくいきません。コードの例を教えていただけると助かります。よろしくお願いします。
- 締切済み
- オフィス系ソフト
お礼
早速の回答ありがとうございます。 この通りにやったら出来ました。 ありがとうございました。