求大神看一下这个excel的公式是怎么回事

dtgladiator · 发表于 2024-5-27 14:29

同事交接过来一个excel，我是实在看不懂这个公式是怎么写。

=@exw(F2,F7,F8,F4,F5,F6)

cyh3230 · 发表于 2024-5-27 14:39

VBA自定义公式, 想看明白, 就去看看VBA代码的逻辑吧

hxj119 · 发表于 2024-5-27 14:44

自定义的函数，直接用就好，或者直接问同事。

dtgladiator · 发表于 2024-5-27 15:00

hxj119 发表于 2024-5-27 14:44
自定义的函数，直接用就好，或者直接问同事。

这个自定义函数，咋弄的呢？同事离职了。

满坛皆为吾师 · 发表于 2024-5-27 15:29

本帖最后由满坛皆为吾师于 2024-5-27 15:31 编辑

打工留藏一手基操啊

' 定义一个函数exw，接受6个参数
Private Function exw(podexw As String, p_volume As Single, p_charge As Single, Origin As String, Load As String, Disc As String) As Single
Dim r As Integer
' 定义变量vl为单精度浮点数，用于存放计算后的体积或费用比值
Dim vl As Single
' 判断条件：如果每300单位费用所对应的体积大于给定的体积，则vl等于该比值；否则，vl等于给定的体积。
If p_charge / 300 > p_volume Then
vl = p_charge / 300
Else
vl = p_volume
End If
' 使用For循环从第23行遍历到第145行
For r = 23 To 145
' 在循环内检查当前行是否满足特定条件：
' 第一列（Cells(r, 1)）的值等于Origin，
' 第三列（Cells(r, 3)）的值等于Load，
' 第四列（Cells(r, 4)）的值等于Disc，
' 且传入的podexw参数等于"EXW"
If Sheet1.Cells(r, 1).Value = Origin And Sheet1.Cells(r, 3).Value = Load And Sheet1.Cells(r, 4).Value = Disc And podexw = "EXW" Then
' 如果条件满足，将第11列（Cells(r, 11)）的值赋给函数返回值exw，并结束循环
exw = Sheet1.Cells(r, 11).Value
Exit For
End If
Next r
End Function

复制代码

hxj119 · 发表于 2024-5-27 15:35

dtgladiator 发表于 2024-5-27 15:00
这个自定义函数，咋弄的呢？同事离职了。

这个要进去看代码才知道呀！！！

dtgladiator · 发表于 2024-5-27 15:40

满坛皆为吾师发表于 2024-5-27 15:29
打工留藏一手基操啊

感谢大神，我先去自己看一下。如果搞不定，再来付费请你讲解一下。

cyh3230 · 发表于 2024-5-27 17:38

其实人还不错, 最起码没有在VBA模块里面加密, 如果加密, 基本上, 就让接手的同事, 自己写吧

		自动登录	找回密码
密码			免费注册

[已解决] 求大神看一下这个excel的公式是怎么回事