回答編集履歴
1
コード追加
test
CHANGED
@@ -61,3 +61,33 @@
|
|
61
61
|
|
62
62
|
ボタンの位置を基準にして、その下に、罫線を設定するという設計にすれば、静的変数も不要になります。ボタンの位置は、TopLeftCell.Row で取得できます。
|
63
63
|
|
64
|
+
---
|
65
|
+
コード例
|
66
|
+
```vba
|
67
|
+
Sub Pagemake_since()
|
68
|
+
Dim Act_sheet As Worksheet
|
69
|
+
Dim btn As Button
|
70
|
+
Dim downfirst As Long, downlast As Long
|
71
|
+
|
72
|
+
Set Act_sheet = ActiveSheet
|
73
|
+
'フッターにページ番号を挿入する
|
74
|
+
Act_sheet.PageSetup.CenterFooter = "&P/&N"
|
75
|
+
|
76
|
+
Set btn = Act_sheet.Buttons(Application.Caller) 'クリックしたボタン
|
77
|
+
downfirst = btn.TopLeftCell.Row + 1
|
78
|
+
downlast = downfirst + 24
|
79
|
+
|
80
|
+
With Act_sheet.Range(Cells(downfirst, 1), Cells(downlast, 7))
|
81
|
+
'ワークシートに格子状の枠線を記載する。
|
82
|
+
.Borders.LineStyle = True
|
83
|
+
'C列とE列の最後列まで掛け算の式を代入
|
84
|
+
.Columns("F:F").Formula = "=$C" & downfirst & "*$E" & downfirst
|
85
|
+
.Columns("E:F").NumberFormatLocal = "\#,##0"
|
86
|
+
End With
|
87
|
+
|
88
|
+
|
89
|
+
'次のページ最下行にボタンを移動する。
|
90
|
+
btn.Top = Act_sheet.Cells(downlast + 1, 1).Top
|
91
|
+
End Sub
|
92
|
+
```
|
93
|
+
|