Nhờ giúp đỡ hiển thị số trong công thức của excel (1 người xem)

[1131411314b]

Vấn đề là như vầy em muốn hiển thị tất cả các số trong các phép tính trong êxel để copy vào word .
vd
em có a1 = 3,2
a2 = 3
b1 = 1,2
b2 = 4
b3 = 6
em tính ra c1 = round((a1.a2+b1.b2)/b3,2)
c1 sẽ bằng 11
em muốn có 1 dãy số như sau (3,2.3+1,2.4)/6=11 có thể copy sang word được
đấy là 1 phép tính ví dụ . bạn nào giúp với

 

[nhat chi mai]

Vấn đề là như vầy em muốn hiển thị tất cả các phép tính trong êxel để copy vào word . Vd e có b1=6 ,b2=6 b3=b1.b2= 36
em muốn nó hiển thị thành 6.6=36 để copy sang word , bro nào giúp cái[/QUOTE]

Chú ý dùng từ nhé bạn, theo tôi có 1 cách, kích vào công thức bạn tính xong, copy lại công thức sau đó paste vào word

 

[1131411314b]

Em muốn hiển thị số cơ mà . Cần gì hiển thị công thức

 

[Quang_Hải]

Vấn đề là như vầy em muốn hiển thị tất cả các phép tính trong êxel để copy vào word . Vd e có b1=6 ,b2=6 b3=b1.b2= 36
em muốn nó hiển thị thành 6.6=36 để copy sang word , bro nào giúp cái

Cái yêu cầu này nếu dùng VBA thì cũng đơn giản thôi. Nó là vầy nè

Sub ngoqua()
[B3].Value = [B1].Value & "." & [B2] & "=" & [B1] * [B2]
End Sub

 

[VetMini]

=B1 & "." & B2 & "=" & (B1 * B2)

Yêu cầu vô duyên hết chỗ nói.

Lưu ý: không phải ai cũng thích được gọi là bro, kém nhã nhặn, đồng thời từ này cũng hàm ý nghĩa loại phái nữ ra.

 

[1131411314b]

có ai giúp với nào. hjx

 

[Quang_Hải]

có ai giúp với nào. hjx

Bạn không nhìn thấy đáp án của bài số 4 và 5 hay sao?

 

[1131411314b]

Bạn không nhìn thấy đáp án của bài số 4 và 5 hay sao?

em có rất nhiều phép tính . như thế k ổn bác ak

 

[dhn46]

Vậy dùng UDF nhé

Function Ct(Cell As Range)
    Dim Str As String
    Dim oMatch As Object
    Str = UCase(Mid(Replace(Cell.Formula, "$", ""), 2))
    With CreateObject("vbscript.regexp")
        .Global = True
        .Ignorecase = True
        .Pattern = "[A-Z]+\d+"
        For Each oMatch In .Execute(Str)
            Str = Replace(Str, oMatch, Range(oMatch))
        Next
        .Pattern = "[a-z]+"
        Str = .Replace(Str, "")
    End With
    Ct = Str & "=" & Cell.Value
End Function

 

[1131411314b]

nói thật e mới biết dùng exel . cái code add vào đâu để dùng . hjc add như nào . mong các bác chỉ giáo

 

[dhn46]

nói thật e mới biết dùng exel . cái code add vào đâu để dùng . hjc add như nào . mong các bác chỉ giáo

Như vậy là bài #4 bạn cũng không biết xử lý luôn.
Bạn xem File để hiểu hơn nha