xin code hiện form toàn màn hình (1 người xem)

[kuvi1324]

Tình hình là excel của minh có 1 userform, khi mở file excel lên thì form này hiện lên, mình muốn form này full màn hình ở tất cả các máy tính khác nhau.
Bạn nào có code hoặc link bài hướng dẫn nào thì giúp minh với nha, mình tìm hoài không ra ^^.
Mình cảm ơn nhiều.

 

[kuvi1324]

Tình hình là excel của minh có 1 userform, khi mở file excel lên thì form này hiện lên, mình muốn form này full màn hình ở tất cả các máy tính khác nhau.
Bạn nào có code hoặc link bài hướng dẫn nào thì giúp minh với nha, mình tìm hoài không ra ^^.
Mình cảm ơn nhiều.

Không ai giúp mình à

 

[lhthai]

Không ai giúp mình à

Private Sub Workbook_Open()
On Error Resume Next
    Application.Calculation = xlCalculationAutomatic
    Application.Visible = False
    [COLOR=#ff0000]Tenform[/COLOR].Show
End Sub

 

[kuvi1324]

Private Sub Workbook_Open()
On Error Resume Next
    Application.Calculation = xlCalculationAutomatic
    Application.Visible = False
    [COLOR=#ff0000]Tenform[/COLOR].Show



End Sub

thank nha, để mình thử xem hi 20char 20 char 20 char 222222222222222222222222222

 

[kuvi1324]

thank nha, để mình thử xem hi 20char 20 char 20 char 222222222222222222222222222

nó không hiện toàn màn hình bạn ơi,
nó hiện cái userform1, tat cai excel, ko toan màn hình
code đó dùng cho this work hay cho userform1

 

[Quang_Hải]

Tình hình là excel của minh có 1 userform, khi mở file excel lên thì form này hiện lên, mình muốn form này full màn hình ở tất cả các máy tính khác nhau.
Bạn nào có code hoặc link bài hướng dẫn nào thì giúp minh với nha, mình tìm hoài không ra ^^.
Mình cảm ơn nhiều.

Private Sub UserForm_Initialize()
Me.Width = Application.Width
Me.Height = Application.Height
End Sub

 

[be_09]

Tình hình là excel của minh có 1 userform, khi mở file excel lên thì form này hiện lên, mình muốn form này full màn hình ở tất cả các máy tính khác nhau.
Bạn nào có code hoặc link bài hướng dẫn nào thì giúp minh với nha, mình tìm hoài không ra ^^.
Mình cảm ơn nhiều.

Sử dụng Code cho ThisWorkbook

Private Sub Workbook_Open()
     ActiveWorkbook.Sheets("Nhap lieu").Activate    
     UserForm1.Show
End Sub

Nhap lieu là chọn tên sheet khi hiện Form.


Code cho UserForm

Private Sub UserForm_Initialize()    
     Application.WindowState = xlMaximized    
     Me.Top = 0: Me.Left = 0    
     Me.Width = Application.Width    
     Me.Height = Application.Height
End Sub

 

[kuvi1324]

Sử dụng Code cho ThisWorkbook

Private Sub Workbook_Open()
     ActiveWorkbook.Sheets("Nhap lieu").Activate    
     UserForm1.Show
End Sub

Nhap lieu là chọn tên sheet khi hiện Form.


Code cho UserForm

Private Sub UserForm_Initialize()    
     Application.WindowState = xlMaximized    
     Me.Top = 0: Me.Left = 0    
     Me.Width = Application.Width    
     Me.Height = Application.Height
End Sub

cảm ơn bạn, mình làm được rồi

 

[nguyet1982db]

Sử dụng Code cho ThisWorkbook

Private Sub Workbook_Open()
     ActiveWorkbook.Sheets("Nhap lieu").Activate    
     UserForm1.Show
End Sub

Nhap lieu là chọn tên sheet khi hiện Form.


Code cho UserForm

Private Sub UserForm_Initialize()    
     Application.WindowState = xlMaximized    
     Me.Top = 0: Me.Left = 0    
     Me.Width = Application.Width    
     Me.Height = Application.Height
End Sub

Trong UserForm của mình có một sự kiện khác rồi thì mình phải làm như thế nào với đoạn code trong đó hả bạn, mình copy đoạn code vào nhưng toàn báo lỗi.

 

[be_09]

Trong UserForm của mình có một sự kiện khác rồi thì mình phải làm như thế nào với đoạn code trong đó hả bạn, mình copy đoạn code vào nhưng toàn báo lỗi.

Đoạn Code thứ 2 bạn Copy 5 dòng ở giữa rồi Paste vào chỗ bạn cần.

Vì trong UserForm của bạn đã có đoạn code có dòng này rồi.

Private Sub UserForm_Initialize()

Mỗi Sub chỉ có 1 tên gọi nếu 2 tên gọi thì nó sẽ cự nự.

 

[vu_tuan_manh_linh]

Trong UserForm của mình có một sự kiện khác rồi thì mình phải làm như thế nào với đoạn code trong đó hả bạn, mình copy đoạn code vào nhưng toàn báo lỗi.

Bạn nên đưa file lên!!

 

[nguyet1982db]

Bạn nên đưa file lên!!

Bạn giúp mình code tìm kiếm theo tên trên listbox nhé, mình làm mãi mà trả được.

 

[vu_tuan_manh_linh]

Bạn giúp mình code tìm kiếm theo tên trên listbox nhé, mình làm mãi mà trả được.

Bạn cho username với pass đi bạn!!

 

[nguyet1982db]

Bạn cho username với pass đi bạn!!

Bạn chỉ cần bấm OK là được không có pass hoặc User hoặc nếu có thì là số 1

 

[nguyet1982db]

Đoạn Code thứ 2 bạn Copy 5 dòng ở giữa rồi Paste vào chỗ bạn cần.

Vì trong UserForm của bạn đã có đoạn code có dòng này rồi.

Private Sub UserForm_Initialize()

Mỗi Sub chỉ có 1 tên gọi nếu 2 tên gọi thì nó sẽ cự nự.

Copy sẽ bị lỗi không chạy được (File đính kèm không có pass)
Bạn giúp mình với nhé

 

[be_09]

Copy sẽ bị lỗi không chạy được (File đính kèm không có pass)
Bạn giúp mình với nhé

File của bạn là File cũ của tôi cũng làm giúp anh em trên diễn đàn, bạn chỉ thay cái vỏ, qua tháng tôi rảnh xem lại và sửa code giúp cho bạn, còn hiện tại thì bận quá.

 

[nguyet1982db]

File của bạn là File cũ của tôi cũng làm giúp anh em trên diễn đàn, bạn chỉ thay cái vỏ, qua tháng tôi rảnh xem lại và sửa code giúp cho bạn, còn hiện tại thì bận quá.

Vâng ạ. Em cũng học hỏi các anh trên diễn đàn rồi chắt lọc lại cái mình cần thôi, có gì anh giúp em với ạ cả phần tìm dữ liệu trên listbox anh nhé

 

[nguyet1982db]

Copy sẽ bị lỗi không chạy được (File đính kèm không có pass)
Bạn giúp mình với nhé

Không có bác nào giúp em à

 

[Hau151978]

Không có bác nào giúp em à

Form toàn màn hình như vậy không đẹp lắm: đã toàn màn hình thì nên có thêm nút max, min để người sử dụng có thể thu nhỏ hay chuyển sang chương trình khác khi cần.

 

[nguyet1982db]

Form toàn màn hình như vậy không đẹp lắm: đã toàn màn hình thì nên có thêm nút max, min để người sử dụng có thể thu nhỏ hay chuyển sang chương trình khác khi cần.

Bác nghiên cứu giúp em đi, đặc biệt là phần tìm kiếm trên lisbox