Nhờ viết code điền diễn giải (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

langtuchungtinh360

Thành viên đã dừng hoạt động
Tham gia
7/10/13
Bài viết
1,062
Được thích
334
Chào mọi người.
Hiện em đang tập tành viết code này nọ
em đang viết 1 code để điền diễn giải dùng cho công việc
code hiện chỉ chính xác được 1 phần, còn mấy vấn đề nữa mà em không biết cách giải quyết ra sao
mong được sự giúp đỡ từ mọi người
cái này thì em bí thật sự +-+-+-+ rất mong mọi người giúp-\\/.
không còn như những bài trước tự hỏi tự trả lời -0-/.
----------------------------------------------
quên chép code
Mã:
Function DienGiai(Rn As Range)
Dim i As Long
Dim Str1 As String, Str2 As String
With Rn
For i = 1 To .Columns.Count
Str1 = Range(.Columns(i).Address).Value
Str2 = Range(.Columns(i).Address).Formula
If Str1 <> Str2 Then
DienGiai = DienGiai & " " & "(" & Range(.Columns(i).Address).Formula & ")"
Else
DienGiai = DienGiai & " " & Range(.Columns(i).Address).Value
End If
Next i
End With
DienGiai = Replace(Trim(Replace(DienGiai, "=", "")), " ", "*")
End Function
 

File đính kèm

Lần chỉnh sửa cuối:
ăn ở thế nào mà chả thấy mấy người quan tâm thế nhỉ ,,,,,,,,,,,,,,,,,,,,,,,,,,,,
 
Upvote 0
Tôi thì hiểu, và tôi cũng chẳng cần cảm ơn.
Chỉ phải tội tôi lười thọc tay vào mấy cái loại code màu mè chả có mục đích gì.
 
Upvote 0
Hihi em chỉ trả lời khi có ấn nút cảm ơn thôi. He he
nhấn rồi mà chả thấy đâu -\\/.
Mã:
Function DienGiai(Rn As Range, Optional Sep As String = "*") As String
    Dim i As Long
    Dim Arr As String
    Arr = "QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm"
    Dim Str1 As String, Str2 As String, Str3 As String
    With Rn
        For i = 1 To .Columns.Count
            Str1 = Range(.Columns(i).Address).Value 'lay gia tri cua o
            Str2 = Range(.Columns(i).Address).Formula 'lay cong thuc cua o
            Str3 = Replace(Range(.Columns(i).Address).Formula, "=", "") 'lay gia tri nhap vao
            Val2 = Evaluate(Str2)
            Val3 = Evaluate(Str3)
            If IsError(Val2) Then Val2 = "" Else Val2 = Val2
            If IsError(Val3) Then Val3 = "" Else Val3 = Val3
            If Str1 = Str2 And Str3 = Val2 And Val3 = Str1 Then
                DienGiai = DienGiai & "•" & Str1
                GoTo Nexi
            End If
            If Str1 = Val2 And Str1 = Val3 Then
                For u = 1 To Len(Arr)
                    For y = 1 To Len(Str3)
                        If Mid$(Arr, u, 1) = Mid$(Str3, y, 1) Then GoTo Co
                    Next y
                Next u
                DienGiai = DienGiai & "•" & "(" & Str3 & ")"
                GoTo Nexi
Co:
                DienGiai = DienGiai & "•" & Str1
            End If
            If Str1 = Str2 And Str2 = Str3 Then DienGiai = DienGiai & "•" & "(" & Str1 & ")"
Nexi:
        Next i
    End With
    DienGiai = Replace(Replace(Trim(Replace(Replace(DienGiai, " ", vbBack), "•", " ")), " ", Sep), vbBack, " ")
End Function
Nếu ai đó..........hiểu thì đã giúp bạn rồi...
Cơ mà lần nào cũng vậy, thấy bạn hỏi bài là...thôi chạy đi cho chắc ăn...Chứ nó cứ thế nào ấy...đọc chả hiểu nổi...!!! (chắc do bạn suy nghĩ nó cao siêu quá chăng...--=0--=0--=0)
cảm ơn bác, nhờ đọc câu này thì cảm thấy mấy đứa ngu tuyệt đối thường không được ai giúp (phải tự thân vận động để thoát cái ngu)
Câu này nè: Đã ngu nhưng còn cố chứng tỏ mình ngu thì là ngu tuyệt đối.
Tôi thì hiểu, và tôi cũng chẳng cần cảm ơn.
Chỉ phải tội tôi lười thọc tay vào mấy cái loại code màu mè chả có mục đích gì.
cảm ơn bác đã quan tâm và trả lời bài viết. đối với bác nó là màu mè, nhưng đối với em thì nó lại giúp được cho công việc của em, vì em lười nên chả muốn copy tất cả công thức rồi cho vào 1 cái diễn giải. đến lúc sửa số thì sửa lại diễn giải, thằng lười thì ở không đâu mà ngồi sửa
 
Lần chỉnh sửa cuối:
Upvote 0
cảm ơn bác, nhờ đọc câu này thì cảm thấy mấy đứa ngu tuyệt đối thường không được ai giúp (phải tự thân vận động để thoát cái ngu)

Tự mình làm được mà không cần ai giúp là điều đáng chúc mừng mà bạn. Điều bạn tự tìm ra thì bạn sẽ nhớ rất lâu, đúng không?
 
Upvote 0

Bài viết mới nhất

Back
Top Bottom