Hỏi về sự kiện Initialize trong UserForm

Liên hệ QC
B

Blad01

Thành viên thường trực
Tham gia
6/10/07
Bài viết
350
Được thích
28
Chào các bạn, mình làm một UserForm để nhập dữ liệu, nhưng không hiểu sao mình viết code cho sự kiện Initialize trong UserForm lại không chạy và cũng không báo lỗi. Đoạn code đó như sau:
Mã: 
Private Sub UserForm_Initialize()
    With uf_Nhaplieu
    .txtTimenguon.Text = ThisWorkbook.Worksheets("Data").Range("C1").Value
    .txtTimedich.Text = ThisWorkbook.Worksheets("Data").Range("E1").Value
    .MultiPage1.Pages(1).Visible = False
    .MultiPage1.Pages(2).Visible = False
    .MultiPage1.Pages(3).Visible = False
    .MultiPage1.Pages(4).Visible = False
    .MultiPage1.Pages(5).Visible = False
    .MultiPage1.Pages(6).Visible = False
    .MultiPage1.Pages(7).Visible = False
    .MultiPage1.Pages(8).Visible = False
    .MultiPage1.Pages(9).Visible = False
    .MultiPage1.Pages(10).Visible = False
    .MultiPage1.Pages(11).Visible = False
    .MultiPage1.Pages(12).Visible = False
    .MultiPage1.Pages(13).Visible = False
    .MultiPage1.Pages(14).Visible = False
    .MultiPage1.Pages(15).Visible = False
    .MultiPage1.Pages(16).Visible = False
    .MultiPage1.Pages(17).Visible = False
End With

Call MinMax(uf_Nhaplieu.Caption)
Size_ListBox
Set sHcq = Nothing
End Sub
Các Page trong MultiPage1 khi load Form không ẩn đi như đoạn code mình viết. mình gửi theo file đính kèm, nút chạy code mình để ở Sheets("Data"). Mong các bạn giúp đỡ.
 

File đính kèm

  • TK2020.rar
    591.3 KB · Đọc: 35
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Blad01 đã viết:
Chào các bạn, mình làm một UserForm để nhập dữ liệu, nhưng không hiểu sao mình viết code cho sự kiện Initialize trong UserForm lại không chạy và cũng không báo lỗi. Đoạn code đó như sau:
Mã: 
Private Sub UserForm_Initialize()
    With uf_Nhaplieu
    .txtTimenguon.Text = ThisWorkbook.Worksheets("Data").Range("C1").Value
    .txtTimedich.Text = ThisWorkbook.Worksheets("Data").Range("E1").Value
    .MultiPage1.Pages(1).Visible = False
    .MultiPage1.Pages(2).Visible = False
    .MultiPage1.Pages(3).Visible = False
    .MultiPage1.Pages(4).Visible = False
    .MultiPage1.Pages(5).Visible = False
    .MultiPage1.Pages(6).Visible = False
    .MultiPage1.Pages(7).Visible = False
    .MultiPage1.Pages(8).Visible = False
    .MultiPage1.Pages(9).Visible = False
    .MultiPage1.Pages(10).Visible = False
    .MultiPage1.Pages(11).Visible = False
    .MultiPage1.Pages(12).Visible = False
    .MultiPage1.Pages(13).Visible = False
    .MultiPage1.Pages(14).Visible = False
    .MultiPage1.Pages(15).Visible = False
    .MultiPage1.Pages(16).Visible = False
    .MultiPage1.Pages(17).Visible = False
End With

Call MinMax(uf_Nhaplieu.Caption)
Size_ListBox
Set sHcq = Nothing
End Sub
Các Page trong MultiPage1 khi load Form không ẩn đi như đoạn code mình viết. mình gửi theo file đính kèm, nút chạy code mình để ở Sheets("Data"). Mong các bạn giúp đỡ.
Nhấp chuột vào đây để mở rộng...
Tôi chạy thử thấy ẩn hết
Mà không hiểu bạn quản lý gì, mà một loạt , toàn là vba trộn công thức thành một loạt code, bạn quản lý code thật giỏi
 
Lần chỉnh sửa cuối:
Upvote 0
tigertiger đã viết:
Tôi chạy thử thật ẩn hết
Mà không hiểu bạn quản lý gì, mà một loạt , toàn là vba trộn công thức thành một loạt code, bạn quản lý code thật giỏi
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn, mình thử nhiều máy cơ quan mình mà sao nó không hoạt động, chẳng hiểu sao nữa. Cách quản lý code thì mình cũng không nghĩ ra cách quản lý thế nào cho khoa học, vì chưa có kinh nghiệm, bạn có cách nào quản lý hay không chia sẻ kinh nghiệm cho ae với.
 
Upvote 0
Blad01 đã viết:
Chào các bạn, mình làm một UserForm để nhập dữ liệu, nhưng không hiểu sao mình viết code cho sự kiện Initialize trong UserForm lại không chạy và cũng không báo lỗi. Đoạn code đó như sau:
Mã: 
Private Sub UserForm_Initialize()
    With uf_Nhaplieu
    .txtTimenguon.Text = ThisWorkbook.Worksheets("Data").Range("C1").Value
    .txtTimedich.Text = ThisWorkbook.Worksheets("Data").Range("E1").Value
    .MultiPage1.Pages(1).Visible = False
    .MultiPage1.Pages(2).Visible = False
    .MultiPage1.Pages(3).Visible = False
    .MultiPage1.Pages(4).Visible = False
    .MultiPage1.Pages(5).Visible = False
    .MultiPage1.Pages(6).Visible = False
    .MultiPage1.Pages(7).Visible = False
    .MultiPage1.Pages(8).Visible = False
    .MultiPage1.Pages(9).Visible = False
    .MultiPage1.Pages(10).Visible = False
    .MultiPage1.Pages(11).Visible = False
    .MultiPage1.Pages(12).Visible = False
    .MultiPage1.Pages(13).Visible = False
    .MultiPage1.Pages(14).Visible = False
    .MultiPage1.Pages(15).Visible = False
    .MultiPage1.Pages(16).Visible = False
    .MultiPage1.Pages(17).Visible = False
End With

Call MinMax(uf_Nhaplieu.Caption)
Size_ListBox
Set sHcq = Nothing
End Sub
Các Page trong MultiPage1 khi load Form không ẩn đi như đoạn code mình viết. mình gửi theo file đính kèm, nút chạy code mình để ở Sheets("Data"). Mong các bạn giúp đỡ.
Nhấp chuột vào đây để mở rộng...
Đoạn lặp trên nên đổi thành
Mã: 
For i=1 to 17    
       .MultiPage1.Pages(i).Visible = False
Next i


---------------
Còn Quản lý thì phải nắm toàn bộ dự án (project ) mới quản lý được, Nên chỉ góp ý kiểu chung chung (thông cảm) : thường người ta phân Code Data, Form là độc lập
 
Upvote 0
mình thấy thông thường, trong cửa sổ vba khi đặt con trỏ chuột vào trong Sub UserForm_Initialize thì trên thanh Object nó phải hiện chữ UserForm và bên thanh Procedure sẽ hiện chữ Initialize. Nhưng trên máy mình lại không như vậy (xem hình), không biết lỗi sảy ra có phải nguyên nhân là do đây không ?Loi.jpg
 
Upvote 0
Blad01 đã viết:
mình thấy thông thường, trong cửa sổ vba khi đặt con trỏ chuột vào trong Sub UserForm_Initialize thì trên thanh Object nó phải hiện chữ UserForm và bên thanh Procedure sẽ hiện chữ Initialize. Nhưng trên máy mình lại không như vậy (xem hình), không biết lỗi sảy ra có phải nguyên nhân là do đây không ?
Nhấp chuột vào đây để mở rộng...
Bên trái phải xổ xuống chọn Userform trước, bên phải mới có để chọn
 
Upvote 0
Blad01 đã viết:
Chào các bạn, mình làm một UserForm để nhập dữ liệu, nhưng không hiểu sao mình viết code cho sự kiện Initialize trong UserForm lại không chạy và cũng không báo lỗi. Đoạn code đó như sau:
Mã: 
Private Sub UserForm_Initialize()
    With uf_Nhaplieu
    .txtTimenguon.Text = ThisWorkbook.Worksheets("Data").Range("C1").Value
    .txtTimedich.Text = ThisWorkbook.Worksheets("Data").Range("E1").Value
    .MultiPage1.Pages(1).Visible = False
    .MultiPage1.Pages(2).Visible = False
    .MultiPage1.Pages(3).Visible = False
    .MultiPage1.Pages(4).Visible = False
    .MultiPage1.Pages(5).Visible = False
    .MultiPage1.Pages(6).Visible = False
    .MultiPage1.Pages(7).Visible = False
    .MultiPage1.Pages(8).Visible = False
    .MultiPage1.Pages(9).Visible = False
    .MultiPage1.Pages(10).Visible = False
    .MultiPage1.Pages(11).Visible = False
    .MultiPage1.Pages(12).Visible = False
    .MultiPage1.Pages(13).Visible = False
    .MultiPage1.Pages(14).Visible = False
    .MultiPage1.Pages(15).Visible = False
    .MultiPage1.Pages(16).Visible = False
    .MultiPage1.Pages(17).Visible = False
End With

Call MinMax(uf_Nhaplieu.Caption)
Size_ListBox
Set sHcq = Nothing
End Sub
Các Page trong MultiPage1 khi load Form không ẩn đi như đoạn code mình viết. mình gửi theo file đính kèm, nút chạy code mình để ở Sheets("Data"). Mong các bạn giúp đỡ.
Nhấp chuột vào đây để mở rộng...
Sửa lại thành:
Mã: 
Private Sub UserForm_Initialize()
  With uf_Nhaplieu
    .MultiPage1.Value = 0
    .txtTimenguon.Text = ThisWorkbook.Worksheets("Data").Range("C1").Value
    .txtTimedich.Text = ThisWorkbook.Worksheets("Data").Range("E1").Value
  End With

  Call MinMax(uf_Nhaplieu.Caption)
  Size_ListBox
  Set sHcq = Nothing
End Sub
-----------------------------------------------
Blad01 đã viết:
Vâng, nhưng trên máy của em bên trái lại không có đối tượng Userform để chọn, đoạn này Sub UserForm_Initialize là do em tự đánh vào
Nhấp chuột vào đây để mở rộng...
Tôi không tin đâu. Bạn chụp hình lại tình trạng trên máy tôi mới tin
 
Upvote 0
ndu96081631 đã viết:
Sửa lại thành:
Mã: 
Private Sub UserForm_Initialize()
  With uf_Nhaplieu
    .MultiPage1.Value = 0
    .txtTimenguon.Text = ThisWorkbook.Worksheets("Data").Range("C1").Value
    .txtTimedich.Text = ThisWorkbook.Worksheets("Data").Range("E1").Value
  End With

  Call MinMax(uf_Nhaplieu.Caption)
  Size_ListBox
  Set sHcq = Nothing
End Sub
-----------------------------------------------

Tôi không tin đâu. Bạn chụp hình lại tình trạng trên máy tôi mới tin
Nhấp chuột vào đây để mở rộng...
Đây thầy ndu ơi, hình này là em chạy code, thầy có thấy các Page không ẩn không ạ.
Chay UF.jpg
Còn đầy là hiện trạng trong code
Untitled2.jpg
-------------------------------------------------------
Thanh Object tên đối tượng được xếp theo thứ tự vần ABC đúng không ạ, em đã kéo hết nhưng không thấy đối tượng UserForm
Untitled3.jpg
 
Upvote 0
Máy bạn bị gì rồi
1597994430145.png

1597994455071.png
 
Upvote 0
Blad01 đã viết:
không ẩn
Nhấp chuột vào đây để mở rộng...
.Value = 0 'thì Page có index = 0 sẽ được chọn, chứ không phải là ẩn / hiện page gì cả.

--
Bạn xóa toàn bộ rác, khởi động lại máy tính xem
Mã: 
'Tạo File clear_temp.bat
'Rồi Run as Administrator
Del /S /F /Q %temp%
Del /S /F /Q %Windir%\Temp

FOR /D %%p IN (%temp%\*) DO rmdir "%%p" /s /q

FOR /D %%p IN (%Windir%\Temp\*) DO rmdir "%%p" /s /q
 
Upvote 0
befaint đã viết:
.Value = 0 'thì Page có index = 0 sẽ được chọn, chứ không phải là ẩn / hiện page gì cả.

--
Bạn xóa toàn bộ rác, khởi động lại máy tính xem
Mã: 
'Tạo File clear_temp.bat
'Rồi Run as Administrator
Del /S /F /Q %temp%
Del /S /F /Q %Windir%\Temp

FOR /D %%p IN (%temp%\*) DO rmdir "%%p" /s /q

FOR /D %%p IN (%Windir%\Temp\*) DO rmdir "%%p" /s /q
Nhấp chuột vào đây để mở rộng...
file này chạy bằng notepad phải không bạn
 
Upvote 0
Tôi dùng Excel 2007 và cũng có hiện tượng giống như chủ topic.
Khi tôi vẽ thêm 1 control lên form, qua trình soạn thảo code chọn đối tượng bị lỗi Out of memory. Khi tôi xóa bớt 1 control thì file hoạt động bình thường.
=> Tôi đoán là số lượng control trên form của bạn đã đến giới hạn cho phép của phiên bản Excel mà bạn đang sử dụng.
 
Upvote 0
Blad01 đã viết:
Sub UserForm_Initialize thì trên thanh Object
Nhấp chuột vào đây để mở rộng...
Máy của mình cũng bị tình trạng này, kiểm tra thì có tận hơn 1000 đối tượng, chạy debug thì sự kiện initialize cũng không có chạy, xóa đỡ mấy cái control to nhất trong form thì không còn tình trạng trê.
 
Upvote 0
Tôi dùng Excel 2013 32 bit + Windows 10 64 bit cũng bị. Tôi cũng nghi là do số lượng control vì thấy chúng nhiều quá. Hằng hà sa số.
 
Upvote 0
batman1 đã viết:
Tôi dùng Excel 2013 32 bit + Windows 10 64 bit cũng bị. Tôi cũng nghi là do số lượng control vì thấy chúng nhiều quá. Hằng hà sa số.
Nhấp chuột vào đây để mở rộng...
Không có tài liệu nào nói về vụ giới hạn số lượng controls này các bạn nhỉ. Thiết kế gần xong rồi giờ làm lại nản quá
 
Upvote 0
CSDL bạn đang xây dựng hình như chưa ổn lắm, khoan hẵn nói về Controls mà nên thiết kế lại các trang tính thì hơn.

Thậm chí tên trang tính cũng cần xem để rút gọn hơn, như
B01. . . B35
TB01. . . TB35

Danh sách đảng viên nhất thiết phải có mã (duy nhất)
 
Lần chỉnh sửa cuối:
Upvote 0
Upvote 0
Blad01 đã viết:
Không có tài liệu nào nói về vụ giới hạn số lượng controls này các bạn nhỉ. Thiết kế gần xong rồi giờ làm lại nản quá
Nhấp chuột vào đây để mở rộng...
Bạn tạo 1 Form mới rồi Coppy các control qua sẽ được (cái này hồi nãy tui mới copy cái Page ah)

Chắc có lẽ nhiều control quá bạn bỏ bớt 1 số label control không cần thiêt
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

V
[Nhờ giúp đỡ] Cách tìm thời gian bị trùng trong excel ở nhiều thời gian khác nhau
Trả lời
6
Đọc
73
Vệ Tư Lý
V
N
Hàm tìm giá trị theo giờ vào - ra
Trả lời
6
Đọc
75
Nguyễn Linh hn94
N
kimtanmap
  • Question
Nhờ viết code VBA Macro lập lại.
Trả lời
3
Đọc
47
SA_DQ
SA_DQ
B
Lọc dữ liệu trùng, đếm số lần, tự tô màu theo điều kiện.
Trả lời
0
Đọc
14
batista911
B
zarra
Cần giúp tạo form in mã vạch cho vật tư theo SL cụ thể.
Trả lời
4
Đọc
131
zarra
zarra
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
6
Đọc
134
ptm0412
ptm0412
C
Chia sẻ: Kết quả xổ số Keno
    • Thích
Trả lời
2
Đọc
92
CHAOQUAY
C
Nguyễn Duy Tuân
  • Question
Chia sẻ ControlForOffice - Bộ công cụ điều khiển Office/Excel
    • Thích
6 7 8
Trả lời
148
Đọc
95K
leminhksvl
L
HeSanbi
  • Question
Lỗi VBA: Cài đặt thông số ForceVBALoadFromSource trong Registry để VBA biên dịch không bị lỗi
    • Thích
Trả lời
5
Đọc
274
anhdepjai
A
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
Trả lời
16
Đọc
331
CHAOQUAY
C
H
Hàm đếm số ngày thứ bảy và chủ nhật trong một khoảng thời gian
Trả lời
18
Đọc
19K
DeTong
D
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
11 12 13
Trả lời
245
Đọc
13K
Hoàng Trọng Hữu
Hoàng Trọng Hữu
D
  • Question
Xin cách sắp xếp dữ liệu theo thứ tự không làm hỏng link
Trả lời
7
Đọc
291
cantl
C
N
Giúp sửa mã code
Trả lời
16
Đọc
263
ptm0412
ptm0412
dung09031989
Xin giúp công thức tô màu các ô phía sau khi kế hoạch đặt hàng thiếu so với tồn kho.?
Trả lời
0
Đọc
47
dung09031989
dung09031989
C
Công thức tự nhập liệu số lượng nhập khi bị âm
Trả lời
0
Đọc
47
cherry0187
C
N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
1
Đọc
43
hoangminhtien
hoangminhtien
GPE-Trợ Lý
KHÓA HỌC BỨT PHÁ KỸ NĂNG EXCEL
    • Thích
Trả lời
0
Đọc
170
GPE-Trợ Lý
GPE-Trợ Lý
dunghtgiga
  • Đã khóa
Tính bốn tuần cho một tháng
Trả lời
9
Đọc
286
ptm0412
ptm0412
Mr Đạo
in giấy ra bị lệch xuống dưới
    • Thích
2
Trả lời
29
Đọc
26K
Hoàng Tuấn 868
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom