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
----------------------------------------------
quên chép code
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ự


không còn như những bài trước tự hỏi tự trả lời

----------------------------------------------
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: