Cần giúp code copy công thức (1 người xem)

vova2209 · 19/5/17

Em viết đoạn code này sai ở chỗ nào? mong được giúp đỡ..

Sub copylist()
Dim ws As Worksheet
Dim lr As Long

Set ws = ActiveSheet
Range("G3:J3").Copy
lr = [F65535].End(xlUp).row
Range("G3:J,O3:R,T3:W,Z3:AC" & lr).Pase

End Sub

befaint · 19/5/17

vova2209 đã viết:
Rm viết đoạn code này sai ở chỗ nào? mong được giúp đỡ..

Mật khẩu thế làm ăn gì

PHP:

Sub copylist()
    Dim lr As Long, tmp
    tmp=Range("G3:J3")
    lr = [F65535].End(xlUp).row
    Range("G" & lr & ":J" & lr)=tmp
    Range("O" & lr & ":R" & lr)=tmp
    Range("T" & lr & ":W" & lr)=tmp
'....
End Sub

vova2209 · 19/5/17

befaint đã viết:
Mật khẩu thế làm ăn gì

PHP:

Sub copylist() Dim lr As Long, tmp tmp=Range("G3:J3") lr = [F65535].End(xlUp).row Range("G" & lr & ":J & lr")=tmp Range("O" & lr & ":R & lr")=tmp Range("T" & lr & ":W & lr")=tmp '.... End Sub

bị lỗi rồi a à

befaint · 19/5/17

vova2209 đã viết:
bị lỗi rồi a à

Mình sửa lại rồi đó...

vova2209 · 19/5/17

befaint đã viết:
Mình sửa lại rồi đó...

anh ơi! sửa đâu ạ, code để chỗ nào a ạ!

befaint · 19/5/17

vova2209 đã viết:
anh ơi! sửa đâu ạ, code để chỗ nào a ạ!

híc. ở bài #2 đó...

vova2209 · 19/5/17

befaint đã viết:
híc. ở bài #2 đó...

vẫn thế có chạy được đâu anh ơi! có file ở #3 a add vào đó thử đi ạ

befaint · 19/5/17

vova2209 đã viết:
vẫn thế có chạy được đâu anh ơi! có file ở #3 a add vào đó thử đi ạ

Bạn nêu yêu cầu là gì đi. Vụ chỉnh sửa code bỏ qua...

vova2209 · 19/5/17

Em muốn copy công thức từ Vùng G3:J3 cho Vùng G3:J, O3:R, T3:W, Z3:AC lấy đến dòng cuối cùng so với cột F

befaint · 19/5/17

vova2209 đã viết:
Em muốn copy giữ liệu từ Vùng G3:J3 cho Vùng G3:J, O3:R, T3:W, Z3:AC lấy đến dòng cuối cùng so với cột F

Thử vầy xem được không nhé.

PHP:

Sub copylist()
    Dim lr As Long, tmp
    tmp = Range("G3:J3")
    lr = [F65535].End(xlUp).row
    Range("G3:J" & lr) = tmp
    Range("O3:R" & lr) = tmp
    Range("T3:W" & lr) = tmp
    Range("Z3:AC" & lr) = tmp
End Sub

vova2209 · 19/5/17

befaint đã viết:
Thử vầy xem được không nhé.

PHP:

Sub copylist() Dim lr As Long, tmp tmp = Range("G3:J3") lr = [F65535].End(xlUp).row Range("G3:J" & lr) = tmp Range("O3:R" & lr) = tmp Range("T3:W" & lr) = tmp Range("Z3:AC" & lr) = tmp End Sub

em comment nhầm! em muốn coppy công thức sang vùng
Range("G3:J" & lr)
Range("O3:R" & lr)
Range("T3:W" & lr)
Range("Z3:AC" & lr)

befaint · 19/5/17

vova2209 đã viết:
em comment nhầm! em muốn coppy công thức sang vùng
Range("G3:J" & lr)
Range("O3:R" & lr)
Range("T3:W" & lr)
Range("Z3:AC" & lr)

PHP:

Sub copylist()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim lr As Long
Range("G3:J3").Copy
lr = Range("F65535").End(xlUp).row
If lr >= 3 Then
    Range("G3:J" & lr).PasteSpecial Paste:=xlPasteFormulas
    Range("O3:R" & lr).PasteSpecial Paste:=xlPasteFormulas
    Range("T3:W" & lr).PasteSpecial Paste:=xlPasteFormulas
    Range("Z3:AC" & lr).PasteSpecial Paste:=xlPasteFormulas
End If
Range("G3").Select
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

vova2209 · 19/5/17

befaint đã viết:

PHP:

Sub copylist()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim lr As Long
Range("G3:J3").Copy
lr = Range("F65535").End(xlUp).row
If lr >= 3 Then
    Range("G3:J" & lr).PasteSpecial Paste:=xlPasteFormulas
    Range("O3:R" & lr).PasteSpecial Paste:=xlPasteFormulas
    Range("T3:W" & lr).PasteSpecial Paste:=xlPasteFormulas
    Range("Z3:AC" & lr).PasteSpecial Paste:=xlPasteFormulas
End If
Range("G3").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Very like! đúng rồi anh à, em cảm ơn nhiều ạ
Dòng này ý nghĩa là sao anh: có phải là mở lại tính toán kích vào G3 cho công thức tính toán không anh?
If lr >= 3 Then
..........
End If
Range("G3").Select

befaint · 19/5/17

vova2209 đã viết:
Very like! đúng rồi anh à, em cảm ơn nhiều ạ
Dòng này ý nghĩa là sao anh: có phải là mở lại tính toán kích vào G3 cho công thức tính toán không anh?
If lr >= 3 Then
..........
End If
Range("G3").Select

Bạn tạo thói quen thử code ấy...
Lần 1: Thử lr>=3
- Bỏ 2 dòng lệnh if ...end đi
- ở cột F, xóa toàn bộ dữ liệu đi
- Chạy code. Xem nó báo gì, xem kết quả ở bảng tính.
Lần 2: Thử Range("G3").Select
- Xóa dòng đó đi rồi chạy code, quay ra bảng tính xem trỏ chuột đang ở đâu?

Đại khái thế...

vova2209 · 19/5/17

befaint đã viết:
Bạn tạo thói quen thử code ấy...
Lần 1: Thử lr>=3
- Bỏ 2 dòng lệnh if ...end đi
- ở cột F, xóa toàn bộ dữ liệu đi
- Chạy code. Xem nó báo gì, xem kết quả ở bảng tính.
Lần 2: Thử Range("G3").Select
- Xóa dòng đó đi rồi chạy code, quay ra bảng tính xem trỏ chuột đang ở đâu?

Đại khái thế...

Vâng em hiểu rồi! cảm ơn anh nhiều

vova2209 · 19/5/17

à anh! Befaint said: cho em hỏi thêm chút nữa. Như trường hợp file của em nếu muốn để công thức luôn code thì làm thế nào ạ, Công thức G3, H3, I3, J3 vào code!

befaint · 19/5/17

vova2209 đã viết:
à anh! Befaint said: cho em hỏi thêm chút nữa. Như trường hợp file của em nếu muốn để công thức luôn code thì làm thế nào ạ, Công thức G3, H3, I3, J3 vào code!

PHP:

Sub copylist()
ChenCongthuc
Dim lr As Long, tmp
'...
End Sub

Sub ChenCongthuc()
Dim i As Long
For i = 1 To 4
    Range("G3").Offset(0, i - 1).Formula = "=IF($D" & 4 + i - 1 & "=" & i + 1 & ",F" & 4 + i - 1 & ","""")"
Next i
End Sub

vova2209 · 19/5/17

befaint đã viết:

PHP:

Sub copylist()
ChenCongthuc
Dim lr As Long, tmp
'...
End Sub

Sub ChenCongthuc()
Dim i As Long
For i = 1 To 4
    Range("G3").Offset(0, i - 1).Formula = "=IF($D" & 4 + i - 1 & "=" & i + 1 & ",F" & 4 + i - 1 & ","""")"
Next i
End Sub

Dùng thẳng như này có nên không anh: ActiveCell.FormulaR1C1 = "=IF(R[1]C4=2,R[1]C[-1],"""")"

befaint · 19/5/17

vova2209 đã viết:
Dùng thẳng như này có nên không anh: ActiveCell.FormulaR1C1 = "=IF(R[1]C4=2,R[1]C[-1],"""")"

Bạn cứ làm thoải mái, kết quả đúng mong muốn thì dùng thôi.

vova2209 · 19/5/17

befaint đã viết:
Bạn cứ làm thoải mái, kết quả đúng mong muốn thì dùng thôi.

Vâng em cảm ơn a nhiều!

Cần giúp code copy công thức (1 người xem)

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

Thành viên tích cực

|||||||||||||

Thành viên tích cực

File đính kèm

|||||||||||||

Thành viên tích cực

|||||||||||||

Thành viên tích cực

|||||||||||||

Thành viên tích cực

|||||||||||||

Thành viên tích cực

|||||||||||||

Thành viên tích cực

|||||||||||||

Thành viên tích cực

Thành viên tích cực

|||||||||||||

Thành viên tích cực

|||||||||||||

Thành viên tích cực

Đếm ngược thời gian