https//imgurcom/vq47d9S em giúp em với em có file như hình và em muốn tạo 1 userForm

https://imgur.com/vq47d9S
Thầy ơi em giúp em với, em có file như hình và em muốn tạo 1 userForm nhập liệu: nhập số lượng sẽ được điền tương ứng theo tên Mark và điền vào cột cuối cùng trong bảng(cột 1), như B1-1 với số lượng nhập là 2 thì khi nhấn nút nhập vào userForm thì số 2 sẽ được điền vào ô N11 và tương tự với các Mark còn lại, em phải làm như thế nào vậy?

4 câu trả lời

158 lượt xem

vỗ tay

Nguyễn Hoàng Dũng 15:07 - Jul 10, 2020

Chào bạn bạn phải tạo ra ucfrom trước chứ, rồi có code ghi dữ liệu từ From vào sheet mình mới hướng dẫn được chứ.

vỗ tay

Nguyễn Hoàng Dũng 16:07 - Jul 10, 2020

https://drive.google.com/file/d/1W-Q1...
Em đã tạo 1 UcForm (Nhập Liệu) mông thầy hướng dẫn. Thanks Thầy

vỗ tay

Nguyễn Hoàng Dũng 14:07 - Jul 11, 2020

Private Sub cb_NhapPhieuXuat_Click()

Dim a As String
Dim b As String
Dim c As Integer
Dim ws As Worksheet
Dim CotCuoi As Integer
Dim KQ_Tim As Integer

Set ws = ActiveSheet
a = tb_TenCauKien.Value
b = tb_NhapPhieuXuat.Value
c = tb_SoLuongNhapPhieuXuat
KQ_Tim = ws.Range("A8:M6000").Find("*" & a & "*", LookAt:=xlPart)
CotCuoi = ws.Cells(8, Columns.Count).End(xlLeft).Column

If a = "" Or b = "" Or c = "" Then
MsgBox " Nhap Day Du Thon Tin"

tb_NhapPhieuXuat = ""
tb_SoLuongNhapPhieuXuat = ""
tb_TenCauKien = ""
uf_NhapPhieuXuat.Show

Else

ws.Range(CotCuoi & KQ_Tim).Value = c

End If

MsgBox " Nhap Thanh Cong"

End Sub

Giúp em với Thầy sao em dung Hàm Find VBA báo lỗi???

vỗ tay

Nguyễn Hoàng Dũng 08:07 - Jul 13, 2020

Chào bạn mình kiểm tra thì table1 của bạn không có

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

https//imgurcom/vq47d9S em giúp em với em có file như hình và em muốn tạo 1 userForm

Câu hỏi liên quan