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

hasyh2008

q7988129az 发表于 2018-7-22 15:29
太感谢了~~~谢谢大神~~私信一下我手机号   我给你发个红包~~~谢谢~~~
另外还有个问题请教一下，如果B列 ...

只要B列显示的是“确认”，语句就不用修改。

microyip

q7988129az 发表于 2018-7-22 14:30
大神是不是发错了，附件里面没什么代码啊

你是不是搞错了？明明附件有代码

q7988129az

hasyh2008 发表于 2018-7-22 15:34
只要B列显示的是“确认”，语句就不用修改。

B列里面是显示“确认”，我试过不行，我是B2里面有公式  例如=E2,这样里面也是显示“确认”，不知道为什么~

q7988129az

microyip 发表于 2018-7-22 16:14
你是不是搞错了？明明附件有代码

刚刚我又下载了一次   可以了   谢谢大神，我慢慢学习~~代码少了end with,方便的话私信给我   我发个小红包感谢一下~~

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.     End With
    
14.     Application.ScreenUpdating = True
    
15. End Sub
    

复制代码

hasyh2008

q7988129az 发表于 2018-7-22 17:00
B列里面是显示“确认”，我试过不行，我是B2里面有公式  例如=E2,这样里面也是显示“确认”，不知道为什 ...

Chang是修改，只有B列数据修改了才执行，可以双击B列单元格，后面的就自动更新。

microyip

附上新附件以供参考

q7988129az

hasyh2008 发表于 2018-7-22 15:34
只要B列显示的是“确认”，语句就不用修改。

我试了  用公式转过来的  必须要双击到有公式的那个单元格  才后面的才会转换为数值

q7988129az

hasyh2008 发表于 2018-7-22 17:16
Chang是修改，只有B列数据修改了才执行，可以双击B列单元格，后面的就自动更新。

不好意思，我现在才看懂大神这个Chang是修改的含义，你的代码完全满足我的要求~~谢谢了，公式转过来那就是另外的方式了

hasyh2008

q7988129az 发表于 2018-7-23 13:06
不好意思，我现在才看懂大神这个Chang是修改的含义，你的代码完全满足我的要求~~谢谢了，公式转过来那就 ...

少打了一个e，呵呵！