Thêm code sửa,xóa dữ liệu

[buithanhlong]

Tôi có sưu tầm được trên diễn đàn 1 đoạn code (Không rõ tác giả), nay tôi đã chỉnh sửa cho phù hợp với yêu cầu của mình, nhưng chưa hoàn thiện. Nhờ các cao thủ giúp tôi:
1. Kiểm tra xem đoạn code trên còn có lỗi gì không, nếu có chỉ bảo giúp
2. Viết thêm giúp tôi code sửa, xóa dữ liệu như đề nghị trong file.
Kiến thức của tôi còn nông cạn rất mong được giúp đỡ. Trân trọng cám ơn

 

[maytinhvp01]

Tôi có sưu tầm được trên diễn đàn 1 đoạn code (Không rõ tác giả), nay tôi đã chỉnh sửa cho phù hợp với yêu cầu của mình, nhưng chưa hoàn thiện. Nhờ các cao thủ giúp tôi:
1. Kiểm tra xem đoạn code trên còn có lỗi gì không, nếu có chỉ bảo giúp
2. Viết thêm giúp tôi code sửa, xóa dữ liệu như đề nghị trong file.
Kiến thức của tôi còn nông cạn rất mong được giúp đỡ. Trân trọng cám ơn

Yêu cầu số 1 của bạn bạn là rõ nhất.
Yêu cầu số 2 có phải là muốn nghi mới dữ liệu và sóa dữ lieufj cũ? (chỗ này có khi chỉ cần sửa thôi sao phải xóa nữa nhỉ?)

 

[maytinhvp01]

Tôi có sưu tầm được trên diễn đàn 1 đoạn code (Không rõ tác giả), nay tôi đã chỉnh sửa cho phù hợp với yêu cầu của mình, nhưng chưa hoàn thiện. Nhờ các cao thủ giúp tôi:
1. Kiểm tra xem đoạn code trên còn có lỗi gì không, nếu có chỉ bảo giúp
2. Viết thêm giúp tôi code sửa, xóa dữ liệu như đề nghị trong file.
Kiến thức của tôi còn nông cạn rất mong được giúp đỡ. Trân trọng cám ơn

Private Sub CbboxMS_Change()
    On Error Resume Next
    With CbboxMS
        TxtboxTen = .List(, 1)
        TxtBoxCVu = .List(, 2)
        Cbbox1 = .List(, 3)
        TxtboxNgay1 = .List(, 4)
        Txtbox6 = .List(, 5)
        TxtBox7 = .List(, 6)
        TxtBox8 = .List(, 7)
        TxtBox9 = .List(, 8)
        TxtBox10 = .List(, 9)
        txtBox11 = .List(, 10)
    End With
End Sub

code cho CbboxMS_Change()

Private Sub cmdxoadong_Click()
Dim n As Long
n = Me.CbboxMS.ListIndex + 2
Rows(n & ":" & n).Delete shift:=xlUp
End Sub

Code cho nut soa dong chon

Private Sub CommandButton1_Click()
Dim ResultArr
Dim EndR As Long
Dim n As Long
ReDim ResultArr(1 To 1, 1 To 11)
    ResultArr(1, 1) = CbboxMS
    ResultArr(1, 2) = TxtboxTen
    ResultArr(1, 3) = TxtBoxCVu
    ResultArr(1, 4) = Cbbox1
    ResultArr(1, 5) = Txtbox5
    ResultArr(1, 6) = Txtbox6
    ResultArr(1, 7) = TxtBox7
    ResultArr(1, 8) = TxtBox8
    ResultArr(1, 9) = TxtBox9
    ResultArr(1, 10) = TxtBox10
    ResultArr(1, 11) = txtBox11
EndR = Sheet1.[A1000].End(xlUp).Row
n = Me.CbboxMS.ListIndex
If n + 1 <= EndR Then
    Sheet1.Cells(n + 2, 1).Resize(1, 11) = ResultArr
    Exit Sub
End If
Sheet1.Cells(EndR + 1, 1).Resize(1, 11) = ResultArr
End Sub

code viết lại cho nut "Ghi"
Thỏa mãn yêu cầu của bạn rùi nhé!!!!

 

[buithanhlong]

Trân trọng cám ơn Bác đã hồi âm, như ý kiến của Bác em xin trình bày như sau:
Đ.c Nguyễn Hồng Nhung nếu được tăng lương thì bỏ đi dữ liệu cũ, như em đã trình bày. khi chuyển phòng cũng vậy sửa dữ liệu cũ và luôn luon chỉ tồn tại 1 dữ liệu duy nhất cho 1 người (chỉ 1 mã số được tồn tại, không tồn tại 2 lần cho 1 mã số). Và khi cán bộ đó chuyển khỏi đơn vị thì cần phải xoá người đó khỏi danh sách của đơn vị. Có lẽ em trình bày hơi lủng củng mong bác thông cảm và giúp đỡ.
Xin lỗi Bác em mừng quá nên không kịp đọc hết phần code Bác viết, em đã loay hoay gần tháng trời mà không viết được, nay được Bác giúp đỡ thật là quí hóa, không biết nói gì nhiều chỉ biết chúc Bác cùng gia đình luôn mạnh khỏe, hạnh phúc và nhiều niềm vui, chúc cho diễn đàn luôn phát triển. Một lần nữa trân trọng biết ơn

 

[maytinhvp01]

Trân trọng cám ơn Bác đã hồi âm, như ý kiến của Bác em xin trình bày như sau:
Đ.c Nguyễn Hồng Nhung nếu được tăng lương thì bỏ đi dữ liệu cũ, như em đã trình bày. khi chuyển phòng cũng vậy sửa dữ liệu cũ và luôn luon chỉ tồn tại 1 dữ liệu duy nhất cho 1 người (chỉ 1 mã số được tồn tại, không tồn tại 2 lần cho 1 mã số). Và khi cán bộ đó chuyển khỏi đơn vị thì cần phải xoá người đó khỏi danh sách của đơn vị. Có lẽ em trình bày hơi lủng củng mong bác thông cảm và giúp đỡ. Trân trọng cám ơn

Mình sửa lại code cho gọn và như bạn nói là thỏa mãn cả rồi đó " Nhưng bạn chú ý vùng mà bạn làm dữ liệu cho comman "VITRI" để đó mà sóa dòng coi như mất. Vậy đã xong chưa vậy

 

[maytinhvp01]

Trân trọng cám ơn Bác đã hồi âm, như ý kiến của Bác em xin trình bày như sau:
Đ.c Nguyễn Hồng Nhung nếu được tăng lương thì bỏ đi dữ liệu cũ, như em đã trình bày. khi chuyển phòng cũng vậy sửa dữ liệu cũ và luôn luon chỉ tồn tại 1 dữ liệu duy nhất cho 1 người (chỉ 1 mã số được tồn tại, không tồn tại 2 lần cho 1 mã số). Và khi cán bộ đó chuyển khỏi đơn vị thì cần phải xoá người đó khỏi danh sách của đơn vị. Có lẽ em trình bày hơi lủng củng mong bác thông cảm và giúp đỡ.
Xin lỗi Bác em mừng quá nên không kịp đọc hết phần code Bác viết, em đã loay hoay gần tháng trời mà không viết được, nay được Bác giúp đỡ thật là quí hóa, không biết nói gì nhiều chỉ biết chúc Bác cùng gia đình luôn mạnh khỏe, hạnh phúc và nhiều niềm vui, chúc cho diễn đàn luôn phát triển. Một lần nữa trân trọng biết ơn

Cảm ơn lời chúc của bạn. Tất cả cũng học tù diễn đàn nhớ ngày nào hỏi mãi anh NDU nay giúp lại thành viên mới và coi như ôn lại bài. Chúc bạn luôn hoàn thành công việc!

 

[Quang_Hải]

Private Sub CbboxMS_Change()
    On Error Resume Next
    With CbboxMS
        TxtboxTen = .List(, 1)
        TxtBoxCVu = .List(, 2)
        Cbbox1 = .List(, 3)
        TxtboxNgay1 = .List(, 4)
   [COLOR=#0000ff]     Txtbox6 = .List(, 5)
        TxtBox7 = .List(, 6)
        TxtBox8 = .List(, 7)
        TxtBox9 = .List(, 8)
        TxtBox10 = .List(, 9)
        txtBox11 = .List(, 10)[/COLOR]
    End With
End Sub

Mình nhiều chuyện tí nhé.
Cũng may là có 6 cái textBox, chứ nếu vài trăm cái thì code cũng hơi dài hén
Sửa lại thế này nha

        For i = 6 To 11
            UserForm1.Controls("Txtbox" & i) = .List(, i - 1)
        Next

 

[buithanhlong]

Trân trọng cám ơn Bác đã hồi âm, như ý kiến của Bác em xin trình bày như sau:
Đ.c Nguyễn Hồng Nhung nếu được tăng lương thì bỏ đi dữ liệu cũ, như em đã trình bày. khi chuyển phòng cũng vậy sửa dữ liệu cũ và luôn luon chỉ tồn tại 1 dữ liệu duy nhất cho 1 người (chỉ 1 mã số được tồn tại, không tồn tại 2 lần cho 1 mã số). Và khi cán bộ đó chuyển khỏi đơn vị thì cần phải xoá người đó khỏi danh sách của đơn vị. Có lẽ em trình bày hơi lủng củng mong bác thông cảm và giúp đỡ. Trân trọng cám ơn

 

[maytinhvp01]

Trân trọng cám ơn Bác đã hồi âm, như ý kiến của Bác em xin trình bày như sau:
Đ.c Nguyễn Hồng Nhung nếu được tăng lương thì bỏ đi dữ liệu cũ, như em đã trình bày. khi chuyển phòng cũng vậy sửa dữ liệu cũ và luôn luon chỉ tồn tại 1 dữ liệu duy nhất cho 1 người (chỉ 1 mã số được tồn tại, không tồn tại 2 lần cho 1 mã số). Và khi cán bộ đó chuyển khỏi đơn vị thì cần phải xoá người đó khỏi danh sách của đơn vị. Có lẽ em trình bày hơi lủng củng mong bác thông cảm và giúp đỡ. Trân trọng cám ơn

có gì vẫn chưa ổn sao bạn?

 

[buithanhlong]

Chào Bác chương trình em đang viết để ở máy tại cơ quan, sáng mai em mới có thể xem lại, trong quá trình hoàn thiện nếu có gì vướng mắc rất mong được Bác và mọi người trên diễn đàn chỉ giáo và giúp đỡ. Trân trọng cám ơn

 

[buithanhlong]

Xin lỗi Bác có lẽ mừng quá em đâm lẫn mất rồi, vừa rồi em xem lại phần Bác viết thì ở mục thay đổi mức lương khi em nhập mức lượng mới vào thì nó lại xóa lương cũ nhưng không nhập lương mới Bác giúp em cho phép nhập mức lương mới thay thế mức lương cũ. và Bác giúp thêm cho em cho phép nhập mới danh sách sẽ được gán tiếp xuống các dòng tiếp theo.
Vì yêu cầu công việc của em là luôn luôn thay đổi nhân sự, có thể cập nhật thêm người mới vào danh sách. Rất mong Bác quan tâm giúp đỡ. Trân trọng cám ơn

 

[buithanhlong]

Chào Bác em đã sửa được code để điều chình mức lương rồi, bây giờ chỉ còn vấn đề nhập danh sách mới nữa thôi, Bác giúp em tiếp nhé. Cám ơn Bác

 

[buithanhlong]

Chào QuangHai! có thể hướng dẫn chi tiết thêm cho mình được không? mình còn non về món này lắm. Cám ơn bạn nhiều

 

[buithanhlong]

Chào các Bác, code của Bác maytinhvp01 chạy rất êm, thêm nữa em đã sửa code theo ý kiến của Bác quanghai1969 thật là tuyệt rồi. Nhưng em muốn các Bác giúp thêm cho em để có thể nhập thêm dữ liệu mới vào danh sách. Rất mong các Bác quan tâm giúp đỡ. Trân trọng cám ơn

 

[Quang_Hải]

Chào các Bác, code của Bác maytinhvp01 chạy rất êm, thêm nữa em đã sửa code theo ý kiến của Bác quanghai1969 thật là tuyệt rồi. Nhưng em muốn các Bác giúp thêm cho em để có thể nhập thêm dữ liệu mới vào danh sách. Rất mong các Bác quan tâm giúp đỡ. Trân trọng cám ơn

Bạn tham khảo cách trong file đính kèm. Nói thiệt mình không thích xài Userform mặc dù viết code được. Xài trên sheet cho khỏe cái thân.

 

[buithanhlong]

Chào các Bác! em đã thử nhiều cách nhưng chưa được nên đành phải thêm 1 nút ghi dữ liệu mới. Các Bác cho em hỏi như vậy có phải là phương án hay không? có cách nào mà không cần phải thêm nút ghi dữ liệu mới mà chỉ cần dùng 1 nút vừa sửa vừa ghi không?
Và các Bác cho em hỏi thêm có cách nào rút gọn đoạn code này không?
ResultArr(1, 1) = CbboxMS
ResultArr(1, 2) = TxtboxTen
ResultArr(1, 3) = TxtBoxCVu
ResultArr(1, 4) = Cbbox1
ResultArr(1, 5) = TxtboxNgay1
ResultArr(1, 6) = Txtbox6
ResultArr(1, 7) = TxtBox7
ResultArr(1, 8) = TxtBox8
ResultArr(1, 9) = TxtBox9
ResultArr(1, 10) = TxtBox10
ResultArr(1, 11) = txtBox11
Rất mong được sự quan tâm giúp đỡ. Trân trọng cám ơn

 

[Quang_Hải]

Chào các Bác! em đã thử nhiều cách nhưng chưa được nên đành phải thêm 1 nút ghi dữ liệu mới. Các Bác cho em hỏi như vậy có phải là phương án hay không? có cách nào mà không cần phải thêm nút ghi dữ liệu mới mà chỉ cần dùng 1 nút vừa sửa vừa ghi không?
Và các Bác cho em hỏi thêm có cách nào rút gọn đoạn code này không?
ResultArr(1, 1) = CbboxMS
ResultArr(1, 2) = TxtboxTen
ResultArr(1, 3) = TxtBoxCVu
ResultArr(1, 4) = Cbbox1
ResultArr(1, 5) = TxtboxNgay1
ResultArr(1, 6) = Txtbox6
ResultArr(1, 7) = TxtBox7
ResultArr(1, 8) = TxtBox8
ResultArr(1, 9) = TxtBox9
ResultArr(1, 10) = TxtBox10
ResultArr(1, 11) = txtBox11
Rất mong được sự quan tâm giúp đỡ. Trân trọng cám ơn

1. Sửa tên TxtboxNgay1 thành Texbox5
2. Dùng vòng lặp

For i = 5 to 11
ResultArr(1,i)= Me.Controls("Txtbox" & i).Value
Next

 

[buithanhlong]

Cám ơn quanghai nhiều nhiều, chúc bạn cùng gia đình luôn mạnh khỏe, hạnh phúc và rất nhiều niềm vui. Rất mong bạn quan tâm giúp đỡ mọi người trên diễn đàn. Một lần nữa trân trọng cám ơn

 

[hoc341992]

cho e khơi lại topic hihi
Nhờ anh chị GPE giúp e khi bấm chọn trên listbox và lick vào xuất kho thì sản phẩm được chọn sẽ được nhập trong sheet 3 đồng thời sản phẩm được chọn tại listbox ( nằm ở sheet2) sẽ được xóa đi ở listbox và trên sheet2 luôn

 

[Doãn Quốc Bình]

Bạn tham khảo cách trong file đính kèm. Nói thiệt mình không thích xài Userform mặc dù viết code được. Xài trên sheet cho khỏe cái thân.

Viết cái buttom THAY ĐỔI cho mình tham khảo với bạn ơi