Nhờ các anh/ chị/ bạn giúp đỡ nhập giá trị từ textbox vào vùng excel (1 người xem)

[phamdinhnha]

Trong file mình gửi kèm có Sheet "DULIEU", và 1 button "Themthangluong" để mở Form nhập tháng lương> Mình muốn khi mở Form, nhập tháng lương textbox và click vào nút "Tao Moi" thì giá trị nhập trong Textbox đó sẽ điền vào các ô của cột D (chỉ nhập vào các ô ở cột D tương ứng với vùng từ ô C3 đến ô cuối cùng có dữ liệu của Cột C). Rất mong được giúp đỡ, cảm ơn mọi người!

 

[snow25]

Trong file mình gửi kèm có Sheet "DULIEU", và 1 button "Themthangluong" để mở Form nhập tháng lương> Mình muốn khi mở Form, nhập tháng lương textbox và click vào nút "Tao Moi" thì giá trị nhập trong Textbox đó sẽ điền vào các ô của cột D (chỉ nhập vào các ô ở cột D tương ứng với vùng từ ô C3 đến ô cuối cùng có dữ liệu của Cột C). Rất mong được giúp đỡ, cảm ơn mọi người!

Thử code sau.

Private Sub btnTaoMoiThang_TX_Click()
   Dim lr As Long, lr1 As Long
   With Sheets("dulieu")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        lr1 = .Range("D" & Rows.Count).End(xlUp).Row + 1
        If lr = 2 Then Exit Sub
        If lr1 >= lr Then lr1 = lr
        .Range("D" & lr1).Value = txtTaoThangLuong_TX.Value
  End With
End Sub

 

[phamdinhnha]

Dim lr As Long, lr1 As Long With Sheets("dulieu") lr = .Range("B" & Rows.Count).End(xlUp).Row lr1 = .Range("D" & Rows.Count).End(xlUp).Row + 1 If lr = 2 Then Exit Sub If lr1 >= lr Then lr1 = lr .Range("D" & lr1).Value = txtTaoThangLuong_TX.Value End With

Trước hết xin cảm ơn bạn, tuy nhiên mình muốn nhập tất cả các ô tại cột D tương ứng với vùng từ ô C3 đến ô cuối cùng có dữ liệu ở cột C bằng 1 lần click vào nút "Tao Moi" thì làm thế nào bạn nhỉ, xem giúp mình nhé

Bài đã được tự động gộp: 1/2/24

Trước hết xin cảm ơn bạn, tuy nhiên mình muốn nhập tất cả các ô tại cột D tương ứng với vùng từ ô C3 đến ô cuối cùng có dữ liệu ở cột C bằng 1 lần click vào nút "Tao Moi" thì làm thế nào bạn nhỉ, xem giúp mình nhé

them nữa là cho dù vùng trên cột D muốn điền tháng , nó có dữ liệu hay trống thì đều nhập số tháng mới như mình đã nhập vào textbox

 

[huhumalu]

Bạn xem thử trước khi tìm ra cách hay hơn nhé.
P/S: Bạn nên có hình ảnh, chụp lại từng bước làm và kết quả mong muốn.

 

[phamdinhnha]

View attachment 298889
Bạn xem thử trước khi tìm ra cách hay hơn nhé.
P/S: Bạn nên có hình ảnh, chụp lại từng bước làm và kết quả mong muốn.

Cảm ơn bạn đã quan tâm, Ý mình là chỉ click button "TAO MOI" 1 lần thì toàn bộ cột D (chỉ những dòng mà cột C hoặc vùng từ A3 đến C7 có dữ liệu) sẽ điền giá trị đã nhập vào Textbox

 

[hoangtuan.net]

Cảm ơn bạn đã quan tâm, Ý mình là chỉ click button "TAO MOI" 1 lần thì toàn bộ cột D (chỉ những dòng mà cột C hoặc vùng từ A3 đến C7 có dữ liệu) sẽ điền giá trị đã nhập vào Textbox

Bạn thử đoạn code sau trong file đính kèm!

Private Sub btnTaoMoiThang_TX_Click()

    Dim lr As Long
    Dim i As Long
    With Sheets("dulieu")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        If lr < 3 Then Exit Sub
        For i = 3 To lr
            .Range("D" & i).Value = txtTaoThangLuong_TX.Value
        Next i
    End With


End Sub

 

[huhumalu]

For i = 3 To lr
.Range("D" & i).Value = txtTaoThangLuong_TX.Value
Next i

Nếu vậy anh dùng:

.Range("D3:D" & lr).Value = txtTaoThangLuong_TX.Value

 

[phamdinhnha]

Bạn thử đoạn code sau trong file đính kèm!

Private Sub btnTaoMoiThang_TX_Click()

    Dim lr As Long
    Dim i As Long
    With Sheets("dulieu")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        If lr < 3 Then Exit Sub
        For i = 3 To lr
            .Range("D" & i).Value = txtTaoThangLuong_TX.Value
        Next i
    End With


End Sub

Rất cảm ơn bạn, đúng ý mình muốn rồi.

Bài đã được tự động gộp: 2/2/24

Nếu vậy anh dùng:

.Range("D3:D" & lr).Value = txtTaoThangLuong_TX.Value

Rất cảm ơn bạn, đúng ý mình muốn rồi.

 

[phamdinhnha]

Nếu vậy anh dùng:

.Range("D3:D" & lr).Value = txtTaoThangLuong_TX.Value

Mình hỏi thêm là mình muốn chọn một tháng cụ thể (ví dụ tháng lĩnh lương là 9) để lưu vào sheet CHI_TIET sau chọn số tháng trên textbox và click vào button THEM VAO CHI TIET thì làm thế nào bạn nhỉ? Giúp mình thêm nhé

 

[SA_DQ]

Bạn tham khảo cái ni, nếu được thì sửa lại mà xài:

Private Sub CmdThemCT_Click()
 Dim Rws As Long, W As Integer, J As Long
 Dim Arr()
 
 Sheets("ChiTiet").[C4].CurrentRegion.Offset(1).ClearContents
 With Sheets("DuLieu")
    Rws = .UsedRange.Rows.Count
    Arr() = .[B3].Resize(Rws, 3).Value
    ReDim KQ(1 To Rws, 1 To 4)
    For J = 1 To UBound(Arr())
        If Arr(J, 3) = Me!txtTaoThangLuong_TX.Value Then
            W = W + 1:                      aKQ(W, 1) = W
            aKQ(W, 2) = Arr(J, 1):          aKQ(W, 3) = Arr(J, 2)
            aKQ(W, 4) = Arr(J, 3)
        End If
    Next J
 End With
 If W Then
    Sheets("ChiTiet").[B4].Resize(W, 4).Value = aKQ()
 End If
End Sub

@Chủ bài đăng:
→ Tên các Controls cần cô gọn & xác thực hơn;
→ CSDL của bạn chưa có mã NV (duy nhất); Nên xây dựng thành thói quen tốt về vấn đề này
Chúc các bạn đang đọc bài vui & khỏe!

 

[phamdinhnha]

Bạn tham khảo cái ni, nếu được thì sửa lại mà xài:

Private Sub CmdThemCT_Click()
 Dim Rws As Long, W As Integer, J As Long
 Dim Arr()
 
 Sheets("ChiTiet").[C4].CurrentRegion.Offset(1).ClearContents
 With Sheets("DuLieu")
    Rws = .UsedRange.Rows.Count
    Arr() = .[B3].Resize(Rws, 3).Value
    ReDim KQ(1 To Rws, 1 To 4)
    For J = 1 To UBound(Arr())
        If Arr(J, 3) = Me!txtTaoThangLuong_TX.Value Then
            W = W + 1:                      aKQ(W, 1) = W
            aKQ(W, 2) = Arr(J, 1):          aKQ(W, 3) = Arr(J, 2)
            aKQ(W, 4) = Arr(J, 3)
        End If
    Next J
 End With
 If W Then
    Sheets("ChiTiet").[B4].Resize(W, 4).Value = aKQ()
 End If
End Sub

@Chủ bài đăng:
→ Tên các Controls cần cô gọn & xác thực hơn;
→ CSDL của bạn chưa có mã NV (duy nhất); Nên xây dựng thành thói quen tốt về vấn đề này
Chúc các bạn đang đọc bài vui & khỏe!

Vâng, mình rất cảm ơn bạn đã góp ý!