Đá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
  [Hỏi] Xin hỏi về cách nhập dữ liệu mới cho form mainsub Thiên Hùng 1 44 23-11-17, 04:01 PM
Bài mới nhất: cpucloi
  [Hỏi] Xin hỏi cách cập nhật thông tin cán bộ nghỉ hưu kiepgiangho79 3 123 08-11-17, 05:27 PM
Bài mới nhất: cpucloi
  [Hỏi] cách Khóa form không cho click ra ngoài toidjtjmtoi 3 214 08-09-17, 12:30 PM
Bài mới nhất: toidjtjmtoi
  [Hỏi] Tại saoform không hiện thị được dấu phân cách hàng ngàn thanhhao 6 367 26-06-17, 11:45 AM
Bài mới nhất: tranthanhan1962
  Xin a/c chi gium cach nhap số ko cần enter nvthanghcm 3 337 22-05-17, 06:27 PM
Bài mới nhất: tranthanhan1962

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ơ