Giải thích đoạn code này giùm mình với! (1 người xem)

[dai.long]

Bài trước mình đã được các bạn chỉ giáo hộ cách giải quyết vấn đề rồi.Mình muốn làm tương tự với các ô khác.Nhưng hoàn toàn mù tịt vê code.Mong mọi người giải thích giúp mình đoạn code dưới đây.Để mình có thể làm tương tự đươc

Private Sub CommandButton1_Click()
Dim Rng As Range
Set Rng = Sheet2.Range("A1:A" & Sheet2.[A65500].End(xlUp).Row).Find([A2], , , xlWhole)
If Not Rng Is Nothing Then
  Rng.Offset(, 1).Resize(, 3).Value = Range("A2").Offset(, 1).Resize(, 3).Value
End If
End Sub

 

[ChanhTQ@]

D1: Khai báo 1 biến đối tượng kiểu Range

D2: Tìm ô có giá trị trùng với trị đang chứa tại [A2] (của trang tính chứa nút lênh) trong các ô có dữ liệu thuộc cột 'A' của trang tính Sheet2 đem gán vô biến vừa khai báo

D3: Nếu tìm thấy thì;

D4: Lấy trị của 3 ô liên tiếp liền kề bên fải ô [a2] của trang tính hiện hành (trang tính chứa nút lệnh) gán vô 3 ô liên tiếp liền kề bên fải của ô tìm thấy

D5: Kết thúc 'Nếu . . . '

 

[dai.long]

Bạn ơi!đấy là VD cho một dòng.Nhưng mình muốn thay đổi code để có thể áp dụng cho các Tên từ Tên 1-Tên 100 thì phải thay đổi như nào vậy?

 

[SA_DQ]

Bài trước mình đã được các bạn chỉ giáo hộ cách giải quyết vấn đề rồi.Mình muốn làm tương tự với các ô khác.Nhưng hoàn toàn mù tịt vê code.Mong mọi người giải thích giúp mình đoạn code dưới đây.Để mình có thể làm tương tự đươc

Bạn thử tìm hiểu xem đoạn code này sẽ làm thêm điều gì?

Private Sub CommandButton1_Click()
  Dim Rng As Range, Cls As Range
  For Each Cls In Range("A2:A999")
      Set Rng = Sheet2.Range("A1:A" & Sheet2.[A65500].End(xlUp).Row).Find(Cls.Value, , , xlWhole)
      If Not Rng Is Nothing Then
          Rng.Offset(, 1).Resize(, 3).Value = Cls.Offset(, 1).Resize(, 3).Value
      End If
 Next Cls
End Sub

 

[dai.long]

-Nếu hằng ngày phải cập nhập dữ liệu thì mình phải làm ở phía dưới của những ngày trước trong cột A.Vậy làm trong 30 ngày thì cột A rất là dài.Bạn nào có đoạn code nào để cho công việc tiện lợi hơn không ạ?
-Chỉnh cái nút Nhap theo vị trí mình muốn zư lào các bạn nhỉ

Cám ơn bạn đã giúp mình.Mình làm được rồi(làm đc phần trước).Thk các bạn nhiều lắm.

 

[dai.long]

-Nếu hằng ngày phải cập nhập dữ liệu thì mình phải làm ở phía dưới của những ngày trước trong cột A.Vậy làm trong 30 ngày thì cột A rất là dài.Bạn nào có đoạn code nào để cho công việc tiện lợi hơn không ạ?
-Chỉnh cái nút Nhap theo vị trí mình muốn zư lào các bạn nhỉ

Cám ơn bạn đã giúp mình.Mình làm được rồi(làm đc phần trước).Thk các bạn nhiều lắm.