Tính lũy kế từ sheets này sang sheets khac

[phongqlcl.kt]

Mọi người xem giúp tôi với
Tôi gặp khó khăn tại đây. Tôi muốn làm lũy kế tại cột H tự động khi tạo sheets mới
Mong mọi người giúp đỡ. Xin cảm ơn
Có file ví dụ kèm theo

 

[cantl]

Mọi người xem giúp tôi với
Tôi gặp khó khăn tại đây. Tôi muốn làm lũy kế tại cột H tự động khi tạo sheets mới
Mong mọi người giúp đỡ. Xin cảm ơn
Có file ví dụ kèm theo

Này thì V B A.
=G9+INDIRECT("'"&$H$5&"'!"&ADDRESS(ROW(),8),TRUE)

 

[HUONGHCKT]

Mọi người xem giúp tôi với
Tôi gặp khó khăn tại đây. Tôi muốn làm lũy kế tại cột H tự động khi tạo sheets mới
Mong mọi người giúp đỡ. Xin cảm ơn
Có file ví dụ kèm theo

Thử code này xem sao:

Option Explicit

Sub LuyKe()

Dim  Lr&, Ten As String
Dim Ws As Worksheet, Sh As Worksheet
    Set Sh = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    Ten = Sh.Name + 1
    If Not WsExit(Ten) Then
            Sh.Select
            Sh.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            Set Ws = ActiveSheet
            Ws.Name = Ten
            Ws.[A1] = Sh.Name
            Lr = Ws.Cells(Rows.Count, 2).End(xlUp).Row
                Ws.Range("H9:H" & Lr).Formula2R1C1 = "=RC[-1]+INDIRECT(""'""&R1C1&""'!H9"")"
    End If
End Sub

Xem file.

 

[phongqlcl.kt]

Này thì V B A.
=G9+INDIRECT("'"&$H$5&"'!"&ADDRESS(ROW(),8),TRUE)

Chân thành cảm ơn, nếu làm công thức trên excell thi mình đã làm được rồi

Bài đã được tự động gộp: 13/7/23

Thử code này xem sao:

Option Explicit

Sub LuyKe()

Dim  Lr&, Ten As String
Dim Ws As Worksheet, Sh As Worksheet
    Set Sh = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    Ten = Sh.Name + 1
    If Not WsExit(Ten) Then
            Sh.Select
            Sh.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            Set Ws = ActiveSheet
            Ws.Name = Ten
            Ws.[A1] = Sh.Name
            Lr = Ws.Cells(Rows.Count, 2).End(xlUp).Row
                Ws.Range("H9:H" & Lr).Formula2R1C1 = "=RC[-1]+INDIRECT(""'""&R1C1&""'!H9"")"
    End If
End Sub

Xem file.

Cam on huongHCKT đa xem giúp nhưng ý của tôi la: tinh luy ke o sheet2 = H9 ở sheet1 + G9 sheet2
Ban xem chi mình nhé

Bài đã được tự động gộp: 13/7/23

Này thì V B A.
=G9+INDIRECT("'"&$H$5&"'!"&ADDRESS(ROW(),8),TRUE)

Đây là công thức mình đang dùng: SUM('2'!H15;INDIRECT("'"&(RIGHT(SUBSTITUTE(CELL("filename";'2'!I15);"]";REPT(" ";10));10)-1)&"'!"&CELL("address";'2'!I15)))

 

[HUONGHCKT]

Chân thành cảm ơn, nếu làm công thức trên excell thi mình đã làm được rồi

Bài đã được tự động gộp: 13/7/23

Cam on huongHCKT đa xem giúp nhưng ý của tôi la: tinh luy ke o sheet2 = H9 ở sheet1 + G9 sheet2
Ban xem chi mình nhé

Bài đã được tự động gộp: 13/7/23

Đây là công thức mình đang dùng: SUM('2'!H15;INDIRECT("'"&(RIGHT(SUBSTITUTE(CELL("filename";'2'!I15);"]";REPT(" ";10));10)-1)&"'!"&CELL("address";'2'!I15)))

Thế nếu bạn thêm sheet3 thì sao? không cần à?
Bạn đã xem file đính kèm chưa? Bạn nhấn nút chạy code và xem điều gì đã diễn ra.

Có phải là sau khi nhấn nút: 1 sheet mới đã được thêm vào (nếu đã có Sheet(2) thì thêm Sheet(3) ) và cột H ( từ H9) đã có công thức =G9+Sheet trước!H9 không. Dữ liệu của bạn dài đến đâu thì đến dòng cuối của cột H vẫn có công thức.

 

[phongqlcl.kt]

Thế nếu bạn thêm sheet3 thì sao? không cần à?
Bạn đã xem file đính kèm chưa? Bạn nhấn nút chạy code và xem điều gì đã diễn ra.

Có phải là sau khi nhấn nút: 1 sheet mới đã được thêm vào (nếu đã có Sheet(2) thì thêm Sheet(3) ) và cột H ( từ H9) đã có công thức =G9+Sheet trước!H9 không. Dữ liệu của bạn dài đến đâu thì đến dòng cuối của cột H vẫn có công thức.

HUONGHCKT xem giúp khi tôi chạy nó báo như thế này. (mục đích là các số 1,2,....là tượng trưng cho ngày 1,2.. đến ngày cuối tháng).​

Luôn thể cho mình hỏi thêm một tý VBA có cách nào lấy ra kết quả như vậy không: '2'!H9 ( '2' là tên sheet2, H9 là ô H9 trong sheet2)
Xem lại giúp Tôi với.
Xin cảm ơn.

 

[phongqlcl.kt]

Chân thành cảm ơn

cantl, @HUONGHCKT Tôi đã làm được rồi. Rất chi là có ích cho việc báo cáo theo ngày của mình.​

 

[phongqlcl.kt]

Cũng file như trên. Mình muốn xin code tạo và đổi tên sheets mọi người chỉ với

 

[HUONGHCKT]

Cũng file như trên. Mình muốn xin code tạo và đổi tên sheets mọi người chỉ với

Bạn đã đọc những dòng code này chưa?
1 Sh.Select
2 Sh.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
3 Set Ws = ActiveSheet
4 Ws.Name = Ten
5 Ws.[A1] = Sh.Name
Bạn là người cũng có kiến thức về VBA Excel thì chắc đọc những dòng trên sẽ hiểu.
Mách nhỏ bạn (Mở của sổ VBE tìm đến Modul cần chạy, cho chạy từng dòng code=cách nhấn phím f8===> xem điều gì đã diễn ra ở trên Workbook)