Nhờ giúp code dò tìm và thêm dấu vào trước chuỗi (1 người xem)

[nhk007dn]

e cần đoạn code có chức năng dò tìm trong vùng B4:A nếu là "số" thì giữ nguyên, nếu là "số+số" thì thêm dấu bằng ở trước (mục đích cho nó ra kết quả nhưng vẫn kiểm soát được số khi đưa con trỏ vào ô đó.
xin cảm ơn.

 

[befaint]

Sub Tinh()
Dim cll As Range
For Each cll In Sheet1.UsedRange
   If Not IsEmpty(cll.Value) Then cll.Value = Evaluate(cll.Value)
Next cll
End Sub

 

[nhk007dn]

Sub Tinh()
Dim cll As Range
For Each cll In Sheet1.UsedRange
   If Not IsEmpty(cll.Value) Then cll.Value = Evaluate(cll.Value)
Next cll
End Sub

Ví dụ ô B4 là "2+2"
thì khi chạy code này sẽ cho ra kết quả tại ô B4 là "4"
e muốn khi chạy code thì kết quả ở ô B4 là "=2+2"
Lý do là để sau này khi đưa con trỏ vào ô B4 vẫn biết được số 4 này là từ 2+2 mà thành.
Còn những số bình thường không có dấu cộng thì giữ nguyên.
làm vậy được ko a?

 

[befaint]

Ví dụ ô B4 là "2+2"
thì khi chạy code này sẽ cho ra kết quả tại ô B4 là "4"
e muốn khi chạy code thì kết quả ở ô B4 là "=2+2"
Lý do là để sau này khi đưa con trỏ vào ô B4 vẫn biết được số 4 này là từ 2+2 mà thành.
Còn những số bình thường không có dấu cộng thì giữ nguyên.
làm vậy được ko a?

Sub NHK()
Dim cll As Range
For Each cll In Sheet1.UsedRange
   If Not IsNumeric(cll.Value) Then cll.Value = "=" & (cll.Value)
Next cll
End Sub

 

[nhk007dn]

Sub NHK()
Dim cll As Range
For Each cll In Sheet1.UsedRange
   If Not IsNumeric(cll.Value) Then cll.Value = "=" & (cll.Value)
Next cll
End Sub

Sub NHK()
Dim cll As Range
For Each cll In Sheet1.UsedRange
   If Not IsNumeric(cll.Value) Then cll.Interior.ColorIndex = 8
   If Not IsNumeric(cll.Value) Then cll.Value = "=" & (cll.Value)
Next cll
End Sub

e thêm phần tô màu xanh vào các cell có công thức, dễ nhận biết hơn.
a cho hỏi thêm như vậy là được chưa? có cách nào gọn hơn không? (e muốn hỏi để tìm hiểu thêm)
cảm ơn.

 

[befaint]

e thêm phần tô màu xanh vào các cell có công thức, dễ nhận biết hơn.
a cho hỏi thêm như vậy là được chưa? có cách nào gọn hơn không? (e muốn hỏi để tìm hiểu thêm)
cảm ơn.

Bạn cứ RUN nó thôi. Kết quả ngoài mong đợi luôn