[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ページを開くたびにページ番号が変わっていく?』(あゆみ)
ページを開くたびにそのページに付けた番号が変わっていく方法はないのでしょうか?(あゆみ)
ページとはシートのことでいいのかな?
とりあえずマクロです。
そのシートが表示されるたびにセルA1のへカウントします。
Private Sub Worksheet_Activate()
Range("A1").Value = Range("A1").Value + 1
End Sub
↑のコードをコピーして、EXCELメニューのツール>マクロ>Visual Basci Editor、
Visual Basic Editorのウインドウ、左の窓のにシートが並んでると思います。
そのシートの中から、カウント処理を使いたいシートをダブルクリック。
ウインドウが開いたら、そこにコードを貼り付けてください。
あとはそのシートが選択されるとカウントします。
コードに"A1"と書いてあるところが2箇所あって、そこを"B5"とかに書き換えれば
セルB5でカウントします。
リセットしたいときは、そのセルに自分で0を書き込んでください。
逆にリセットされたくないときは、シートの保護(セルを保護)すればよいと思います。
セキュリティが中のとき、
BOOKを開くたびに"マクロウイルスが〜"と出ると思いますけど、たしかデジタル署名すれば
出ないようにできたような気がします。
もちろんセキュリティを低にすれば出ないんですけど... それは安全ではないので...
デジタル署名の作り方
http://www.microsoft.com/japan/enable/training/kblight/t004/8/07.htm
作ったらEXCELのVisual Basic Editorより、ツール>デジタル署名を登録してください。
(ramrun)
失礼しました(汗)。
↑のヤツだけでは最初にそのシートが表示されたときカウントされません。
しかもセーブしないといけないし。
変更します。
Private Sub Worksheet_Activate()
Sheet_Count
End Sub
Private Sub Workbook_Open()
If ActiveSheet.Name = Worksheets(1).Name Then
Sheet_Count
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.Saved = False Then Me.Save
End Sub
Sub Sheet_Count()
Range("a1").Value = Range("a1").Value + 1
End Sub
という感じになります。
BOOKを閉じるときセーブされるので、累計になります。
さらにちょっと修正(汗)。
(ramrun)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.