求助VBA代码实现自动单价 谢谢

38180203

比如从C3开始，如果C3单元格中包含有800,500,1.28这个三数值，则G3单元格的值为0.4 N3单元格值显示为0.5 Q3显示为0.3 ,如果C3中单元格包含有2 3.5 字样，则G3为0.7 N3为0.8 Q3为0.6



WPS实现监控C列数值来实现单价自动填充。谢谢！！！

shiruiqiang

instr判断就行，
但是1.28也包含2，怎么算？

温馨云

土办法做一个，抛砖引玉。
吹瓶品质异常.zip (18.2 KB, 下载次数: 6)

2025-3-25 17:48 上传

点击文件名下载附件

3190496160

Sub test()
Dim ar As Variant
Dim i As Long, r As Long
With ActiveSheet
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 3 Then MsgBox "数据源为空！": End
    ar = .Range("a2:s" & r)
    For i = 2 To UBound(ar)
        If ar(i, 3) <> "" Then
            If InStr(ar(i, 3), 500) > 0 Or InStr(ar(i, 3), 800) > 0 Or InStr(ar(i, 3), 1.28) > 0 Then
                ar(i, 7) = 0.4
                ar(i, 14) = 0.5
                ar(i, 17) = 0.3
            ElseIf (InStr(ar(i, 3), 2) > 0 Or InStr(ar(i, 3), 3.5) > 0) And InStr(ar(i, 3), 1.28) = 0 Then
                ar(i, 7) = 0.7
                ar(i, 14) = 0.8
                ar(i, 17) = 0.6
            End If
        End If
     Next i
     .Range("a2:s" & r) = ar
End With
MsgBox "ok!"
End Sub

3190496160

吹瓶品质异常.rar (14.77 KB, 下载次数: 11)

2025-3-26 08:55 上传

点击文件名下载附件

38180203

温馨云 发表于 2025-3-25 17:48
土办法做一个，抛砖引玉。

能实现结果，但是运行很慢  谢谢

38180203

3190496160 发表于 2025-3-26 08:54
Sub test()
Dim ar As Variant
Dim i As Long, r As Long

运行速度好快，，OK  谢谢谢你