Nhờ các anh chị trong diễn đàn giúp em về Form nhập liệu (1 người xem)

[Chian91]

Em có học được cách làm Form nhập liệu như file em đính kèm.
Bây giờ e muốn khi dữ liệu mới được thêm vào thì dữ liệu sẽ được thêm vào dòng trên cùng chứ không phải thêm vào dòng tiếp theo như em đang làm. Mong các anh chị chỉnh sửa giúp em. Em xin cảm ơn!

 

[chucuoi92]

Em có học được cách làm Form nhập liệu như file em đính kèm.
Bây giờ e muốn khi dữ liệu mới được thêm vào thì dữ liệu sẽ được thêm vào dòng trên cùng chứ không phải thêm vào dòng tiếp theo như em đang làm. Mong các anh chị chỉnh sửa giúp em. Em xin cảm ơn!

sub của bạn sửa đoạn này thôi:
With Sheets("dulieu")
.Range("A2").EntireRow.Insert
.Range("B2") = hanghoa.Text
.Range("C2") = soluong.Text
.Range("D2") = donvi.Text
.Range("E2") = dongia.Text
End With

 

[Chian91]

sub của bạn sửa đoạn này thôi:
With Sheets("dulieu")
.Range("A2").EntireRow.Insert
.Range("B2") = hanghoa.Text
.Range("C2") = soluong.Text
.Range("D2") = donvi.Text
.Range("E2") = dongia.Text
End With

Cám ơn bạn nhiều nhé!

 

[ChanhTQ@]

Vầy cũng được nà:

Private Sub luu_Click()
Dim EndR As Long
Dim Ctr As Control, Arr()

With Sheets("dulieu")
    EndR = .Range("B" & Rows.Count).End(xlUp).Row
    Arr() = .[b1].Resize(EndR, 5).Value
    Arr(1, 1) = Me!hanghoa.Text
    Arr(1, 2) = Me!soluong.Value
    Arr(1, 3) = Me!donvi.Text
    Arr(1, 4) = Me!dongia.Value
    Arr(1, 5) = Arr(1, 2) * Arr(1, 4)
    .[b2].Resize(EndR, 5).Value = Arr()
End With

For Each Ctr In Me.Controls
    If TypeName(Ctr) = "TextBox" Then
        Ctr.Text = ""
    End If
Next Ctr
hanghoa.SetFocus
End Sub

 

[Chian91]

Em cảm ơn bác ChanhTQ@. Em muốn bổ sung thêm nút in như file em kèm theo. em muốn in tại vùng chọn trong sheet IN, thì e phải thêm mã VBA vào nút in ntn? Em cám ơn

 

[ChanhTQ@]

Mình không có máy in để thử các câu lệnh, nên bạn fải chờ các thành viên khác trong cộng đồng vậy!

 

[Chian91]

Mình không có máy in để thử các câu lệnh, nên bạn fải chờ các thành viên khác trong cộng đồng vậy!

Có anh chị nào giúp em với!

 

[sealand]

Đại khái là như thế này:

Sub Macro1()
Dim Rg As Range
On Error Resume Next
'Hop inputbox se dien vung ban da chon.
'Thay doi bang nhap lai dia chi hoac khong
'dong Inputbox chon vung tu dong dien dia chi
Set Rg = Application.InputBox("Nhap dia chi can in hoac chon", _
"IN CHON VUNG", Selection.Address, , , , , 8)
If Not Rg Is Nothing Then Rg.PrintPreview 'Rg.PrintOut
End Sub