Các Bạn Giúp Mình Làm Bảng Lương Này Với

[khamha]

Các Bạn Giúp Mình Làm Bảng Lương Này Với.
Câu 1: Khi Thêm 1 Dòng Mới Thì Sẽ Tự Động Copy Công Thức.
Câu 2: Khi Tính Tổng ở ô G7 Thì Nó Sẽ Cộng Cả ô G8 và G9 (G9 Là Dòng Mới Thêm)
( Có Ví Dụ Kèm Theo )

 

[account01]

bạn vui lòng viết tiếng việt có dấu nha. Bảng lương gì mà không có dấu, ai mà dịch được

 

[khamha]

bạn vui lòng viết tiếng việt có dấu nha. Bảng lương gì mà không có dấu, ai mà dịch được

Các Bạn Thông Cảm,Vì Mình Là Người Lào Nên Không Biết Đánh Bằng Chữ Việt, Để Viết Được Mấy Chữ Này Mình Phải Mất Cả Nửa Tiếng Để Copy Đấy

 

[ChanhTQ@]

Bạn thử lần lượt các nút xem nha

Option Explicit
Sub AddNewC1()
   GPE_AddNew 1
End Sub

Sub AddNewC2()
   GPE_AddNew 2
End Sub

Sub AddNewC3()
   GPE_AddNew 3
End Sub

Sub GPE_AddNew(Dong As Byte)
 Const Ch As String = "I.II.III."
 Dim Jj As Byte, Rws As Long:                      ReDim Str(1 To 2) As String
 Dim Rng As Range, sRng As Range
 
 MsgBox Dong
 Str(1) = Switch(Dong = 1, "II.", Dong = 2, "III.", Dong = 3, "TC")
 Str(2) = Switch(Dong = 1, "I.", Dong = 2, "II.", Dong = 3, "III.")
 Set Rng = Range("A2:C" & [B2].CurrentRegion.Rows.Count)
 For Jj = 1 To 2
   Set sRng = Rng.Find(Str(Jj), , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      If Jj = 1 Then
         Rws = sRng.Row:                           sRng.EntireRow.Insert
      Else
'         MsgBox sRng.Row, , Rws - sRng.Row  '
         Cells(sRng.Row, "G").FormulaR1C1 = "=SUM(R[1]C:R[" & Rws - sRng.Row & "]C)"
      End If
   End If
 Next Jj

 Exit Sub
End Sub

Rất vui nếu giúp được bạn ít nhiều

 

[khamha]

Option Explicit
Sub AddNewC1()
   GPE_AddNew 1
End Sub

Sub AddNewC2()
   GPE_AddNew 2
End Sub

Sub AddNewC3()
   GPE_AddNew 3
End Sub

Sub GPE_AddNew(Dong As Byte)
 Const Ch As String = "I.II.III."
 Dim Jj As Byte, Rws As Long:                      ReDim Str(1 To 2) As String
 Dim Rng As Range, sRng As Range
 
 MsgBox Dong
 Str(1) = Switch(Dong = 1, "II.", Dong = 2, "III.", Dong = 3, "TC")
 Str(2) = Switch(Dong = 1, "I.", Dong = 2, "II.", Dong = 3, "III.")
 Set Rng = Range("A2:C" & [B2].CurrentRegion.Rows.Count)
 For Jj = 1 To 2
   Set sRng = Rng.Find(Str(Jj), , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      If Jj = 1 Then
         Rws = sRng.Row:                           sRng.EntireRow.Insert
      Else
'         MsgBox sRng.Row, , Rws - sRng.Row  '
         Cells(sRng.Row, "G").FormulaR1C1 = "=SUM(R[1]C:R[" & Rws - sRng.Row & "]C)"
      End If
   End If
 Next Jj

 Exit Sub
End Sub

Rất vui nếu giúp được bạn ít nhiều

Mình Còn Kem Về Excel Lắm, Nên Không Biết Phải Sửa Như Thế Nào Có Gì Bạn Giúp Mình Luôn Với

 

[ChanhTQ@]

Bạn mở file đính kèm & thực hiện theo hướng dẫn sau

(1) Nhấn vô nút 'ThemDong CapI'; khi ấy macro sẽ thêm cho bạn dòng trống tại dòng 7 & nếu bạn kích hoạt vô ô [G3] sẽ thấy công thức =SUM(G4:G7) (thay vì =SUM(G4:G6) trước đó)
& tại [G13] ta có công thức: =SUM(G3:G12)/2

Tương tự như vậy khi ta nhấn nút giữa trong cột nút.

Riêng nút dưới cùng thì chưa hoàn toàn theo ý; sẽ tìm cách bổ sung sau; Giờ bạn chịu khó sửa bằng tay tại ô tổng cuối cùng. (Ô này chưa cập nhật như khi nhấn 2 nút trên)