Excell code vba : Tìm Cell để sửa dữ liệu (1 người xem)

[Phạm Trường 80]

Chào các bác e ấn button và textbox để tìm dòng sửa dữ liệu, trong textbox số 12,14,16 thì đúng,13,15,17 thì sai. Các bác đi qua xem khai sáng giúp với!

 

[BuiQuangThuan]

Chào các bác e ấn button và textbox để tìm dòng sửa dữ liệu, trong textbox số 12,14,16 thì đúng,13,15,17 thì sai. Các bác đi qua xem khai sáng giúp với!

Code nó vẫn đang hoạt động đúng theo logic của bạn đó thôi. Chẳng qua là dữ liệu của bạn nó kiểu thế mà. Nếu điền số 13,15,17 thì bạn muốn nó hiển thị như nào thì gọi là đúng?

 

[Phạm Trường 80]

Code nó vẫn đang hoạt động đúng theo logic của bạn đó thôi. Chẳng qua là dữ liệu của bạn nó kiểu thế mà. Nếu điền số 13,15,17 thì bạn muốn nó hiển thị như nào thì gọi là đúng?

Các bác giúp thêm code dòng 12,13 làm 1, 13,14 làm 1.Ý là điền 12,13 hiện giống nhau trên form

 

[BuiQuangThuan]

Các bác giúp thêm code dòng 12,13 làm 1, 13,14 làm 1.Ý là điền 12,13 hiện giống nhau trên form

Thêm dòng này vào code của bạn:

 

[Phạm Trường 80]

Cảm ơn nhiều! Đúng là thiếu code này.Hồi âm chậm anh thông cảm nhé!

 

[Phạm Trường 80]

Thêm dòng này vào code của bạn: View attachment 307883

Chào Anh! Nếu code trên là 3 dòng thì sửa dòng của anh như thế nào vậy?

 

[SA_DQ]

Chào các bác e . . . . . Các bác đi qua xem khai sáng giúp với!

Thiết kế trang dữ liệu của bạn mình cho là có vẻ như không ổn lắm thì phải;

(1) Lý do làm sao lại là tên hàng (hóa) lại giành riêng 1 dòng làm vậy?
(2) Bạn mới chỉ có 'Tên hàng' chưa có trường 'Mã HH' - Có thể CSDL của bạn giống như là động vật nhuyễn thể (chưa có xương sống) mà thôi!
(3) Không rõ làm sao bạn chưa có trường để ghi nhận ngày-tháng, nhỉ?
Bạn có thể giải thích thêm vì sao chưa có nó không?

Chúc mọi người có ngày cuối tuần cuối tháng nhiều niềm vui!

 

[Phạm Trường 80]

Thiết kế trang dữ liệu của bạn mình cho là có vẻ như không ổn lắm thì phải;

(1) Lý do làm sao lại là tên hàng (hóa) lại giành riêng 1 dòng làm vậy?
(2) Bạn mới chỉ có 'Tên hàng' chưa có trường 'Mã HH' - Có thể CSDL của bạn giống như là động vật nhuyễn thể (chưa có xương sống) mà thôi!
(3) Không rõ làm sao bạn chưa có trường để ghi nhận ngày-tháng, nhỉ?
Bạn có thể giải thích thêm vì sao chưa có nó không?

Chúc mọi người có ngày cuối tuần cuối tháng nhiều niềm vui!

Chào nhé! Là tôi thích giản đơn, với công việc chỉ cần vậy.Code trên 2 dòng thì được rồi! Tôi thêm 1 dòng nữa thì chưa được.Bạn xem giúp sửa code thế nào?

 

[Hoàng Tuấn 868]

Là tôi thích giản đơn

Mình nghĩ giản đơn nhất là làm thủ công, không cần code hay hàm nảo cả.

 

[SA_DQ]

Chào nhé! Là tôi thích giản đơn, với công việc chỉ cần vậy.Code trên 2 dòng thì được rồi! Tôi thêm 1 dòng nữa thì chưa được.Bạn xem giúp sửa code thế nào?

Private Sub TimSua_HoaDon_Click()
'On Error Resume Next   '
 Dim vtSheet As Integer, Chan As Byte, Le As Byte
 
 vtSheet = CInt(TextBox_Cells.Text)
 If vtSheet <= 11 Or vtSheet > 17 Then
    MsgBox "Nhâp Sai Dong!", , "GPE.COM":    Exit Sub
 End If
 If vtSheet Mod 2 = 0 Then Le = 1 Else Chan = 1
 
 Me.TenHang_SHD = Cells(vtSheet - Chan, 1).Value
 Me.DonGia_SHD = Cells(vtSheet + Le, 1).Value
 Me.SL_SHD = Cells(vtSheet + Le, 2).Value
 Me.CK_SHD = Cells(vtSheet + Le, 3).Text
 MsgBox "OK!", , "GPE.COM"
End Sub

 

[thuytrangbp28]

công việc chỉ cần vậy

Nếu "chỉ cần vậy" thì sửa trực tiếp vào Cells cho rồi, cốt cách làm gì cho mất thời gian. Ngồi nhìn xem sửa dòng nào để nhập vào Form rồi bấm, rồi sửa, rồi bấm, khác gì mua thêm việc

 

[SA_DQ]

Nếu "chỉ cần vậy" thì sửa trực tiếp vào Cells cho rồi, cốt cách làm gì cho mất thời gian. . . . . . .

Tác giả bài đăng có thể rất nhiều mặt hàng đã nhập nhưng cần chỉnh sửa;
???

 

[VetMini]

Thêm dòng này vào code của bạn: View attachment 307883

Toán số:
số chẵn = 2*n
số lẻ = 2*n + 1
Theo lý thuyết đó, muốn làm tròn một số nguyên về số chẵn gần nó nhất thì theo công thức:
nChan = (n \ 2) * 2

vtSheet = (Val(TextBox_Cells.Text) \ 2) * 2

Chú ý: dấu () là cần thiết bởi vì toán tử \ có thứ tự tính ưu tiên thấp hơn toán tử *

 

[BuiQuangThuan]

Toán số:
số chẵn = 2*n
số lẻ = 2*n + 1
Theo lý thuyết đó, muốn làm tròn một số nguyên về số chẵn gần nó nhất thì theo công thức:
nChan = (n \ 2) * 2

vtSheet = (Val(TextBox_Cells.Text) \ 2) * 2

Chú ý: dấu () là cần thiết bởi vì toán tử \ có thứ tự tính ưu tiên thấp hơn toán tử *

Cám ơn chú đã chỉ cho cách hiểu thuật toán. Chủ thớt dựa vào đây mà cải biến nè

 

[Phạm Trường 80]

Cám ơn chú đã chỉ cho cách hiểu thuật toán. Chủ thớt dựa vào đây mà cải biến nè

Cảm ơn Các Anh nhé! Tôi có tham khảo nhưng File vẫn chạy chưa đúng. Các Bác đi qua xem giúp cho code chạy đúng với

Bài đã được tự động gộp: 28/4/25

Private Sub TimSua_HoaDon_Click()
'On Error Resume Next   '
 Dim vtSheet As Integer, Chan As Byte, Le As Byte
 
 vtSheet = CInt(TextBox_Cells.Text)
 If vtSheet <= 11 Or vtSheet > 17 Then
    MsgBox "Nhâp Sai Dong!", , "GPE.COM":    Exit Sub
 End If
 If vtSheet Mod 2 = 0 Then Le = 1 Else Chan = 1
 
 Me.TenHang_SHD = Cells(vtSheet - Chan, 1).Value
 Me.DonGia_SHD = Cells(vtSheet + Le, 1).Value
 Me.SL_SHD = Cells(vtSheet + Le, 2).Value
 Me.CK_SHD = Cells(vtSheet + Le, 3).Text
 MsgBox "OK!", , "GPE.COM"
End Sub

Cảm ơn đã giúp tôi! Bạn đi sai hướng rồi

 

[thuytrangbp28]

Cảm ơn đã giúp tôi! Bạn đi sai hướng rồi

 

[Phạm Trường 80]

Toán số:
số chẵn = 2*n
số lẻ = 2*n + 1
Theo lý thuyết đó, muốn làm tròn một số nguyên về số chẵn gần nó nhất thì theo công thức:
nChan = (n \ 2) * 2

vtSheet = (Val(TextBox_Cells.Text) \ 2) * 2

Chú ý: dấu () là cần thiết bởi vì toán tử \ có thứ tự tính ưu tiên thấp hơn toán tử *

Tôi đã sửa theo anh nhưng code chạy chưa đũng.Cảm ơn nhiều

 

[VetMini]

Tôi đã sửa theo anh nhưng code chạy chưa đũng.Cảm ơn nhiều

Tôi chỉ mách cho cách làm toán. Giản dị có vậy mà áp dụng không nổi thì là do tham vọng quá sức mình.

 

[ptm0412]

tham vọng quá sức mình.

Tôi đã thấy cái "sức mình" ấy từ chủ đề tính % chiết khấu. Gợi ý 3 lần và cuối cùng không tham gia nữa.

 

[Phạm Trường 80]

Nói thiệt nhé! Bạn gõ gì vậy? Chưa hiểu gì luôn

 

[Phạm Trường 80]

Tôi đã thấy cái "sức mình" ấy từ chủ đề tính % chiết khấu. Gợi ý 3 lần và cuối cùng không tham gia nữa.

Code của bạn chưa đúng,bạn chưa hiểu thì phải?Cám Ơn đã tham gia

 

[ptm0412]

Code của bạn chưa đúng,bạn chưa hiểu thì phải?Cám Ơn đã tham gia

Bạn cám ơn làm gì, tôi có viết code gì đâu mà đúng với chưa đúng. Bạn giỏi hơn tôi rồi. Từ khi tôi tự phát hiện mình nhận định sai về "sức mình" là đã ngưng tham gia ngay rồi.

 

[thanthanhan]

Tôi

Tác giả bài đăng có thể rất nhiều mặt hàng đã nhập nhưng cần chỉnh sửa;
???

Tác giả bài đăng có thể rất nhiều mặt hàng đã nhập nhưng cần chỉnh sửa;
???

Tôi chưa hiểu mục đích của bài đăng này là gì. Tìm dòng bị sai, rồi đưa dữ liệu vào textbox để sửa rồi lưu lại, sao không trực tiếp sửa luôn. Giả sử hoá đơn danh sách cả trăm cả nghìn dòng thì kéo chuột xuống tìm rồi đi nhập cái dòng đó vô textbox để sửa?
Khó hiểu?

 

[SA_DQ]

. . . . . . ., sao không trực tiếp sửa luôn. Giả sử hoá đơn danh sách cả trăm cả nghìn dòng thì kéo chuột xuống tìm rồi đi nhập cái dòng đó vô textbox để sửa?
Khó hiểu?

Cả ngàn hay vạn dòng mà kéo chuột thì vừa hao điện, vừa hao chuột
Nếu vậy chắc là phải đưa vô ListBox để tìm cho nhanh dòng cần sửa hay chữa

 

[Phạm Trường 80]

Tôi

Tôi chưa hiểu mục đích của bài đăng này là gì. Tìm dòng bị sai, rồi đưa dữ liệu vào textbox để sửa rồi lưu lại, sao không trực tiếp sửa luôn. Giả sử hoá đơn danh sách cả trăm cả nghìn dòng thì kéo chuột xuống tìm rồi đi nhập cái dòng đó vô textbox để sửa?
Khó hiểu?

Cũng đơn giản mà bạn! Tôi sửa xong rồi lưu vào các sheet khác nữa,trong form sẽ nhanh hơn nhiều nhé!

Bài đã được tự động gộp: 30/4/25

Tôi chỉ mách cho cách làm toán. Giản dị có vậy mà áp dụng không nổi thì là do tham vọng quá sức mình.

Bạn nói đúng là nó đang khó với tôi, Bạn chỉ cụ thể hơn được k?

 

[thanthanhan]

lưu

Nếu bạn thấy đơn giản thì có lẽ không phải lên diễn đàn hỏi code. Sửa trực tiếp trên cell vẫn bình thường, link thẳng sheet nào chả được.

 

[Phạm Trường 80]

Nếu bạn thấy đơn giản thì có lẽ không phải lên diễn đàn hỏi code. Sửa trực tiếp trên cell vẫn bình thường, link thẳng sheet nào chả được.

ý bạn là sửa xong rồi đi copy rồi lưu vào các sheet khác,cái này thì tôi làm được rồi!