Để nguyên công thức cột E khi chạy code xong (1 người xem)

[lhthai]

điều chỉnh code sau

Private Sub CommandButton1_Click()
On Error Resume Next
Dim Arr(), i&, j&, c&, rng As Range
[F3:IO5000].ClearContents
Arr = Sheet7.Range("B1", [B65536].End(3)).Resize(, 20).Value
For i = 4 To UBound(Arr)
   Set rng = Sheet5.[B:B].Find(Arr(i, 1), , , 1)
   If Not rng Is Nothing Then
      For j = 5 To UBound(Arr, 2)
         c = Sheet5.Rows(1).Find(Arr(1, j), , , 1).Column - 2
         Arr(i, j) = rng.Offset(, c) * Arr(i, 3)
      Next
   End If
Next
Sheet7.[B1].Resize(i - 1, 20) = Arr
End Sub

 

[Quang_Hải]

điều chỉnh code sau

Private Sub CommandButton1_Click()
On Error Resume Next
Dim Arr(), i&, j&, c&, rng As Range
[F3:IO5000].ClearContents
Arr = Sheet7.Range("B1", [B65536].End(3)).Resize(, 20).Value
For i = 4 To UBound(Arr)
   Set rng = Sheet5.[B:B].Find(Arr(i, 1), , , 1)
   If Not rng Is Nothing Then
      For j = 5 To UBound(Arr, 2)
         c = Sheet5.Rows(1).Find(Arr(1, j), , , 1).Column - 2
         Arr(i, j) = rng.Offset(, c) * Arr(i, 3)
      Next
   End If
Next
Sheet7.[B1].Resize(i - 1, 20) = Arr
End Sub

Thử thay chữ Value thành chữ Formula xem sao. Không xem file, chỉ đoán thôi.

 

[lhthai]

Thử thay chữ Value thành chữ Formula xem sao. Không xem file, chỉ đoán thôi.

Anh đoán hay quá cám ơn anh nhiều.

 

[thanhlam038]

Cách chèn dòng tự động trong excel

làm thế nào khi tôi nhập dữ liệu vào dòng trên thì nó sẽ tự động chèn thêm một dòng bên dưới để tiếp tục nhập dữ liệu
Các bạn giúp tôi với. Tôi có gửi file đính kèm. thanks!

 

[lhthai]

Thử thay chữ Value thành chữ Formula xem sao. Không xem file, chỉ đoán thôi.

Chào Anh Quang Hai
Trường hợp dòng 3 em muốn giữ công thức Sum thì mình sửa code chỗ nào.

 

[thanhlam038]

Cách chèn dòng tự động trong excel

Chào Anh Quang Hai
anh giúp e với : Chèn thêm một dòng tự động khi e nhập dữ liêu vào dòng trên. e co gui file ah

 

[Quang_Hải]

Chào Anh Quang Hai
Trường hợp dòng 3 em muốn giữ công thức Sum thì mình sửa code chỗ nào.

Sửa dòng này
[F3:IO5000].ClearContents
Thành
[F4:IO5000].ClearContents

PS: không nên gọi trực tiếp tên thành viên khi cần nhờ hướng dẫn gì đó. Không có lợi cho bạn đâu.

 

[Quang_Hải]

Chào Anh Quang Hai
anh giúp e với : Chèn thêm một dòng tự động khi e nhập dữ liêu vào dòng trên. e co gui file ah

Bạn bị phạm 2 điều
1. Không nên gọi trực tiếp nick nào cả khi nhờ hướng dẫn.
2. Bài của bạn chen ngang đề tài.

---------> Tìm đúng chủ đề mà hỏi. Bài này chỉ cần đoạn code đơn giản thôi.

 

[thanhlam038]

Em xin lỗi anh. Em không biết đăng bài nên mới chèn ngang, mong anh bỏ qua và giúp đỡ em. e đang rất cần nó