Đá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] Làm mờ hoặc thanh menu không hoạt động khi đăng nhập Trần Đình Thành 2 148 04-06-18, 10:30 AM
Bài mới nhất: vulhu06
  Cách chuyển dạng text sang number Nguyên Thông 1 102 18-05-18, 09:11 AM
Bài mới nhất: ongke0711
  [Hỏi] Cách chống âm kho khi xóa phiếu nhập! NguyenDungAnh 2 123 16-05-18, 10:12 PM
Bài mới nhất: NguyenDungAnh
  [Hỏi] Cách đặt mặc định là ngày cuối tháng! NguyenDungAnh 4 185 11-05-18, 06:52 PM
Bài mới nhất: NguyenDungAnh
  Hỏi cách copy dữ liệu ledangvan 1 137 01-05-18, 03:12 PM
Bài mới nhất: MTNQ

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line