[[20020524110523]] 『ページを開くたびにページ番号が変わっていく?』(あゆみ) ページの最後に飛ぶ

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

 

『ページを開くたびにページ番号が変わっていく?』(あゆみ)

ページを開くたびにそのページに付けた番号が変わっていく方法はないのでしょうか?(あゆみ)


 ページとはシートのことでいいのかな?

 とりあえずマクロです。

 そのシートが表示されるたびにセル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)


 失礼しました(汗)。

 ↑のヤツだけでは最初にそのシートが表示されたときカウントされません。

 しかもセーブしないといけないし。

 変更します。

Visual Basic Editorでカウントしたいシートのコードウインドウに↓を貼り付け

 Private Sub Worksheet_Activate()

    Sheet_Count

 End Sub

同じくThis Work Bookに ↓を貼り付け

 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

Visual Basic Editorのメニューの挿入>標準モジュールで、開いたコードウインドウに↓を貼り付け

 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.