Các câu hỏi về Form trong Excel VBA

[Tường_Vi]

Private Sub UserForm_Initialize()
.......................
.......................
.......................
End Sub


Em xin hỏi, sự kiện khí nào mình dùng sự kiện này Initialize

Cám ơn

 

[SA_DQ]

Thiết tưởng tay run cưa mới dễ . . . mọi chuyện

Thôi thì thấy viết Code dễ hơn thì nhường cho người khác cưa đi & viết Code cho chủ bài đăng (CBĐ) đi vậy!

/-(a, Ha, ha,. . . . . & CBĐ lưu ý chuyện này dùm nha!

 

[batman1]

Thiết tưởng tay run cưa mới dễ . . . mọi chuyện

Thôi thì thấy viết Code dễ hơn thì nhường cho người khác cưa đi

Thế thì nói làm gì. Có miếng ngon mà lại khuyên là nhường người khác gắp đi? Bó tay.

 

[SA_DQ]

Thì ông bà )(ưa khuyên: 1 nghề cho chín hơn chín mười nghề mà!

 

[batman1]

Cũng còn tùy, nghề chín và chưa chín đem lại lợi ích cho mình hay cho ai. Cứ cho là nghề kiếm tiền chưa chín, nhưng tốt hơn là vẫn làm nghề kiếm tiền (cho vợ con) hay làm nghề chín "ăn cơm nhà vác tù và hàng tổng" (cho ai đó)?

 

[truyen1992]

Xin chào mọi người,
mình mới tập tành học vba
- mình có 1 file cần sửa lại dữ liệu sau khi đã cập nhật dữ liệu bên" sheet thông tin chuyển máy", mình muốn sửa lại dữ liệu tổng trên "sheet data MMTB". Để cập nhật lại thông tin nhà máy đang sử dụng máy cho đúng sau khi đã chuyển máy.
nhưng tới đây lại ko ra đúng .
Mong mọi người giúp e phần code này.

Cảm ơn mọi người nhiều./.

 

[bazooka.92]

Private Sub Textcaphanmem_Change()
On Error Resume Next
Textcaphanmem.Text = Format(Textcaphanmem.Text, "#,##0")
End Sub

em dùng hàm này trong userfrom mà trong textbox thì hiện đúng nhưng trong file nhập excel thì bị thiều mất 3 số 0
VD như trong textbox nhập 2000000 textbox sẽ hiện 2,000,000 trong execl là 2.000.000
nhưng khi nhập 200000 texbox hiện 200.000 exel chỉ hiện 200
em đã chỉnh lại trong Format cells/Number/Custome đung như trong textbox rồi

 

[choinodiba]

ACE nào biết lỗi chỗ này chỉ hộ Mình được ko?
Số tấm = 1
Độ Dài = 1
Khổ Tôn = 1,08 (cái này mình gọi từ Worksheets ra)
txtKhoiLuong = txtDoDai * txtSoTam* txtKho phải chia cho 100 mới ra đúng kết quả mình cần.
txtThanhTien = txtKhoiLuong*txtDonGia/100 mới ra kết quả mà rõ bên trên mình đã chia trước rồi.
Con đây là Hình Ảnh khi không chia cho 100

 

[SA_DQ]

Thay vì các tấm ảnh, sao bạn không đưa file lên để nhanh hơn có giải đáp từ công đồng;

 

[choinodiba]

Đây ACE xem Hộ Em tý.

 

[NewBie2019]

Sory mọi người, khi mình muốn gửi lên đây phần nhờ giúp đỡ về ChartOnForm:
Mình đã lục tìm các bài viết trên GPE về cách vẽ Biểu đồ Tương tác, và chèn các biểu đồ này lên Form
(bài #11: của Bác ndu96081631

Xin giúp vẽ trên cùng đồ thị từ nhiều vùng dữ liệu khác nhau

Chào mọi người Mình có 1 file vẽ đồ thị, trên mỗi sheet là 1đồ thị Để mở các sheet, mình dùng 1 Userform tương tự như UsfVidu Mình mong muốn là chỉ dùng 1 sheet, trong đó sẽ vẽ được đồ thị của tất cả các nhóm Ví dụ: Mình muốn xem nhóm A thì chọn nhóm A và sheet "GOPCHUNG" nào đó sẽ có được đồ...

www.giaiphapexcel.com

)
(bài #1: của Bác ndu96081631

https://www.giaiphapexcel.com/diendan/threads/bi%E1%BB%83u-%C4%91%E1%BB%93-tr%C3%AAn-userform.81415/

)
Nhưng tất cả không phải là nhiều biểu đồ tương tác khác trục, khác đơn vị với nhau lên chung 1 ChartOn Form
(xin xem file đính kèm)
http://www.mediafire.com/file/sl9hdeuuow7fkoe/Hoi-ChartOnForm.xlsm/file
Rất mong các anh chị giúp dùm cách chèn các biểu đồ tương tác khác nhau lên cùng 1 Chart On Form
Xin cám ơn

 

[choinodiba]

ACE cho Em xin Code tìm kiếm với ComboBox.

 

[tonnydung]

Em nhờ các bác giúp 4 trường hợp sau giúp:


1/ Code VBA để coppy sau VD: Sheet 1
Khi ta dang Mở File A ở Sheet 1 có 1 nút "coppy" Khi click vào Nút "Coppy" thì Coppy tất cả các hàng trong Sheet1 File C những cột A,B,C,D Nếu thỏa cột B có chữ "nhà xe" vào Sheet1 File A


2/ Code VBA để coppy sau VD: Sheet 2
Khi ta dang Mở Sheet2 File A ở Sheet 2 có 1 nút "coppy" Khi click vào Nút "Coppy" thì Coppy tất cả các hàng trong Sheet2 File C những cột A,B,C,D,E,F,G,H,I,K Nếu thỏa cột C Không có chữ "HQ" vào Sheet2 File A

3/ Code VBA để coppy sau VD: Sheet 3
Khi dang lam viec o Sheet3 FileA có các hàng dữ liệu liền nhau có các cột A,B,C,D,E và trong sheet đó có nút Coppy. Nếu Click vào nút Coppy mà thỏa mãn 2 điều kiện sau:
- Dieu kien 1: cột A trong Sheet3 FileC và cột A Sheet3 FileA (sheet và file hiện thời làm việc) có số số liệu trùng nhau.
- Dieu kien 2: cột F trong Sheet3 FileC không có dấu "x"
thì sẽ coppy các dữ liệu của các hàng ở Cột C,D,E của Sheet3 FileC sang các cột C,D,E của Sheet3 FileA
(lưu ý giúp: dữ liệu hãng ở Sheet3 FileA có thể ko liền nhau)

4/ Code VBA trong Form VD: Sheet 4
Trong 1 Form có 2 text boxt sau:
Text boxt 1, Text boxt 2
Khi nhập dữ liệu vào Text boxt 1 bấm enter thì Text boxt 2 ktra 3 ký tự đầu của
Text boxt 1 nếu có 3 chữ "kle" thì Text boxt 2 sẽ tự điền là "kh" còn ko có Text boxt 2 sẽ điền "nhà xe"

 

[SA_DQ]

AE cho mình xin Code khi Gõ vào trong Combobox sẽ tìm kiếm theo điều kiện
giống với mã Hàng bên Cột A.

Mình nghỉ là ComboBox không dành cho bạn gõ vô, mà bạn có thể sẽ phải chọn 1 trong những dòng dữ liệu từ nó mà thôi.

 

[SA_DQ]

. . . . . . . . . . . .

 

[tonnydung]

Em nhờ các bác giúp 4 trường hợp sau giúp:


1/ Code VBA để coppy sau VD: Sheet 1
Khi ta dang Mở File A ở Sheet 1 có 1 nút "coppy" Khi click vào Nút "Coppy" thì Coppy tất cả các hàng trong Sheet1 File C những cột A,B,C,D Nếu thỏa cột B có chữ "nhà xe" vào Sheet1 File A


2/ Code VBA để coppy sau VD: Sheet 2
Khi ta dang Mở Sheet2 File A ở Sheet 2 có 1 nút "coppy" Khi click vào Nút "Coppy" thì Coppy tất cả các hàng trong Sheet2 File C những cột A,B,C,D,E,F,G,H,I,K Nếu thỏa cột C Không có chữ "HQ" vào Sheet2 File A

3/ Code VBA để coppy sau VD: Sheet 3
Khi dang lam viec o Sheet3 FileA có các hàng dữ liệu liền nhau có các cột A,B,C,D,E và trong sheet đó có nút Coppy. Nếu Click vào nút Coppy mà thỏa mãn 2 điều kiện sau:
- Dieu kien 1: cột A trong Sheet3 FileC và cột A Sheet3 FileA (sheet và file hiện thời làm việc) có số số liệu trùng nhau.
- Dieu kien 2: cột F trong Sheet3 FileC không có dấu "x"
thì sẽ coppy các dữ liệu của các hàng ở Cột C,D,E của Sheet3 FileC sang các cột C,D,E của Sheet3 FileA
(lưu ý giúp: dữ liệu hãng ở Sheet3 FileA có thể ko liền nhau)

4/ Code VBA trong Form VD: Sheet 4
Trong 1 Form có 2 text boxt sau:
Text boxt 1, Text boxt 2
Khi nhập dữ liệu vào Text boxt 1 bấm enter thì Text boxt 2 ktra 3 ký tự đầu của
Text boxt 1 nếu có 3 chữ "kle" thì Text boxt 2 sẽ tự điền là "kh" còn ko có Text boxt 2 sẽ điền "nhà xe"

nhờ các bác giúp em với, em cần quá

 

[Thong Hoang Tien 250691]

nhờ các bác giúp em với, em cần quá

Đối với trường hợp 1, 2, 3 Anh có thể tham khảo Advance Filter. Nhưng Anh đã hỏi trong này em sẽ trình bày bằng VBA, Anh tham khảo.
(Lưu ý, cần mở song song 2 file)

Bài đã được tự động gộp: 25/11/19

 

[tonnydung]

Đối với trường hợp 1, 2, 3 Anh có thể tham khảo Advance Filter. Nhưng Anh đã hỏi trong này em sẽ trình bày bằng VBA, Anh tham khảo.
(Lưu ý, cần mở song song 2 file)

Bài đã được tự động gộp: 25/11/19

em cảm ơn anh rất nhiều.
1/ nhưng nếu FileA và FileC lưu ở 2 Folder khác nhau thì đường dẫn mình thay như nào ? và ở chỗ nào vậy anh ?
2/ ở mục 2 có vấn đề là coppy điều kiện là: Không có chữ "HQ"
Khi ta dang Mở Sheet2 File A ở Sheet 2 có 1 nút "coppy" Khi click vào Nút "Coppy" thì Coppy tất cả các hàng trong Sheet2 File C những cột A,B,C,D,E,F,G,H,I,K Nếu thỏa cột C Không có chữ "HQ" vào Sheet2 File A
3/ Em đã thử nhưng coppy lần 1 thì ok nhưng nếu click tiếp thì nó lại coppy lần nữa. Giờ nếu trùng nhau thì nó không coppy nữa có được không ạ ?

em cảm ơn

 

[Thong Hoang Tien 250691]

em cảm ơn anh rất nhiều. nhưng nếu FileA và FileC lưu ở 2 Folder khác nhau thì đường dẫn mình thay như nào ? và ở chỗ nào vậy anh ?
em cảm ơn

Em không đặt đường dẫn trong file đó. Nếu anh cần đặt đường dẫn thì tải lại file này nhé.

 

[tonnydung]

Em không đặt đường dẫn trong file đó. Nếu anh cần đặt đường dẫn thì tải lại file này nhé.

Em cảm ơn. còn 3 mục dưởi nhà anh giúp
1/ ở mục 2 có vấn đề là coppy điều kiện là: Không có chữ "HQ"
Khi ta dang Mở Sheet2 File A ở Sheet 2 có 1 nút "coppy" Khi click vào Nút "Coppy" thì Coppy tất cả các hàng trong Sheet2 File C những cột A,B,C,D,E,F,G,H,I,K Nếu thỏa cột C Không có chữ "HQ" vào Sheet2 File A
2/ Em đã thử nhưng coppy lần 1 thì ok nhưng nếu click tiếp thì nó lại coppy lần nữa. Giờ nếu trùng nhau thì nó SẼ coppy ĐÈ lên cái cũ có được không ạ ?
3/
Code VBA để coppy sau VD: Sheet 3
Khi dang lam viec o Sheet3 FileA có các hàng dữ liệu liền nhau có các cột A,B,C,D,E,F,G,H,I,J,K và trong sheet đó có nút Coppy. Nếu Click vào nút Coppy mà thỏa mãn 2 điều kiện sau:
- Dieu kien 1: cột A trong Sheet3 FileC và cột A Sheet3 FileA (sheet và file hiện thời làm việc) có số số liệu trùng nhau.
- Dieu kien 2: cột F trong Sheet3 FileC không có dấu "x"
thì sẽ coppy các dữ liệu của các hàng ở Cột C,D,E của Sheet3 FileC sang các cột C,D,E của Sheet3 FileA
Cũng tương tự như vậy cùng 1 nút Click trên cũng kiểm tra cả phần thanh toán lần 2:
- Dieu kien 1: cột A trong Sheet3 FileC và cột A Sheet3 FileA (sheet và file hiện thời làm việc) có số số liệu trùng nhau.
- Dieu kien 2: cột K trong Sheet3 FileC không có dấu "x"
thì sẽ coppy các dữ liệu của các hàng ở Cột G,H,I của Sheet3 FileC sang các cột H,I,J của Sheet3 FileA
(lưu ý giúp: dữ liệu hãng ở Sheet3 FileA có thể ko liền nhau)
Em có gửi file sửa đổi thêm kèm theo đây ạ
em cảm ơn anh nhiều

 

[tonnydung]

Em cảm ơn. còn 3 mục dưởi nhà anh giúp
1/ ở mục 2 có vấn đề là coppy điều kiện là: Không có chữ "HQ"
Khi ta dang Mở Sheet2 File A ở Sheet 2 có 1 nút "coppy" Khi click vào Nút "Coppy" thì Coppy tất cả các hàng trong Sheet2 File C những cột A,B,C,D,E,F,G,H,I,K Nếu thỏa cột C Không có chữ "HQ" vào Sheet2 File A
2/ Em đã thử nhưng coppy lần 1 thì ok nhưng nếu click tiếp thì nó lại coppy lần nữa. Giờ nếu trùng nhau thì nó SẼ coppy ĐÈ lên cái cũ có được không ạ ?
3/
Code VBA để coppy sau VD: Sheet 3
Khi dang lam viec o Sheet3 FileA có các hàng dữ liệu liền nhau có các cột A,B,C,D,E,F,G,H,I,J,K và trong sheet đó có nút Coppy. Nếu Click vào nút Coppy mà thỏa mãn 2 điều kiện sau:
- Dieu kien 1: cột A trong Sheet3 FileC và cột A Sheet3 FileA (sheet và file hiện thời làm việc) có số số liệu trùng nhau.
- Dieu kien 2: cột F trong Sheet3 FileC không có dấu "x"
thì sẽ coppy các dữ liệu của các hàng ở Cột C,D,E của Sheet3 FileC sang các cột C,D,E của Sheet3 FileA
Cũng tương tự như vậy cùng 1 nút Click trên cũng kiểm tra cả phần thanh toán lần 2:
- Dieu kien 1: cột A trong Sheet3 FileC và cột A Sheet3 FileA (sheet và file hiện thời làm việc) có số số liệu trùng nhau.
- Dieu kien 2: cột K trong Sheet3 FileC không có dấu "x"
thì sẽ coppy các dữ liệu của các hàng ở Cột G,H,I của Sheet3 FileC sang các cột H,I,J của Sheet3 FileA
(lưu ý giúp: dữ liệu hãng ở Sheet3 FileA có thể ko liền nhau)
Em có gửi file sửa đổi thêm kèm theo đây ạ
em cảm ơn anh nhiều

Xin hỏi cả nhà câu lệnh này có gì sai mà hệ thống bao lỗi như hình ảnh ở dưới

Sub Ktoan_thanhtoan()
Dim Rng As Range, vData1, i As Integer, lr As Integer, vData, vRs

lr = ThisWorkbook.Sheets(2).Range("L" & Rows.Count).End(xlUp).Row

For i = 2 To lr
vData = ThisWorkbook.Sheets(2).Cells(i, 42)
    If vData <> "x" Then
        vData1 = ThisWorkbook.Sheets(2).Cells(i, 1)
On Error GoTo b
        ThisWorkbook.Sheets(2).Cells(i, 39) = Application.WorksheetFunction.VLookup(vData1, Workbooks("KToan_Lich_xe_T10_den_T12_2019.xlsx").Sheets(3).Range("L5:BA" & Workbooks("KToan_Lich_xe_T10_den_T12_2019.xlsx").Sheets(3).Range("L" & Rows.Count).End(xlUp).Row), 39, False)
        ThisWorkbook.Sheets(2).Cells(i, 40) = Application.WorksheetFunction.VLookup(vData1, Workbooks("KToan_Lich_xe_T10_den_T12_2019.xlsx").Sheets(3).Range("L5:BA" & Workbooks("KToan_Lich_xe_T10_den_T12_2019.xlsx").Sheets(3).Range("L" & Rows.Count).End(xlUp).Row), 40, False)
        ThisWorkbook.Sheets(2).Cells(i, 41) = Application.WorksheetFunction.VLookup(vData1, Workbooks("KToan_Lich_xe_T10_den_T12_2019.xlsx").Sheets(3).Range("L5:BA" & Workbooks("KToan_Lich_xe_T10_den_T12_2019.xlsx").Sheets(3).Range("L" & Rows.Count).End(xlUp).Row), 41, False)

GoTo c
b:
        ThisWorkbook.Sheets(2).Cells(i, 39) = "Nothing"
        ThisWorkbook.Sheets(2).Cells(i, 40) = "Nothing"
        ThisWorkbook.Sheets(2).Cells(i, 41) = "Nothing"

c:
    End If
     

Next i
End Sub