Chỉ cách xóa công thức từ VBA (1 người xem)

[thanhtam348]

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]

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

 

[thanhtam348]

Bạn có thể chỉ cho mình chi tiết hơn đi! nói thật là mình mới nhấp nhem về VBA

 

[dmtdmtbb]

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]

Bạn có thể chỉ cho mình chi tiết hơn đi! nói thật là mình mới nhấp nhem về VBA

Ví dụ với ô B5

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

 

[Duong gia]

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]

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]

Không biết tôi còn gặp lổi do đâu mà những chỉ dẩn trên tôi làm mãi không được, code vẩn lổi chạy không được.
Đoạn công thức sau đây nhờ các bạn kiểm tra dù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]

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]

Công thức hàm tôi vẩn sử dụng bình thường, nhưng khi tôi kết hợp để xóa công thức như dưới đây thì nó bị 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

Các bạn giùm xem lổi do đâu sửa dùm . Cám ơn!

 

[voda]

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]

Vẩn không được kết quả, bạn còn cách nào không?

 

[voda]

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]

File tôi làm dùng thường thì nặng kinh khủng, không biết phải gởi sao, vì vậy mới cần VBA cho nhẹ bớt.
Cụ thể là code công thức vẩn hoạt động bình thường nếu không có các đoạn sau và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 vào các phần nầy thì nó lổi code, trong khi đó tôi cũng đang cần các đoạn này cho nhẹ file bớt!

 

[ThuNghi]

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]

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]

Có đoạn nầy thì có lẻ ổn hơn nhưng nó không kết thú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 các bạn thấy có thể thêm gì được không?

 

[funnyzui]

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]

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]

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?

Cám ơn, nhưng đoạn code của bạn cũng không hiệu quả rồi.

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

Đoạn code của bạn giờ thì dứt lệnh được , nhưng vừa kích vào dãy cột bất kỳ thì code hoạt động trong lúc chưa nhập được số liệu. Nếu có cách bạn chỉnh thêm dùm tí nửa cho.

 

[voda]

thanhtam348 mến!
Vì chưa thấy file, nên mình chưa hiểu hết ý đồ của bạn. Nhưng mình cũng có mấy ý này :

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]))"

-Hai dòng lệnh trên cho kết quả hoàn toàn giống nhau thế nên có thể chỉ sử dụng 1 dòng thôi cũng được.
-Sự kiện Worksheet_SelectionChange rơi vào cột I và J. Hai cột này là cột tham chiếu của công thức, nên cần nhập dữ liệu. Vì thế xảy ra tình trạng, khi ta click vào các ô bất kỳ trong cột I và J để nhập dữ liệu thì chương trình chạy và xoá hết công thức. Điều này có thể được giải quyết một cách đơn giản như sau: Ta gán sự kiện Worksheet_SelectionChange vào một cột không nhập dữ liệu như cột 1 chẳng hạn để ta có thể nhập dữ liệu vào các cột khác bình thường.
-Vậy đoạn code có thể chỉnh lại:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 1 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 If
End Sub

Có gì bạn trao đổi lại nhé!

 

[thanhtam348]

Cám ơn bạn, bạn đã tận tình nhiều. Nếu không có câu "có gì trao đổi nhé!" chắc là không dám hỏi thêm.
Đúng là 2 công thức trên đã bị trùng nhau.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 1 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 If
End Sub

Đoạn code nầy không lổi nhưng nó lại xóa công thức không được, nếu là không còn cách thôi đành để tìm cách khác. hi vọng nếu gặp rắc rối sẽ có những người như bạn.

 

[voda]

Sau khi nhập dữ liệu, bạn click vào cột A.
-click vào A8 thì công thức ở ô U8 bị xoá.
-click vào A10 thì công thức ở ô U10 bị xoá...
Bạn kiểm tra lại có đúng không?

 

[Mr Okebab]

Nhìn công thức dài mà phát hoảng.
Đã lỡ dùng VBA rồi, sao không phân TH ra để tính trong VBA sau đó chỉ việc hiển thị giá trị cuối cùng không hay hơn sao ???

Thân!

 

[yeudoi]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 1 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 If
End Sub

Thay bằng

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 1 Then
Range("U" & Target.Row) = "=1+2"
Range("U" & Target.Row).Value = Range("U" & Target.Row).Value
'Columns("U:Y").Select
'Selection.Copy
'Selection.PasteSpecial Paste:=xlValues
'Application.CutCopyMode = False
'Cells(1, 1).Select
Application.ScreenUpdating = True
End If
End Sub

Voda xem thử nha. Không nên dùng copy và past

 

[voda]

Nguyên văn bởi yeudoi
Range("U" & Target.Row).Value = Range("U" & Target.Row).Value

Cũng là một hình thức copy nhưng rất ngắn gọn, nhẹ nhàng mà hiệu quả !