Giải đáp 1 số vòng lặp của Macro (1 người xem)

[phamhuucuong.hd]

Mình là dân mới nên các bạn thông cảm nha.

Sau khi mình ghi xong macro cho 1 công thức bất kì (Phần Record Macro). Và sau đó dùng cho các ô còn lại thì mình lại phải Run lại. Mình muốn Bấm 1 cái là nó chạy hết 1 cột hoặc 1 hàng trong bảng.

Mong các bạn, các anh giúp.

Và gửi 1 bản excel làm ví dụ luôn nhé. Hay hình ảnh hướng dẫn thì càng tốt.

Cảm ơn Rất nhiều!!!

 

[viehoai]

Mình là dân mới nên các bạn thông cảm nha.

Sau khi mình ghi xong macro cho 1 công thức bất kì (Phần Record Macro). Và sau đó dùng cho các ô còn lại thì mình lại phải Run lại. Mình muốn Bấm 1 cái là nó chạy hết 1 cột hoặc 1 hàng trong bảng.

Mong các bạn, các anh giúp.

Và gửi 1 bản excel làm ví dụ luôn nhé. Hay hình ảnh hướng dẫn thì càng tốt.

Cảm ơn Rất nhiều!!!

Sao bạn không gửi gửi 1 bản excel của bạn để mọi người giúp bạn, nói vậy làm sao hiểu được ý bạn?

 

[phamhuucuong.hd]

Bây giờ mình muốn tạo 1 nút bấm để cho nó chạy từ D4 đến D15

 

[nghiaphuc]

Bây giờ mình muốn tạo 1 nút bấm để cho nó chạy từ D4 đến D15

Bạn thử dùng code sau xem sao:

Sub Test()
    Range([A4], [A65536].End(xlUp)).Offset(, 3).FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
End Sub

 

[viehoai]

Bây giờ mình muốn tạo 1 nút bấm để cho nó chạy từ D4 đến D15

Bạn có thể sửa trên công thức đó cũng được nhưng khó hiểu hơn. Bạn có thể sử dụng code sau:

Sub tinhtong()Dim Rng As Range
For Each Rng In Sheet1.Range("D4:D15")
    Rng.Formula = "=" & Rng.Offset(, -1).Address(0, 0) & "+" & Rng.Offset(, -2).Address(0, 0) & "+" & Rng.Offset(, -3).Address(0, 0)
Next
End Sub

 

[phamhuucuong.hd]

Cảm ơn bạn. Nhưng mình cũng chẳng hiểu rõ là như thế nào. Mình tưởng nó cũng có vòng lặp For .. to do.. như của Passcal.

Làm thế nào để lần sau mình gặp trường hợp như thế này thì mình sẽ làm đc.

Bạn có hướng dẫn cụ thể hơn đc không.

 

[nghiaphuc]

Bạn thử dùng code sau xem sao:

Sub Test()
    Range([A4], [A65536].End(xlUp)).Offset(, 3).FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
End Sub

Thêm nữa, đã mất công gán công thức cho vùng thì ta tính toán và gán giá trị vào luôn cho nhẹ file. Code như sau:

Sub Test()
    With Range([A4], [A65536].End(xlUp)).Offset(, 3)
        .FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
        .Value = .Value
    End With
End Sub

Điều kiện nghiệm đúng là dữ liệu cột A phải được nhập đầy đủ.

 

[phamhuucuong.hd]

Mình không đc học cái này nên mình muốn làm sao nếu gặp lại trường hợp như thế này thì mình vẫn làm đc.

Cảm ơn bạn rất nhiều!!!

 

[nghiaphuc]

Mình không đc học cái này nên mình muốn làm sao nếu gặp lại trường hợp như thế này thì mình vẫn làm đc.

Cảm ơn bạn rất nhiều!!!

Cứ kiên nhẫn đi bạn. Thời sinh viên thì ngôn ngữ lập trình duy nhất mà mình được học cũng chỉ là Pascal thôi. Nhưng mà, nếu bạn nắm vững kiến thức về Pascal thì khi học sang các ngôn ngữ lập trình khác, có lẽ bạn cũng không bỡ ngỡ lắm đâu.
Về VBA, mình cũng chỉ chủ yếu học hỏi từ GPE thôi, và bây giờ mình cũng đã có thể tự viết code cho những công việc thường gặp của mình rồi. Hy vọng sau một thời gian ngắn, bạn cũng sẽ làm được hơn những gì mình đang làm được.
Chúc bạn thành công nhé!