Code tự động fill công thức (1 người xem)

hungdiep85 · 16/1/13

Chào các Thầy

Nếu cột [ C > 0 ] thì cột A sẽ =VLOOKUP(C2,F2:H5,3,0)
cột [ C > 0 ] thì cột B se =VLOOKUP(C2,F2:H5,2,0)

Mổi lần nhập dữ liệu vô thì em phải kéo công thức cột A&B xuống , có code nào mà cột C có dữ liệu thì cọt A&B sẽ tự đông hiển thị kết qua không.

cảm ơn các Thây...........
[WARNING1]Tôi sửa lại tiêu đề cho bạn. Lần sau nhớ ghi tiêu đề cho rõ ràng nếu không muốn bị xóa bài[/WARNING1]

huuthang_bd · 16/1/13

Thật hết biết. Copy công thức mất nhiều thời gian lắm hả bạn?

ndu96081631 · 16/1/13

hungdiep85 đã viết:
Chào các Thầy

Nếu cột [ C > 0 ] thì cột A sẽ =VLOOKUP(C2,F2:H5,3,0)
cột [ C > 0 ] thì cột B se =VLOOKUP(C2,F2:H5,2,0)

Mổi lần nhập dữ liệu vô thì em phải kéo công thức cột A&B xuống , có code nào mà cột C có dữ liệu thì cọt A&B sẽ tự đông hiển thị kết qua không.

Cái này khỏi cần code.
- Quét chọn A1:C5
- Vào tab Insert, chọn Table
Xong!
Giờ thử gõ giá trị vào cột C xem, cột A và B sẽ tự kéo fill

hungdiep85 · 16/1/13

huuthang_bd đã viết:
Thật hết biết. Copy công thức mất nhiều thời gian lắm hả bạn?

Không Phai Ý là nếu được vậy thì tốt hơn. vì dữ liệu nhiều làm Thầy ah. vã lại nếu cho người mới làm thì họ chỉ tập chung nhập dư liệu thôi. vậy sẽ tốt hơn.

hungdiep85 · 16/1/13

ndu96081631 đã viết:
Cái này khỏi cần code.
- Quét chọn A1:C5
- Vào tab Insert, chọn Table
Xong!
Giờ thử gõ giá trị vào cột C xem, cột A và B sẽ tự kéo fill

Em xin lổi Thầy em không nói rỏ , ý là công thức cột A2&B2 ah , giờ em nhập thêm dữ liệu cột C6:C10 thì cột A6:A10 & B6:B10 không có công thức em phải tự kéo tay xuống.....cảm ơn Thầy

nghiaphuc · 16/1/13

hungdiep85 đã viết:
Chào các Thầy

Nếu cột [ C > 0 ] thì cột A sẽ =VLOOKUP(C2,F2:H5,3,0)
cột [ C > 0 ] thì cột B se =VLOOKUP(C2,F2:H5,2,0)

Mổi lần nhập dữ liệu vô thì em phải kéo công thức cột A&B xuống , có code nào mà cột C có dữ liệu thì cọt A&B sẽ tự đông hiển thị kết qua không.

cảm ơn các Thây...........
[WARNING1]Tôi sửa lại tiêu đề cho bạn. Lần sau nhớ ghi tiêu đề cho rõ ràng nếu không muốn bị xóa bài[/WARNING1]

Bạn sử dụng code sau cho Sheet1 nhé:
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range, Rng As Range
If Target.Column <> 3 Then Exit Sub
For Each Cll In Target
Cll.Offset(, -2).Resize(, 2).ClearContents
If Len(Cll) > 0 Then
Set Rng = Range([F2], [F65536].End(xlUp)).Find(Cll, lookat:=xlWhole)
If Not Rng Is Nothing Then
Cll.Offset(, -2) = Rng.Offset(, 2)
Cll.Offset(, -1) = Rng.Offset(, 1)
End If
End If
Next
End Sub[/GPECODE]

ndu96081631 · 16/1/13

hungdiep85 đã viết:
Em xin lổi Thầy em không nói rỏ , ý là công thức cột A2&B2 ah , giờ em nhập thêm dữ liệu cột C6:C10 thì cột A6:A10 & B6:B10 không có công thức em phải tự kéo tay xuống.....cảm ơn Thầy

Thì chẳng phải là dùng Table như tôi đã nói sẽ tự kéo fill sao
Bạn mở file đính kèm dưới đây về, mở lên rồi gõ gì đó vào C6 xem
---------------
Mấy trò này bác Bill đã cho sẵn công cụ, cứ thế mà xài, khỏi cần phải viết code

hungdiep85 · 16/1/13

nghiaphuc đã viết:
Bạn sử dụng code sau cho Sheet1 nhé:
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range, Rng As Range
If Target.Column <> 3 Then Exit Sub
For Each Cll In Target
Cll.Offset(, -2).Resize(, 2).ClearContents
If Len(Cll) > 0 Then
Set Rng = Range([F2], [F65536].End(xlUp)).Find(Cll, lookat:=xlWhole)
If Not Rng Is Nothing Then
Cll.Offset(, -2) = Rng.Offset(, 2)
Cll.Offset(, -1) = Rng.Offset(, 1)
End If
End If
Next
End Sub[/GPECODE]

Cảm ơn Thầy Nhiều...........

hungdiep85 · 16/1/13

ndu96081631 đã viết:
Thì chẳng phải là dùng Table như tôi đã nói sẽ tự kéo fill sao
Bạn mở file đính kèm dưới đây về, mở lên rồi gõ gì đó vào C6 xem
---------------
Mấy trò này bác Bill đã cho sẵn công cụ, cứ thế mà xài, khỏi cần phải viết code

wo......Em hiểu ý Thầy rùi cảm ơn Thầy Nhiều....
ÀH cho em hỏi luôn vấn đề này , sao hàm =Month em có format rùi nhưng sao lúc kéo qua tháng 2 thì vẫn là tháng 1 vậy

ndu96081631 · 16/1/13

hungdiep85 đã viết:
wo......Em hiểu ý Thầy rùi cảm ơn Thầy Nhiều....
ÀH cho em hỏi luôn vấn đề này , sao hàm =Month em có format rùi nhưng sao lúc kéo qua tháng 2 thì vẫn là tháng 1 vậy

Nếu format như vậy thì công thức tại B1 chỉ cần =C1 là đủ rồi
(ai biểu bạn dùng hàm MONTH chi)

hungdiep85 · 16/1/13

ndu96081631 đã viết:
Nếu format như vậy thì công thức tại B1 chỉ cần =C1 là đủ rồi
(ai biểu bạn dùng hàm MONTH chi)

Cảm ơn Thầy (QUA LÀ CAO NHÂN)

hungdiep85 · 16/1/13

ndu96081631 đã viết:
Nếu format như vậy thì công thức tại B1 chỉ cần =C1 là đủ rồi
(ai biểu bạn dùng hàm MONTH chi)

Thầy coi giúp sao em dùng Pivottable thì không file Month được.

ndu96081631 · 16/1/13

hungdiep85 đã viết:
Thầy coi giúp sao em dùng Pivottable thì không file Month được.

Bài trên đã sai quy định rồi (ngay cả việc tôi trả lời cho bạn cũng sai nốt)
Bạn hỏi 1 vấn đề chẳng liên quan gì đến chủ đề của topic ---> Vậy sao mà được
Mở 1 topic mới, đặt tiêu đề đàng hoàng rồi hỏi nhé

hungdiep85 · 16/1/13

ndu96081631 đã viết:
bài trên đã sai quy định rồi (ngay cả việc tôi trả lời cho bạn cũng sai nốt)
bạn hỏi 1 vấn đề chẳng liên quan gì đến chủ đề của topic ---> vậy sao mà được
mở 1 topic mới, đặt tiêu đề đàng hoàng rồi hỏi nhé

dạ ..

nghiaphuc · 16/1/13

hungdiep85 đã viết:
Cảm ơn Thầy (QUA LÀ CAO NHÂN)

Lỡ spam rồi thì spam luôn, nốt công bác ndu dọn dẹp.

Bạn không nên viết những bài viết chỉ nhằm 1 mục đích cảm ơn, nếu không đề cập thêm vấn đề mới, bởi sẽ làm mất công BĐH dọn dẹp, xóa bài, gộp bài.

Còn CAO NHÂN thì bác ndu không phải là CAO NHÂN đâu, nghiaphuc mới chính xác là CAO NHÂN (người ở trên cao - Tây Nguyên). Ẹc ẹc...

ndu96081631 · 16/1/13

Đóng topic, vì không còn gì để hỏi hay giải đáp nữa
Ẹc... Ẹc... thế mới là CAO NHÂN

Code tự động fill công thức (1 người xem)

Người dùng đang xem chủ đề này

Thành viên thường trực

File đính kèm

Chuyên gia GPE

Huyền thoại GPE

Thành viên thường trực

Thành viên thường trực

File đính kèm

Thành viên gạo cội

Huyền thoại GPE

File đính kèm

Thành viên thường trực

Thành viên thường trực

File đính kèm

Huyền thoại GPE

Thành viên thường trực

Thành viên thường trực

File đính kèm

Huyền thoại GPE

Thành viên thường trực

Thành viên gạo cội

Huyền thoại GPE

Thời gian đếm ngược.