Thanhlam2425
Thành viên hoạt động
- Tham gia
- 23/11/18
- Bài viết
- 113
- Được thích
- 12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Shell "Explorer.exe /Open,""" & "https://www.google.com/search?&q=" & Target.Value & """", 1
Cancel = True
End Sub
Em cảm ơn anh nhé.Bạn thử code này.
Mã:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Shell "Explorer.exe /Open,""" & "https://www.google.com/search?&q=" & Target.Value & """", 1 Cancel = True End Sub
Chưa gì bạn đã "cảm ơn", gặp vấn đề lại quay lại tiếp tục hỏi. Rồi lại "cảm ơn"Em cảm ơn anh nhé.
Thực ra mình hỏi để lấy câu lệnh code thôi còn mình không dùng sự kiện.Mình gắn nó vào trong Form nên không có vấn đề gì.Cảm ơn bạn nhé.Chưa gì bạn đã "cảm ơn", gặp vấn đề lại quay lại tiếp tục hỏi. Rồi lại "cảm ơn"
Bạn Double Click vào ô trắng hoặc bất kì ô nào code vẫn sẽ mở Webrowser lên.
Chắc là phải click cẩn thận và đúng ô mà thôi.
Vậy sao bạn không đưa cái Form lên để hỏi 1 lần cho tiện, lỡ làm không được lại phải đi hỏi tiếp.Thực ra mình hỏi để lấy câu lệnh code thôi còn mình không dùng sự kiện.Mình gắn nó vào trong Form nên không có vấn đề gì.Cảm ơn bạn nhé.
DIỄN ĐÀN GIẢI PHÁP EXCEL