Giúp code hiện đầy đủ công thức ( bỏ dấu = bên trái )

[hondacrv2019]

Chào các bác. Em cần 1 đoạn code để không cần hiện kết quả phép tính nữa mà hiện lại Đoạn text của công thức ( Mỗi lần em hay làm thủ công là e xóa dấu = đằng trước góc trái )


Và cho em hỏi nếu làm được vậy. Làm luôn đoạn code thêm ngược lại dấu = để công thức tính toán lại. Xin cảm ơn

 

[Phuocam]

Public Sub XoaDauBang()
Dim r As Range, a
For Each r In Selection
    a = r.Formula
    If Left(a, 1) = "=" Then a = Mid(a, 2)
    r.Value = a
Next
End Sub

Public Sub ThemDauBang()
Dim r As Range
For Each r In Selection
    r.Value = "=" & r.Value
Next
End Sub

 

[hondacrv2019]

Public Sub XoaDauBang()
Dim r As Range, a
For Each r In Selection
    a = r.Formula
    If Left(a, 1) = "=" Then a = Mid(a, 2)
    r.Value = a
Next
End Sub

Public Sub ThemDauBang()
Dim r As Range
For Each r In Selection
    r.Value = "=" & r.Value
Next
End Sub

thank bac nhieu

 

[hondacrv2019]

Public Sub XoaDauBang()
Dim r As Range, a
For Each r In Selection
    a = r.Formula
    If Left(a, 1) = "=" Then a = Mid(a, 2)
    r.Value = a
Next
End Sub

Public Sub ThemDauBang()
Dim r As Range
For Each r In Selection
    r.Value = "=" & r.Value
Next
End Sub

Bạn ơi code hình như vẫn bị lổi . bạn giúp mình với

 

[HieuCD]

Bạn ơi code hình như vẫn bị lổi . bạn giúp mình với
View attachment 226479

Không nên gởi 1 vấn đề ở nhiều bài, thêm điều kiện đề phòng chạy code lung tung

Public Sub XoaDauBang()
Dim r As Range, a
For Each r In Selection
    a = r.Formula
    If Left(a, 1) = "=" Then r.Value = Mid(a, 2)
Next
End Sub

Public Sub ThemDauBang()
Dim r As Range
For Each r In Selection
    a = r.Formula
    If Len(a) Then
      If Left(a, 1) <> "=" Then r.Value = "=" & a
    End If
Next
End Sub