Code cập nhật từ UserForm xuống bảng Sheet

thanhtung0112 · 13/12/21

Chào Anh Chị!
Hiện mình viết được bài Code là tra và nhập dữ liệu.
Bây giờ mình muốn sửa dữ liệu đã có mà không biết đoạn Code, nhờ anh chị giúp mình đoạn code với ạ, cảm ơn mọi người

BuiQuangThuan · 13/12/21

thanhtung0112 đã viết:
Chào Anh Chị!
Hiện mình viết được bài Code là tra và nhập dữ liệu.
Bây giờ mình muốn sửa dữ liệu đã có mà không biết đoạn Code, nhờ anh chị giúp mình đoạn code với ạ, cảm ơn mọi người

Bạn muốn thế nào thì nói rõ 1 chút. đọc xong ma cũng chưa hiểu bạn muốn giúp gì á

thanhtung0112 · 13/12/21

BuiQuangThuan đã viết:
Bạn muốn thế nào thì nói rõ 1 chút. đọc xong ma cũng chưa hiểu bạn muốn giúp gì á

VD: mình nhập CMND của người đó, thì form sẽ hiện thông tin người đó ra, nhưng mình muốn sửa và nhập lại thông tin khác của người đó lại thì phải làm như thế nào á

leonguyenz · 13/12/21

thanhtung0112 đã viết:
Chào Anh Chị!
Hiện mình viết được bài Code là tra và nhập dữ liệu.
Bây giờ mình muốn sửa dữ liệu đã có mà không biết đoạn Code, nhờ anh chị giúp mình đoạn code với ạ, cảm ơn mọi người

Sửa đoạn code sau:

Mã:

Private Sub BtxReset_Click()
    If Txt01.Text = "" Then Exit Sub
    
    Dim Rng As Range, xFind As Range
    Set Rng = Sheet1.Range("B2:B5000")
    Set xFind = Rng.Find(Me.Txt01.Text, , , 1, , , 1)
    If Not xFind Is Nothing Then
        xFind = Txt01.Text
        xFind.Offset(0, 1) = Txt02.Text
        xFind.Offset(0, 2) = Txt03.Text
        xFind.Offset(0, 3) = Txt10.Text
    End If
    
    Txt01.Text = ""
    Txt02.Text = ""
    Txt03.Text = ""
    Txt10.Text = ""
End Sub

thanhtung0112 · 13/12/21

leonguyenz đã viết:

Sửa đoạn code sau:

Mã:

Private Sub BtxReset_Click()
    If Txt01.Text = "" Then Exit Sub
   
    Dim Rng As Range, xFind As Range
    Set Rng = Sheet1.Range("B2:B5000")
    Set xFind = Rng.Find(Me.Txt01.Text, , , 1, , , 1)
    If Not xFind Is Nothing Then
        xFind = Txt01.Text
        xFind.Offset(0, 1) = Txt02.Text
        xFind.Offset(0, 2) = Txt03.Text
        xFind.Offset(0, 3) = Txt10.Text
    End If
   
    Txt01.Text = ""
    Txt02.Text = ""
    Txt03.Text = ""
    Txt10.Text = ""
End Sub

Cảm ơn bạn nhiều lắm, mà bạn ơi mình muốn nhập thêm người mới sao đoạn Code báo lỗi không à, giúp mình sửa thêm đoạn Code Nhập mới nha.

leonguyenz · 13/12/21

thanhtung0112 đã viết:
Cảm ơn bạn nhiều lắm, mà bạn ơi mình muốn nhập thêm người mới sao đoạn Code báo lỗi không à, giúp mình sửa thêm đoạn Code Nhập mới nha.

Bạn viết được đoạn code trong đó, tìm dòng cuối là viết được thôi (Search trên diễn đàn cách tìm dòng cuối).

thanhtung0112 · 13/12/21

leonguyenz đã viết:
Bạn viết được đoạn code trong đó, tìm dòng cuối là viết được thôi (Search trên diễn đàn cách tìm dòng cuối).

Sao mình tìm không có thấy, bạn cho mình xin đường links nha, cảm ơn b nhiều. Nếu được bạn hướng dẫn mình sửa đoạn Code Nhập liệu thêm nha.

SA_DQ · 13/12/21

thanhtung0112 đã viết:
(1) Sao mình tìm không có thấy, bạn cho mình xin đường links nha, cảm ơn b nhiều. (2) Nếu được bạn hướng dẫn mình sửa đoạn Code Nhập liệu thêm nha.

(1) https://www.giaiphapexcel.com/diend...-tìm-kiếm-find-find-method.15116/page-2#posts
. . . . . . . $$$$@

. . . .

SA_DQ · 13/12/21

thanhtung0112 đã viết:
. . . Hiện mình viết được bài Code là tra và nhập dữ liệu.
Bây giờ mình muốn sửa dữ liệu đã có mà không biết đoạn Code, nhờ anh chị giúp mình đoạn code với ạ, cảm ơn mọi người

(1) Muốn sửa dữ liệu, ta phải tìm cho ra dữ liệu cần sửa;
Để vậy ta phải căn cứ vô trường (cột) duy nhất; Ở đây của bạn là trường (cột) CCCD

Ở đây có 2 trường hợp sẩy ra:
a./ Trường hợp dương tính: Đó là có người có số CCCD trước mặt bạn & nói cho bạn biết số CCCD của người ấy
b./ Trường hợp âm tính thì sao đây? Bạn sẽ tìm ở đâu số CCCD của người cần tìm? (Chả lả mỗi lần cần tìm 1 ai thì nhắc ĐT lên & gọi cho người đó?
Tóm lại là lấy số CCCD làm mã duy nhất cho CSDL về nhân sự là 5 ăn, 5 thua, phải không?

(2) Vấn đề này bạn chớ xem thường: Trong CSDL của bạn rất nhiều dòng sai chính tả & điều này mình có thể chụp cho bạn cái nón: Chưa thấy 2uan tài chưa đỗ lệ!
Hiễn nhiên 1 điều là họ & tên trong CCCD không như bạn đã ghi như dưới đây:

6	290821404	nguyễn thị duyên	B045	7231094890
7	290420431	nguyễn văn sơn	B045	7231031389
8	075092000307	lê thành vinh	B045	7231714805
9	291199267	mai thị kim huệ	B045	7231684976
10	270608065	lê thành dương	B045	7531920857
11	072176002292	phạm kim lan	B045	7231772566
12	072072002857	nguyễn thanh phú	B045	0
13	075156000099	nguyễn thị mười	B045	7231778292

Đừng nói với tôi là bạn chỉ đưa lên vậy cho nhanh thôi, trong bản gốc không như vậy đó nha! Vì có như vậy thì bạn đã xem thường những đọc giả trên GPE này khi cần đọc file của bạn 1 khi có nhã ý muốn giúp đỡ bạn chút nào đó.

(3) Bạn tham khảo cách mình tạo bộ mã nhân viên như mô tả dưới đây:

STT	Mã NV	Họ và Tên	Mã Cụm	Mã CIC	CMND
1	FHP00	Đinh Hòang Phong	B045	7231593990	312059633
2	FVP00	Đặng Văn Phát	B045	7231718920	072074001267
3	FVS00	Đặng Văn Sương	B045	7231817621	290357527
4	LTA00	Lê Thanh Anh	B045	7231714805	075092000307
5	LTD00	Lê Thành Dương	B045	7531920857	270608065
6	LTD01	Lê Tấn Dũng	B045	7231772566	072176002292
7	LTD02	Lê Thi Thùy Dung	B045	0	072072002857
8	LTV00	Lê Thiện Vinh	B045	7231778675	072071001972
9	MKH00	Mai Thị Kim Huệ	B045	7231684976	291199267
10	NTM00	Nguyễn Thị Mười	B045	7231778292	075156000099
11	NCH00	Nguyễn Thị Cẩm Hằng	B045	7935323700	072174000940
12	NFD00	Ngô Đức Dũng	B045	7231031389	290420431
13	NHT00	Nguyễn Hoàng Trang	B045	7231050666	290188957
14	NJD00	Ngô Duyên	B045	7231094890	290821404
15	NTL00	Nguyễn Thị Liờn	B050	7231591251	290045082
16	PKM00	Phạm Kim Mây	B045	7231158552	290188737
17	PML00	Phan Thị Mỹ Linh	B045	7231624125	290743931
18	TBB00	Trần Thị Bé Bảy	B045	7231002817	072165001046
19	TMH00	Trần Thị Mỹ Hạnh	B045	7231700668	072168000948
20	TMN00	Từ Minh Nhiều	B045	7231018945	072073001361
21	VKN00	Võ Thị Kim Nương	B045	7931152773	290541974

. . . . .
Chúc các bạn vui vẻ & mạnh khỏe!

VetMini · 13/12/21

SA_DQ đã viết:
...

(2) Vấn đề này bạn chớ xem thường: Trong CSDL của bạn rất nhiều dòng sai chính tả & điều này mình có thể chụp cho bạn cái nón: Chưa thấy 2uan tài chưa đỗ lệ!
Hiễn nhiên 1 điều là họ & tên trong CCCD không như bạn đã ghi như dưới đây:
...

Người ta chỉ làm hồ sơ thôi.
Kẻ thấy quan tài là những kẻ trong danh sách.

SA_DQ · 13/12/21

VetMini đã viết:
Người ta chỉ làm hồ sơ thôi.
Kẻ thấy quan tài là những kẻ trong danh sách.

1./ Nhớ vào khoảng năm 95, khi triển khai số BHXH trong các CQ quốc doanh, mình tá hỏa khi thẻ quân nhân ghi 1 ông sỹ quan chuyển ngành sinh ngày 30/02
Khi đem hồ sơ trình sở LĐ TB & XH tỉnh, các ông bà 2uan hàng tỉnh nhất quyết không chịu . . . (?)
2./ Cũng thời gian gần trước đó, người tiền nhiệm đã thêm 1 đấu chấm cho 1 trong 2 người trùng cả họ, đệm & tên; Các 2uan trên tỉnh cũng phát hiện ra & bắt vạ . . . . toát mồ hôi hột!
. . . .
Trên đe, đưới búa cũng không sướng ích gì cho lắm!

batman1 · 13/12/21

thanhtung0112 đã viết:
Cảm ơn bạn nhiều lắm, mà bạn ơi mình muốn nhập thêm người mới sao đoạn Code báo lỗi không à, giúp mình sửa thêm đoạn Code Nhập mới nha.

Nếu muốn trong Txt01 vừa có thể nhập CMND ĐÃ CÓ để sửa thông tin và vừa có thể nhập CMND CHƯA CÓ để nhập mới thì không thể có code kiểu

Mã:

Private Sub Txt01_AfterUpdate()
'Check to see if value exists
If Me!Txt01.Text = "" Then Exit Sub
If WorksheetFunction.CountIf(Sheet1.Range("B:B"), Me.Txt01.Value) = 0 Then
MsgBox "CMND sai OR k CIC "
Me.Txt01.Value = ""
Exit Sub
End If
'Lookup values based on first control
With Me
.Txt02 = Application.WorksheetFunction.VLookup(Me.Txt01.Value, Sheet1.Range("lookup"), 2, 0)
.Txt10 = Application.WorksheetFunction.VLookup(Me.Txt01.Value, Sheet1.Range("lookup"), 4, 0)
.Txt03 = Application.WorksheetFunction.VLookup(Me.Txt01.Value, Sheet1.Range("lookup"), 3, 0)
End With
End Sub

Hãy suy nghĩ chút đi. Tạo hóa đã cho cái hộp trên cổ thì nên tận dụng nó. Nếu nhập CMND CHƯA CÓ thì dĩ nhiên
WorksheetFunction.CountIf(Sheet1.Range("B:B"), Me.Txt01.Value) = 0

và do vậy code MsgBox "CMND sai OR k CIC " được thực thi, tức thông báo lỗi.

Phải sửa thành vd.

Mã:

Private Sub Txt01_AfterUpdate()
Dim rng As Range, cell_ As Range
    Txt01.Tag = ""  ' TAG  = 0 co nghia la CMND trong txt01 CHUA CO
    If Txt01.Text = "" Then Exit Sub
    Set rng = Sheet1.Range("B2:B5000")
    Set cell_ = rng.Find(Me.Txt01.Text, , xlValues, xlWhole, xlByRows, xlNext)
    If Not cell_ Is Nothing Then    ' tim thay CMND DA CO
        With cell_
            Txt02 = .Offset(0, 1).Value
            Txt10 = .Offset(0, 3).Value
            Txt03 = .Offset(0, 2).Value
        End With
        Txt01.Tag = cell_.Address   ' CMND DA CO, tuc se sua thong tin, vay ghi dia chi cua o co CMND hien hanh vao TAG cua TextBox
    End If
End Sub

Code ghi thông tin vào thuộc tính TAG của txt01: Nếu TAG <> "" thì có nghĩa là chứa địa chỉ của ô trên sheet có CMND ĐÃ CÓ.

Không cần tới 2 nút CommandButton. Chỉ 1 button thôi, vd. lấy BtxReset.

Mã:

Private Sub BtxReset_Click()
Dim EndR As Long
    If Txt01.Text = "" Then Exit Sub
    If Txt01.Tag <> "" Then ' CMND DA CO -> sua thong tin
        With Sheet1.Range(Txt01.Tag)
            .Offset(0, 1) = Txt02.Text
            .Offset(0, 2) = Txt03.Text
            .Offset(0, 3) = Txt10.Text
        End With
    Else    ' CMND CHUA CO -> them thong tin
        With Sheets("Data")
            EndR = .Range("B" & Rows.Count).End(xlUp).Row
            .Range("B" & EndR + 1) = Txt01.Text
            .Range("C" & EndR + 1) = Txt02.Text
            .Range("D" & EndR + 1) = Txt03.Text
            .Range("E" & EndR + 1) = Txt10.Text
        End With
    End If
   
    Txt01.Text = ""
    Txt02.Text = ""
    Txt03.Text = ""
    Txt10.Text = ""
End Sub

Vứt bỏ nút btxNhapvaThem.

Nhìn qua là thế, hãy test kỹ.
-------------

leonguyenz đã viết:
Bạn viết được đoạn code trong đó, tìm dòng cuối là viết được thôi (Search trên diễn đàn cách tìm dòng cuối).

SA_DQ đã viết:
(1) https://www.giaiphapexcel.com/diendan/threads/tổng-hợp-về-phương-thức-tìm-kiếm-find-find-method.15116/page-2#posts
. . . . . . . . . . .

Người ta biết tìm dòng cuối mà.
Trích btxNhapvaThem_Click

EndR = .Range("B" & Rows.Count).End(xlUp).Row

thanhtung0112 · 14/12/21

batman1 đã viết:
Nếu muốn trong Txt01 vừa có thể nhập CMND ĐÃ CÓ để sửa thông tin và vừa có thể nhập CMND CHƯA CÓ để nhập mới thì không thể có code kiểu

Mã:

Private Sub Txt01_AfterUpdate() 'Check to see if value exists If Me!Txt01.Text = "" Then Exit Sub If WorksheetFunction.CountIf(Sheet1.Range("B:B"), Me.Txt01.Value) = 0 Then MsgBox "CMND sai OR k CIC " Me.Txt01.Value = "" Exit Sub End If 'Lookup values based on first control With Me .Txt02 = Application.WorksheetFunction.VLookup(Me.Txt01.Value, Sheet1.Range("lookup"), 2, 0) .Txt10 = Application.WorksheetFunction.VLookup(Me.Txt01.Value, Sheet1.Range("lookup"), 4, 0) .Txt03 = Application.WorksheetFunction.VLookup(Me.Txt01.Value, Sheet1.Range("lookup"), 3, 0) End With End Sub

Hãy suy nghĩ chút đi. Tạo hóa đã cho cái hộp trên cổ thì nên tận dụng nó. Nếu nhập CMND CHƯA CÓ thì dĩ nhiên
WorksheetFunction.CountIf(Sheet1.Range("B:B"), Me.Txt01.Value) = 0

và do vậy code MsgBox "CMND sai OR k CIC " được thực thi, tức thông báo lỗi.

Phải sửa thành vd.

Mã:

Private Sub Txt01_AfterUpdate() Dim rng As Range, cell_ As Range Txt01.Tag = "" ' TAG = 0 co nghia la CMND trong txt01 CHUA CO If Txt01.Text = "" Then Exit Sub Set rng = Sheet1.Range("B2:B5000") Set cell_ = rng.Find(Me.Txt01.Text, , xlValues, xlWhole, xlByRows, xlNext) If Not cell_ Is Nothing Then ' tim thay CMND DA CO With cell_ Txt02 = .Offset(0, 1).Value Txt10 = .Offset(0, 3).Value Txt03 = .Offset(0, 2).Value End With Txt01.Tag = cell_.Address ' CMND DA CO, tuc se sua thong tin, vay ghi dia chi cua o co CMND hien hanh vao TAG cua TextBox End If End Sub

Code ghi thông tin vào thuộc tính TAG của txt01: Nếu TAG <> "" thì có nghĩa là chứa địa chỉ của ô trên sheet có CMND ĐÃ CÓ.

Không cần tới 2 nút CommandButton. Chỉ 1 button thôi, vd. lấy BtxReset.

Mã:

Private Sub BtxReset_Click() Dim EndR As Long If Txt01.Text = "" Then Exit Sub If Txt01.Tag <> "" Then ' CMND DA CO -> sua thong tin With Sheet1.Range(Txt01.Tag) .Offset(0, 1) = Txt02.Text .Offset(0, 2) = Txt03.Text .Offset(0, 3) = Txt10.Text End With Else ' CMND CHUA CO -> them thong tin With Sheets("Data") EndR = .Range("B" & Rows.Count).End(xlUp).Row .Range("B" & EndR + 1) = Txt01.Text .Range("C" & EndR + 1) = Txt02.Text .Range("D" & EndR + 1) = Txt03.Text .Range("E" & EndR + 1) = Txt10.Text End With End If Txt01.Text = "" Txt02.Text = "" Txt03.Text = "" Txt10.Text = "" End Sub

Vứt bỏ nút btxNhapvaThem.

Nhìn qua là thế, hãy test kỹ.
-------------

Người ta biết tìm dòng cuối mà.
Trích btxNhapvaThem_Click

Cảm ơn bạn rất nhiều

VetMini · 14/12/21

batman1 đã viết:
Nếu muốn trong Txt01 vừa có thể nhập CMND ĐÃ CÓ để sửa thông tin và vừa có thể nhập CMND CHƯA CÓ để nhập mới thì không thể có code kiểu
...

Tại thớt làm theo kiểu "nghĩ đến đâu làm đến đó". Không có một kế hoạch sẵn.
Entry Form là chuyện lâu dài. Đáng lẽ trước khi làm phải lên kế hoạch. Công việc đầu tiên trong kế hoạch là "dò xét chung quanh xem muốn làm như thế thì thường người ta thiết kế thế nào"

Thông lệ của loại Add/Update/Delete Records này là:

- Đặt một cái label khá rõ ở đầu form
- Khi người nhập gõ vào một KEY (khoá chính, ID) thì code sẽ xét:
-- Nếu KEY không có thì hiện lên cái label "Nhập Hồ sơ mới cho ID: ...."
..... và xoá trống hết các controls khác, chỉ hiện lên các mặc định
..... và ẩn button Update Curent Record đồng thời hiện button Add New Record
-- Nếu KEY có sẵn thì hiện lên cái label "chỉnh hồ sơ cho ID...."
..... và moi dữ liệu, hiển thị lên form. Các dữ liệu không cho phép chỉnh thì đặt thêm tag không cho chỉnh.
..... và ẩn button button Add New Record đồng thời hiện Update Curent Record. Hiện thêm button Delete Record.
-- Và cả hai trường hợp, nếu bấm nút Back thì trở lại từ đầu.

Code cập nhật từ UserForm xuống bảng Sheet

thanhtung0112

Thành viên chính thức

File đính kèm

BuiQuangThuan

❆❆❆❆❆❆❆❆❆❆❆❆

thanhtung0112

Thành viên chính thức

leonguyenz

Thành viên gạo cội

File đính kèm

thanhtung0112

Thành viên chính thức

leonguyenz

Thành viên gạo cội

thanhtung0112

Thành viên chính thức

SA_DQ

/(hông là gì!

SA_DQ

/(hông là gì!

VetMini

Ăn cùng góc phố

SA_DQ

/(hông là gì!

batman1

Thành viên gạo cội

thanhtung0112

Thành viên chính thức

VetMini

Ăn cùng góc phố

Bài viết mới nhất

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