アーカイブ

‘excel’ タグのついている投稿

excelシートにシート番号を振る方法

2008 年 6 月 3 日 コメントはありません

どうも、star officeだと、簡単に関数一つで終わり！なんですけれど、microsoft excelだといちいち大変です。
とか言いつつも、便利な関数があるんでしょうけれどね…。
シートを分けて連続した書類を管理している場合に、ページ番号を振る必要が当然あったりしますが、シートを移動したり、いろいろといじる中で、どんどんページ番号が入れ替わったりします。
それで、いつでも最新の状態のページ番号を振りたい訳で、ある仕事をしているときに、面倒だったのでマクロを作りました。
数字を記載しているのは、以下の部分です。

1
2
3

            Worksheets(intSheetCnt).Select         'シートを指定
            ActiveSheet.Range("BK2:BL3").Select  '数字をいれるセルを指定
            ActiveCell.FormulaR1C1 = intSheetCnt  '数字をいれる

それ以外は、そこに進むまで必要となるものです。適当に読んでください。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

Sub setpageNum()
    Dim intSheetCnt As Integer
    Dim intForCnt   As Integer
    Dim intAscii    As Integer
    'ｼｰﾄ数の初期値
    intSheetCnt = 2
    intAscii = Asc("b") - 2
    Do Until Worksheets.Count < intSheetCnt
        intForCnt = 0
        intAscii = intAscii + 2
            If Worksheets.Count < intSheetCnt Then
                Exit Sub
            End If
            Worksheets(intSheetCnt).Select
            ActiveSheet.Range("BK2:BL3").Select
            ActiveCell.FormulaR1C1 = intSheetCnt
            intSheetCnt = intSheetCnt + 1
 
        If Worksheets.Count < intSheetCnt Then
            Exit Do
        End If
    Loop
 
    Worksheets(1).Select
 
 
End Sub
カテゴリー: vb タグ: ,