- ベストアンサー
Application.Captionが設定できな
Application.Captionが設定できない Sub Sample01() Application.Caption = "aaa" End Sub としても、 タスクバーに表示されるファイル名は、 aaa - 正しいファイル名.xlsm と表示されるし、 エクセルのリボンの上の部分に、正しいファイル名.xlsm - aaa と表示されます。 指定した文字列のみ表示させることはできないのですかね？
- wceitucthj
- お礼率100% (44/44)
- オフィス系ソフト
- 回答数1
- ありがとう数5
- みんなの回答 （1）
- 専門家の回答
関連するQ&A
- アプリケーションタイトルにファイル名のみ表示したい
エクセルファイルを開いた時に、 アプリケーションタイトルに拡張子を含まない自身のファイル名を設定したいので Private Sub Workbook_Open() Application.Caption = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) End Sub としたのですが、 こうすると、タスクバーから見た時などは ファイル名 - ファイル名 .xlsm と表示されてしまいます。 - より右の「 ファイル名 .xlsm」は不要なのですが、 どうしてこうなってしまうのでしょうか？ ファイル名のみ表示させたいです。 こうなるのは全画面表示の場合のみで最大化をやめるとファイル名のみ表示されます。 全画面表示でエクセルは開きたいです。
- ベストアンサー
- Excel（エクセル）
- アクセスでApplication.Caption
アクセスでApplication.Captionに代わるコードはありますか？ エクセルでなら Sub test01() Debug.Print Application.Caption End Sub は動きますが、アクセスだとコンパイルエラーになります。 CaptionがApplicationのメンバにないからだと思います。 いくつかのアプリケーションを跨いでＶＢＡを動かしているのですが、 アクセスで自身のアプリケーション名、もしくはファイル名を取得するコードはありますか？ ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- タスクバーに表示される文字を指定したい
エクセルについて質問です。 通常ならタスクバーに「Microsoft Excel」と表示されますが、 ファイル名を表示させたいです。 なので、 Sub test() ActiveWindow.Caption = ActiveWorkbook.Name End Sub としましたが、ウインドウの文字が変化するだけで、タスクバーに表示される「Microsoft Excel」はそのままです。 ａｃｃｅｓｓなら起動時の設定で「アプリケーション タイトル」で指定できますが エクセルは無理なのでしょうか？ ヴァージョンは２００３です。 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA Application.GetSaveAsFilenameでのフォルダー名指定
いつも大変お世話になりありがとうございます。 早速ですが、教えてください。 以下のマクロでファイル名を指定して保存させようと思うのですが、デフォルトで表示するフォルダーをたとえば、Cドライブの「AAAAA」という指定はできますでしょうか？ また、そのパソコンに「AAAAA」というフォルダーが無かったら、作るようにしたいのですがどう記述すればよいのでしょうか？ Sub test() Dim aaa As String aaa = Format(Now, "MMDDHHmm") FName = Application.GetSaveAsFilename(InitialFilename:=aaa & ".csv", FileFilter:="CSVファイル(*.csv), *.csv") '以下略 End Sub
- ベストアンサー
- オフィス系ソフト
- Excel2007互換モードでの右クリックロジック
１００件程度の実績のあるソフトですが、あるお客様のみ不思議な現象が発生しています。 そのお客様はWindowsXP & Excel2007の組み合わせで、ソフトは互換モードで動作しています。 Option Compare Text Option Explicit Sub migi_del() Dim icbc Application.CommandBars("cell").Reset For Each icbc In Application.CommandBars("cell").Controls icbc.Delete Next icbc End Sub Sub migi_add() Dim icbc Application.CommandBars("cell").Reset For Each icbc In Application.CommandBars("cell").Controls icbc.Delete Next icbc With Application.CommandBars("cell").Controls _ .Add(Type:=msoControlButton, Temporary:=True) .Caption = "Message!" .OnAction = "aaa" End With End Sub Sub migi_addTag() Dim icbc Application.CommandBars("cell").Reset For Each icbc In Application.CommandBars("cell").Controls icbc.Delete Next icbc With Application.CommandBars("cell").Controls _ .Add(Type:=msoControlButton, Temporary:=True) .Caption = "Message!" .OnAction = "aaa" .Tag = "aaa" End With End Sub Sub migi_Rest() Dim icbc Application.CommandBars("cell").Reset End Sub Sub aaa() MsgBox "OK" End Sub Sub Sample() Application.CommandBars("Row").Reset Application.CommandBars("Column").Reset End Sub の何れの操作を行っても、右クリックは標準のものが表示されてしまいます。 WindowsXP & Excel2007の組み合わせの他のお客様ではこのような現象は出ていません。 何方か理由をご存知の方はいらっしゃいませんか？
- ベストアンサー
- その他（プログラミング・開発）
- 他ブックを実行するマクロ
あるexcelファイル（ブック名「自動操作.xlsm」）からべつのexcelファイル（ブック名「a.xlsm」）というファイルを実行するマクロを組んでいます。 Application.Runを用いて「自動操作.xlsm」のコードを以下のように記述しました。 ※「\」は半角の円マークだと考えてくれればいいです。ここで半角の円マークをかいても\と表示されます。また、自動操作とaは同じディレクトリにあります。 Sub Test1() Application.Run "'C:Users\ディレクトリ名\a.xlsm'!test" End Sub また、「a.xlsm」は以下のように記述しました。 Sub test() Dim i As Integer For i = 1 To 5 '移動元ファイルパスの設定 Cells(i, 1) = i Next End Sub ただ１～５行にその行数を記入するマクロです。 a.xlsmを開いた状態でこれを実行すると、「アプリケーション定義またはオブジェクト定義のエラーです」とでます。 a.xlsmを閉じた状態で実行すると、「このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります」とでます。 いったいなにを間違えているのでしょうか。
- 締切済み
- Visual Basic
- Excel ユーザー定義関数入力方法
ユーザー定義関数はその関数を作ったファイルでないと セルに直接入力しても関数は出ないのですか 例えば Book1.xlsxとmacro.xlsmというファイルがあります。 macro.xlsmファイルにユーザー定義関数を作成しました。 macro.xlsmだとセルに直接入力しても作成した関数が候補が出ます。 Book1.xlsxだと関数の挿入から見つけないといけません。 macro.xlsmのファイルのThisWorkbookには Private Sub Workbook_Open() Application.MacroOptions _ Macro:="aaa", _ Description:="説明" End Sub と入ってます。
- ベストアンサー
- Excel（エクセル）
- CommandButtonのCaptionを変化させたい
VBAを始めたばかりの初心者です。 sheet1にコントロール（CommandButton）を10個ほど配置しました。各CommandButtonのCaptionにsheet2～11のセルA1の値を表示させたいと思っています（このA1の値は変化します）。 Private Sub Workbook_Open() Dim Mrang1 As String Mrang1 = Worksheet(2).Range("a1").Value CommandBottan1.Caption = Mrang End Sub 上記のようなものを考えてみましたが、ダメでした。 根本的に何か間違っているのでしょうか。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Ｃａｐｔｉｏｎが変更されない
ａｃｃｅｓｓＶＢＡで下記のプログラムを作りました。 使用ＯＳはＸＰ、ソフトはａｃｃｅｓｓ2003です Private Sub コマンド2_Click() Me.コマンド2.Caption = "計 算 中 で す" Me.コマンド2.ForeColor = 255 ' 赤に For i = 1 To 10000000 aa = 2 ^ 20 Next Me.コマンド2.Caption = "待 機 中 で す" Me.コマンド2.ForeColor = 8421376 ' 緑に End Sub "待 機 中 で す" ・・・は変更されますが、最初の"計 算 中 で す"は変更されません。 「コマンド2」をクリックした直後に、"計 算 中 で す"・・・と表示させたいのですが、 どうすれば良いでしょうか？
- ベストアンサー
- Visual Basic
- VBAでユーザーフォームのcaption表示
VBAを初めたばかりです。 VBAでユーザーフォームを作成したのですが ユーザーフォームプロパティのcaptionで入力しても 下記プログラムで入力しても表示されません。 VBA作成時の画面にはしっかりと「項目」と 表示されていますが、プログラムを実行してユーザーフォームを 呼び出すと何も表示されていません。 ご教授ください。 Private Sub UserForm_Initialize() UserForm1.Caption = "項目" With ListBox1 .AddItem "１" .AddItem "２" End With End Sub
- ベストアンサー
- Excel（エクセル）
お礼
それぞれ設定すればいいのですね。 ありがとうございます。