Nhờ giúp đỡ về VBA

[daocuongnbk]

Nhờ các Bạn chỉ dùm : Khi nhấp vào file excel thì xuất hiện form VBA (Mình chưa biết nhiều về VBA)

 

[nghiaphuc]

Nhờ các Bạn chỉ dùm : Khi nhấp vào file excel thì xuất hiện form VBA (Mình chưa biết nhiều về VBA)

Có phải ý của bạn là tạo 1 nút nhấn trên sheet để khi mình click vào nó thì sẽ xuất hiện 1 form?
Nếu đúng như vậy thì bạn làm như vầy:
- Tạo 1 form, giả sử form này có tên là UserForm1
- Insert thêm 1 module và dán đoạn code này vào:

Sub ShowForm()
    UserForm1.Show
End Sub

- Vẽ 1 đối tượng lên Sheet, đối tượng này có thể được lấy từ thanh Drawing hoặc thanh Form. Sau đó click phải vào đối tượng vừa vẽ, chọn Assign Macro, chọn Macro ShowForm và nhấn OK.

 

[Hoàng Trọng Nghĩa]

Bạn chưa biết gì về VBA thì bạn phải tập ghi macro trước, sau đó nghiên cứu cách thức nó ghi lại các động tác của bạn như thế nào rồi nghiền ngẫm nó. Bạn cũng nên mua một cuốn sách về cách lập trình trên Excel, diễn đàn có giới thiệu về cuốn sách đó đấy, đọc rồi nghiên cứu. Chứ tự nhiên bạn "chưa học bò đã lo học chạy" thì làm sao hiểu được???

 

[Hoàng Trọng Nghĩa]

Có phải ý của bạn là tạo 1 nút nhấn trên sheet để khi mình click vào nó thì sẽ xuất hiện 1 form?
Nếu đúng như vậy thì bạn làm như vầy:
- Tạo 1 form, giả sử form này có tên là UserForm1
- Insert thêm 1 module và dán đoạn code này vào:

Sub ShowForm()
    UserForm1.Show
End Sub

- Vẽ 1 đối tượng lên Sheet, đối tượng này có thể được lấy từ thanh Drawing hoặc thanh Form. Sau đó click phải vào đối tượng vừa vẽ, chọn Assign Macro, chọn Macro ShowForm và nhấn OK.

Trời, bạn ấy còn chưa biết cách tạo Form thì lấy Form đâu mà chạy code này chứ!

 

[nghiaphuc]

Trời, bạn ấy còn chưa biết cách tạo Form thì lấy Form đâu mà chạy code này chứ!

Anh bạn này nói vầy:

Nhờ các Bạn chỉ dùm : Khi nhấp vào file excel thì xuất hiện form VBA (Mình chưa biết nhiều về VBA)

Chắc cũng đủ biết để tạo 1 UserForm và 1 Module chứ anh (hy vọng em đúng!)

 

[ngodany135]

Hình như ý bạn ấy là vầy, Cái này bị thừa
Sheets("Sheet1").Activate
Exit Sub
Chỉ như vầy
Sub Auto_open()
UserForm1.Show
End Sub

 

[Hoàng Trọng Nghĩa]

Hình như ý bạn ấy là vầy, Cái này bị thừa
Sheets("Sheet1").Activate
Exit Sub
Chỉ như vầy
Sub Autpen()
UserForm1.Show
End Sub

Không cần phải vậy đâu bạn. Chỉ vầy thôi, nếu:

Code ghi trong Module:

Sub Auto_open()
  UserForm1.Show
End Sub

Code ghi trong ThisWorkbook:

Private Sub Workbook_Open()
  UserForm1.Show
End Sub

Không cần phải Exit Sub đâu nhé!

 

[ngodany135]

Không cần phải vậy đâu bạn. Chỉ vầy thôi, nếu:

Code ghi trong Module:

Sub Auto_open()
  UserForm1.Show
End Sub

Code ghi trong ThisWorkbook:

Private Sub Workbook_Open()
  UserForm1.Show
End Sub

Không cần phải Exit Sub đâu nhé!

Hihi, mới tu em chưa rành, Em có đính chính rồi chứ bộ.

 

[daocuongnbk]

File book1 của ngodany135 là đúng ý Mình muốn đó. Nhưng Tôi vẫn chưa làm được.

 

[ngodany135]

Bạn vẽ 1 cái form theo ý bạn, sao đó bạn đưa code này vào Module
Sub Auto_open()
UserForm1.Show
End Sub
lưu file lại--> thoát bảng tính và mở lên lại là ok.

 

[daocuongnbk]

Cám ơn Bạn nhiều lắm. Mình đã làm được rồi.