Một số Macro thông thường (3 người xem)

[handung107]

1/ Tạo Macro chuyển đổi chữ thường sang chữ hoa

Trong Excel, chọn menu Tools, Macro, nhập tên macro là LoUpCase trong mục Macro Name rồi nhấn nút Create. Excel sẽ mở ra cho bạn cửa sổ VBA, trong đó bạn bấm vào nút Project Explorer trên thanh công cụ, sau đó bạn nhấp đúp chuột vào mục Module1 trong mục Module. Bạn sẽ thấy cửa sổ code mở ra, bên trên có 2 list liệt kê, bạn bấm chuột vào list bên trái chọn mục (General), chọn list bên phải mục (Declarations) rồi nhập vào dòng lệnh :

Public ShiftCase as Integer

Sau đó bấm chọn mục LoUpCase bên list phải bạn sẽ thấy trên cửa sổ code xuất hiện 2 dòng như sau :

Sub LoUpCase( )
End Sub

Bạn nhập đoạn mã sau vào giữa hai dòng này :

ShiftCase = ShiftCase + 1
If ShiftCase > 3 Then ShiftCase=1
For Each Item In Selection
Select Case ShiftCase
Case 1
Item.Value =LCase(Item.Value)
Case 2
Item.Value = UCase(Item.Value)
Case 3
Item.Formula =Application. Proper(Item)
End Select
Next Item

Sau đó bạn đóng cửa sổ VBA lại để trở lại với Excel, trên thanh Toolbar, bạn bấm chuột phải và chọn mục Customize. Hộp thoại xuất hiện bạn chọn tab Commands, bạn tìm mục Macros trong danh sách Categories. Bên mục Commands sẽ xuất hiện hai mục là Custom menu Item và Custom Button. Bạn bấm chuột vào mục Custom Button và kéo nó ra rồi thả trên một ví trí thích hợp trên thanh công cụ. Tiếp theo, bạn bấm chuột phải vào nút vừa kéo ra, bạn chọn mục Assign Macro. Hộp thoại nữa xuất hiện, bạn bấm chọn mục có tên là LoUpCase vừa tạo ra l và nhấn OK. Sau đó nhấn Close đề đóng cửa sổ Customize. Bây giờ bạn chọn một cell, cột, hàng có nội dung cần chuyển đổi sau đó nhấn vào nút lệnh trên bạn sẽ lần lượt có các kiểu chuyển đổi như sau : ABC, abc, Abc

 

[handung107]

2/ Macro cộng giá trị trong ô hiện hành với giá trị trong một ô khác

Thí dụ : E3 = E3 + E4

Sub MySum()
‘ macro cộng giá trị cell đang chọn với cell E4'
‘ rồi cất kết quả vào cell đang chọn.'
ActiveCell.Value = ActiveCell.Value + Range(“E4”)
End Sub

Rồi gán 1 trình tự phím tắt hay 1 icon trong toolbar cho macro này để tiện dụng. Mỗi lần cần thực hiện phép tính trên, bạn chỉ cần ấn trình tự phím tắt hay icon lệnh tương ứng.

 

[hanhdhyd]

3/ Macro chuyển chuỗi Text dạng công thức trong 1 Cell sang thành công thức tại Cell khác

Sưu tầm từ Internet​

Thí dụ : Bạn nhập vào Cell A1 : 2*3+5= sau đó bạn muốn tại A2 Copy giá trị trong Cell A1 sang, nhưng chuyển vị trí dấu "=" lên đầu biểu thức để Excel có thể tính toán công thức này tại A2

- Chọn thực đơn Tools.Macro .Macros, nhập tên macro cần tạo (thí dụ tinhcongthuc) vào mục Macro Name rồi chọn Create. Trình Visual Basic sẽ chạy và hiển thị khung thủ tục để nhập vào.

- Nhập các lệnh sau vào thân của thủ tục tinhcongthuc:

Sub tinhcongthuc()

 Dim a, b As String

 For Each c In Selection.Cells
    a = c.Value
    b = Right(a, 1)

    If b = ?=? Then
        a = Left(a, Len(a) - 1)
        c.Offset(0, 1).Value = b+a
    Else
         c.Offset(0, 1).Value = ?Error?
   End If
Next
End Sub

- Chọn thực đơn View .Toolbars.Customize, chọn nút Command.Macros. Kéo nút Custom button đến một vị trí nào đó trên một thanh công cụ của Excel. Nhấn phím phải vào nút vừa tạo, chọn Edit button Image trong thực đơn xuất hiện để thay đổi hình dạng đồ họa của nút. Chọn Assign macro để liên kết nút với macro tinhcongthuc. Sau cùng, chọn Name để hiệu chỉnh tên nhận dạng của nút.

Bây giờ bạn đã có một nút macro mới với cách dùng như sau :

- Nhập một hay nhiều công thức theo cú pháp riêng của bạn vào một cột, Excel sẽ xem đây như là chuỗi ký tự bình thường.

- Chọn các công thức vừa nhập.

- Nhấn nút tinhcongthuc, các lệnh trong macro sẽ được thi hành và bạn sẽ có kết quả của các công thức bên cột ngay bên phải. Lưu ý việc tính công thức không thể tự động được, do đó nếu có sự thay đổi về công thức của bạn, bạn phải thực hiện lại bước này để Excel tính lại kết quả.

Tùy yêu cầu, bạn có thể hiệu chỉnh lại giải thuật của macro bằng thực đơn Tools.Macro.Macros chọn macro cần hiệu chỉnh rồi nhấn nút Edit. Cửa sổ MS Visual Basic chứa mã lệnh của macro sẽ hiện lên để bạn hiệu chỉnh

 

[Mss.Happy]

(Macro chuyển chữ thường sang hoa) Mình làm đúng như vậy, sao chỉ chuyển sang chữ thường được thôi :-ss