Excell code vba : Tìm Cell để sửa dữ liệu (2 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: Thứ hai lúc 15:42

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