Cách xóa dữ liệu nhập vào file!

[krongpa52]

Hiện tại em có 1 file excel nhưng bên dưới, để có thể chỉ cần 1 cái click chuột mình có thể xóa hết những dữ liệu số màu đỏ trong file để có thể nhập các dữ liệu mới vào. Mọi người có cách nào bày cho mình với ạ. Cảm ơn mọi người!

 

[Hai Lúa Miền Tây]

Hiện tại em có 1 file excel nhưng bên dưới, để có thể chỉ cần 1 cái click chuột mình có thể xóa hết những dữ liệu số màu đỏ trong file để có thể nhập các dữ liệu mới vào. Mọi người có cách nào bày cho mình với ạ. Cảm ơn mọi người!

Tôi Record 1 macro ở file của bạn như sau:
1/ Sheet Thẩm định

Sub Macro1()
'
' Macro1 Macro
'

'
    Union(Range( _
        "K84:K85,K87:K88,I11:J16,K12,K13,K15,K16,I19:J24,K20,K21,K23,K24,I27:J32,K28:K29,K31:K32,I35:J40,K36:K37,K39:K40,I43:J48,K44:K45,K47:K48,I51:J56,K52:K53,K55:K56,I59:J64,K60:K61,K63:K64,I67:J72,K68:K69,K71:K72,I75:J80,K76:K77" _
        ), Range("K79:K80,I83:J88")).Select
    Selection.ClearContents
End Sub

2/ Sheet Tính toán

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("D6:H74").Select
    Selection.ClearContents
End Sub

 

[leonguyenz]

Tôi Record 1 macro ở file của bạn như sau:
[/CODE]

Em nghĩ chỉ nên xóa những ô là số gõ vào thôi, còn ô công thức thì khỏi cần.
Trong file ví dụ, có những ô có công thức cũng tô màu đỏ, có phải là tô nhầm không.
Nếu chỉ xóa các ô nhập số vào thì dùng phương thức SpecialCells để xóa.
[gpecode=vb]
Sub Button1_Click()
Sheet2.Range("I10:K88").SpecialCells(2, 1).ClearContents
End Sub
[/gpecode]

 

[Hai Lúa Miền Tây]

Em nghĩ chỉ nên xóa những ô là số gõ vào thôi, còn ô công thức thì khỏi cần.
Trong file ví dụ, có những ô có công thức cũng tô màu đỏ, có phải là tô nhầm không.
Nếu chỉ xóa các ô nhập số vào thì dùng phương thức SpecialCells để xóa.
[gpecode=vb]
Sub Button1_Click()
Sheet2.Range("I10:K88").SpecialCells(2, 1).ClearContents
End Sub
[/gpecode]

Ý anh là chỉ muốn cho bạn ấy tập record macro cái dể nhất thôi mà.

 

[krongpa52]

leonguyenz: bạn làm đúng ý mình rồi á, có thể chỉ mình làm không, kiến thức excel mình kém lắm, chỉ có ý tưởng thôi!

 

[Hai Lúa Miền Tây]

leonguyenz: bạn làm đúng ý mình rồi á, có thể chỉ mình làm không, kiến thức excel mình kém lắm, chỉ có ý tưởng thôi!

Muốn hiểu và viết code như thế nào, đầu tiên bạn nên học cách record macro trước đi nhé.

 

[krongpa52]

Phải học mới biết được thôi chứ không học sao biết cái này.! Có tài liều gì về cái này không ạ!

 

[Hai Lúa Miền Tây]

Phải học mới biết được thôi chứ không học sao biết cái này.!

Thì tôi có nói bạn không học đâu, ý tôi muốn nói là muốn tập viết code thì trước tiên bạn phải học record macro thôi. Ý tôi như thế, còn bạn nghĩ không cần thì bạn cứ học theo cách của bạn, tôi đâu có cản.

 

[VetMini]

Thì tôi có nói bạn không học đâu, ý tôi muốn nói là muốn tập viết code thì trước tiên bạn phải học record macro thôi. Ý tôi như thế, còn bạn nghĩ không cần thì bạn cứ học theo cách của bạn, tôi đâu có cản.

Thường thường thì học cách gởi file lên diễn đàn hiệu quả cao hơn. Chỉ cần có một ý tưởng sáng tạo nho nhỏ. Lên diễn đàn hỏi. Tải code về, có khi không cần tải code, chỉ cần nói "làm ơn ghi luôn vào file cho tiện", tải file về. Xong. Học chi cho mệt.

 

[adult]

Em nghĩ chỉ nên xóa những ô là số gõ vào thôi, còn ô công thức thì khỏi cần.
Trong file ví dụ, có những ô có công thức cũng tô màu đỏ, có phải là tô nhầm không.
Nếu chỉ xóa các ô nhập số vào thì dùng phương thức SpecialCells để xóa.
[gpecode=vb]
Sub Button1_Click()
Sheet2.Range("I10:K88").SpecialCells(2, 1).ClearContents
End Sub
[/gpecode]

Chào bạn, bạn có thể giải thích giúp mình ý nghĩa của SpecialCells(2,1) là gì không? Vì sao nó lại hiểu được ý của mình muốn xóa ô nào thôi?
Thanks so much

 

[leonguyenz]

Chào bạn, bạn có thể giải thích giúp mình ý nghĩa của SpecialCells(2,1) là gì không? Vì sao nó lại hiểu được ý của mình muốn xóa ô nào thôi?
Thanks so much

Nếu bạn xem được Help trong VBA thì bạn gõ từ khóa "SpecialCells", bạn sẽ hiểu thêm về phương thức này.
Cách ghi Marco: chọn vùng I10:K88 > nhấn Ctrl+G (hoặc F5 để vào Go To) > Special... > Constants > Bỏ 3 check dưới, chỉ để lại Numbers > OK. Tức là đi đến các ô là giá trị số.
SpecialCells(2,1) tương ứng với: SpecialCells(xlCellTypeConstants, 1) với 1 là tham số của Numbers. Bạn ghi Marco và test thử với các tham số khác sẽ hiểu.