Tôi cứ ngỡ "cao nhũ đầu mà rụ" thớt nói trại đi chứ.Cao thủ >> đầu cao >> hay va chạm vào cửa/ trần nhà >> đầu bị xây xát nhiều lần >> nhiễm trùng >> mưng mủ.
Chuẩn không cần chỉnh.
Không chơi trò này đâu anh. Không biết chủ thớt dịch được không.
Bạn 8X đời đầu à. Nói vui vậy chứ có ý gì đâu bạn. Có nhất thiết phải khó tính vậy không bạn
Tám ít thì là hàng con cháu tôi.
))))). Tầm ấy mà biết VBA thì chỉ có thể là cao thủ thôiNếu cái "khai báo" kia là thực thì con thôi bác. Chả nhẽ vợ bác và con dâu bác đều quan hệ với trẻ vị thành niên và ........................................ dính ngay?. Nếu thế thì hai bà sành ăn thật.
Có thể chưa được 6. Chắc chỉ 5+ thôi.
Bạn thử.
Function conggop(ParamArray mang())
Dim s As String, T, T1
For Each T In mang
For Each T1 In T
s = s & "+" & T1.Address(0, 0)
Next
Next
conggop = Right(s, Len(s) - 1)
End FunctionCám ơn anh rât nhiều nha!
Cám ơn anh rất nhiều. Mình đã sửa theo đúng ý mình. Chân thành cám ơn anh rất nhiều
Ghê vậy ta. Con cháu. Chẳng nghẽ Bác sinh đầu 6 sao ạ.
Bạn việc gì phải vậy. Lễ giáo là tốt. Nhưng cái gì quá thì cũng không tốt. Có thể là 1 kẻ giả dối đạo đức giả.
Cám ơn anh. Nhưng anh có thể giúp em 1 chút nữa được không ạ. Em đã làm như vậy nhưng với cột không có giá trị thì nó hiện như hình dưới và mất công đi xóa dấu "+" thừa đó
Bạn thử.
Function conggop(ParamArray mang())
Dim s As String, T, T1
For Each T In mang
For Each T1 In T
If Len(T1.Value) Then s = s & "+" & T1.Address(0, 0)
Next
Next
conggop = Right(s, Len(s) - 1)
End Function
