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

Liên hệ QC
Tường_Vi

Tường_Vi

Thành viên tiêu biểu
Tham gia
19/4/10
Bài viết
482
Được thích
121
Nghề nghiệp
Luôn tìm kiếm một vị trí tốt hơn
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
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
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!
 
Upvote 0
Thì ông bà )(ưa khuyên: 1 nghề cho chín hơn chín mười nghề mà!
 
Upvote 0
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 đó)?
 
Upvote 0
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./.
 

File đính kèm

  • 11111.xlsm
    527.9 KB · Đọc: 9
Upvote 0
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 :(
 
Upvote 0
a6bb4d62ade54bbb12f4.png

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
acc.png
 
Lần chỉnh sửa cuối:
Upvote 0
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;
 
Upvote 0
Đây ACE xem Hộ Em tý.
 

File đính kèm

  • NhapTheoUF.xlsm
    43 KB · Đọc: 13
Upvote 0
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
www.giaiphapexcel.com

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 www.giaiphapexcel.com
)
(bài #1: của Bác ndu96081631
)
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
 

File đính kèm

  • Hoi-ChartOnForm.xlsm
    45.7 KB · Đọc: 4
Upvote 0
ACE cho Em xin Code tìm kiếm với ComboBox.
 

File đính kèm

  • XinCode_TimKiem.xlsm
    18.6 KB · Đọc: 8
Upvote 0
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"
 

File đính kèm

  • FileC.xlsx
    12.8 KB · Đọc: 3
  • FileA.xlsx
    55.6 KB · Đọc: 3
Lần chỉnh sửa cuối:
Upvote 0
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.
Nhấp chuột vào đây để mở rộng...
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.
 
Upvote 0
. . . . . . . . . . . .:D
 

File đính kèm

  • GPE.rar
    18.7 KB · Đọc: 13
Upvote 0
tonnydung đã viết:
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ấp chuột vào đây để mở rộng...
nhờ các bác giúp em với, em cần quá
 
Upvote 0
tonnydung đã viết:
nhờ các bác giúp em với, em cần quá
Nhấp chuột vào đây để mở rộng...
Đố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:
 

File đính kèm

  • FileA.xlsm
    76.8 KB · Đọc: 5
  • FileC.xlsx
    12.9 KB · Đọc: 5
Upvote 0
Thong Hoang Tien 250691 đã viết:
Đố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:
Nhấp chuột vào đây để mở rộng...
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
 
Lần chỉnh sửa cuối:
Upvote 0
tonnydung đã viết:
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
Nhấp chuột vào đây để mở rộng...
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é.
 

File đính kèm

  • FileA.xlsm
    76.2 KB · Đọc: 6
Upvote 0
Thong Hoang Tien 250691 đã viết:
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é.
Nhấp chuột vào đây để mở rộng...
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
 

File đính kèm

  • FileA.xlsm
    80 KB · Đọc: 4
  • FileC.xlsx
    13.3 KB · Đọc: 2
Lần chỉnh sửa cuối:
Upvote 0
tonnydung đã viết:
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
Nhấp chuột vào đây để mở rộng...
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

Mã: 
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
 

File đính kèm

  • Untitled.png
    Untitled.png
    4.1 KB · Đọc: 9
  • Untitled1.png
    Untitled1.png
    25.1 KB · Đọc: 11
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

kiencuong030184
  • Question
ẩn hiện dòng, cột có điều kiên
Trả lời
3
Đọc
39
SA_DQ
SA_DQ
H
  • Question
Code subtotal và tìm điều kiện
Trả lời
1
Đọc
10
Hoàng Tuấn 868
H
Emyeuexcel
  • Question
In theo số thứ tự
    • Chấp nhận
Trả lời
6
Đọc
107
Emyeuexcel
Emyeuexcel
A
TÁCH TIẾNG HÀN VÀ TIẾNG VIỆT RIÊNG
Trả lời
4
Đọc
48
HieuCD
H
C
  • Question
VBA copy 2 vùng dữ liệu từ 1 workbook này sang 2 vùng của workbook khác!
    • Phẫn nộ
Trả lời
12
Đọc
153
Quang_Hải
Quang_Hải
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

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