[[20170515135040]] 『閲覧回数表示について』(AAA) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『閲覧回数表示について』(AAA)

Sheet1のN1セルにファイルを開く度に閲覧回数を表示させたいのですが
下記で試しても、首尾よくいかない状態です。

N1に”1”と表示はされますが
booxを閉じたり開いたりしても加算されません

Private Sub Workbook_Open()
Sheets("Sheet1").Range("N1").Value = Sheets("Sheet1").Range("N1").Value + 1
End Sub

お手数ですが、良き方法がございましたら
よろしくお願いいたします

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 いくらシートを書き換えても終了時に上書き保存しないとそれはブックに反映されたことに
 ならないがその点は大丈夫か。
(ねむねむ) 2017/05/15(月) 13:59

アドバイス返信いただき有難うございます。
上書き”保存する”、”保存しない”に限らず
ブックを開いた回数を反映させることは
やはり不可能でしょうか

その辺りのこと、調べてみてもよくわからず

よろしくお願いいたします
(AAA) 2017/05/15(月) 14:37


Private Sub Workbook_Open()
    Sheets("Sheet1").Range("N1").Value = Sheets("Sheet1").Range("N1").Value + 1
    Application.DisplayAlerts = False
    ThisWorkbook.Save
End Sub
(mm) 2017/05/15(月) 14:44

 ブックの外に記録していくようにしてはどうだろうか?
 テキストファイルに記録していくようにすれば、ブック
 の更新をすることなく、ブック起動の記録を取ることが
 できます。
(カエムワセト) 2017/05/15(月) 15:12

ねむねむさん。カエムワセトさん

どうも有難うございます。
完成に近づいております。

現在、ブックを立ち上げたときに
必ずSheet1が開くように、下記のマクロを
組んでいます

Private Sub Workbook_Open()

 Sheets("Sheet1").Select
 End Sub

ねむねむさんに
教えていただいた、マクロの下に
上記をコピペしたのですが
コンパイルエラー表示となります

申し訳ありませんが、アドバイス頂けないでしょうか

宜しくお願い致します

(AAA) 2017/05/15(月) 15:19


 VBAを書いてくれたのは私ではなくmmさん。
(ねむねむ) 2017/05/15(月) 15:21

ごめんなさい。失礼しました。

mmさん。皆さん。
アドバイスいただき有難うございます。

後、少しで完成なのですが、うまくいかず
よろしくお願いいたします
(AAA) 2017/05/15(月) 16:11


 記述してあるコード全体を提示してください。そして、どの部分がエラーになっているか、もご提示ください。
 コンパイルエラーなら、赤い文字で表示されていると思います。
(カエムワセト) 2017/05/15(月) 16:33

お手数をお掛けします

■コード全体
Private Sub Workbook_Open()

    Sheets("Sheet1").Range("N1").Value = Sheets("Sheet1").Range("N1").Value + 1
    Application.DisplayAlerts = False
    ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
 Sheets("Sheet1").Select
 End Sub

■コンパイルエラー
名前が適切ではありません。Workbook_OPEN

となります。

宜しくお願いいたします
(AAA) 2017/05/15(月) 16:42


 同じイベントプロシージャを二つ以上記述することは出来ません。

 一つのイベントプロシージャの中にまとめて書くようにしましょう。
 今回の場合は続けて書くだけでいけると思います。

 Private Sub Workbook_Open()
  '一つのコード
  '二つ目のコード
 End Sub

 なお、シートのイベントプロシージャで特定のセル範囲ではAという処理を、別の特定の
 セル範囲ではBという処理を、というように場合分けしたい場合はTargetのセルアドレス
 等とSelect Case等を組み合わせて処理します。
(カエムワセト) 2017/05/15(月) 17:00


意図していた通りに完成でき
知見を広げることもできました。

どうも有難うございました


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.