Cảm ơn anh rất nhiều,nhưng em chưa hiểu đoạn Code này có phải là đoạn thừa không ạh?
Sub TinhTong()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
R1 = [C65536].End(xlUp).Row
For i = [C65536].End(xlUp).Row To 6 Step -1
If Cells(i, 3) = "" Then
Range("H" & i).Formula = Replace("=SUM(" & _
Cells(i + 1, 8).Address & ":" & Cells(R1, 8).Address & ")", "$", "")
R1 = i - 1
ElseIf Cells(i, 6) > 0 Then
Range("H" & i).FormulaR1C1 = "=RC[-3]*RC[-2]"
End If
R1 = R1 - IIf(Cells(i, 1) <> "", 1, 0)
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End SubĐúng là đoạn thừa đấy. Từ khóa rất nhiều, nhiều khi không nhớ hết. Vì vậy đôi khi cần phải sử dụng chức năng Record Macro.
Option Explicit
Sub SumFor()
Dim Rng As Range, sRng As Range, MyAdd As String
Dim Color_ As Byte, Rw As Long
Set Rng = Range([C65500].End(xlUp), [C7])
Set sRng = Rng.Find("")
If Not sRng Is Nothing Then
MyAdd = sRng.Address: Color_ = 35
Do
8 If Left(sRng.Offset(, -1), 1) = "M" Or Left(sRng.Offset(, -1), 1) = "N" Then
sRng.Offset(, 5).FormulaR1C1 = "=SUM(R[1]C:R[1]C)"
sRng.Offset(, 5).Interior.ColorIndex = IIf(Color_ = 35, 38, 35)
If Color_ = 38 Then Color_ = 35 Else Color_ = 38
12 Else
If sRng.Offset(2) = "" Then
Rw = 1: sRng.Offset(, 5).Font.ColorIndex = 3
Else
Rw = sRng.Offset(1).End(xlDown).Row - sRng.Row
End If
sRng.Offset(, 5).FormulaR1C1 = "=SUM(R[1]C:R[" & Rw & "]C)"
sRng.Offset(, 5).Interior.ColorIndex = 38
End If
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
End SubCác anh làm thế nào mà viết code nhanh thế. Anh có thể bày cho em cách muốn sử dụng từ khóa như thế nào thì nhanh và hiệu quả nhất được không?. Em thường soạn viết Code trong Word rồi copy ra thôi. Trong khi nếu xử lý lỗi thì có khi hàng tiếng chẳng xong.Đua tốc độ
khóa rất nhiều, nhiều khi không nhớ hết. Vì vậy đôi khi cần phải sử dụng chức năng Record Macro.
Vì mới chập chững bước vào VBA nên kiến thức của em còn kém. Mong nhờ anh dịch hộ em ý nghĩa của dòng này : Range("H" & i).Formula = Replace("=SUM(" & _Đua tốc độ
Code này có lẽ nhanh hơn đấy.
Tôi không rành về XDCB nên không thể dựa vào DVT của các thành phần mà tính được.PHP:Sub TinhTong() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual R1 = [C65536].End(xlUp).Row For i = [C65536].End(xlUp).Row To 6 Step -1 If Cells(i, 3) = "" Then Range("H" & i).Formula = Replace("=SUM(" & _ Cells(i + 1, 8).Address & ":" & Cells(R1, 8).Address & ")", "$", "") R1 = i - 1 ElseIf Cells(i, 6) > 0 Then Range("H" & i).FormulaR1C1 = "=RC[-3]*RC[-2]" End If R1 = R1 - IIf(Cells(i, 1) <> "", 1, 0) Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub
Đúng là đoạn thừa đấy. Từ khóa rất nhiều, nhiều khi không nhớ hết. Vì vậy đôi khi cần phải sử dụng chức năng Record Macro.
Viết code thì người ta viết trực tiếp vào cửa sổ VBE chứ ai lại soạn thảo trên Word nhỉ? Lở có sai cú pháp còn biết đường mà lần... Soạn trong Word thì có mà... chết
Range("H" & i).Formula = Replace("=SUM(" & _
Cells(i + 1, 8).Address & ":" & Cells(R1, 8).Address & ")", "$", "")[/QUOTE]Thông thường ít ai dùng hàm Replace để thay đổi địa chỉ tương đối, tuyệt đối... vì Address Property còn có các tham số ở bên trong cho phép bạn tùy chỉnh ---> Chẳng hạn để loại bỏ dấu $ người ta hay dùng .Address(0,0)
. . -> (có nghĩa là vũ như cẩn)Vì mới bước vào thế giới VBA nên em hỏi có gì không phải mong các bác bỏ qua cho. Quả thực em không giải thích được dòng trên mong các bác giúp đỡ./.Đua tốc độ
R1 = i - 1
.
Thưa anh em vẫn chưa hiểu được ý của anh. Em muốn thắc mắc tại sao R1 = i - 1 ah?
cái này phải xét luôn cả dòng trên
If Cells(i, 3) = "" Then
R1 = i - 1
