Rút gọn macro có điều kiện

[trantuonganh2008]

Hi mọi người,
Mình có ghi đoạn macro bên dưới, nhờ các bạn rút gọn lại dùm mình nhé. Cám ơn mọi người!Du
Lưu ý: Dữ liệu ở [L] cách đều 3 dòng, VD: L12, L15, L18, L21..., L6154
Sub Macro3()
Range("L12").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L456").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L468").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L618").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L1356").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L1809").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L2556").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L4812").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L5715").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L6154").Select
End Sub
​

 

[ndu96081631]

Hi mọi người,
Mình có ghi đoạn macro bên dưới, nhờ các bạn rút gọn lại dùm mình nhé. Cám ơn mọi người!Du
Lưu ý: Dữ liệu ở [L] cách đều 3 dòng, VD: L12, L15, L18, L21..., L6154
Sub Macro3()
Range("L12").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L456").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L468").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L618").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L1356").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L1809").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L2556").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L4812").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L5715").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L6154").Select
End Sub
​

Vầy đi

Sub Macro3()
  Union([L12], [L456], [L468], [L618], [L1356], [L1809], [L2556], [L4812], [L5715], [L6154]).Value = "=RC[1]"
End Sub

 

[MinhCong]

Hi mọi người,
Mình có ghi đoạn macro bên dưới, nhờ các bạn rút gọn lại dùm mình nhé. Cám ơn mọi người!Du
Lưu ý: Dữ liệu ở [L] cách đều 3 dòng, VD: L12, L15, L18, L21..., L6154
Sub Macro3()
Range("L12").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L456").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L468").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L618").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L1356").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L1809").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L2556").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L4812").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L5715").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("L6154").Select
End Sub
​

Bạn dùng cái này xem sao
Sub macro3()
Dim i As Long
For i = 12 To 6154 Step 3
Range("L" & i).Value = "=RC[1]"
Next
End Sub

 

[trantuonganh2008]

Vầy đi

 Sub Macro3() Union([L12], [L456], [L468], [L618], [L1356], [L1809], [L2556], [L4812], [L5715], [L6154]).Value = "=RC[1]" End Sub

Cái của bác đúng nhưng sai ý mình, vì mình nói là liên tục cách 3 dòng từ L12 --> L6154 mà. Còn code của Minh Công mới đúng ý mình. Cám ơn 2 bác nhiều

 

[trantuonganh2008]

Bạn dùng cái này xem sao Sub macro3() Dim i As Long For i = 12 To 6154 Step 3 Range("L" & i).Value = "=RC[1]" Next End Sub

Chào bạn, Cho mình hỏi xíu. Dòng nào tại cột M rỗng hoặc bằng 0 thì mình bỏ qua (tức là không cần những dữ liệu này), vậy làm cách nào?

 

[ndu96081631]

Chào bạn,
Cho mình hỏi xíu. Dòng nào tại cột M rỗng hoặc bằng 0 thì mình bỏ qua (tức là không cần những dữ liệu này), vậy làm cách nào?

- Nếu gõ bằng công thức thường, có phải bạn sẽ dùng cái này:
=IF(AND(gì gì đó = "", gì gì đó = 0),"",gì gì đó)
- Vậy thì cứ record macro như bạn đã làm xem code nó thể hiện công thức này thế nào rồi gán vào code

 

[trantuonganh2008]

Mình cũng chưa hiểu ý bác lắm. Căn cứ vào code của Minh Công, mình chỉ cần loại bớt ra những dòng nào rỗng hoặc bằng 0 tại [M]. Vì nếu nhập giá trị 0 thì hơi bị phiền phức và code chạy hơi chậm nữa.

 

[MinhCong]

Mình cũng chưa hiểu ý bác lắm. Căn cứ vào code của Minh Công, mình chỉ cần loại bớt ra những dòng nào rỗng hoặc bằng 0 tại [M]. Vì nếu nhập giá trị 0 thì hơi bị phiền phức và code chạy hơi chậm nữa.

Tức Bạn sửa lại đoạn code trên như vầy nè:

Sub macro3()
Dim i As Long
   For i = 12 To 6154 Step 3
      Range("L" & i).Value = "=IF(AND(RC[1]=0,RC[1]=""""),"""",RC[1])"
   Next
End Sub

 

[trantuonganh2008]

- Nếu gõ bằng công thức thường, có phải bạn sẽ dùng cái này: =IF(AND(gì gì đó = "", gì gì đó = 0),"",gì gì đó) - Vậy thì cứ record macro như bạn đã làm xem code nó thể hiện công thức này thế nào rồi gán vào code

Cho mình nói rõ hơn là: Nếu [M] = "" thì [L] cũng = "" luôn để khỏi phải có giá trị 0. Vì khi mình chạy code của MinhCong, khi [M] rỗng mình thấy [L] vẫn đưa vào giá trị 0.

 

[ThuNghi]

Tức Bạn sửa lại đoạn code trên như vầy nè:

Sub macro3()
Dim i As Long
   For i = 12 To 6154 Step 3
      Range("L" & i).Value = "=IF(AND(RC[1]=0,RC[1]=""""),"""",RC[1])"
   Next
End Sub

Dùng thử code này theo ý NDU thử

 Sub TheSo()
With Range("L15:L6154")
  .FormulaR1C1 = "=IF(MOD(ROW(),3)=0,RC1,0)"
End With
End Sub

 

[ndu96081631]

Cho mình nói rõ hơn là: Nếu [M] = "" thì [L] cũng = "" luôn để khỏi phải có giá trị 0. Vì khi mình chạy code của MinhCong, khi [M] rỗng mình thấy [L] vẫn đưa vào giá trị 0.

Thay AND thành OR thử xem
(tôi sơ ý ---> Dùng AND là sai)

 

[trantuonganh2008]

Thay AND thành OR thử xem (tôi sơ ý ---> Dùng AND là sai)

Ok rồi, hay lắm! Cám ơn các bạn nhiều!!!