-
EXCLEの[名前を付けて保存]を押すと、初期値で表示されるフォルダがありますが、
これをなんとか固定にしておく方法はないでしょうか???

出来れば、全部のEXCELを、固定にしてしまうのではなく、あるEXCELだけは、
[名前を付けて保存]のフォルダを固定にしたいと考えています。

実は、VBでサーバのEXCELを起動するようにしているのですが、これを[名前を付けて保存]に
してしまった場合に、サーバのフォルダが指定されてしまうために、とっても悩んでいます。

VBを使用していますので、少々のことなら操作可能かとも考えております。
もし、何かアドバイスをお持ちの方がいらっしゃいましたら、どうか何でもかまいません。
よろしくお願いいたします。 m(。_櫻_。)m
-

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

A 回答 (3件)

VBでサーバーのエクセルを起動する時に


同時に一度、任意のフォルダに
上書保存をしてはどうですか。

エクセルVBAでは下のものでできます。
同じようにできるかは不明です。

Shell 起動EXE, 3
Application.Wait 開始時間
SendKeys "^s", True

ソフトを起動
完全に起動するまで待つ
ソフトにキー操作を送信
この時は、ctrl+S です。

または、サーバーで開くエクセルファイルに
ファイルを開いた時に起動するマクロをを
セットしておいて、起動時に一度、上書保存
というのはどうですか。

何かあれば質問下さい。
    • good
    • 0

SetCurrentDirectoryA-API関数を使ってはいかがでしょう。


例えば、該当ファイルのみ、BeforeSaveイベントでカレントフォルダの変更を行います。

Declare Function SetCurrentDirectory Lib "kernel32" _
Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

Public Sub SAMPLE()
Dim llApiRet As Long
Dim lsDir As String
lsDir = "ディレクトリへのパス\" & vbNullString
llApiRet = SetCurrentDirectory(lsDir)
End Sub
    • good
    • 0

こんにちわ。



それは、「ツール」-「オプション」の「カレントフォルダ名」で指定します。
その場合、固定になってしまいますが…。
(ファイルを開く場合もこのフォルダが表示されます)

見当違いの回答だったら、ごめんなさい。
    • good
    • 0

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

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

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

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

Qランキング上位の名前って困ります?

3月中旬に女の子を出産予定の臨月妊婦です。
名づけで困っています。考えていた名前がランキング上位なのです。先輩ママさん、保育園などで同じ名前の子がいて困ったことってありますか?こどもも混乱しちゃいますかね?やっぱりランキング上位の名前って辞めた方がいいですかね?

Aベストアンサー

こんにちわ。2児の男の子のママです。

>やっぱりランキング上位の名前って辞めた方がいいですかね?

そんなことありませんよ。親が選んだ名前が一番です。それがたまたまランキング上位にあったということだけで、質問者さんが気にならなければいいと思いますよ。

どんなに変わった名前を付けたって、偶然近くに同じ名前の子がいるかもしれない。逆にランキング上位の名前をつけても幼稚園に同じ名前の子がいないかもしれない。そんなことを気にしていたら名前なんて付けられなくなってしまいますよ。

あと偶然同じ名前の子が同じクラスにいても、みんなニックネームとかをつけて呼びますからね。子供もそんなに混乱しないですよ。

私はすごくありふれた(当時の名前ランキング上位にある)名前なのですが、学生時代同じ名前の子は学年に私を含めて2人しかいませんでした。しかもニックネームをお互いつけられていたので名前をそのまま呼ばれることもありませんでした。ですから「混乱した」という記憶はないですね。

「この名前がいい!」と思われた名前を産まれてきた赤ちゃんに贈ってあげてくださいね。

こんにちわ。2児の男の子のママです。

>やっぱりランキング上位の名前って辞めた方がいいですかね?

そんなことありませんよ。親が選んだ名前が一番です。それがたまたまランキング上位にあったということだけで、質問者さんが気にならなければいいと思いますよ。

どんなに変わった名前を付けたって、偶然近くに同じ名前の子がいるかもしれない。逆にランキング上位の名前をつけても幼稚園に同じ名前の子がいないかもしれない。そんなことを気にしていたら名前なんて付けられなくなってしまいますよ。
...続きを読む

QEXCELの表、組[A列]:番号[B列] を 組[A列]:番号[行]に変換する方法

EXCELに
A列に組、B列に番号がそれぞれ反映されている表があります。
これを
A列に組、同行に番号が横並びに配置された状態に変更したいと考えております(添付画像)。

D列にはA列の組名を「重複なし」で貼り付けます。
このとき、E列~K列にどのような数式を入力すればよろしいでしょうか?
E1に入力する数式を教えていただけるとありがたいです。
何卒よろしくお願いいたします。

Aベストアンサー

こんばんは!

画像の配置だとE1セルに
=IF($D1="","",IFERROR(INDEX($B$1:$B$1000,SMALL(IF($A$1:$A$1000=$D1,ROW($A$1:$A$1000)),COLUMN(A1))),""))

配列数式になりますので、Ctrl+Shift+Enterで確定!
この画面からコピー&ペーストする場合は
上記数式をドラッグ&コピー → E1セルを選択 → 数式バー内に貼り付け →そのまま(編集可能なまま)
Ctrl+Shiftキーを押しながらEnterキーで確定!
数式の前後に{ }マークが入り配列数式になります。

最後にE1セルのフィルハンドルで列・行方向にずぃ~~~!っとフィル&コピーします。

こんな感じではどうでしょうか?m(_ _)m

Q2016年H28年) 子供の名前ランキングが、発表されました。

今年の子供の名前ランキングが発表されました。

もし一度だけ名前が改名出来るとしたら、改名したいですか?
どんな名前が希望ですか?

お待ちしています。

Aベストアンサー

40年近くこの名前なので…
今更名前変更はこの歳では思いつきません。まぁ、改名は希望ないですが、名前の漢字を読みは同じで違う漢字にするなら、アリかなぁ〜って思いますね。

Q[原紙]→[スキャナー]→[フォトショップ]→[エクセル]での原寸印刷のやり方

タイトルに書きましたとおり、[原紙]→[スキャナー]→[フォトショップ]→[エクセル]で、最初に取り込んだ[原紙]と全く同じサイズで印刷に出したいのですが、原寸よりも小さくなってしまうので困っています…。

紙に印刷された画像をスキャナで取り込み、フォトショップでgif画像にしました。
と、ここまでは原寸だったのですが、エクセルに貼り付けて印刷しましたら、実際のものよりも一回り小さくなって印刷されてしまいました。
縦横比は同じです。
2.33cmが、1.75cmになりました。

エクセルに貼り付けるときに、「挿入」→「図」→「ファイル」から貼り付けました。
「図の書式設定」では100%になっています。

普段は[原紙]→[スキャナー]→[フォトショップ]→[イラストレーター]で印刷しているのですが、その時は原寸で出ます。(今回もその方法なら原寸なのですが…)

原寸で印刷するにはどうしたらいいのでしょうか?
よろしくお願い致します。

Aベストアンサー

画像を貼り付けるエクセルのシートは事前にページ設定が出来てますでしょうか?
メニューバーで表示>改ページプレビューの設定にして見やすいサイズに表示倍率を上のツールバーで設定してください。青色の改ページラインが貼り付けた画像とほぼ同じになっていますか?画像より大きければドラッグして改ページラインを画像に合わせてください。

Q子供の名前ランキング「翔」が人気の理由

2010年の子供の名前(男性)ランキングを見ると、
1位と3位に「翔」という漢字が使われています。

▼生まれ年別の名前調査 名前ランキング2010
http://www.meijiyasuda.co.jp/profile/etc/ranking/best100/

これって、なぜその漢字や名前が人気になっているのでしょうか?

一昔前は、皇后 美智子様がブームになって、美智子という名前が多くなったり、
荒木大輔さんがブームになって、大輔という名前が多くなったりと、
子供の名前につけるのに理由がわかりやすかったのですが。

何かしら理由があるかとは思っているのですが、
思い当たらないので、分かる方がいましたらぜひ教えてください。

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

Aベストアンサー

今は漢字の持つイメージと、音の響きで名前を付ける時代です。
昔は有名人と同じ名前が流行ったりしましたが、今は逆で、なるべく他人と同じ名前にしたくないという傾向です。
「翔」は未来に羽ばたくイメージで、好まれる字の一つです。
名づけ辞典にもよく登場しますので、記憶に残りやすいのかもしれません。

いくら漢字の意味が良くても、音の響きが良くなかったり、昔の名前に有りがちなありふれた名前は敬遠されることが多いです。

Q[色]+#,##0;[色]-#,##0;[色]0;@ と[<10]#.0;0 同時設定可能ですか?

よろしくお願いします
いつもgooの皆さんには大変お世話になっております
お陰様でエクセルが大分進歩しました
win8.1でエクセルは2013です

タイトルの通り、2つの書式は同時に設定できますか?
可能であればその書き方を教えていただけないでしょうか?
同時に設定したい書式は下記のとおりです

[色]+#,##0;[色]-#,##0;[色]0;@  と [<10]#.0;0 です

Aベストアンサー

こんばんは!

おそらくセルの書式設定のユーザ定義は最大3個までしか設定できなかったともいます。

ユーザー定義の欄に
[赤][<0]-#,##0;[青][<10]0.0;[青]#,##0;@
としてみてください。
① マイナスの場合のフォント色は「赤で3桁のカンマ区切り」
② プラスの場合で10未満の場合は「青で小数点以下一けた表示」
③ プラスで10以上の場合は「青で3桁のカンマ区切り」
その他(文字列)の場合は「自動」(黒)

以上のような表示になると思いますが、
「0」の場合の設定ができません。
「0」の場合の表示桁数は一桁でフォント色は「自動」がお望みなのではないでしょうか?
おそらく手動でのセルの書式設定のユーザー定義ではどれか一つを犠牲にする必要があるのではないかと思います。
(できる方法があればごめんなさいね。)

ただ、お望みの方法ではないかもしれませんが、
上記条件付き書式のセル変更があればマクロで書式を変えてやる方法があります。

マクロでやるとなるとわざわざセルの書式設定を手動でやる意味がないので
敢えて今回はこの程度で・・・m(_ _)m

こんばんは!

おそらくセルの書式設定のユーザ定義は最大3個までしか設定できなかったともいます。

ユーザー定義の欄に
[赤][<0]-#,##0;[青][<10]0.0;[青]#,##0;@
としてみてください。
① マイナスの場合のフォント色は「赤で3桁のカンマ区切り」
② プラスの場合で10未満の場合は「青で小数点以下一けた表示」
③ プラスで10以上の場合は「青で3桁のカンマ区切り」
その他(文字列)の場合は「自動」(黒)

以上のような表示になると思いますが、
「0」の場合の設定ができません。
「0」の場合の表示桁数は一...続きを読む

Qランキングに入る子どもの名前

年間ランキングの上位に入っている名前は、どれくらい多いのでしょうか?

明治安田生命の2010年ランキング(http://www.meijiyasuda.co.jp/profile/etc/ranking/read_best50/)
の1位、2位の名前の子が周りにどれくらいいるか教えてください。
(2010年生まれ限定ではありません)

女の子 【メイ】 【ユイ】
男の子 【ハルト】 【ユウト】

知ってる人数、10人に3人はいる、クラス替えする度に同じクラスにいる~など、回答の仕方はお任せします。


また、「この名前は多い」と感じる名前があればお教えください。

よろしくお願いします。

Aベストアンサー

「メイ」ちゃんは知っている中で1人だけですが、「ユイ」ちゃんは1学年に1人はいるかも。
あとは「ユナ」ちゃんも多いです。
次女(年中)のクラスには2人いて、さらに「ユウナ」ちゃんもいるのでみんなフルネームで呼ばれています。

「ハルト」君「ユウト」君も多いですね。
それぞれクラスに1人は必ずいて、さらにもう1人いるところもありそうな感じです。
漢字はみんな違いますけどね。

Q[セルの書式設定][横位置]の[インデント]の単位

添付図は
1.セル A1 を選択
2.[書式]→[セル]→[配置]を実行
3.[横位置]として“左詰め(インデント)”を選択
4.[インデント]として“2”を選択
5.[文字の制御]として“折り返して全体を表示する”を選択
した後で、次の文を入力した状態を示しています。
Mao Asada successfully landed a triple axle and earned her new personal best score of 142.71, but placed sixth overall due to a poor performance in the short program.
フォントの種類は Courier New です。
なお、標準書式セル A2 にも上と同じ文を入力しています。

ちなみに、私は Excel 2002 を使用しています。

さて、セル A2 と比較して分かるように、セル A1 の左端は約3文字分のスペース幅になっています。このスペース幅とインデント数値との関係を調べてみると次のようになりました。
インデント値 左端スペース幅
    0    0文字分(スペースなし)
    1    約2文字分
    2    約3文字分
    3    約5文字分
    4    約7文字分

[インデント]で設定する数値の単位は何なのでしょうか?
そのことを説明した記述を紹介していただけたら助かります。

添付図は
1.セル A1 を選択
2.[書式]→[セル]→[配置]を実行
3.[横位置]として“左詰め(インデント)”を選択
4.[インデント]として“2”を選択
5.[文字の制御]として“折り返して全体を表示する”を選択
した後で、次の文を入力した状態を示しています。
Mao Asada successfully landed a triple axle and earned her new personal best score of 142.71, but placed sixth overall due to a poor performance in the short program.
フォントの種類は Courier New です。
なお、標準書式セル A2 にも上と同じ文...続きを読む

Aベストアンサー

> インデント]で設定する数値の単位は何なのでしょうか?
> そのことを説明した記述を紹介していただけたら助かります。

下記URLのページには、次のように説明されています。

『インデントの幅は、Excelの初期設定のフォントサイズである「MSゴシック 11ポイント」の文字数を基準とした単位で指定されるため、フォントサイズが異なるセル同士でも同じ間隔でインデントを設定することができます。』

「セルに入力した文字列を1文字分だけ右にずらしたい(Excel)」
http://www.jpita.or.jp/hpv3/ziten/mokutekibetu/ex_59.html


Defaultの「MSゴシック 11ポイント」は、
「ツール」メニュー→「オプション」→「全般」タブで、設定されている「標準のフォント」および「サイズ」によります。

「Excel の [セルの書式設定] ダイアログ ボックスの設定を制御および理解する方法」
http://support.microsoft.com/kb/264372/ja

Q最近の名前ランキング10位以下が知りたい!!

いま妊娠中で名前を考えています。
あまり人気のある名前やありきたりは付けたくないなぁと思っています。
それで最近の名前ランキングサイトを探しています。
10位まではよくあるのですが、それ以下が載ってるサイトでお願いします!!

Aベストアンサー

もうご存知かもしれませんが、こちらはいかがですか?

参考URL:http://www.meijiyasuda.co.jp/profile/etc/ranking/best100/

Qエクセルで「名前を付けて保存」を自動的に名前を付けて保存したい

エクセルで「名前を付けて保存」をする時に自動的に名前を付けて保存が出来るように出来ないでしょうか。

エクセルで見積書を作成後に「名前を付けて保存」→「受注番号入力」をしているので、これを「名前を付けて保存」をクリックした時にファイル名を自動的に受注番号が入れば少しでも時間短縮が出来るかと思い、相談させていただきます。
自分なりに参考書などを読み、下記のようになると思ったのですが、出来ません。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SavaAsUI Then
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show _
Arg1:=Me.Path & Application.PathSeparator & Sheet(1).Range("A1").Value
Application.EnableEvents = True
Cancel = True
End If

End Sub

シート1に見積書があり、シート2、シート3はありません。
「A1」のセルに受注番号が入っています。
これのどこがダメなのか教えてもらえませんか。
もし、他に方法があるのであれば教えていただけませんか。

ご無理申します。

エクセルで「名前を付けて保存」をする時に自動的に名前を付けて保存が出来るように出来ないでしょうか。

エクセルで見積書を作成後に「名前を付けて保存」→「受注番号入力」をしているので、これを「名前を付けて保存」をクリックした時にファイル名を自動的に受注番号が入れば少しでも時間短縮が出来るかと思い、相談させていただきます。
自分なりに参考書などを読み、下記のようになると思ったのですが、出来ません。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
...続きを読む

Aベストアンサー

こんにちは。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Dialogs(xlDialogSaveAs).Show _
Arg1:=Me.Path & Application.PathSeparator & Sheets(1).Range("A1").Value
End Sub

上記でどうでしょう


人気Q&Aランキング

おすすめ情報