[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『閲覧回数表示について』(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
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.