Cara membuat angka +1 dari lembar sebelumnya

2

Saya ingin menyalin satu lembar ke beberapa lembar di buku kerja yang sama dengan makro, saya tahu bagaimana melakukannya tetapi saya masih memiliki pertanyaan lebih lanjut.

Saya menggunakan rumus:

Sub Button3_Click()
Dim x As Integer
Dim y As Integer
x = InputBox("How many copies you want?")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

Katakanlah saya menyalin satu lembar menjadi 5 lembar baru, Nama lembar tersebut adalah:

Sheet 1 | Sheet 1 (2) | Sheet 1 (3) | Sheet 1 (4) | Sheet 1 (5) | Sheet 1 (6) 

Yang saya inginkan adalah:

the formula in the "Sheet 1 (2)" Cell A1 is "='Sheet 1'A1+1" and 
the formula in the "Sheet 1 (3) cell A1 is "='Sheet 1 (2)'A1+1: and 
the formula in the "Sheet 1 (4) cell A1 is "='Sheet 1 (3)'A1+1: and
the formula in the "Sheet 1 (5) cell A1 is "='Sheet 1 (4)'A1+1: and

Atau apa pun rumusnya, saya hanya ingin sel sheet A1 berikutnya merujuk ke angka dengan +1 dari lembar sebelumnya. (Sama seperti halaman).

Saya ingin tahu bagaimana melakukannya terutama di excel 2003?

Ricky
sumber

Jawaban:

0

Pada Sheet 1 (2)di A1masukkan

=SUM(Sheet 1!A1,1)

Dan masing-masing ke lembar lain.

Untuk LibreOffice itu akan

=SUM(Sheet 1.A1,1)
mirkobrankovic
sumber
0

Coba tambahan ini ke kode Anda:

Sub Button3_Click()
Dim x As Integer
Dim y As Integer, tmpSheet As Worksheet
x = InputBox("How many copies you want?")
For numtimes = 1 To x
    ActiveWorkbook.Sheets("Sheet1").Copy _
    After:=ActiveWorkbook.Sheets("Sheet1")
Next
For y = 2 To x + 1
    Set tmpSheet = ActiveWorkbook.Sheets("Sheet1 (" & y & ")")
    If y = 2 Then
        tmpSheet.Range("A1").Formula = "='Sheet1'!A1 + 1"
    Else
        tmpSheet.Range("A1").Formula = "='Sheet1 (" & y - 1 & ")'!A1 + 1"
    End If
Next y
End Sub
Excellll
sumber