Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Cách tạo menu để mở 1 trang web
#1
Chào các bạn
Mình muốn tạo 1 menu, khi nhấn vào sẽ mở 1 trang web. Bạn nào biết giúp mình nhé
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#2
Dùng hàm SHELL nhé

SHELL "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.com"

HOẶC

dim theWebSite As String
theWebSite = "http://www.google.com.vn
Call Shell("explorer.exe " & theWebSite, vbNormalFocus)

Than
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , alilibababa
#3
(29-06-12, 06:24 PM)Xuân Thanh Đã viết: Dùng hàm SHELL nhé

SHELL "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.com"

HOẶC

dim theWebSite As String
theWebSite = "http://www.google.com.vn
Call Shell("explorer.exe " & theWebSite, vbNormalFocus)

Than

Cám ơn Xuân Thanh
Nhưng mình chạy trên VBA thì được còn đưa lên menu bằng cách nào vậy bạn?
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#4
(30-06-12, 09:45 AM)cannguyen Đã viết: Cám ơn Xuân Thanh
Nhưng mình chạy trên VBA thì được còn đưa lên menu bằng cách nào vậy bạn?

Bạn tao menu bằng cách nào?
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Nếu tạo bằng macro thì làm như sau :
1/ Tạo một modul mới và cgép hàm này vào modul

Mã:
Function MoTrangWeb()
    Dim TheWebsite As String
    TheWebsite = "http://google.com.vn"
    Call Shell("explorer.exe " & TheWebsite, vbNormalFocus)
End Function

2/ Tạo macro mở trang web

Tên Macro : MoWeb
Macro Name : http://google.com.vn
Action : RunCode
Function Name : MoTrangWeb()

3/ Chọn MoWeb, vào Tools/Macro/Create Nenu from Macro
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn cannguyen
#6
(30-06-12, 04:49 PM)Xuân Thanh Đã viết: Nếu tạo bằng macro thì làm như sau :
1/ Tạo một modul mới và cgép hàm này vào modul

Mã:
Function MoTrangWeb()
    Dim TheWebsite As String
    TheWebsite = "http://google.com.vn"
    Call Shell("explorer.exe " & TheWebsite, vbNormalFocus)
End Function

2/ Tạo macro mở trang web

Tên Macro : MoWeb
Macro Name : http://google.com.vn
Action : RunCode
Function Name : MoTrangWeb()

3/ Chọn MoWeb, vào Tools/Macro/Create Nenu from Macro

Cám ơn bác Xuân Thanh nhiều lắm
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tạo Menu dạng TreeView bằng Query (không dùng ActiveX) ongke0711 3 238 2 Giờ trước
Bài mới nhất: toanle
  Cách đề tạo Combo Box và List Box Tương ứng Godspear 1 32 2 Giờ trước
Bài mới nhất: toancvp
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 32 Hôm nay, 02:23 AM
Bài mới nhất: maidinhdan
Photo [Hỏi] Cách tạo link để Open form toancvp 7 361 01-09-16, 11:37 PM
Bài mới nhất: toancvp
  [Hỏi] Cách thay đổi Back Color của control theo giá trị toancvp 15 756 16-07-16, 10:43 AM
Bài mới nhất: toancvp

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ