Giúp em cách Show Formula (3 người xem)

[cauthungoaihang]

Các anh chị cho em hỏi chút, em gặp một vấn đề khá là khoai với em như thế này:
Giả sử ô A1 =3, ô B1=4. Ô C1 công thức là =A1+B1, kết quả là 7. Ô D1 công thức là =C1, kết quả là 7. Có cách nào để ô D1 hiện lên dòng chữ là =A1+B1 không?(hay là A1=B1 cũng được).
Khi ô thay công thức trong ô C1 thì dòng chữ ở ô D1 cũng thay đổi theo. Em mò đã 2 ngày rồi mà không ra. Dùng Show formula thì hiện lên =C1, mà mỗi lần muốn thấy đều phải nhấn Show Formula thì mệt lắm. Mục đích của em là để lấy được chữ A1 và B1 kia thôi.
Bác nào tốt bụng giúp em với nhé. Em cảm ơn nhìu nhìu.

 

[TranThanhPhong]

Các anh chị cho em hỏi chút, em gặp một vấn đề khá là khoai với em như thế này:
Giả sử ô A1 =3, ô B1=4. Ô C1 công thức là =A1+B1, kết quả là 7. Ô D1 công thức là =C1, kết quả là 7. Có cách nào để ô D1 hiện lên dòng chữ là =A1+B1 không?(hay là A1=B1 cũng được).
Khi ô thay công thức trong ô C1 thì dòng chữ ở ô D1 cũng thay đổi theo. Em mò đã 2 ngày rồi mà không ra. Dùng Show formula thì hiện lên =C1, mà mỗi lần muốn thấy đều phải nhấn Show Formula thì mệt lắm. Mục đích của em là để lấy được chữ A1 và B1 kia thôi.
Bác nào tốt bụng giúp em với nhé. Em cảm ơn nhìu nhìu.

Trong file muốn Show công thức nhấn ALT+F11 để mở cửa sổ VBE
Vào Insert | chọn Module và dán đoạn mã sau vào

Function FD(mycell)
    If mycell = "" Then
        FD = ""
    Else
        If Left(mycell.Formula, 1) <> "=" Then
            a = mycell.Address(0, 0)
            FD = a + "=Value"
        Else
            a = mycell.Address(0, 0)
            F = mycell.Formula
            FD = a + F
        End If
    End If
End Function

Lưu lại và đóng cửa sổ VBE.
Tại ô D1 nhập vào công thức sau: =FD(C1)

Nếu muốn sử dụng hàm tự tạo (UDF) này cho các bảng tính khác thì nên tạo thành Add-Ins để sử dụng.

Thanh Phong

 

[ditimdl]

Mình có add-in này lâu rồi nhưng không nhớ của ai.
Ví dụ bạn muốn hiện công thức ở ô A1 thì tại 1 cell khác bạn gõ công thức =hienct(A1) là được. Nhớ thêm add-in trước khi dùng.

 

[ndu96081631]

Nếu xây dựng 1 UDF, mình thấy code chỉ vầy là đủ:

Function ForText(MyCell As Range) As String
  If MyCell.HasFormula Then ForText = MyCell.Formula
End Function

Ngoài ra, công thức cũng có thể giải quyết được bài toán này (dùng hàm GET.CELL(6) )

 

[Lê Duy Thương]

Các anh chị cho em hỏi chút, em gặp một vấn đề khá là khoai với em như thế này:
Giả sử ô A1 =3, ô B1=4. Ô C1 công thức là =A1+B1, kết quả là 7. Ô D1 công thức là =C1, kết quả là 7. Có cách nào để ô D1 hiện lên dòng chữ là =A1+B1 không?(hay là A1=B1 cũng được).
Khi ô thay công thức trong ô C1 thì dòng chữ ở ô D1 cũng thay đổi theo. Em mò đã 2 ngày rồi mà không ra. Dùng Show formula thì hiện lên =C1, mà mỗi lần muốn thấy đều phải nhấn Show Formula thì mệt lắm. Mục đích của em là để lấy được chữ A1 và B1 kia thôi.
Bác nào tốt bụng giúp em với nhé. Em cảm ơn nhìu nhìu.

bấm ctrl+~là ok thôi

 

[ndu96081631]

bấm ctrl+~là ok thôi

Bạn không thấy người ta có đề cập đến vụ này sao:

Dùng Show formula thì hiện lên =C1, mà mỗi lần muốn thấy đều phải nhấn Show Formula thì mệt lắm

Tức người ta có biết đến cách này nhưng người ta không muốn dùng ---> Vậy mà cứ "ép dùng" ---> Là sao trời?