Form nhập liệu tự động add thêm cột (1 người xem)

[nguyendinhtutw]

Dear các bác, em có tìm hiểu về các form nhập liệu nhưng chủ yếu là khi nhập xong, bấm nút nhập liệu thì dữ liệu sẽ cập nhật theo hàng. Em muốn file của em dữ liệu cập nhật theo cột thì làm như nào ạ?
Em có đính kèm threat này một file mô phỏng, trong đó em đã mô tả chi tiết, nhờ các bác GPE giúp em 1 macro có thể giải quyết vấn đề này, em cảm ơn.
Chúc cả nhà vui!

 

[Hoang2013]

Bạn gắn macro này vô nút lệnh & bấm thử vài lần xem sao

Sub NhapLieu()
 Dim Col As Integer, Cot As Integer:                Dim Sh As Worksheet

 Set Sh = Sheet2
 Col = Sh.[iV4].End(xlToLeft).Offset(, 9).Column
 For Cot = 4 To Col Step 2
    If Sh.Cells(4, Cot).Value = "" Then
        Sh.Cells(4, Cot).Value = [b1].Value
        Sh.Cells(6, Cot - 1).Resize(2, 2).Value = [c3].Resize(2, 2).Value
        [c3].Resize(2, 2).Value = "":               [b1].Value = ""
      
    End If
 Next Cot
End Sub

 

[nguyendinhtutw]

Bạn gắn macro này vô nút lệnh & bấm thử vài lần xem sao

Sub NhapLieu()
 Dim Col As Integer, Cot As Integer:                Dim Sh As Worksheet

 Set Sh = Sheet2
 Col = Sh.[iV4].End(xlToLeft).Offset(, 9).Column
 For Cot = 4 To Col Step 2
    If Sh.Cells(4, Cot).Value = "" Then
        Sh.Cells(4, Cot).Value = [b1].Value
        Sh.Cells(6, Cot - 1).Resize(2, 2).Value = [c3].Resize(2, 2).Value
        [c3].Resize(2, 2).Value = "":               [b1].Value = ""
     
    End If
 Next Cot
End Sub

Cảm ơn bác nhiều lắm, đúng ý em rồi

 

[nguyendinhtutw]

Bạn gắn macro này vô nút lệnh & bấm thử vài lần xem sao

Sub NhapLieu()
 Dim Col As Integer, Cot As Integer:                Dim Sh As Worksheet

 Set Sh = Sheet2
 Col = Sh.[iV4].End(xlToLeft).Offset(, 9).Column
 For Cot = 4 To Col Step 2
    If Sh.Cells(4, Cot).Value = "" Then
        Sh.Cells(4, Cot).Value = [b1].Value
        Sh.Cells(6, Cot - 1).Resize(2, 2).Value = [c3].Resize(2, 2).Value
        [c3].Resize(2, 2).Value = "":               [b1].Value = ""
    
    End If
 Next Cot
End Sub

bác có thể giải thích giúp em dòng lệnh này được không ạ
Col = Sh.[iV4].End(xlToLeft).Offset(, 9).Column

 

[ChanhTQ@]

Dòng lệnh đó dịch sang tiếng Việt sẽ là:

Lấy cột (mà cột í được tính từ) ô [iV4] (với E2003) hướng về đầu dòng đến khi gặp ô có dữ liệu & dịch sang phải 9 ô (&) đem gán vô biến (đã khai báo là Col)

Tại sao có con 9: Vì trừ hao cho chắc ăn

 

[nguyendinhtutw]

Dòng lệnh đó dịch sang tiếng Việt sẽ là:

Lấy cột (mà cột í được tính từ) ô [iV4] (với E2003) hướng về đầu dòng đến khi gặp ô có dữ liệu & dịch sang phải 9 ô (&) đem gán vô biến (đã khai báo là Col)

Tại sao có con 9: Vì trừ hao cho chắc ăn

Em cảm ơn bác