Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2937 / 13644 ツリー ←次へ | 前へ→

【65172】アクセス数のカウンタ cocoa 10/4/23(金) 10:06 質問[未読]
【65173】Re:アクセス数のカウンタ neptune 10/4/23(金) 10:35 回答[未読]
【65175】Re:アクセス数のカウンタ cocoa 10/4/23(金) 10:56 質問[未読]
【65174】Re:アクセス数のカウンタ Jaka 10/4/23(金) 10:52 発言[未読]
【65176】Re:アクセス数のカウンタ cocoa 10/4/23(金) 11:02 質問[未読]
【65177】Re:アクセス数のカウンタ Jaka 10/4/23(金) 11:20 発言[未読]
【65178】Re:アクセス数のカウンタ cocoa 10/4/23(金) 11:30 お礼[未読]

【65172】アクセス数のカウンタ
質問  cocoa  - 10/4/23(金) 10:06 -

引用なし
パスワード
   お世話になります。

Private Sub Workbook_Open()
Dim ws As Worksheet
Set ws = Worksheets(2)
ws.Range("E3").Value = ws.Range("E3").Value + 1
Set ws = Nothing
End Sub

上記の記述だと、上書き保存を実施した後でなければ、
カウントされないのですが、読み取り専用等で開いた場合でも、
上書き保存した場合でも、カウントされる方法はないものでしょうか?

初歩的な質問で、恐縮ですが、宜しくお願いいたします。

【65173】Re:アクセス数のカウンタ
回答  neptune  - 10/4/23(金) 10:35 -

引用なし
パスワード
   ▼cocoa さん:

>上記の記述だと、上書き保存を実施した後でなければ、
>カウントされないのですが、読み取り専用等で開いた場合でも、
>上書き保存した場合でも、カウントされる方法はないものでしょうか?
>
>初歩的な質問で、恐縮ですが、宜しくお願いいたします。
初歩的ですか?

原因
どこでデータを見ているかがわかりませんが、book内にデータを保存するからに
起因していると思う。

対策
book外にデータを保存する。但し、「読み取り専用」で開いた場合マクロが
動作するか否かは知りません。ご自分で確認して下さい。
・・・マクロ不許可で開いた場合もカウントはできません。

【65174】Re:アクセス数のカウンタ
発言  Jaka  - 10/4/23(金) 10:52 -

引用なし
パスワード
   ▼cocoa さん:
>Private Sub Workbook_Open()
>Dim ws As Worksheet
>Set ws = Worksheets(2)
>ws.Range("E3").Value = ws.Range("E3").Value + 1
>Set ws = Nothing
>End Sub
>
>上記の記述だと、上書き保存を実施した後でなければ、
>カウントされないのですが、読み取り専用等で開いた場合でも、
>上書き保存した場合でも、カウントされる方法はないものでしょうか?

ご質問の内容が頓珍漢に思います。
まず、
Private Sub Workbook_Open()
このコードが何を意味しているのかを理解できてますか?
これが理解できていれば、上記のような質問内容にならないと思います。

【65175】Re:アクセス数のカウンタ
質問  cocoa  - 10/4/23(金) 10:56 -

引用なし
パスワード
   neptune様
ご回答ありがとうございます。

>原因
>どこでデータを見ているかがわかりませんが、book内にデータを保存するからに
>起因していると思う。
 FileServerにxlsファイルを置いてあり、Web上のリンクから、参照するようになっております。

>対策
>book外にデータを保存する。但し、「読み取り専用」で開いた場合マクロが
>動作するか否かは知りません。ご自分で確認して下さい。
>・・・マクロ不許可で開いた場合もカウントはできません。
全社的にマクロの実行は許可している構成になっておりますので、
その点は問題ないかとおもいますが、book外にカウント数のlogをはきださせる。
と言うことで、あっていますでしょうか?

やはり、読み取り専用で開いた場合には、保存ができないので、book内にカウント数をインクリメントする事は難しいのでしょうか。

【65176】Re:アクセス数のカウンタ
質問  cocoa  - 10/4/23(金) 11:02 -

引用なし
パスワード
   ▼Jaka氏

>ご質問の内容が頓珍漢に思います。
>まず、
>Private Sub Workbook_Open()
>このコードが何を意味しているのかを理解できてますか?
>これが理解できていれば、上記のような質問内容にならないと思います。
まったく理解しておりません。
NW上より、サンプルを拾ってきただけになります。
憶測で、ワークブックが開いたら下記を処理する。
のような意味かなとおもうのですが。

【65177】Re:アクセス数のカウンタ
発言  Jaka  - 10/4/23(金) 11:20 -

引用なし
パスワード
   ▼cocoa さん:
>憶測で、ワークブックが開いたら下記を処理する。
>のような意味かなとおもうのですが。
そうですね、ブックを開いた時に動くマクロとわかっているのに、

>上書き保存を実施した後でなければ、
>カウントされないのですが、
こういった質問内容になるのかな?と思いました。
どういった順序で、マクロが書いてあるブックを作ったのか解らないけど、

最初に、マクロが無いベースのブックを作る。
園ブックを閉じる。
マクロが必要になったので、ベースとなったブックを開いて、
マクロを記入。

ここで、上書き保存しなければ、次回開いてもマクロが保存されてないから、
動くわけが無い。
と言ったことだと、私は解釈しました。

【65178】Re:アクセス数のカウンタ
お礼  cocoa  - 10/4/23(金) 11:30 -

引用なし
パスワード
   ▼Jaka さん:
>▼cocoa さん:
>>憶測で、ワークブックが開いたら下記を処理する。
>>のような意味かなとおもうのですが。
>そうですね、ブックを開いた時に動くマクロとわかっているのに、
>
>>上書き保存を実施した後でなければ、
>>カウントされないのですが、
>こういった質問内容になるのかな?と思いました。
>どういった順序で、マクロが書いてあるブックを作ったのか解らないけど、
>
>最初に、マクロが無いベースのブックを作る。
>園ブックを閉じる。
>マクロが必要になったので、ベースとなったブックを開いて、
>マクロを記入。
>
>ここで、上書き保存しなければ、次回開いてもマクロが保存されてないから、
>動くわけが無い。
>と言ったことだと、私は解釈しました。
なるほど。

重要な箇所が抜けていたみたいですね。
マクロ自体は保存されております。

マクロが記述されているExcelファイルのアクセス数をカウントしていきたいと思っております。

やはり読み取り専用で開いている場合には保存ができない為、マクロが動いても、保存しないので、カウントも無効になりますよね。
book外にlog.txtを吐き出して、中身を表示するようなScriptを作成しようと思います。
ありがとうございました。

2937 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free