làm thế nào để hiện form giới thiệu lên khi chạy file excel ?

[moonsun1130]

Các ACE trong GPE cho em hỏi một chút ạ ! em có thiết kế song 1 file tạo hồ sơ tín dụng.
bây giờ em muốn khi chạy file excel đó thứ nhất ẩn hết các menu của excel đi, sau đó hiện
lên 1 form giới thiệu chương trình đợi khoảng 10 giây (hoặc bao nhiêu tùy mình) sau đó tự động
vào chương trình.
Rất mong các ACE giúp đỡ. Thank's

 

[keentwo]

Các ACE trong GPE cho em hỏi một chút ạ ! em có thiết kế song 1 file tạo hồ sơ tín dụng.
bây giờ em muốn khi chạy file excel đó thứ nhất ẩn hết các menu của excel đi, sau đó hiện
lên 1 form giới thiệu chương trình đợi khoảng 10 giây (hoặc bao nhiêu tùy mình) sau đó tự động
vào chương trình.
Rất mong các ACE giúp đỡ. Thank's

-Ý bạn là thế này phải không,nó sẽ đợi 5s trước khi vào chương trình

 

[moonsun1130]

-Ý bạn là thế này phải không,nó sẽ đợi 5s trước khi vào chương trình

Anh ơi sao em chạy file của anh nó hiện ra của sổ MicroSoft Visual Basic ... nếu bấm run thì chạy form -> nhưng đợi
khoảng 20s vần không thấy vào trong excel mà phải bấm vào nút thoát mới vào được

 

[keentwo]

Anh ơi sao em chạy file của anh nó hiện ra của sổ MicroSoft Visual Basic ... nếu bấm run thì chạy form -> nhưng đợi
khoảng 20s vần không thấy vào trong excel mà phải bấm vào nút thoát mới vào được

-Mình kiểm tra lại rùi mà,chạy tốt mà,lúc mới vào chọn Enable marco là nó chạy luôn mà

 

[moonsun1130]

Em chạy office 2010 không biết sao không được nhỉ. Em đã Enable Macro rồi

 

[keentwo]

-Lạ nhỉ bản nào mà thì nó cũng thế chứ nhỉ?
-Thế lúc bạn Enable Macro nó ra cái gì,chụp và up lên xem nào?

 

[moonsun1130]

Chạy nó xuất hiện thông báo của Visual Basic : Code execution has been interupted,
chọn Continue vào MicroSoft Visual Basic -> bấm run chạy form. chọn end thoát, nếu chọn Debug
cũng vào Visual basic như sau :

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

 

[keentwo]

-Khó hiểu nhỉ,mình thì vẫn chạy ngon
Hay thử đổi thành

Private Sub Workbook_Activate()
Application.Visible = False
UserForm1.Show
End Sub

xem được không

 

[keentwo]

Chạy nó xuất hiện thông báo của Visual Basic : Code execution has been interupted,
chọn Continue vào MicroSoft Visual Basic -> bấm run chạy form. chọn end thoát, nếu chọn Debug
cũng vào Visual basic như sau :

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

-Mà nó hiện màu vàng vào dòng nào bạn nhỉ?

 

[nam2806]

Em chạy office 2010 không biết sao không được nhỉ. Em đã Enable Macro rồi

Tôi load về là chạy cái rụp, không hỏi han lôi thôi gì hết. Tôi sử dụng OF2003.

 

[keentwo]

Tôi load về là chạy cái rụp, không hỏi han lôi thôi gì hết. Tôi sử dụng OF2003.

-Đó rõ dàng là OK,chắc tại cái OF 2010

 

[moonsun1130]

Em đổi thành Private Sub Workbook_Activate() rồi nhưng vẫn vậy.
Dòng mầu vàng hiện lên ở UserForm1.Show
không biết có phải tạo OF2010 không nhỉ ?

 

[keentwo]

-Khó nhỉ,cũng không phải tại thằng OF2010 đâu.
-Gửi lại mình cái file của bạn đang bị lỗi xem nào?
(file mà bạn chỉnh vẫn ko được ý)