Cần giúp đỡ về code cho button

[guhh319]

Các bạn giúp đỡ em file sau nh...
thx mọi người

 

[NH_DK]

Các bạn giúp đỡ em file sau nh...
thx mọi người

Không biết làm thế này có đúng ý bạn không?
Bạn xem nhé!

 

[Lê Duy Thương]

Các bạn giúp đỡ em file sau nh...
thx mọi người

THỬ DÙNG CÁI MACRO NÀY THỬ XEM
Private Sub CommandButton1_Click()
ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"
Range("E6").Select
Selection.AutoFill Destination:=Range("E6:E26"), Type:=xlFillDefault
Range("E6:E26").Select
Selection.Style = "Comma"
End Sub
NHỜ CÁC BÁC XEM LẠI (NHẤT LÀ BÁC NDU VÀ PTM)

 

[NH_DK]

Bạn có thể xem thêm cái này nhé!
(File đính kèm đó)

Option Explicit
Sub congtong()
With Range([C6], [C65535].End(xlUp))
    .Offset(0, 2).FormulaR1C1 = "=RC[-2]+RC[-1]"
    .Offset(0).NumberFormat = "_(* #,##0_);_(* (#,##0);"""""
    .Offset(0, 1).NumberFormat = "_(* #,##0_);_(* (#,##0);"""""
    .Offset(0, 2).NumberFormat = "_(* #,##0_);_(* (#,##0);"""""
End With
End Sub

 

[sealand]

Mình thấy như thế này thôi vừa gọn, vừa chép cả công thức lẫm Format

Private Sub CommandButton1_Click()
Dim cl As Range
Set cl = Sheet1.[e65536].End(xlUp)
cl.Copy cl.Offset(1)
End Sub

 

[NH_DK]

Mình thấy như thế này thôi vừa gọn, vừa chép cả công thức lẫm Format

Private Sub CommandButton1_Click()
Dim cl As Range
Set cl = Sheet1.[e65536].End(xlUp)
cl.Copy cl.Offset(1)
End Sub

Vâng làm theo anh cũng gọn và đúng yêu cầu. Giả thiết nếu ô C6 mà chưa thiết lập công thì cũng mệt nhỉ............!!?

 

[guhh319]

Vâng làm theo anh cũng gọn và đúng yêu cầu. Giả thiết nếu ô C6 mà chưa thiết lập công thì cũng mệt nhỉ............!!?

Xin chân thành cảm ơn tất cả các bác...
Em xin hỏi thêm 1 vấn đề nữa là... nếu ô nếu ta có bảng sau
C6 = A6 + B6
C7 = A7 - B7

Nếu code để copy cả C6 C7 xuống C8 C9 thì phải thay đổi chỗ nào trong code ah..

 

[MinhCong]

Xin chân thành cảm ơn tất cả các bác...
Em xin hỏi thêm 1 vấn đề nữa là... nếu ô nếu ta có bảng sau
C6 = A6 + B6
C7 = A7 - B7

Nếu code để copy cả C6 C7 xuống C8 C9 thì phải thay đổi chỗ nào trong code ah..

Bạn phải đưa ra trường hợp tổng quát nhất chứ lúc như thế này, lúc như thế kia thì sao mà biết cách được. Đưa file lên ghi rõ muốn như thế nào đi bạn ơi!

 

[sealand]

Vâng làm theo anh cũng gọn và đúng yêu cầu. Giả thiết nếu ô C6 mà chưa thiết lập công thì cũng mệt nhỉ............!!?

Không có chép không công thức mới đúng yêu cầu của tác giả. (Nói thật, Mr. Bill cũng bó tay không biết tác giả gõ công thức gì, nếu C6 không có công thức mẫu)

 

[sealand]

Xin chân thành cảm ơn tất cả các bác...
Em xin hỏi thêm 1 vấn đề nữa là... nếu ô nếu ta có bảng sau
C6 = A6 + B6
C7 = A7 - B7

Nếu code để copy cả C6 C7 xuống C8 C9 thì phải thay đổi chỗ nào trong code ah..

Bạn sửa 1 chút:

Private Sub CommandButton1_Click()
Dim cl As Range
Set cl = Sheet1.[e65536].End(xlUp).Offset(-1)
cl.Resize(2).Copy cl.Offset(2)
End Sub

 

[guhh319]

Bạn sửa 1 chút:

Private Sub CommandButton1_Click()
Dim cl As Range
Set cl = Sheet1.[e65536].End(xlUp).Offset(-1)
cl.Resize(2).Copy cl.Offset(2)
End Sub

thx mọi người đã giúp đỡ em rất nhiều với những vấn đề mà em dduaw ra... em cũng cũng thử áp dụng phát triển thêm vào bảng sau nhưng ko thực hiện được... nó chỉ thực hiện với những ô không duoc merge voi nhau... mong mọi người giúp đỡ em... em có gui file đính kèm..

 

[keentwo]

thx mọi người đã giúp đỡ em rất nhiều với những vấn đề mà em dduaw ra... em cũng cũng thử áp dụng phát triển thêm vào bảng sau nhưng ko thực hiện được... nó chỉ thực hiện với những ô không duoc merge voi nhau... mong mọi người giúp đỡ em... em có gui file đính kèm..

-Nếu không có gì đặc biệt sao bạn không thử với chế đọ Ghi lại Marco,như sau

Sub Copy()
Range("D6:N17").Copy
Range("D25").PasteSpecial Paste:=xlPasteAll
End Sub

 

[guhh319]

nếu dùng đoạn code trên thì nó chỉ paste cho mình vào 1 ô cố định và số lần paste chỉ là 1... mình muốn có thể paste nhiều lần và lần sau sẽ chèn vào ngay ô tiếp theo của lần trước thì làm sao bạn... mình chỉ làm được với các ô ko merge lại với nhau còn các ô merge với nhau rồi thì format bị vỡ ngay... :|