Hỏi Về Code Trong USer Form (2 người xem)

khamha · 6/9/10

Mình Gặp Vấn Đề Trong Khi Tạo USer Form Nhờ Các Bạn Giúp Như Sau:
1. Mình Có Tạo Một USer Form Có Kích Thước Bằng Một Trang A4 ,Nhưng Khi Form Hiện Lên Màn Hình Để Nhập Dữ Liệu Thì Chỉ Có Khoảng
Hai Phần Ba, Nên Đoạn Cuối Không Thể Nhập Dữ Liệu Được,Không Biết Có Cách Nào Để Di Chuyển Form Lên Xuống Không ?
2. Có Cách Nào Để In Được USer Form Không?
Các Bạn Cố Gắng Giúp Mình Với. Cảm Ơn Các Bạn Nhiều...

sealand · 9/10/10

Banj xoá mất tiêu nút Save thì Save vào đâu?
Bạn nên tham khảo tạo File mới chứ sửa thế này code rác rất nhiều và không kiểm soát hết lỗi đâu

khamha · 9/10/10

sealand đã viết:
Banj xoá mất tiêu nút Save thì Save vào đâu?
Bạn nên tham khảo tạo File mới chứ sửa thế này code rác rất nhiều và không kiểm soát hết lỗi đâu

Cái nút save nó nằm ở bên trang hai,khi bấm save nó báo lỗi:
HS.Cells(Me.Ctr_dg, i) = Me.Controls("Ctr" & Right("00" & i, 2))

sealand · 10/10/10

Khi lỗi bạn nhấn nút Debug và bạn rê chuột trên biến i xem khi lỗi i=??? Từ đó bạn sẽ biết bạn dã xóa mất Ctr nào trên Form nhưng code vẫn gọi nên bị lỗi.

khamha · 10/10/10

Bạn sealand thân mến,mình đã sửa và hiện giờ nó hoạt động được rồi,cảm ơn bạn nhiều.
hiện còn thiếu cái code bẫy lỗi để trống dữ liệu,bạn giúp mình với.

khunglongkhelua · 10/10/10

Bạn sealand và bạn khamha giúp mình chuyện này với. Mình có 1 file excel sheet 1- sheet 5, mình đã tạo file vba cho sheet 1 và chay ngon lành rồi, mình đang qua sheet 2 làm tương tự mà bấm run macro nó kg run. Mình không biết lí do làm sao cả, bạn giúp mình với.

sealand · 10/10/10

Mình sử dụng Excel 2003 nên không mở file của bạn được

ThuNghi · 10/10/10

khunglongkhelua đã viết:
Bạn sealand và bạn khamha giúp mình chuyện này với. Mình có 1 file excel sheet 1- sheet 5, mình đã tạo file vba cho sheet 1 và chay ngon lành rồi, mình đang qua sheet 2 làm tương tự mà bấm run macro nó kg run. Mình không biết lí do làm sao cả, bạn giúp mình với.

Code ở sh nào nên đặt đúng sh. Bạn cần chạy code ở Sh Todeschini Model mà lại đặt code ờ sheet2 nên nó chưa chạy. Và xem lại i hay i2 ở câu

For i2 = 0.001 To c2 Step 0.02
Range("B15").Value = i2

khamha · 10/10/10

Chào bạn sealand,Theo mình thì cái form nhập liệu bạn sửa như vậy là tạm ổn rồi " Chỉ còn thiếu cái bẫy lỗi dữ liệu khi để trống "
Bước tiếp theo nhờ bạn sửa lại cho mình cái Form lọc dữ liệu để nó lọc được từ Sheet Main với.
Cảm ơn bạn

khamha · 17/10/10

Chào bạn Sea

Bạn giúp mình sửa lại cái Form lọc dữ liệu để nó có thể lọc một lúc vào hai Sheet,Ý của mình như sau:
1. trong Form lọc có 3 phần là:
+ lọc từ tháng đến tháng cái này lọc vào bảng "TuDauNam"
+ lọc tháng cái này lọc vào bảng "TrongThang"
+ lọc cột "F" , "G" , "H" cái này lọc vào hai bảng "TuDauNam" và "TrongThang"
Bạn cố gắng giúp mình với,Cảm ơn bạn

sealand · 18/10/10

Bạn kiểm tra lại nha

khamha · 18/10/10

sealand đã viết:
Bạn kiểm tra lại nha

Bạn SeaLand ơi,Ý của mình là lọc một lần nó ra hai bảng,tức là mình có thể chọn được tất cả các TextBox trong Form lọc.
Vídụ:Mình chọn trong Form lọc là:
Lọc Khoảng Tháng
+ ô từ tháng: 201005
+ ô đến tháng: 201009
Lọc Trong Tháng
+ ô tháng: 201010
Lọc Điều Kiện Khác
+ ô chọn cột F: A
+ ô chọn cột G: E
+ ô chọn cột H: X
Kết quả lọc sẽ là:
1, trong bảng "TuDauNam" sẽ có dữ liệu từ tháng 201005 đến 201009 Và cột "F" là A ;cột "G" là E ; cột "H" là X
2, trong bảng "TrongTháng" sẽ có dữ liệu của tháng 201010 Và cột "F" là A ;cột "G" là E ; cột "H" là X
Bạn sửa lại cho mình nha,Cảm ơn bạn

sealand · 18/10/10

Mình đã sửa lại theo ý bạn

khamha · 18/10/10

Đúng ý mình rồi bạn Sealand ơi,Cảm ơn bạn nhiều.

khamha · 22/10/10

Nhờ Sửa Code trừ trong Form

Chào bạn SeaLand,Mình có áp dụng cái form của bạn đã làm giúp mình đợt trước để làm form theo
dõi các việc khác,nói chung là nó chạy rất tốt,mình rất cảm ơn bạn.
tuy vậy,mình vẫn gặp khó khăn nếu trong form có phép trừ,không hiểu tại sao nó bị lỗi ở định dạng
số,ví dụ: 45,000 - 132 = -87 .mình sửa mãi rồi mà không được.
mình đưa file lên nhờ bạn sửa giúp và giúp giải thích cho mình biết là nó bị lỗi gì,cách sửa như thế nào
Cảm ơn bạn nhiều.

Hai Lúa Miền Tây · 22/10/10

khamha đã viết:
Chào bạn SeaLand,Mình có áp dụng cái form của bạn đã làm giúp mình đợt trước để làm form theo
dõi các việc khác,nói chung là nó chạy rất tốt,mình rất cảm ơn bạn.
tuy vậy,mình vẫn gặp khó khăn nếu trong form có phép trừ,không hiểu tại sao nó bị lỗi ở định dạng
số,ví dụ: 45,000 - 132 = -87 .mình sửa mãi rồi mà không được.
mình đưa file lên nhờ bạn sửa giúp và giúp giải thích cho mình biết là nó bị lỗi gì,cách sửa như thế nào
Cảm ơn bạn nhiều.

Bạn chỉnh lại định dạng của TextBox từ dấu phẩy (,) sang dấu chấm (.) thử nhé

Ếch Xanh · 22/10/10

domfootwear đã viết:
Bạn chỉnh lại định dạng của TextBox từ dấu phẩy (,) sang dấu chấm (.) thử nhé

Không phải định dạng lại đâu, chép hàm dưới đây vào module nhé:

PHP:

Public Function TachSo(ch As String)
  On Error Resume Next
  TachSo = Val(Trim(Replace(ch, ",", "")))
End Function

Cách dùng: TachSo(Textbox1) hoặc TachSo(45,000) sẽ cho ra giá trị 45000

Hai Lúa Miền Tây · 22/10/10

Learning_Excel đã viết:
Không phải định dạng lại đâu, chép hàm dưới đây vào module nhé:

PHP:

Public Function TachSo(ch As String) On Error Resume Next TachSo = Val(Trim(Replace(ch, ",", ""))) End Function

Cách dùng: TachSo(Textbox1) hoặc TachSo(45,000) sẽ cho ra giá trị 45000

Mình không xem được code vì lổi thiếu cái gì gì đó... Nhưng mình đoán địng dạng máy bạn ấy theo kiểu #.###,## nhưng trong code định dạng cho TextBox là format(TextBox,"#,###.##") nên nó không ra kết quả đúng

Ếch Xanh · 22/10/10

domfootwear đã viết:
Mình không xem được code vì lổi thiếu cái gì gì đó... Nhưng mình đoán địng dạng máy bạn ấy theo kiểu #.###,## nhưng trong code định dạng cho TextBox là format(TextBox,"#,###.##") nên nó không ra kết quả đúng

Không, phải đâu Domfootwear ơi, chỉ có trong form mới bị vậy,
vì 45,000 nếu không tách dấu phẩy (,) thì nó sẽ hiểu là 45 mà 45 - 132 = -87 là đúng rồi.

Hai Lúa Miền Tây · 22/10/10

Learning_Excel đã viết:
Không, phải đâu Domfootwear ơi, chỉ có trong form mới bị vậy,
vì 45,000 nếu không tách dấu phẩy (,) thì nó sẽ hiểu là 45 mà 45 - 132 = -87 là đúng rồi.

Dĩ nhiên là thế rồi, bạn thử điều chỉnh lại trên máy bạn theo như tôi đề cập trên bài viết số #77 thử nhé, nếu máy bạn định dạng là #,###.## thì chỉnh format của TextBox thành #.###,## thử nhé.

Ếch Xanh · 22/10/10

domfootwear đã viết:
Dĩ nhiên là thế rồi, bạn thử điều chỉnh lại trên máy bạn theo như tôi đề cập trên bài viết số #77 thử nhé, nếu máy bạn định dạng là #,###.## thì chỉnh format của TextBox thành #.###,## thử nhé.

Đúng như Dom nói, nhưng trong trường hợp này, bạn khamha ví dụ: 45,000 - 132 = -87

Nhìn vào số là biết định dạng #,##0 rồi còn gì. Bệnh đâu thì sửa đó thôi mà!

À đây, một phần code định dạng trong Textbox trong Form đó đây:

PHP:

Private Sub Ctr06_AfterUpdate()
Ctr06 = Format(Val(Format(Ctr06, "0")), "#,##0")
cong
End Sub

Hỏi Về Code Trong USer Form (2 người xem)

Người dùng đang xem chủ đề này

Không có việc gì khó...

Thành viên gạo cội

Không có việc gì khó...

Thành viên gạo cội

Không có việc gì khó...

Thành viên mới

File đính kèm

Thành viên gạo cội

Hãy cho rồi sẽ nhận!

Không có việc gì khó...

Không có việc gì khó...

File đính kèm

Thành viên gạo cội

File đính kèm

Không có việc gì khó...

Thành viên gạo cội

File đính kèm

Không có việc gì khó...

Không có việc gì khó...

File đính kèm

❆❆❆❆❆❆❆❆

Thành viên tích cực

❆❆❆❆❆❆❆❆

Thành viên tích cực

❆❆❆❆❆❆❆❆

Thành viên tích cực

Sinh nhật lần 19 GPE