Tạo Form nhập liệu để điền dữ liệu vào bảng có ô được gộp (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Cát Lượng

Cát Lượng

Thành viên tiêu biểu
Tham gia
14/11/18
Bài viết
403
Được thích
66
Em chào các anh/chị.
Xin được nhờ anh/chị giúp em Form nhập liệu để lấy dữ liệu từ bảng trong Sheet(VL Dau Vao) vào để điền dữ liệu tương ứng trong các cột vào bảng trong Sheet(PL_Ttr-QD Vat Lieu).
Dữ liệu được lấy chọn như kiểu khi lập dự toán (tích vào ô cần lấy) trong Form hiện lên.
và cho em xin một nút tìm kiếm kiểu Google với từ khóa lấy ở "Tên Vật Liệu"
Rất mong anh/chị giúp đỡ.
11111.png22222.png
 

File đính kèm

Lần chỉnh sửa cuối:
Cát Lượng đã viết:
Em chào các anh/chị.
Xin được nhờ anh/chị giúp em Form nhập liệu để lấy dữ liệu từ bảng trong Sheet(VL Dau Vao) vào để điền dữ liệu tương ứng trong các cột vào bảng trong Sheet(PL_Ttr-QD Vat Lieu).
Dữ liệu được lấy chọn như kiểu khi lập dự toán (tích vào ô cần lấy) trong Form hiện lên.
và cho em xin một nút tìm kiếm kiểu Google với từ khóa lấy ở "Tên Vật Liệu"
Rất mong anh/chị giúp đỡ.
View attachment 230198View attachment 230199
Nhấp chuột vào đây để mở rộng...
Dùng tạm
copy code vào sheet VL Dau Vao
Chọn chuột vào Tên vật liệu chạy code
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Rng As Range, eRow&, i&, iK&
  If Target.Column = 4 Then
    If Target.Count = 1 Then
      If Target.Value <> Empty Then
        Msg = "Ban Muon copy Vat Lieu ?"
        Style = vbYesNo + vbCritical + vbDefaultButton2
        If MsgBox(Msg, Style) = vbYes Then
          With Sheets("PL_Ttr-QD Vat Lieu")
            For i = 17 To 27
              If .Range("C" & i) = Empty Then
                .Range("C" & i) = i - 16
                .Range("E" & i) = Target.Value
                .Range("O" & i) = Target.Offset(, 1).Value
                Exit Sub
              End If
            Next i
          End With
        End If
      End If
    End If
  End If
End Sub
 
HieuCD đã viết:
Dùng tạm
copy code vào sheet VL Dau Vao
Chọn chuột vào Tên vật liệu chạy code
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Rng As Range, eRow&, i&, iK&
  If Target.Column = 4 Then
    If Target.Count = 1 Then
      If Target.Value <> Empty Then
        Msg = "Ban Muon copy Vat Lieu ?"
        Style = vbYesNo + vbCritical + vbDefaultButton2
        If MsgBox(Msg, Style) = vbYes Then
          With Sheets("PL_Ttr-QD Vat Lieu")
            For i = 17 To 27
              If .Range("C" & i) = Empty Then
                .Range("C" & i) = i - 16
                .Range("E" & i) = Target.Value
                .Range("O" & i) = Target.Offset(, 1).Value
                Exit Sub
              End If
            Next i
          End With
        End If
      End If
    End If
  End If
End Sub
Nhấp chuột vào đây để mở rộng...
Em cảm ơn anh!
Anh ơi cho em hỏi có thể chọn được nhiều tên vật liệu cùng lúc không anh?
Hiện tại em đang chọn từng tên một, giả sử có nhiều dữ liệu thì em chọn sẽ không nhớ cái nào mình đã chọn hay chưa? nếu chọn không theo thứ tự sẽ dễ bị nhầm. và chọn rồi không bỏ chọn được.
Nếu Form thì có thể chọn được đúng không anh?
Mong anh và các anh chị trên FPE giúp đỡ!


muon.png
 
Lần chỉnh sửa cuối:
Cát Lượng đã viết:
Em cảm ơn anh!
Anh ơi cho em hỏi có thể chọn được nhiều tên vật liệu cùng lúc không anh?
Hiện tại em đang chọn từng tên một, giả sử có nhiều dữ liệu thì em chọn sẽ không nhớ cái nào mình đã chọn hay chưa? nếu chọn không theo thứ tự sẽ dễ bị nhầm. và chọn rồi không bỏ chọn được.
Nếu Form thì có thể chọn được đúng không anh?
Mong anh và các anh chị trên FPE giúp đỡ!


View attachment 230202
Nhấp chuột vào đây để mở rộng...
Chỉnh code
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Rng As Range, VatLieu$, r&, i&, iK&
  If Target.Column = 4 Then
    Msg = "Ban Muon copy Vat Lieu ?"
    Style = vbYesNo + vbCritical + vbDefaultButton1
    If MsgBox(Msg, Style) = vbYes Then
      For r = 1 To Target.Rows.Count
        VatLieu = Target(r, 1).Value
        If VatLieu <> Empty Then
          With Sheets("PL_Ttr-QD Vat Lieu")
            For i = 17 To 27
              If .Range("E" & i) = VatLieu Then Exit For
              If .Range("C" & i) = Empty Then
                .Range("C" & i) = i - 16
                .Range("E" & i) = VatLieu
                .Range("O" & i) = Target.Offset(, 1).Value
                Exit For
              End If
            Next i
          End With
        End If
      Next r
    End If
  End If
End Sub
Bỏ format in đậm vùng kết quả là ổn
 
HieuCD đã viết:
Chỉnh code
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Rng As Range, VatLieu$, r&, i&, iK&
  If Target.Column = 4 Then
    Msg = "Ban Muon copy Vat Lieu ?"
    Style = vbYesNo + vbCritical + vbDefaultButton1
    If MsgBox(Msg, Style) = vbYes Then
      For r = 1 To Target.Rows.Count
        VatLieu = Target(r, 1).Value
        If VatLieu <> Empty Then
          With Sheets("PL_Ttr-QD Vat Lieu")
            For i = 17 To 27
              If .Range("E" & i) = VatLieu Then Exit For
              If .Range("C" & i) = Empty Then
                .Range("C" & i) = i - 16
                .Range("E" & i) = VatLieu
                .Range("O" & i) = Target.Offset(, 1).Value
                Exit For
              End If
            Next i
          End With
        End If
      Next r
    End If
  End If
End Sub
Bỏ format in đậm vùng kết quả là ổn
Nhấp chuột vào đây để mở rộng...
Dạ! Code chọn được theo kiểu liên tục liền nhau (không thể chọn nhiều dữ liệu như kiểu nhấn Ctrl trong trường hợp muốn chọn ngắt quãng bỏ qua 1 ô chả hạn) và khi chọn rồi không bỏ chọn được.
Cách của anh rất hay nếu dữ liệu ít.
Cảm ơn anh đã giúp em!
 
HieuCD đã viết:
Chỉnh code
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Rng As Range, VatLieu$, r&, i&, iK&
  If Target.Column = 4 Then
    Msg = "Ban Muon copy Vat Lieu ?"
    Style = vbYesNo + vbCritical + vbDefaultButton1
    If MsgBox(Msg, Style) = vbYes Then
      For r = 1 To Target.Rows.Count
        VatLieu = Target(r, 1).Value
        If VatLieu <> Empty Then
          With Sheets("PL_Ttr-QD Vat Lieu")
            For i = 17 To 27
              If .Range("E" & i) = VatLieu Then Exit For
              If .Range("C" & i) = Empty Then
                .Range("C" & i) = i - 16
                .Range("E" & i) = VatLieu
                .Range("O" & i) = Target.Offset(, 1).Value
                Exit For
              End If
            Next i
          End With
        End If
      Next r
    End If
  End If
End Sub
Bỏ format in đậm vùng kết quả là ổn
Nhấp chuột vào đây để mở rộng...
Lần đầu tiên thấy code kiểu vậy!
Sáng tạo quá anh! nhưng dữ liệu nhiều thì thấy Form vẫn ưu thế.
 
Cát Lượng đã viết:
Dạ! Code chọn được theo kiểu liên tục liền nhau (không thể chọn nhiều dữ liệu như kiểu nhấn Ctrl trong trường hợp muốn chọn ngắt quãng bỏ qua 1 ô chả hạn) và khi chọn rồi không bỏ chọn được.
Cách của anh rất hay nếu dữ liệu ít.
Cảm ơn anh đã giúp em!
Nhấp chuột vào đây để mở rộng...
QuangMinhtb đã viết:
Lần đầu tiên thấy code kiểu vậy!
Sáng tạo quá anh! nhưng dữ liệu nhiều thì thấy Form vẫn ưu thế.
Nhấp chuột vào đây để mở rộng...
Xóa code trước
Tự tạo Nút lệnh hoặc phím tắt chạy code
Dùng chuột chọn vùng tên nguyên liệu nhiều dòng liên tục hoặc ngắt quảng, chạy code
Mã: 
Sub AddNVL()
  Dim sRng As Range, iCel As Range, VatLieu$, i&
  Set sRng = Selection
  For Each iCel In sRng
    If iCel.Column = 4 Then
      VatLieu = iCel.Value
      If VatLieu <> Empty Then
        With Sheets("PL_Ttr-QD Vat Lieu")
          For i = 17 To 27 'Ket qua tu dong 17 toi dong 27
            If .Range("E" & i) = VatLieu Then Exit For
            If .Range("C" & i) = Empty Then
              .Range("C" & i) = i - 16
              .Range("E" & i) = VatLieu
              .Range("O" & i) = iCel.Offset(, 1).Value
              Exit For
            End If
          Next i
        End With
      End If
    End If
  Next iCel
  Set sRng = Nothing: Set iCel = Nothing
End Sub
 
HieuCD đã viết:
Xóa code trước
Tự tạo Nút lệnh hoặc phím tắt chạy code
Dùng chuột chọn vùng tên nguyên liệu nhiều dòng liên tục hoặc ngắt quảng, chạy code
Mã: 
Sub AddNVL()
  Dim sRng As Range, iCel As Range, VatLieu$, i&
  Set sRng = Selection
  For Each iCel In sRng
    If iCel.Column = 4 Then
      VatLieu = iCel.Value
      If VatLieu <> Empty Then
        With Sheets("PL_Ttr-QD Vat Lieu")
          For i = 17 To 27 'Ket qua tu dong 17 toi dong 27
            If .Range("E" & i) = VatLieu Then Exit For
            If .Range("C" & i) = Empty Then
              .Range("C" & i) = i - 16
              .Range("E" & i) = VatLieu
              .Range("O" & i) = iCel.Offset(, 1).Value
              Exit For
            End If
          Next i
        End With
      End If
    End If
  Next iCel
  Set sRng = Nothing: Set iCel = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Anh nhiều chiêu thật!
Cám ơn anh đã tận tình chỉ bảo.
Khi nào anh có thời gian, nếu có thể nhờ anh giúp em tạo Form mới nhé! để em tham khảo và vận dụng để làm việc.
Em quản lý vật tư nên rất cần. Dữ liệu em tầm 200 tên vật tư, tuy không nhiều lắm nhưng nhiều khi chọn rồi, bỏ đi và chọn lại.
Chúc anh nhiều sức khỏe và may mắn!
 
HieuCD đã viết:
Xóa code trước
Tự tạo Nút lệnh hoặc phím tắt chạy code
Dùng chuột chọn vùng tên nguyên liệu nhiều dòng liên tục hoặc ngắt quảng, chạy code
Mã: 
Sub AddNVL()
  Dim sRng As Range, iCel As Range, VatLieu$, i&
  Set sRng = Selection
  For Each iCel In sRng
    If iCel.Column = 4 Then
      VatLieu = iCel.Value
      If VatLieu <> Empty Then
        With Sheets("PL_Ttr-QD Vat Lieu")
          For i = 17 To 27 'Ket qua tu dong 17 toi dong 27
            If .Range("E" & i) = VatLieu Then Exit For
            If .Range("C" & i) = Empty Then
              .Range("C" & i) = i - 16
              .Range("E" & i) = VatLieu
              .Range("O" & i) = iCel.Offset(, 1).Value
              Exit For
            End If
          Next i
        End With
      End If
    End If
  Next iCel
  Set sRng = Nothing: Set iCel = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Trân trọng cám ơn anh!
 
Cát Lượng đã viết:
Anh nhiều chiêu thật!
Cám ơn anh đã tận tình chỉ bảo.
Khi nào anh có thời gian, nếu có thể nhờ anh giúp em tạo Form mới nhé! để em tham khảo và vận dụng để làm việc.
Em quản lý vật tư nên rất cần. Dữ liệu em tầm 200 tên vật tư, tuy không nhiều lắm nhưng nhiều khi chọn rồi, bỏ đi và chọn lại.
Chúc anh nhiều sức khỏe và may mắn!
Nhấp chuột vào đây để mở rộng...
Bạn tự tạo 1 Form với 2 ListBox, ListBox1 là dữ liệu nguồn, Listbox 2 là kết quả, thêm 3 nút lệnh Add , ReMove và Up Date
Tham khảo code trên mạng viết lệnh cho 3 nút lệnh
 
HieuCD đã viết:
Bạn tự tạo 1 Form với 2 ListBox, ListBox1 là dữ liệu nguồn, Listbox 2 là kết quả, thêm 3 nút lệnh Add , ReMove và Up Date
Tham khảo code trên mạng viết lệnh cho 3 nút lệnh
Nhấp chuột vào đây để mở rộng...
Vâng, cơ bản về code em không hiểu nên khó mà chế được, nhiều khi sai một dấu chấm hay dấu phẩy cũng không được, huống chi em không am hiểu về code.
Em nhìn vào đó như đọc chữ tàu, mà chữ tàu còn có google để dịch, giá mà code cũng dịch được thì hay anh nhỉ! _)()(-
Em sử dụng code anh giúp bài 7 để làm nốt báo cáo để mai có bài nộp
Cảm ơn anh!
 
mình nghĩ nếu bạn muốn tạo chương trình cho riêng bạn thì bạn phải tự lực là chính, còn nếu muốn nhập dữ liệu lẹ thì sử dụng cái Addin nhập dữ liệu của anh @huuthang_bd
 
thuyyeu99 đã viết:
mình nghĩ nếu bạn muốn tạo chương trình cho riêng bạn thì bạn phải tự lực là chính, còn nếu muốn nhập dữ liệu lẹ thì sử dụng cái Addin nhập dữ liệu của anh @huuthang_bd
Nhấp chuột vào đây để mở rộng...
Vâng, em cảm ơn chị!
Bài đã được tự động gộp:

thuyyeu99 đã viết:
mình nghĩ nếu bạn muốn tạo chương trình cho riêng bạn thì bạn phải tự lực là chính, còn nếu muốn nhập dữ liệu lẹ thì sử dụng cái Addin nhập dữ liệu của anh @huuthang_bd
Nhấp chuột vào đây để mở rộng...
Chị gửi link add in đó cho em xin được không ạ?
 
Cát Lượng đã viết:
Em nhìn vào đó như đọc chữ tàu, mà chữ tàu còn có google để dịch, giá mà code cũng dịch được thì hay anh nhỉ!
Em sử dụng code anh giúp bài 7 để làm nốt báo cáo để mai có bài nộp Cảm ơn anh!
Nhấp chuột vào đây để mở rộng...
Bạn tham khảo file dưới đây xem sao:
 

File đính kèm

Đầu tiên sẽ là 1 dòng nội dung của macro này:
PHP: 
Private Sub Worksheet_Activate()
 FormDMDG.Show  'Dùng để Form khi trang tính hiện thời được kích hoạt   '
End Sub
Kế tiếp ngay sau đó sẽ là macro sau:
Mã: 
Private Sub UserForm_Initialize()
    Dim EndR As Long
    ReDim Ar0(1 To 13, 1 To 3)
1    With Sheets("Note1")
        EndR = .Cells(65000, 8).End(xlUp).Row
3        Arr = .Range(.Cells(10, 8), .Cells(EndR, 10)).Value
    End With
5    With Me.MHList
        .ColumnCount = 3:                  .List = Arr
7    End With
    Ar0(1, 1) = "Tên Hàng Hóa":                 Ar0(1, 2) = "DVT"
9    Ar0(1, 3) = "Só Luong"
    Me!lbSelect.List = Ar0()
11    NhomHang.SetFocus:                          Erase Arr
End Sub
Các câu lệnh trước D1: Khai báo các biến dùng trong chương trình, trong đó có 1 biến mảng 13 dòng & 3 cột;
D1: Tuyên cáo làm việc với trang tính có tên 'Note1'
Tuyên cáo này kết thúc ở D4
D2: Đem chỉ số dòng cuối của cột thí 8 (của trang tính hiện hành) gán vô tham biến (đã khai báo) dùng chung (trong Form)
D3: Đem vùng giới hạn bỡi Dòng 10 của cột 8 & dòng cuối (có dữ liệu) (chứa trang tham biến) của cột thứ 10 (cột H & J tương ứng) gán vô tham biến mảng.
D5 Tuyên cáo sẽ làm việc với Control có tên là 'MHList' trên form (đó chính là ListBox lớn phía trên)
Tuyên cáo này kết thúc tại D7
D6 (gồm 2 mệnh đề lệnh) Mệnh đề đầu: Ấn định số cột (của ListBox) là 3
Mệnh đề sau: Lấy ữ liệu trong biến mảng làm nguồn cho ListBox (này)
D8; Mệnh đề đầu: Ấn định chuỗi 'Tên HH' vô dòng đầu cột thứ 3 của mảng
Mệnh đề sau: (Cũng tương tự) gán chuỗi 'DVT' vô dòng đầu & cột thứ 2
D9: Gán chuỗi tương tự trên
D10: Lấy mảng này làm nguồn cho ListBox thứ 2 (phía dưới hơn của ListBox 'MHList'
D11: MĐ dầu: (Cho) Control có tên là 'NhomHang nhận Focus
MĐ sau: Xóa dữ liệu trang mảng Arr()
 
Macro tiếp theo sẽ là macro sẽ 'chạy' 1 khi ta bấm chuột vô ListBox (lớn bên trên)
PHP: 
Private Sub MHList_Click()
Dim W As Integer
1  On Error GoTo LoiCT
lbID = Me!MHList.ListIndex
3 SeL = SeL + 1
For W = 0 To 2
5    Me!lbSelect.List(SeL, W) = Me!MHList.List(lbID, W)
Next W
7 Err_:           Exit Sub
LoiCT:
9 If Err = 381 Then
    MsgBox "Quá Dòng", , "Chào Ban!"
11    Resume Next
Else
13    Resume Err_
End If
End Sub
Dòng trước D1: Khai báo 1 biến chứa số liệu (kiểu Integer)
D1: Nếu chương trình chạy mà gặp lỗi bất kỳ thì đến nhãn 'LoiCT' để thực hiện tiếp
(Nhã đó có mã dòng lệnh là 8)
D2: Đem chỉ số dòng trong ListBox có tên là MHList gán vô tham biến (đã khai báo dùng chung (trong Form))
D3: Tăng 1 đơn vị cho tham biến dùng chung 'Sel'
D4: Tạo vòng lặp duyệt từ 0 cho tới 2
Vòng lặp này kết thú ở D6
D5: đưa các trị dữ liệu tương ứng của 3 cột của dòng được chọn (lbID) trong ListBox trên xuống ListBox dưới (mà đưa vô dòng có chỉ số mới vừa tăng 1 đơn vị)
D7 Err_ là 1 cái nhãn, như biển báo chỉ đường ngoài phố; Khi gặp biển báo này chương trình sẽ kết thúc bỡi lệnh 'Thoát'
D8 là 1 cái nhãn (chỉ đường)
D9: Đ/kiện nếu mã lỗi đang là 381 thì thực hiện 2 lệnh kế tiếp
D10: Hiện họp thoại báo thông tin (cho người dùng)
D11: Thực hiện lệnh kế tiếp
D12: Đ/Kiện không đạt thì thực hiện D13: Trở lại nhãn có tên Err_

( Để biết lỗi có mã 381 là gì ta cần vô cửa sổ Immediate & gỏ dòng lệnh ?Error(381) bạn sẽ được VBE giải đáp)
 
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

queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra (5 người xem)
Trả lời
2
Đọc
106
ptm0412
ptm0412
G
Làm sao để sắp xếp nhiều cột và hàng theo abc vậy ạ ? (4 người xem)
Trả lời
9
Đọc
160
Duy Tùng 9x
Duy Tùng 9x
C
Tính tổng một khách hàng có nhiều mã hàng nhỏ (4 người xem)
2
Trả lời
20
Đọc
149
Duy Tùng 9x
Duy Tùng 9x
K
Lỗi chèn ảnh hàng loạt trong excel 2024 (3 người xem)
Trả lời
2
Đọc
88
kenytien
K
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM (3 người xem)
    • Thích
Trả lời
2
Đọc
1K
ptm0412
ptm0412
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
10
Đọc
342
VetMini
V
H
Chuyển file *xml hóa đơn điện tử sang excel
    • Thích
Trả lời
8
Đọc
312
VetMini
V
P
Phát âm thanh tiếng việt cho dữ liệu trong file excel
Trả lời
2
Đọc
85
ongke0711
ongke0711
N
xin các cao thủ chỉ cách gỡ lỗi không khởi động được excel
Trả lời
1
Đọc
76
BuiQuangThuan
B
P
Xin tư vấn về cách tạo bảng quản lý vải
    • Cười
Trả lời
16
Đọc
326
pycckuu410
pycckuu410
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (3 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
349
Đọc
31K
tuanktt3
T
D
Nhờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu
Trả lời
6
Đọc
203
Hoàng Tuấn 868
H
P
Hỏi về cách dò tìm từ dưới lên trên, dò tìm trong 2 bảng
Trả lời
7
Đọc
233
kenytien
K
D
Nhờ giúp đỡ về công thức xếp loại rèn luyện theo thông tư 22/2021/TT-BGDĐT (1 người xem)
Trả lời
8
Đọc
183
thanthanhan
T
Maika8008
Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
116
Đọc
25K
Thanh Tam 07
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
25
Đọc
976
befaint
befaint
A
Lấy trường dữ liệu trong file hóa đơn dạng *.xml
Trả lời
1
Đọc
178
ongke0711
ongke0711
K
Lọc một mã sản phẩm có nhiều đơn giá thành một file riêng (1 người xem)
Trả lời
2
Đọc
152
ketoansb123
K
D
Nhờ trợ giúp xác định thứ tự của các từ và cụm từ trong 1 chuỗi văn bản.
Trả lời
10
Đọc
308
Phuocam
Phuocam
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ (1 người xem)
Trả lời
19
Đọc
635
thuytrangbp28
T
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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom