满足一定条件，是公式转化为数值

q7988129az

各位大神，帮忙看看这个功能用VBA怎么实现。需求：当B2:B8各行为”确认“时（不定期”审核“会换成”确认“），点击”确认更新“按钮，使对应的每行C:G，转化为数值（原本有的列是数值，有的列是公式，要求全部转化为数值），黄色部分。

microyip

点击按钮后，对B列进行检查，如果符合条件，把右边的进行一次数值赋值即可

q7988129az

microyip 发表于 2018-7-22 12:47
点击按钮后，对B列进行检查，如果符合条件，把右边的进行一次数值赋值即可

大神~~本人菜鸟VBA零基础~~~麻烦大神就上面这个表格帮额写一个代码~~~谢谢~~~谢谢~~~

q7988129az

那位大神可以帮忙写一个代码啊，本人会发个红包感谢一下~~~谢谢了

q7988129az

microyip 发表于 2018-7-22 12:47
点击按钮后，对B列进行检查，如果符合条件，把右边的进行一次数值赋值即可

大神能帮忙写一个代码吗，我发红包~~谢谢了

microyip

1. Sub 更新()
   
2.     Dim vData As Variant, nRow As Integer
   
3.     Application.ScreenUpdating = False
   
4.     With Sheet1
   
5.     vData = .UsedRange.Value
   
6.     For nRow = 2 To UBound(vData)
   
7.         If vData(nRow, 2) = "确认" Then
   
8.             With .Cells(nRow, 3).Resize(, 5)
   
9.                 .Formula = .Value
   
10.             End With
    
11.         End If
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14. End Sub
    

复制代码

microyip

附上附件以供参考

q7988129az

microyip 发表于 2018-7-22 14:18
附上附件以供参考

大神是不是发错了，附件里面没什么代码啊

hasyh2008

不用点确认更新，B列修改为为确认后，后面的自动更新为数值。

q7988129az

hasyh2008 发表于 2018-7-22 14:59
不用点确认更新，B列修改为为确认后，后面的自动更新为数值。

太感谢了~~~谢谢大神~~私信一下我手机号   我给你发个红包~~~谢谢~~~
另外还有个问题请教一下，如果B列中的“确认”是用公式得出的结果，Target.Text = "确认" Then这里应该怎么写呢？