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

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

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

先頭から

Excel VBAに関して

メール転送可
記事 213 by
こんにちは<(_ _)>初めてカキコさせて頂きます。

プログラム等の知識は殆どないのですが、書籍を参考にしたりして、
以前、Excel97でプログラムをつくり使っていました。

Excelバージョンアップとともに使い続け、
Excel2000までは、特に問題もなく動いていましたが、
XPになった時に動かなくなりました。
( ̄◇ ̄;)エッと思い、調べてみたら、Excelのセキュリティ設定の
レペルを中にすればマクロ事態は動くという所まではわかったのですが、
どうしてもファイルを保存することが出来ませんでした。

保存に関して、XPと以前のバージョンでは
何か変わった事があるんでしょうか?
ご存知の方いらっしゃいましたら教えてください。
よろしくお願いします。
To:YOUCAN

返信コメントを書き込む


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

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

設定を閉じる

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

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

貼り付けてよい動画?

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

貼り付け方は?

設定を閉じる

2002年8月11日(日) 11時53分 1件目のコメント
コメント 214 by ゆき
YOUCANさん

保存できないとは具体的にどうなるのでしょうか?
メッセージが表示されるのでしょうか?
もう少し詳しい状況説明が必要かと思われます。
97形式のxlsファイルは開けたけれど、編集して
保存しようとしてエラーになったということでしょうか?
この投稿に返信
2002年8月11日(日) 17時8分違反通報親記事 2件目
コメント 215 by YOUCAN
>>214 ゆきさん

早速のレスありがとうございます。

> 97形式のxlsファイルは開けたけれど、編集して
> 保存しようとしてエラーになったということでしょうか?

おっしゃる通りです。
「保存中しています・・・」
「Excel5.0/7.0保存しています・・・」
と左下に表示された後、「保存できませんでした」と
メッセージボックスが表示されます。

よろしくお願いします。
この投稿に返信
2002年8月12日(月) 1時54分違反通報親記事 3件目
コメント 216 by ゆき
YOUCANさん
ちは、レスが遅くなって申し訳ないです。以下の手順をやってみて
再度、保存してみてください。駄目元で・・・。
駄目な場合、具体的なマクロを可能であれば教えてください。
[ツール] メニューの [オプション] をクリックし、[オプション] ダイアログ ボックスの [移行] タブの "計算方式を変更する" チェック ボックスを オフ にします。
この投稿に返信
2002年8月12日(月) 23時59分違反通報親記事 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
この投稿に返信
2002年8月19日(月) 22時10分違反通報親記事 5件目