USB1394
Thành viên hoạt động
- Tham gia
- 20/12/08
- Bài viết
- 173
- Được thích
- 12
- Nghề nghiệp
- Lính triều đình
Bạn dùng hàm sau xem sao nhé:Mình có một sheet : DS các KH và chi tiết một KH là một sheet . Vậy có cách nào dùng hàm siêu liên kết thay cho Ctrl+K . Mình có gởi file mong các bạn giúp đỡ , xin cám ơn
C2 =INDIRECT("'"&RIGHT(B2)&"'!A1")
Sao lại không liên kết đến sheet nhỉ? Bạn đã thử chưa? Hãy điền giá trị vào ô A1 của sheetA hoặc sheetB xem. Còn trong file của Bạn gửi lên giải thích chả rõ ràng đọc mãi mà ko hiểu nỗi. Bạn nên giải thích và cho ví dụ ra kết quả như thế nào để có hướng giúp chứ.Xin cám ơn các bạn đã quan tâm và giúp đỡ , mình xin gởi lại file (chi tiết hơn) để các bạn xem . Còn T/h của bạn MinhCong thì KQ : 0 nhưng vẫn ko liên kết đến sheet được .
Trong bài gởi mình minh họa tại cell C2 .
Kết quả của hàm là 1 link liên kết đến sheet tương ứng và sẽ gán vào text (bất kì) trong cell C2
Mong sớm nhận hồi âm , xin cám ơn
Xin cám ơn các bạn đã quan tâm và giúp đỡ , mình xin gởi lại file (chi tiết hơn) để các bạn xem . Còn T/h của bạn MinhCong thì KQ : 0 nhưng vẫn ko liên kết đến sheet được .
Trong bài gởi mình minh họa tại cell C2 .
Kết quả của hàm là 1 link liên kết đến sheet tương ứng và sẽ gán vào text (bất kì) trong cell C2
Mong sớm nhận hồi âm , xin cám ơn
để mình xem lại CT của bạn cái đã , vì lần trước bạn ko nói thêm là phải nhập nội dung vào ô A1 của sheetA . . . .Sao lại không liên kết đến sheet nhỉ? Bạn đã thử chưa? Hãy điền giá trị vào ô A1 của sheetA hoặc sheetB xem. Còn trong file của Bạn gửi lên giải thích chả rõ ràng đọc mãi mà ko hiểu nỗi. Bạn nên giải thích và cho ví dụ ra kết quả như thế nào để có hướng giúp chứ.
Nhưng còn 1 VĐ nhỏ : hàm PROPER("HÀ VIỆT") lại trả về KQ : Hà ViỆt ,ko biết có cách nào giải quyết ko ?
Function PCase(Chuoi As String) As String
Dim stt As Long, Ham
Set Ham = Application.WorksheetFunction
Chuoi = " " & Ham.Trim(LCase(Chuoi))
stt = Len(Chuoi)
If stt > 1 Then
Do
stt = InStrRev(Chuoi, " ", stt)
Mid(Chuoi, stt + 1, 1) = UCase(Mid(Chuoi, stt + 1, 1))
stt = stt - 1
Loop While stt > 0
PCase = Ham.Proper(Mid(Chuoi, 2))
End If
End Function
Dùng Split tách chuổi thành mảng rồi For... Next duyệt theo mảng này sẽ dễ hiểu hơn rất nhiềuVấn đề NHỎ của bạn không nhỏ tí nào, bởi hàm PROPER chỉ sử dụng được khi không có dấu tiếng Việt. Chỉ có thể dùng VBA làm hàm tự tạo mới có thể khắc phục được nó mà thôi.
Đây là hàm tự tạo:
PHP:Function PCase(Chuoi As String) As String Dim stt As Long, Ham Set Ham = Application.WorksheetFunction Chuoi = " " & Ham.Trim(LCase(Chuoi)) stt = Len(Chuoi) If stt > 1 Then Do stt = InStrRev(Chuoi, " ", stt) Mid(Chuoi, stt + 1, 1) = UCase(Mid(Chuoi, stt + 1, 1)) stt = stt - 1 Loop While stt > 0 PCase = Ham.Proper(Mid(Chuoi, 2)) End If End Function
Bạn ghi cấu trúc Pcase("HÀ VIỆT") sẽ ra Hà Việt.
Chúc vui.