dấu mũ trong excel "^" (7 người xem)

[phan_huythai]

em có vấn đề nhờ các thầy, cô giúp đỡ.
dấu mũ khi ta vết trong excel là 2^2. nhưng em muốn khi mình hiện số ra dùng hàm " ct" như trong file. thì nó hiện ra 22. số ' 2" sau thì nó nhỏ hơn chỉ ở phía trên.

 

[ndu96081631]

em có vấn đề nhờ các thầy, cô giúp đỡ.
dấu mũ khi ta vết trong excel là 2^2. nhưng em muốn khi mình hiện số ra dùng hàm " ct" như trong file. thì nó hiện ra 22. số ' 2" sau thì nó nhỏ hơn chỉ ở phía trên.

Trả lời luôn cho bạn khỏi mất công suy nghĩ: HỔNG CÓ HÀM NÀO LÀM ĐƯỢC ĐIỀU NÀY CẢ

 

[thanhlanh]

Thêm vào hai dòng này vào cuối hàm ct

    [B]ct = Replace(ct, "^ 2", Chr(178))
    ct = Replace(ct, "^ 3", Chr(179))[/B]
End Function

 

[ndu96081631]

Thêm vào hai dòng này vào cuối hàm ct

    [B]ct = Replace(ct, "^ 2", Chr(178))
    ct = Replace(ct, "^ 3", Chr(179))[/B]
End Function

Tính toán trong Excel đâu chỉ có mũ 2 và 3
Trường hợp mũ 4, mũ 5... vân vân thì anh viết sao?
(nói chung là mũ.. bất kỳ)

 

[thanhlanh]

Tính toán trong Excel đâu chỉ có mũ 2 và 3
Trường hợp mũ 4, mũ 5... vân vân thì anh viết sao?
(nói chung là mũ.. bất kỳ)

Hì, hì thì ... tèo chớ sao nữa, ăn gian tí cũng không qua được ndu
Hàm thì không thể nhưng thủ tục thì được.

 

[phan_huythai]

"Hàm thì không thể nhưng thủ tục thì được." là sao ạ?

 

[canhsatlangtu113]

"Hàm thì không thể nhưng thủ tục thì được." là sao ạ?

Thì là thủ tục Sub với VBA đó mà...hihi.

Có những bài không thể giải quyết bằng hàm công thức nhưng có thể dùng VBA để giải quyết.

 

[thanhlanh]

Các bạn rãnh tham gia viết code cho bài này đi, thư giãn ít thôi chớ nhiều quá không hay đâu.
Bài này không dùng hàm được nên phải viết thủ tục.

Đề ra nôm na là:
Có một cột là các biểu thức tính toán bằng các phép tính số học và phép lũy thừa, đã có kết quả. Bây giờ tạo một cột diễn giải cho cột chứa các phép tính đó.

Chẳng hạn cột I là biểu thức: = 2^2 + 2^3 (hiển thị 12)

Nhiệm vụ ta là viết code sao cho ở cột H hiển thị chuỗi "2 ² + 2 ³ ="

Nào mời các bạn trẻ!

 

[salesvn]

phải nghiên cứu kỹ lại xem các bạn ạ

 

[nghiaphuc]

Tôi vừa xóa chữ ký vi phạm của bạn salesvn lần thứ nhất. Hy vọng sẽ không có lần thứ hai như vậy.

 

[phan_huythai]

em có cái này. mấy thầy xem được không. nhưng nếu với dấu mũ # 2,3 thì sao? em nghĩ cái này rất hay. mong các thầy phát triển thêm.

 

[ndu96081631]

em có cái này. mấy thầy xem được không. nhưng nếu với dấu mũ # 2,3 thì sao? em nghĩ cái này rất hay. mong các thầy phát triển thêm.

Thử vầy xem:

Public Function ct(ByVal rCel As Range)
  Dim strText As String, strOp As String
  Dim tmp1 As String, tmp2 As String, ch As String
  Dim j As Long
  Dim Arr, sAddr, p
  On Error Resume Next
  p = Array(8304, 185, 178, 179, 8308, 8309, 8310, 8311, 8312, 8313)
  strOp = "+-*/^()\"

  If rCel.HasFormula Then
    strText = rCel.Formula
    strText = Replace(strText, "=", "")
    strText = Replace(strText, " ", "")
    tmp1 = strText
    For j = 1 To Len(strOp)
      ch = Mid(strOp, j, 1)
      tmp1 = Replace(tmp1, ch, " ")
    Next
    tmp1 = WorksheetFunction.Trim(tmp1)
    Arr = Split(tmp1, " ")

    For j = 0 To UBound(Arr)
      tmp2 = Round(Evaluate(Arr(j)), 3)
      strText = Replace(strText, Arr(j), tmp2, , 1)
    Next
    For j = 1 To Len(strOp)
      ch = Mid(strOp, j, 1)
      If ch <> "(" And ch <> ")" Then
        strText = Replace(strText, ch, " " & ch & " ")
      End If
    Next
    ct = " = " & Replace(strText, "*", " x ")
    For j = 0 To 9
      ct = Replace(ct, "^ " & j, ChrW(p(j)))
    Next
  End If
    
End Function

Cho lũy thừa từ 0 đến 9 nhé

 

[phan_huythai]

thầy ơi. với các số lẻ thì sao? vd như 1.5, 1.6 thì sao ạ. hj

 

[ndu96081631]

thầy ơi. với các số lẻ thì sao? vd như 1.5, 1.6 thì sao ạ. hj

Bạn tự tìm trong Symbol xem có không? Tôi không biết (tìm xem có dấu chấm nào "treo trên trời" không?)

 

[thanhlanh]

Mình cũng đã làm nhưng thấy không ai tham gia nên thôi!, giờ có là vui rồi!
File của mình đây, số mũ bất kỳ nên chỉ dùng Sub. Không chấp nhận mũ lại là một biểu thức nha!

 

[phan_huythai]

bài của thầy rất hay. em nghĩ là thầy nên để nó thành 1 and-in và gán cho nó 1 cái tên thì mọi người dùng dễ hơn.

 

[phan_huythai]

gộp 2 bài của thầy ndu96081631 và thanhlanh thì thành 1 bài hoàn chỉnh. hjhj.
2 thầy bớt chút thời gian được không ạ.

 

[dhn46]

E cũng tham gia 1 bài góp vui
Cũng như bài của bác thanhlanh : số mũ bất kỳ nên chỉ dùng Sub

Sub Ct()[COLOR=#000000]
[/COLOR]    Dim i As Long, k As Long, s As String, Arr
    For Each cell In Selection.Cells
        If cell.HasFormula Then
            s = cell.Formula
            With CreateObject("vbscript.regexp")
                .Global = True
                .Pattern = "^[\+|=]*"
                s = .Replace(s, "")
                .Pattern = "\^(\d+|\D+)"
                ReDim Arr(1 To .Execute(s).Count, 1 To 2)
                For Each Match In .Execute(s)
                    s = Replace(s, Match, Right(Match, Len(Match) - 1))
                    k = k + 1
                    Arr(k, 1) = Match.FirstIndex - k + 2
                    Arr(k, 2) = Len(Match) - 1
                Next
            End With
            cell.Offset(, 1) = s
            For i = 1 To UBound(Arr)
                cell.Offset(, 1).Characters(Arr(i, 1), Arr(i, 2)).Font.Superscript = True
            Next
        End If
        k = 0
    Next
End Sub

 

[thanhlanh]

E cũng tham gia 1 bài góp vui
Cũng như bài của bác thanhlanh : số mũ bất kỳ nên chỉ dùng Sub

Sub Ct()[COLOR=#000000]
[/COLOR]   Dim i As Long, k As Long, s As String, Arr
    For Each cell In Selection.Cells
        If cell.HasFormula Then
            s = cell.Formula
            With CreateObject("vbscript.regexp")
                .Global = True
                .Pattern = "^[\+|=]*"
                s = .Replace(s, "")
                .Pattern = "\^(\d+|\D+)"
                ReDim Arr(1 To .Execute(s).Count, 1 To 2)
                For Each Match In .Execute(s)
                    s = Replace(s, Match, Right(Match, Len(Match) - 1))
                    k = k + 1
                    Arr(k, 1) = Match.FirstIndex - k + 2
                    Arr(k, 2) = Len(Match) - 1
                Next
            End With
            cell.Offset(, 1) = s
            For i = 1 To UBound(Arr)
                cell.Offset(, 1).Characters(Arr(i, 1), Arr(i, 2)).Font.Superscript = True
            Next
        End If
        k = 0
    Next
End Sub

Chưa biểu diễn được số mũ thập phân bạn!

----------------------------------------

Đính chính: Trong file của mình, dòng If InStr(1, "+-*/)%=", Schar) Then j = 0: n = 0
Xin được sửa lại là
If InStr(1, "+-*/)%=", Schar) And n <> 0 Then j = 0: n = 0 để biểu diễn số mũ âm.

 

[dhn46]

Ngồi ngâm cứu Code dhn46 bài #18 thấy có 1 số điểm cần sửa
1 - Khi đã kiểm tra Hasfomula thì không cần Pattern số 1 => bỏ Pattern số 1 + lấy chuỗi s không có ký tự "="
2 - Thay Pattern số 2 do không hiển thị được thập phân, dấu ngăn cách thập phân là dấu thập phân của phép tính

Code của bác thanhlanh chuyển hết dấu "." thành dấu ","

Code mới sẽ là:

Sub Ct()
    Dim i As Long, k As Long, s As String, Arr
    For Each cell In Selection.Cells
        If cell.HasFormula Then
            s = Right(cell.Formula, Len(cell.Formula) - 1)
            With CreateObject("vbscript.regexp")
                .Global = True
                s = .Replace(s, "")
                .Pattern = "\^-*(\d|[a-zA-Z])*((\.|,)*(\d|[a-zA-Z])*)*"
                ReDim Arr(1 To .Execute(s).Count, 1 To 2)
                For Each Match In .Execute(s)
                    s = Replace(s, Match, Right(Match, Len(Match) - 1))
                    k = k + 1
                    Arr(k, 1) = Match.FirstIndex - k + 2
                    Arr(k, 2) = Len(Match) - 1
                Next
            End With
            cell.Offset(, 1) = s
            For i = 1 To UBound(Arr)
                cell.Offset(, 1).Characters(Arr(i, 1), Arr(i, 2)).Font.Superscript = True
            Next
        End If
        k = 0
    Next
End Sub