Tại Cell C10, Gõ mã hàng hóa xong & Enter thì Cell C10 hiện tên hàng hóa tương ứng! (1 người xem)

[Hong.Van]

Em chào Thầy cô & anh chị!
Câu hỏi em có mô tả tại Sheet Data.
Em cảm ơn!

 

[ndu96081631]

Em chào Thầy cô & anh chị!
Câu hỏi em có mô tả tại Sheet Data.
Em cảm ơn!

Dùng code này cho sheet DATA

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rCel As Range, rFind As Range, rSrc As Range, rTarget As Range
  On Error GoTo ExitSub
  If Not Intersect(Range("C10:C100"), Target) Is Nothing Then
    Application.EnableEvents = False
    Set rTarget = Intersect(Range("C10:C100"), Target)
    Set rSrc = Sheets("MA").Range("B4:D1000")
    For Each rCel In rTarget
      Set rFind = rSrc.Resize(, 1).Find(rCel.Value, , xlValues, xlWhole)
      If Not rFind Is Nothing Then
        rCel.Resize(, 2).Value = rFind.Offset(, 1).Resize(, 2).Value
      End If
    Next
  End If
ExitSub:
  Application.EnableEvents = True
End Sub

Với code này, chẳng những bạn có thể gõ mã cho từng cell mà còn có thể copy nhiều cell cùng lúc paste vào luôn

 

[xuanquy1188]

Nhờ thầy Ndu và các bạn sửa giúp em đoạn Code này với ạ.

Em tìm một bài của thầy Ndu về nhập dữ liệu viết tắt. Và em chép sang file của em, vấn đề bây h là nhập viết tắt em nhập được rồi, nhưng em không biết cách nào để di cái đơn giá của hàng hóa ra đúng cột đơn giá được, nó cứ tự nhảy vào cột số lượng. Nhờ thầy và các bạn giúp đỡ để khi em viết tắt mã hàng vào cột D thì nó điền đơn giá loại hàng tương ứng vào đúng cột đơn giá là cột F.

Với lại cho em hỏi thêm là em dùng hàm VLOOKUP cho đơn giá so với code này thì cái nào tốt hơn?

Xin được giúp thêm nếu là khách hàng thân thiết thì giảm 50% tiền giờ. Bây giờ nếu em nhập là khtt - tức là Khách hàng thân thiết vào ô D9 , thì ô đơn giá F9 sẽ bị xóa công thức đi, sau đó ô thành tiền G9 sẽ bằng với tiền giờ chia cho -2 ( Tức giảm 50% tiền giờ = - G8/2). Vậy thì code là như thế nào ạ?

Em cảm ơn nhiều.

 

[xuanquy1188]

Còn vấn đề em mới thấy đó là nếu món ăn không được định nghĩa viết tắt, thì khi em xóa dòng đó đi để khoảng trắng nó cũng hiện ra luôn. Làm em phải fix nãy giờ, có cách nào nếu món đó em không định nghĩa viết tắt thì nó ko hiện ra không ạ?