おしゃべり掲示板!みんなの話題共有サイト

ズーム -1元のサイズ+1

ヒントみんなの疑問、質問、相談、体験談、意見、情報が誰かの役に立っています。

つまみ読み
記事 213 by YOUCAN

こんにちは<(_ _)>初めてカキコさせて頂きます。プログラム等の知識は殆どないのですが、書籍... ( 続きを読む )

1.
詳しい説明を ゆき
2.
おっしゃる通りです。 YOUCAN
3.
お試しを。 ゆき

4.宜しくお願い致します。

メール転送可
コメント 217 by YOUCAN
>>216 ゆきさん

こんばんは色々とご指導ありがとうございます。
↑で教えて頂いた事を試してみましたが、
ゆきさんがご推測の通り、状況は変わりませんでした。
それで、終了させる時のマクロを記載いたします。
何か、気づかれた事などありましたらご指導お願い致します。

お盆休みの折、ご報告遅くなりました事お詫びいたします。

Sub auto_close()
Application.ScreenUpdating = False
Dim sh As Object
For Each sh In Sheets
sh.Visible = True
Next sh
Dim mysheet As Object
Sheets("メニュー").Select
For Each mysheet In Worksheets
mysheet.Select
Range("A1").Select
ActiveWindow.DisplayHeadings = True ActiveWindow.DisplayOutline = True ActiveWindow.DisplayHorizontalScrollBar = True ActiveWindow.DisplayVerticalScrollBar = True ActiveWindow.ScrollRow = 1 ActiveWindow.ScrollColumn = 1
Next mysheet
Sheets("メニュー").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("メニュー", "基本情報", "決算表紙", "資産", "負債", "損益", "販棚", "原価", "利益処分", "注記事項", "営報表紙" _
, "推移", "要約BS", "要約PL", "経営分析", "試算表")).Select
Sheets("メニュー").Activate
Sheets("メニュー").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("sheet1").Visible = True
Sheets("sheet1").Select
Sheets("メニュー").Visible = False
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = True
Application.Quit
End Sub
To:YOUCAN

返信を書き込む

主題: Excel VBAに関して

コピー保険に加入(本文コピー)  写真を貼り付ける 埋め込む
カメラ 写真(画像)貼付の設定

笑 [返信内容の確認]をするときに、あなたが撮影した写真や画像を指定します。投稿すると安全処理されてから投稿欄に表示されます。

設定を閉じる

YouTube公式チャンネル 動画貼付の設定
URL:

笑 YouTube の動画枠直下にある[共有]を押すと出るURLか、再生ページのURLを以下のように入力します。
https://youtu.be/*****

貼り付けてよい動画?

笑 企業等の公式チャンネルの動画や個人が撮影して公開中の動画を掲示板等に貼り付けて共有リンクするのは著作権上合法だそうです。

貼り付け方は?

設定を閉じる

2002年8月19日(月) 22時10分 親記事 5件目のコメント