Nhờ tạo thêm dữ liệu

[ẩn sỹ]

Chào các bạn. Mình không biết cách tạo dữ liệu như trong file đính kèm. Nhờ các bạn xem và tạo giúp mình nhé. Mình rất cảm ơn!

 

[nguyentienthao]

do bạn để số ở dạng text lên không thực hiện được hàm sum .Bạn vào format cell -number sửa lại di.

 

[ptlong04x1]

Chào các bạn. Mình không biết cách tạo dữ liệu như trong file đính kèm. Nhờ các bạn xem và tạo giúp mình nhé. Mình rất cảm ơn!

Tạo cái gì hả bạn, mình thấy bình thường mà.

 

[ẩn sỹ]

Bạn để ý nhé. Nếu mình thêm số chứng từ của sheet "data", thì ở sheet "CTGS" lại không có. Mình muốn tạo cái ấy đó. Mình đã sửa theo ý bạn nguyententhao nhưng vẫn không được. bạn để ý lại giúp mình nhé?

 

[ẩn sỹ]

Mình vừa mới nghĩ ra rồi.
Giờ mình chỉ muốn hỏi thêm về sheet cuối cùng: " làm không được (6)". Khi đã tạo được hai sheet đầu thì sheet cuối tạo thế nào? Mình ko nhớ bạn nào là chủ của file này. nếu có chủ của nó thì chắc sẽ hiểu mình đang hỏi ji.
Hy vọng các bạn jiải thích giúp mình nhá

 

[Po_Pikachu]

Cái gốc của nó nằm ở đây.
http://www.giaiphapexcel.com/forum/showthread.php?t=14746
Nhưng đối với mình thì mình không hiểu làm theo kiểu này thì sẽ có lợi gì cho việc nhập và truy xuất dữ liệu.
Nó dùng để in văn bản thì đúng hơn.
Thân.

 

[ChanhTQ@]

Bạn hãy xem VBA làm điều ấy như thế nào!

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [D3]) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range, MyAdd As String
   
   [c7].Resize(10, 5).ClearContents
   Set Sh = Sheets("Data")
   Set Rng = Sh.Range(Sh.[A4], Sh.[a65500].End(xlUp))
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      MyAdd = sRng.Address
      Do
         With [c17].End(xlUp).Offset(1).Resize(, 5)
            .Value = sRng.Offset(, 1).Resize(, 5).Value
         End With
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   End If
 End If
End Sub

 

[ẩn sỹ]

Bạn xem lại giúp mình trong file đính kèm nhé. Mình ko rành về VBA lắm, nên bạn cố xem lại cho mình nhé?