Làm sao sau khi ENTER phép tính sẽ chỉ lấy value (không còn dấu = nữa)

[Tường_Vi]

Muội loay hoay mãi không đặt được câu hỏi thấy vừa ý...
---
Muội xin được hỏi tại cột A, cụ thể cell A1 muội gõ = 5-3 (ket qua hien thi la 2, nhung khi F2 ta thay = 5-3

Vậy viết code như nào để sau khi = 5-3 và Enter --> ta nhấn F2 thì thấy số 2

Em thử code sau nhưng không ổn (máy bị treo ngược cây cành)
kiểu

If not intersect([A:A], target) is nothing then
    if target <> "" then: target.value = target.value: exit sub
End if

Các Huynh chỉ giúp lại code cho muội nhé,

 

[cadafi]

Muội xin được hỏi tại cột A, cụ thể cell A1 muội gõ = 5-3 (ket qua hien thi la 2, nhung khi F2 ta thay = 5-3

Vậy viết code như nào để sau khi = 5-3 và Enter --> ta nhấn F2 thì thấy số 2

Bạn thử code này xem:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 1) AND (Target.Value <> "") Then Target.Value = Target.Value
End Sub

 

[BNTT]

Muội loay hoay mãi không đặt được câu hỏi thấy vừa ý...
---
Muội xin được hỏi tại cột A, cụ thể cell A1 muội gõ = 5-3 (ket qua hien thi la 2, nhung khi F2 ta thay = 5-3

Vậy viết code như nào để sau khi = 5-3 và Enter --> ta nhấn F2 thì thấy số 2

Em thử code sau nhưng không ổn (máy bị treo ngược cây cành)
kiểu

If not intersect([A:A], target) is nothing then
    if target <> "" then: target.value = target.value: exit sub
End if

Các Huynh chỉ giúp lại code cho muội nhé,

Muội muội có thể bớt thêm 0.1 giây trước khi nhấn Enter hông?

Là vầy, sau khi gõ =5-3, trước khi nhấn Enter, muội nhấn F9 rồi hẵng Enter.

Code này là của trời cho, khỏi viết.

 

[Tường_Vi]

Muội muội có thể bớt thêm 0.1 giây trước khi nhấn Enter hông?

Là vầy, sau khi gõ =5-3, trước khi nhấn Enter, muội nhấn F9 rồi hẵng Enter.

Code này là của trời cho, khỏi viết.

Hay quá, tuy mất 0,1s nhưng rất hiệu quả nhưng tại sao muội không record được macro quá trình này nhỉ?

 

[chibi]

Bạn dùng code này thử xem nhé.

    If Not Intersect([A:A], Target) Is Nothing Then
        If Target <> "" Then
            Application.EnableEvents = False
            Target.Value = Target.Value
            Application.EnableEvents = True
        End If
    End If

 

[Tường_Vi]

    If Not Intersect([A:A], Target) Is Nothing Then
        If Target <> "" Then
            Application.EnableEvents = False
            Target.Value = Target.Value
            Application.EnableEvents = True
        End If
    End If

Theo muội hiểu
Application.EnableEvents = False
dùng để tắt sự kiện worksheet_change có phải không? Khi đó code sẽ chỉ chạy một lần duy nhất?

Đoạn code trên mình có thể cho application.EnableEvents ra ngoài không ạh (sorry em chưa test)?

Cám ơn ka ka

 

[ghzktc]

Muội muội có thể bớt thêm 0.1 giây trước khi nhấn Enter hông?

Là vầy, sau khi gõ =5-3, trước khi nhấn Enter, muội nhấn F9 rồi hẵng Enter.

Code này là của trời cho, khỏi viết.

cho em hỏi, vậy cách này nếu dùng công thức, ví dụ ô A1 = ô B1 - ô C1, F9, enter thì có cách nào để khi thay đổi dữ liệu ở ô B1 và C1 mà A1 vẫn thay đổi theo đúng công thức không (mà vẫn chỉ nhìn thấy kết quả ở ô A1 chứ ko thấy công thức nữa)

 

[Hai Lúa Miền Tây]

cho em hỏi, vậy cách này nếu dùng công thức, ví dụ ô A1 = ô B1 - ô C1, F9, enter thì có cách nào để khi thay đổi dữ liệu ở ô B1 và C1 mà A1 vẫn thay đổi theo đúng công thức không (mà vẫn chỉ nhìn thấy kết quả ở ô A1 chứ ko thấy công thức nữa)

Bạn vừa muốn hiển thị giá trị, vừa muốn cập nhật giá trị thì chỉ có cách là dùng code. Ý bạn muốn giấu công thức ?

 

[ghzktc]

đúng rồi, nhưng dấu công thức mà ko dùng chức năng pro sheet của excel