tak より

tak — Fri, 27 May 2011 01:20:45 +0000

いやこれで充分。

Sub setpageNum()
Dim intSheetCnt As Integer
‘ｼｰﾄ番号の初期値
intSheetCnt = 1
Do While Worksheets.Count >= intSheetCnt
Worksheets(intSheetCnt).Range(“BK2:BL3″).Formula = intSheetCnt
intSheetCnt = intSheetCnt + 1
Loop
End Sub

tak より

tak — Fri, 27 May 2011 01:10:59 +0000

これだけで動くはずです。

Sub setpageNum()
Dim intSheetCnt As Integer
Worksheets(1).Select
‘ｼｰﾄ番号の初期値
intSheetCnt = 1
Do While Worksheets.Count >= intSheetCnt
Worksheets(intSheetCnt).Select
ActiveSheet.Range(“BK2:BL3″).Select
ActiveCell.FormulaR1C1 = intSheetCnt
intSheetCnt = intSheetCnt + 1
Loop
End Sub

excelシートにシート番号を振る方法 へのコメント

tak より

tak より

excelシートにシート番号を振る方法へのコメント