Code chuyển công thức thành giá trị theo điều kiện lọc

[KhanhChi29]

Em nhờ mọi người viết code chuyển công thức thành giá trị theo điều kiện lọc được
Trong cột điều kiện lọc em đã lọc những ô cần chuyển đổi công thức thành giá trị
em mong muốn chỉ chuyển công thức của những ô lọc ra thành giá trị, các ô không lọc thì vẫn giữ nguyên công thức (không chuyển)
Em thường làm thủ công: sau khi lọc ra các ô thì nhấn F2/F9/Enter nhưng khi bảng giá trị nhiều ô thì hơi nản
Em có sử dụng code này nhưng code bên dưới nhưng chỉ chuyển đổi được các vùng ô liên tiếp (không bỏ qua các ô không thỏa mãn điều kiện lọc)
Sub ValuesOnly()
Dim rRange As Range
On Error Resume Next
Set rRange = Application.InputBox(Prompt:="Select the formulas", _
Title:="VALUES ONLY", Type:=8)
If rRange Is Nothing Then Exit Sub
rRange = rRange.Value
End Sub

 

[BuiQuangThuan]

mình vẫn chưa hiểu cái này sử dụng với mục đích gì. Và thấy 2 bảng có khác gì nhau đâu

 

[congnguyen88]

Em nhờ mọi người viết code chuyển công thức thành giá trị theo điều kiện lọc được
Trong cột điều kiện lọc em đã lọc những ô cần chuyển đổi công thức thành giá trị
em mong muốn chỉ chuyển công thức của những ô lọc ra thành giá trị, các ô không lọc thì vẫn giữ nguyên công thức (không chuyển)
Em thường làm thủ công: sau khi lọc ra các ô thì nhấn F2/F9/Enter nhưng khi bảng giá trị nhiều ô thì hơi nản
Em có sử dụng code này nhưng code bên dưới nhưng chỉ chuyển đổi được các vùng ô liên tiếp (không bỏ qua các ô không thỏa mãn điều kiện lọc)
Sub ValuesOnly()
Dim rRange As Range
On Error Resume Next
Set rRange = Application.InputBox(Prompt:="Select the formulas", _
Title:="VALUES ONLY", Type:=8)
If rRange Is Nothing Then Exit Sub
rRange = rRange.Value
End Sub

Sub Codecopy()
ActiveSheet.Copy Before:=Sheets(2)
End Sub

 

[HieuCD]

Em nhờ mọi người viết code chuyển công thức thành giá trị theo điều kiện lọc được
Trong cột điều kiện lọc em đã lọc những ô cần chuyển đổi công thức thành giá trị
em mong muốn chỉ chuyển công thức của những ô lọc ra thành giá trị, các ô không lọc thì vẫn giữ nguyên công thức (không chuyển)
Em thường làm thủ công: sau khi lọc ra các ô thì nhấn F2/F9/Enter nhưng khi bảng giá trị nhiều ô thì hơi nản
Em có sử dụng code này nhưng code bên dưới nhưng chỉ chuyển đổi được các vùng ô liên tiếp (không bỏ qua các ô không thỏa mãn điều kiện lọc)
Sub ValuesOnly()
Dim rRange As Range
On Error Resume Next
Set rRange = Application.InputBox(Prompt:="Select the formulas", _
Title:="VALUES ONLY", Type:=8)
If rRange Is Nothing Then Exit Sub
rRange = rRange.Value
End Sub

Chạy code

Sub ABC()
  Dim Rng As Range, iCel As Range
  With Sheets("Goc")
    Set Rng = .Range("B2", .Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
    For Each iCel In Rng
      If iCel.HasFormula = True Then
        iCel.Value = iCel.Value
      End If
    Next iCel
  End With
End Sub

 

[KhanhChi29]

Chạy code

Sub ABC()
  Dim Rng As Range, iCel As Range
  With Sheets("Goc")
    Set Rng = .Range("B2", .Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
    For Each iCel In Rng
      If iCel.HasFormula = True Then
        iCel.Value = iCel.Value
      End If
    Next iCel
  End With
End Sub

Cảm ơn Hieucd code đã chạy như ý muốn; mục đích của mình chỉ là chuyển ô có công thức thành giá trị, những ô lọc ra và nhìn thấy, còn các ô khác thì giữ nguyên.

 

[KhanhChi29]

mình vẫn chưa hiểu cái này sử dụng với mục đích gì. Và thấy 2 bảng có khác gì nhau đâu

Có những ô mình muốn chuyển công thức thành giá trị, một số ô khác thì muốn giữ nguyên công thức, tức lọc theo điều kiện ô nào chuyển công thức thành giá trị rồi chuyển, chứ chuyển hết các ô liên tục thành giá trị thì copy/Paste value 123 cho nhanh