phương thức clearcontens xóa luôn công thức (1 người xem)

[quykh]

các AC cho em hỏi có phải phương thức clearcontens xóa luôn công thức phải không. Ví dụ như trong ô B4:B10 có sử dụng hàm Vlookup thì khi viết .[$B$4:$B$10].clearcontens thì nó xóa luôn công thức .

 

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

các AC cho em hỏi có phải phương thức clearcontens xóa luôn công thức phải không. Ví dụ như trong ô B4:B10 có sử dụng hàm Vlookup thì khi viết .[$B$4:$B$10].clearcontens thì nó xóa luôn công thức .

Chính xác là như thế, bạn thử thì biết chứ gì.

 

[quykh]

thế có cách nào xóa mà không ảnh hưởng tới CT không Anh.Chỉ xóa Value thôi!

 

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

thế có cách nào xóa mà không ảnh hưởng tới CT không Anh.Chỉ xóa Value thôi!

Thử như sau:

Range("B4:B10").SpecialCells(xlCellTypeConstants, 23).ClearContents

 

[quykh]

Anh chỉnh dùm em đoạn code nàyở dòng chữ đỏ:
Private Sub CommandButton1_Click()
Dim Arr(), Rngs(), i As Long, k As Long
With Sheet1
Rngs = .Range(.[B8], .[B65000].End(xlUp)).Resize(, 5).Value
ReDim Arr(1 To UBound(Rngs, 1), 1 To 6)
For i = 1 To UBound(Rngs, 1)
If Rngs(i, 1) <> "" Then
k = k + 1
Arr(k, 1) = .[C3].Value
Arr(k, 2) = .[C4].Value
Arr(k, 3) = Rngs(i, 1)
Arr(k, 4) = Rngs(i, 2)
Arr(k, 5) = Rngs(i, 3)
Arr(k, 6) = Rngs(i, 5)
End If
Next i
.[C3:C4].ClearContents<= Chỉ xóa Value thôi
.[B8:F100].ClearContents<=Chỉ xóa Value thôi
.[C3].Select
End With
If k Then Sheet4.Range("A65000").End(xlUp).Offset(1).Resize(k, 6).Value = Arr
End Sub

 

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

Anh chỉnh dùm em đoạn code nàyở dòng chữ đỏ:
Private Sub CommandButton1_Click()
Dim Arr(), Rngs(), i As Long, k As Long
With Sheet1
Rngs = .Range(.[B8], .[B65000].End(xlUp)).Resize(, 5).Value
ReDim Arr(1 To UBound(Rngs, 1), 1 To 6)
For i = 1 To UBound(Rngs, 1)
If Rngs(i, 1) <> "" Then
k = k + 1
Arr(k, 1) = .[C3].Value
Arr(k, 2) = .[C4].Value
Arr(k, 3) = Rngs(i, 1)
Arr(k, 4) = Rngs(i, 2)
Arr(k, 5) = Rngs(i, 3)
Arr(k, 6) = Rngs(i, 5)
End If
Next i
.[C3:C4].ClearContents<= Chỉ xóa Value thôi
.[B8:F100].ClearContents<=Chỉ xóa Value thôi
.[C3].Select
End With
If k Then Sheet4.Range("A65000").End(xlUp).Offset(1).Resize(k, 6).Value = Arr
End Sub

Thì ở trên tôi đã nói rồi

'.........
.Range("C3:C4").SpecialCells(xlCellTypeConstants, 23).ClearContents
.Range("B8:F100").SpecialCells(xlCellTypeConstants, 23).ClearContents
'..............

 

[quykh]

Anh cho em hỏi số 23 nghĩa là gí ạ?

 

[nmhung49]

Bạn nên dùng Record macro sẽ hiểu rõ nó là gì, nhấn Ctrl+G chọn Special --> check Constants, stop macro OK sẽ biết rãnh thì thực tập hết mấy nút đó cũng được có nhiều điều hữu ích lắm đó

 

[nghiaphuc]

Anh cho em hỏi số 23 nghĩa là gí ạ?

Sử dụng chức năng Help thì đọc được cái này:

Như vậy con số 23 trên là kết quả của 16+4+1+2, tức là lấy tất cả các kiểu dữ liệu của các ô trong Range. Do đó tham số 23 trong trường hợp này có thể bỏ qua được. (Trong trường hợp bạn chỉ xóa những ô trả về lỗi thì bạn thay số này bởi số 16, các trường hợp khác thì tùy cơ ứng biến)
Câu lệnh trên cũng có thể viết gọn lại là:

.[C3:C4].SpecialCells(2).ClearContents