Viết lại code cho Phiếu chi (1 người xem)

[ninhmoon]

Hiện tại e code đoạn code bên dưới, nhưng mà e chỉ có thể dùng được một sheet, em muốn viết lại đoạn code dưới để khi thực hiện ở sheet khac cũng có câu trúc như sheet đang dùng code này hoạt động được. Em biết là thay địa chỉ ô nhưng mà e ko biết làm như thế nào cho thống nhất, e gửi lên cả file excel nữa ah. Em nhờ mọi người viết lại code cho e.
[GPECODE=vb]
Sub xoacontent()


Range("B5:I8").Select
Selection.ClearContents
Range("C1617").Select
Selection.ClearContents

Range("B31:I34").Select
Selection.ClearContents

Range("C4243").Select
Selection.ClearContents
Range("K33").Select

End Sub

[/GPECODE]

 

[longlt08]

Chào bạn !
Mình cũng chỉ "võ vẽ" về VBA thôi chưa thể giúp nhiều cho bạn.
Với các sheet của bạn có cấu trúc giông nhau mà bạn muốn dùng các lệnh như đã sử dụng thì nên dùng thêm cấu trúc cho sheet đó theo cú pháp:
With Sheets("abc")
......
end with
trong cấu trúc đó bạn sử dụng các lệnh về Range(..;..) như đã sử dụng thì sẽ cho kết quả như ý.
Chúc bạn thành công !

 

[Ba Tê]

Hiện tại e code đoạn code bên dưới, nhưng mà e chỉ có thể dùng được một sheet, em muốn viết lại đoạn code dưới để khi thực hiện ở sheet khac cũng có câu trúc như sheet đang dùng code này hoạt động được. Em biết là thay địa chỉ ô nhưng mà e ko biết làm như thế nào cho thống nhất, e gửi lên cả file excel nữa ah. Em nhờ mọi người viết lại code cho e.
[GPECODE=vb]
Sub xoacontent()


Range("B5:I8").Select
Selection.ClearContents
Range("C1617").Select
Selection.ClearContents

Range("B31:I34").Select
Selection.ClearContents

Range("C4243").Select
Selection.ClearContents
Range("K33").Select

End Sub

[/GPECODE]

Thử sửa lại như vậy xem sao

Sub xoacontent()
    ActiveSheet.Range("B5:I8,C16:D17,B31:I34,C42:D43").ClearContents
End Sub

 

[ninhmoon]

Thử sửa lại như vậy xem sao

Sub xoacontent()
    ActiveSheet.Range("B5:I8,C16:D17,B31:I34,C42:D43").ClearContents
End Sub

cách của anh Ba Tê rất hay, nhưng e mới học cái VBA nên e cũng không biết viết như code của anh.
E chỉ biết recode và sửa lại code sao cho pù hợp và ngăn hơn.

 

[ninhmoon]

Chào bạn !
Mình cũng chỉ "võ vẽ" về VBA thôi chưa thể giúp nhiều cho bạn.
Với các sheet của bạn có cấu trúc giông nhau mà bạn muốn dùng các lệnh như đã sử dụng thì nên dùng thêm cấu trúc cho sheet đó theo cú pháp:
With Sheets("abc")
......
end with
trong cấu trúc đó bạn sử dụng các lệnh về Range(..;..) như đã sử dụng thì sẽ cho kết quả như ý.
Chúc bạn thành công !

Mình cũng không biết đã hiểu đúng ý bạn chưa mình post lại code mình viết theo ý bạn nên nhé, nhưng mà nó không chạy được không biết vì sao


[GPECODE=vb]
Sub xoacontent()
With Sheet1: Sheet4: Sheet3
Range("B5:I8").Select
Selection.ClearContents
Range("C1617").Select
Selection.ClearContents

Range("B31:I34").Select
Selection.ClearContents

Range("C4243").Select
Selection.ClearContents
Range("K33").Select
Endwith

End Sub

[/GPECODE]

 

[HungQuoc49]

Hiện tại e code đoạn code bên dưới, nhưng mà e chỉ có thể dùng được một sheet, em muốn viết lại đoạn code dưới để khi thực hiện ở sheet khac cũng có câu trúc như sheet đang dùng code này hoạt động được. Em biết là thay địa chỉ ô nhưng mà e ko biết làm như thế nào cho thống nhất, e gửi lên cả file excel nữa ah. Em nhờ mọi người viết lại code cho e.
[GPECODE=vb]
Sub xoacontent()


Range("B5:I8").Select
Selection.ClearContents
Range("C1617").Select
Selection.ClearContents

Range("B31:I34").Select
Selection.ClearContents

Range("C4243").Select
Selection.ClearContents
Range("K33").Select

End Sub

[/GPECODE]

Làm thế này xem sao

Sub xoacontent()
'Thêm dòng dưới
With ActiveSheet

...........
...........

'Thêm dòng dưới
End With

End Sub

 

[ninhmoon]

Không biêt viết kiểu gì. nhưng minh mở lại file thi bị lỗi gì đó, chắc mình viết trồng code. MỌi người xem hộ e lại file nhé

 

[HungQuoc49]

Không biêt viết kiểu gì. nhưng minh mở lại file thi bị lỗi gì đó, chắc mình viết trồng code. MỌi người xem hộ e lại file nhé

Bạn để 2 sub trùng tên trong Module3 nên treo.
Mở file, Disable, đổi tên 1 sub,save rồi mở lại là được.
Nếu định dùng With-End With, các Range phải viết thêm dấu chấm phía trước--->.Range
Nên dùng sub của bài #3

 

[ninhmoon]

Bạn để 2 sub trùng tên trong Module3 nên treo.
Mở file, Disable, đổi tên 1 sub,save rồi mở lại là được.
Nếu định dùng With-End With, các Range phải viết thêm dấu chấm phía trước--->.Range
Nên dùng sub của bài #3

Làm sao để mở được khi nó bị treo rùi, nên mình không thể vào file để disable.
Bạn làm bằng cách, có thể chi tiết hơn chút không

 

[HungQuoc49]

Làm sao để mở được khi nó bị treo rùi, nên mình không thể vào file để disable.
Bạn làm bằng cách, có thể chi tiết hơn chút không

Khi bạn mở file, sẽ bị hỏi là Enable hoặc Disable, thì nhấn Disable, sẽ bị hỏi tiếp có Update hay không-->No. Làm vậy sẽ mở được bình thường--->vào sửa lại tên macro
Tôi đã thực hiện đúng như vậy

 

[ninhmoon]

Nhưng chắc máy tính mình lắm virus hay sao, tai khi mở nó nên, nó đơ tới mức pải tắt trực tiếp nguồn, thế thui mình xoa bỏ cái file đó đi, Thanks Bạn HungQuoc49

 

[ninhmoon]

Nhưng chắc máy tính mình lắm virus hay sao, tai khi mở nó nên, nó đơ tới mức pải tắt trực tiếp nguồn, thế thui mình xoa bỏ cái file đó đi, Thanks Bạn HungQuoc49

 

[HungQuoc49]

Nhưng chắc máy tính mình lắm virus hay sao, tai khi mở nó nên, nó đơ tới mức pải tắt trực tiếp nguồn, thế thui mình xoa bỏ cái file đó đi, Thanks Bạn HungQuoc49

Gửi lại bạn file đã xóa 1 sub trùng tên.