Chỉ cách xóa công thức từ VBA

thanhtam348 · 13/8/07

Khi VBA đã thực thi xong một công thức và cho kết quả, nếu muốn xóa công thức đó đi chỉ còn lại giá trị của kết quả thôi thì phải điền thêm vào code như thế nào? nhờ các bạn cho xin. Cám ơn trước nhé!

minhlev · 13/8/07

Bạn thể viết thêm code để Copy và Pastespecial Paste:=xlPasteValues vào chính ô đó.

thanhtam348 · 13/8/07

Bạn có thể chỉ cho mình chi tiết hơn đi! nói thật là mình mới nhấp nhem về VBA

dmtdmtbb · 13/8/07

thanhtam348 đã viết:
Khi VBA đã thực thi xong một công thức và cho kết quả, nếu muốn xóa công thức đó đi chỉ còn lại giá trị của kết quả thôi thì phải điền thêm vào code như thế nào? nhờ các bạn cho xin. Cám ơn trước nhé!

- Vùng data có công thức chọn Copy bình trường.
- Nơi cần in Paste Special -> Value, không cần dùng đến VBA.

chibi · 13/8/07

thanhtam348 đã viết:
Bạn có thể chỉ cho mình chi tiết hơn đi! nói thật là mình mới nhấp nhem về VBA

Ví dụ với ô B5

Mã:

Range("B5").Copy
Range("B5").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Duong gia · 13/8/07

Khi VBA đã thực thi xong một công thức và cho kết quả, nếu muốn xóa công thức đó thì

Chao ban,
Sau khi VBA truy xuat du lieu ra, neu van con cong thuc gia su o cot D va E ban them doan ma sau la het ngay, chuc ban thanh cong.

Columns("D:E").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

ThuNghi · 13/8/07

Dùng như sau cho ngắn gọn

Range("B11").Value = "=SUM(R[-10]C:R[-1]C)"
Range("B11").Value = Range("B11").Value

thanhtam348 · 13/8/07

Không biết tôi còn gặp lổi do đâu mà những chỉ dẩn trên tôi làm mãi không được, code vẩn lổi chạy không được.
Đoạn công thức sau đây nhờ các bạn kiểm tra dùm:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"

If Target.Column = 10 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"
End Sub

yeudoi · 13/8/07

Ah tại bạn không kết thúc lệnh thực hiện của hàm if. Bạn phải dùng End if.

If Target.Column = 9 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"

If Target.Column = 10 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"
End if
End if
End Sub

thanhtam348 · 13/8/07

Công thức hàm tôi vẩn sử dụng bình thường, nhưng khi tôi kết hợp để xóa công thức như dưới đây thì nó bị lổi:

If Target.Column = 9 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"

If Target.Column = 10 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"

Columns("U:Y").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

End if
End Sub

Các bạn giùm xem lổi do đâu sửa dùm . Cám ơn!

voda · 13/8/07

Bạn viết lại như sau xem thử có kết quả không:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 9 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"
If Target.Column = 10 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"
Columns("U:Y").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub

thanhtam348 · 13/8/07

Vẩn không được kết quả, bạn còn cách nào không?

voda · 13/8/07

Cụ thể là sao? Còn báo lỗi không? Bạn gởi file mới dễ thấy hơn.

thanhtam348 · 13/8/07

File tôi làm dùng thường thì nặng kinh khủng, không biết phải gởi sao, vì vậy mới cần VBA cho nhẹ bớt.
Cụ thể là code công thức vẩn hoạt động bình thường nếu không có các đoạn sau vào, như:

Columns("U:Y").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub

Nếu thêm vào các phần nầy thì nó lổi code, trong khi đó tôi cũng đang cần các đoạn này cho nhẹ file bớt!

ThuNghi · 13/8/07

Nếu có file thì dễ hơn

If Target.Column = 9 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"

Thêm câu sau thử xem
Range("U" & Target.Row).value=Range("U" & Target.Row).value

ThuNghi · 13/8/07

Nếu có file thì dễ hơn

If Target.Column = 9 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"

Thêm câu sau thử xem
Range("U" & Target.Row).value=Range("U" & Target.Row).value

thanhtam348 · 13/8/07

Có đoạn nầy thì có lẻ ổn hơn nhưng nó không kết thúc lệnh được:

If Target.Column = 9 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"
Columns("U:Y").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

Vậy các bạn thấy có thể thêm gì được không?

funnyzui · 14/8/07

Columns("U:Y").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub

Chào bạn!
Tui cũng mới nhấm nháp VBA thôi, nên cũng ko biết gì nhiều. Chỉ xin góp chút ý nhỏ như trên thôi. K biết có phải nguyên nhân đó ko?

voda · 14/8/07

Bạn hãy thử thêm một lần nữa:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 9 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"
If Target.Column = 10 Then Range("U" & Target.Row) = "=IF(RC[-14]=0,"""",(IF(WEEKDAY(RC[-17])=1,VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11])*0.5))+VLOOKUP(RC[-14],DSLuong,RC[-16]+29,0)*(RC[-12]+RC[-11]))"
If Target.Column = 9 Or Target.Column = 10 Then
Columns("U:Y").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Cells(1, 1).Select
Application.ScreenUpdating = True
End If
End Sub

thanhtam348 · 14/8/07

funnyzui đã viết:
Chào bạn!
Tui cũng mới nhấm nháp VBA thôi, nên cũng ko biết gì nhiều. Chỉ xin góp chút ý nhỏ như trên thôi. K biết có phải nguyên nhân đó ko?

Cám ơn, nhưng đoạn code của bạn cũng không hiệu quả rồi.

voda đã viết:
Bạn hãy thử thêm một lần nữa:

Đoạn code của bạn giờ thì dứt lệnh được , nhưng vừa kích vào dãy cột bất kỳ thì code hoạt động trong lúc chưa nhập được số liệu. Nếu có cách bạn chỉnh thêm dùm tí nửa cho. !$@!!

Chỉ cách xóa công thức từ VBA

Thành viên thường trực

A - Bờ - Cờ

Thành viên thường trực

Biệt danh: xDelx

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

Thành viên thường trực

Hãy cho rồi sẽ nhận!

Thành viên thường trực

Thành viên gắn bó

Thành viên thường trực

Thành viên tiêu biểu

Thành viên thường trực

Thành viên tiêu biểu

Thành viên thường trực

Hãy cho rồi sẽ nhận!

Hãy cho rồi sẽ nhận!

Thành viên thường trực

Thành viên mới

Thành viên tiêu biểu

Thành viên thường trực

Đếm ngược thời gian