Trong bài này, chúng ta sẽ học cách ghi macro và sau đó là cách sửa đổi nó để dễ học hơn.

Làm thế nào để viết macro cho công thức Sum trong VBE Chúng tôi có một dữ liệu Excel trong phạm vi A1: C14, trong đó cột A chứa tên, Cột B có dấu của chủ đề 1 và cột C có dấu của chủ đề 2. Trong cột D, I muốn trả về tổng số điểm .

Để chèn công thức tính tổng bằng VBA trong Microsoft Excel, hãy làm theo các bước được đề cập dưới đây: – * Mở dữ liệu Excel.

  • Đầu tiên, bạn ghi macro để trả về tổng điểm trong ô D2.

  • Trong tab “Nhà phát triển”, chọn “Ghi Macro” từ nhóm “Mã”.

  • Hộp thoại “Ghi Macro” sẽ xuất hiện.

  • Trong hộp “Tên Macro”, viết tên của macro mà không sử dụng bất kỳ khoảng trắng và ký tự đặc biệt nào.

  • Nhập phím cắt ngắn tùy theo ý bạn muốn.

  • Và viết mô tả về macro trong hộp mô tả.

  • Quá trình ghi sẽ bắt đầu ngay bây giờ.

  • Viết công thức tổng vào ô D2.

  • Dán công thức vào phạm vi D3: D14.

Nhấp vào “Dừng ghi” Để xem các macro đã ghi, hãy nhấn phím “ALT + F11”.

  • Mã đã ghi sẽ như sau: –

Sub SUM()

'

'SUM Macro

'Total marks obtain

'

' Keyboard Shortcut: Ctrl+Shift+S

'

Range("D2").Select

ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"

Selection.Copy

Range("C2").Select

Selection.End(xlDown).Select

Range("D14").Select

Range(Selection, Selection.End(xlUp)).Select

ActiveSheet.Paste

Range("D2").Select

End Sub

Như bạn có thể thấy rằng mã VBA được đề cập ở trên quá dài để trả về tổng điểm, và nó cũng không dễ hiểu. Do đó, chúng tôi sửa đổi mã hóa.

Sub SUM()

Dim X As Integer

X = Application.WorksheetFunction.CountA(Range("A:A"))

Range("D2:D" & X).Value = "=Sum(B2:C2)"

End Sub

Cách viết macro cho công thức Trung bình trong VBE

Chúng tôi có một dữ liệu Excel trong phạm vi A1: C14, trong đó cột A chứa tên, Cột B có điểm của môn 1 và cột C có điểm của môn 2. Trong cột D, tôi muốn trả lại điểm trung bình.

Để chèn công thức trung bình bằng VBA trong Microsoft Excel 2010 và 2013, hãy làm theo các bước được đề cập dưới đây: – * Mở dữ liệu Excel.

  • Đầu tiên, bạn ghi macro để trả về điểm trung bình trong ô D2.

  • Trong tab “Nhà phát triển”, chọn “Ghi Macro” từ nhóm “Mã”.

  • Hộp thoại “Ghi Macro” sẽ xuất hiện.

  • Trong hộp “Tên macro”, viết tên của macro mà không sử dụng bất kỳ khoảng trắng và ký tự đặc biệt nào.

  • Nhập phím cắt ngắn – tùy ý bạn muốn.

  • Và viết mô tả về macro trong hộp mô tả.

  • Quá trình ghi sẽ bắt đầu ngay bây giờ.

  • Viết công thức “AVERAGE” trong ô D2.

  • Dán công thức vào phạm vi D3: D14.

  • Nhấp vào “Dừng ghi”.

  • Để xem các macro đã ghi, nhấn phím “ALT + F11”.

  • Mã đã ghi sẽ như sau: –

Sub AVERAGE()

'

'AVERAGE Macro

'Total marks obtain

'

' Keyboard Shortcut: Ctrl+Shift+A

'ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:RC[-2])"

Selection.Copy

Range("E2").Select

Selection.Copy

Range("D2").Select

Selection.End(xlDown).Select

Range("E14").Select

Range(Selection, Selection.End(xlUp)).Select

ActiveSheet.Paste

Range("E13").Select

Selection.End(xlUp).Select

End Sub

Như bạn có thể thấy rằng mã VBA được đề cập ở trên quá dài để trả về tổng điểm và nó cũng không dễ hiểu; do đó, chúng tôi sửa đổi mã.

Sub Average()

Dim X As Integer

X = Application.WorksheetFunction.CountA(Range("A:A"))

Range("E2:E" & X).Value = "=Average(B2:C2)"

End Sub

Bằng cách này, chúng ta có thể học cách ghi macro và sau đó là cách sửa đổi nó.

Nếu bạn thích blog của chúng tôi, hãy chia sẻ nó với bạn bè của bạn trên Facebook. Và bạn cũng có thể theo dõi chúng tôi trên Twitter và Facebook.

Chúng tôi rất muốn nghe ý kiến ​​từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện, bổ sung hoặc đổi mới công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi tại [email protected]