[已解决]当工作表A某3列等于工作表B某3列时，工作表A的某1列等于工作表B的某1列

JOB007 · 发表于 2014-4-18 22:16

本帖最后由 JOB007 于 2014-4-21 00:33 编辑

大家帮我看看我这样写有什么问题，我是想这样的，当工作表“工卡”的A,E，F列=工作表“工价”的A,C,D列时，工作表“工卡”H列=工作表“工价”E列的价钱，但是我怎么写都写不出，其实应该很简单，但小弟学艺未精，很多不懂，还请大家指点，谢谢

当工作表某3列等于工作表某3列时.rar (8.56 KB, 下载次数: 13)

as0810114 · 发表于 2014-4-18 22:40

H2数组公式，下拉

=INDEX(工价!E$2:E$9,MATCH(A2&E2&F2,工价!A$2:A$9&工价!C$2:C$9&工价!D$2:D$9,))

复制代码

冥王 · 发表于 2014-4-18 22:46

本帖最后由冥王于 2014-4-18 22:49 编辑

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Object
Dim myrow As Integer
Dim r As Integer
Dim s As Integer
Dim t As Integer
Dim i As Integer
Set d = CreateObject("scripting.dictionary")
myrow = ThisWorkbook.Sheets("工价").Range("a1").End(xlDown).Row
r = ThisWorkbook.Sheets("工卡").Range("a1").End(xlDown).Row
With ThisWorkbook.Sheets("工价")
For s = 2 To myrow
d(.Cells(s, "a").Value & .Cells(s, "c").Value & .Cells(s, "d").Value) = .Cells(s, "e").Value
Next
End With
With ThisWorkbook.Sheets("工卡")
For i = 2 To r
.Cells(i, "h") = d(.Cells(i, "a").Value & .Cells(i, "e").Value & .Cells(i, "f").Value)
Next
End With
Set d = Nothing
End Sub

复制代码

JOB007 · 发表于 2014-4-19 20:42

as0810114 发表于 2014-4-18 22:40
H2数组公式，下拉

谢谢，不过我想用VBA来实现

JOB007 · 发表于 2014-4-19 20:45

本帖最后由 JOB007 于 2014-4-19 20:49 编辑

冥王发表于 2014-4-18 22:46

谢谢，我要是想再多加一个只工卡H列的空白数据的条件怎么写？我刚才用了SPECIALCELLS(XLCELLTYPEBLANKS)加在.Cells(s, "h").后面，但是运行就其他空白的地方都变成一个数字了

JOB007 · 发表于 2014-4-20 22:43

求解答

su45 · 发表于 2014-4-21 00:25

就是填价格么？

当工作表某3列等于工作表某3列时a.zip (9.12 KB, 下载次数: 7)

JOB007 · 发表于 2014-4-21 00:36

su45 发表于 2014-4-21 00:25
就是填价格么？

谢了，是填单价，楼上的仁兄帮我写了，但我还想多加一个条件，就是只填写，H列空白单元格的单价，假如有一个工价表上没有单价，但工卡上有单价，运行程序后，工卡上有单价的工价不会随着运行而改变

JOB007 · 发表于 2014-4-21 00:39

su45 发表于 2014-4-21 00:25
就是填价格么？

假如这样，12行的批号在工卡上已经有工价了，但工价表上没有工价，假如运行后，这个工价不会受运行影响而变成空白单元格

当工作表某3列等于工作表某3列时a.zip (10.1 KB, 下载次数: 2)

su45 · 发表于 2014-4-21 09:41

这样就行了！

当工作表某3列等于工作表某3列时a.zip (10.36 KB, 下载次数: 4)

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