EXCEL2007如何实现?

发布网友发布时间：2022-04-23 01:26

我来回答

共5个回答

热心网友时间：2023-09-14 06:23

用VBA编程，设某个单元格的Formula属性，自动去识别你定义的公式

程序未执行前的画面：

执行后的结果：

VBA代码画面：

VBA代码：

Sub test()

Const ColOfName As Long = 4

Const ColOfWage As Long = 5

Const ColOfTemp As Long = 7

Const ColOfFinal As Long = 6

Const ColOfFormula As Long = 12

Dim nRow As Long

For nRow = 2 To GetLastRow()

Sheet1.Range(Cells(nRow, ColOfTemp), Cells(nRow, ColOfTemp)).Formula = "=E" & nRow & " & MID(VLOOKUP(D" & nRow & ",K:L,2,FALSE),2,20)"

Sheet1.Range(Cells(nRow, ColOfFinal), Cells(nRow, ColOfFinal)).Formula = "=" & Sheet1.Range(Cells(nRow, ColOfTemp), Cells(nRow, ColOfTemp))

Next nRow

End Sub

Function GetLastRow() As Long

GetLastRow = Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlFormulas, SearchDirection:=xlPrevious).EntireRow.Row

End Function

追问好想看懂，但是...看不懂

热心网友时间：2023-09-14 06:23

建立辅助列G，让G5 =SUBSTITUTE(E5&VLOOKUP(D5,K:L,2,0),"工资","")
首先VLOOKUP(D5,K:L,2,0) 得出 : 工资*2
然后去掉工资得出：10000*2
思路就是把你的公式按照要求改成实际的公式。如:10000/2,10000+500,10000*4 等。然后让他计算出结果，并显示。
之后使用自定义公式。
ABC=evaluatevba(G5)
最后让F5 = ABC
即可。

热心网友时间：2023-09-14 06:24

在F5中输入或复制粘贴下列公式

=IF(COUNTIF($K$4:$K$6,D5),E5*VLOOKUP(D5,$K$4:$L$6,2,),E5+VLOOKUP(D5,$K$7:$L$8,2,))

下拉填充

追问你确定这个公式可以？试了，只能实现张三和李四的...还是谢谢

热心网友时间：2023-09-14 06:24

你的问题出在L栏，EXCEL最忌讳的是一个单元格里输入N多个数据信息，你不仅仅是数据而且还有一段公式啊！！！没有办法用文字描述作为计算的啊
你可以把L栏的规则描述一下，一共分为多少个门类，比如：乘n倍、加或减一个X，让其变成L、M二个列，举例形式如下：
姓名数字门类
张三 2 乘
李四 -500 加
张五 0.5 乘
李六 300 加
也就表示张三是工资乘2，李四是工资减500，张五是工资减半，李六是工资加300，若是这样的操作，操作起来就非常简单了，只要加一个IF判断M列即可用VLOOKUPB函数实现了

热心网友时间：2023-09-14 06:25

用vlookup函数，先把能匹配到姓名的人的原始工资取数到L列，然后再给公式，也是就说增加一个辅助列。
VLOOKUP(K4,D:F,2,0)
K4是当前你输入了姓名的单元格，D:F是要引用的列，数字是要引用的列号,2就是工资额那一列。