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

dtgladiator

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

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

cyh3230

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

hxj119

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

dtgladiator

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

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

满坛皆为吾师

打工留藏一手基操啊

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

复制代码

hxj119

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

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

dtgladiator

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

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

cyh3230

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