Làm sao để một macro tự chạy?

[begin2008]

Mình nhờ các bạn giúp đỡ 1 vấn đề như sau:
Mình có 1 bảng tính có 2 cột số tiền: 1 cột ghi bằng số (tự nhập) và 1 cột bằng chữ (tự động hiện ra khi có số ở cột trước). Vấn đề ở đây là mình không muốn dùng công thức mà muốn dùng 1 macro để sử dụng tiện ích "Đổi số ra chữ" có sẵn. VD: Khi mình nhập số ở cột 1 thì sau khi Enter số tiền ở cột 2 cũng tự động hiện ra (giống như dùng công thức ấy). Ai biết chỉ dùm/

 

[whitemouse]

Chào bạn:
Vậy thì ở this workbook trong VBA bạn chọn sự kiện workbook_open rồi cho module chứa đoạn code "đổi số ra chữ" chạy là ok rồi.
Thân.

 

[ptm0412]

Chào bạn:
Vậy thì ở this workbook trong VBA bạn chọn sự kiện workbook_open rồi cho module chứa đoạn code "đổi số ra chữ" chạy là ok rồi.
Thân.

Bạn thử làm theo cách này chưa vậy?
- Cho module chạy? Tôi không hiểu?
- Nếu là chạy code đổi số ra chữ, đó là 1 hàm, cho chạy 1 hàm? tôi chưa thấy lần nào.
- Chạy module hoặc chạy code đổi số ra chữ khi mở file, rồi sau đó mỗi khi gõ số tiền ở cột thứ nhất thì số tiền bằng chữ tự hiện ra ở cột thứ 2?

Bạn làm rồi thì bạn gửi file lên cho anh em học hỏi với.

 

[ngocmaipretty]

Mình nhờ các bạn giúp đỡ 1 vấn đề như sau:
Mình có 1 bảng tính có 2 cột số tiền: 1 cột ghi bằng số (tự nhập) và 1 cột bằng chữ (tự động hiện ra khi có số ở cột trước). Vấn đề ở đây là mình không muốn dùng công thức mà muốn dùng 1 macro để sử dụng tiện ích "Đổi số ra chữ" có sẵn. VD: Khi mình nhập số ở cột 1 thì sau khi Enter số tiền ở cột 2 cũng tự động hiện ra (giống như dùng công thức ấy). Ai biết chỉ dùm/

Giả sử số gõ vào cột A từ A1 đến A100 và số tiền bằng chữ hiện ra ở cột B từ B1 đến B100
Giả sử hàm đọc số có sẵn (bất kỳ) là hàm Docso(So)

Dùng code này trong sheet:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
With Target.Offset(0, 1)
.Formula = "=Docso(" & Target & ")"
.Value = .Value
End With
End If
End Sub