Nhờ tạo mã trong wba cho bài toán trên (1 người xem)

[vannamxd123]

nhờ a chị tạo dùm 1 đoạn mã trong WBA (alt+11) để cho số liệu tự nhân trong dòng, không phải dùng tay tính toán số liệu rồi gõ phím = , cho nó tự nhân ra trong dòng đó luôn. file đính kèm

 

[leonguyenz]

nhờ a chị tạo dùm 1 đoạn mã trong WBA (alt+11) để cho số liệu tự nhân trong dòng, không phải dùng tay tính toán số liệu rồi gõ phím = , cho nó tự nhân ra trong dòng đó luôn. file đính kèm

Tham khảo code này xem:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
If Not Intersect(Target, [D4100]) Is Nothing Then
If Target Like "*:*=" Then
Target = Target & " " & Evaluate(Trim _
(Mid(Target, InStr(Target, ":") + 1, _
InStr(Target, "=") - InStr(Target, ":") - 1)))
End If
End If
Application.ScreenUpdating = True
End Sub

[/gpecode]
Trong chuỗi có 1 dấu ":" và cuối chuỗi có dấu "=".