可不可以通过VBA的方式，快速获取对应条件数据值

mind1238 · 发表于 2018-10-7 14:56

本帖最后由 mind1238 于 2018-10-7 15:26 编辑

可不可以通过VBA的方式，快速获取对应条件数据值
列A-D为原数据列
其中需要满足的条件是：例如：
当G列滿足单-3000-1200这个条件时单价等于10436.94
当G列滿足单-3000-1400这个条件时单价等于11002.54
当G列滿足单-3200-1200这个条件时单价等于13136.91
详情请看图片及附件
请各位老师教导

一把小刀闯天下 · 发表于 2018-10-7 15:13

Option Explicit

Sub test()
  Dim arr, i, dic, t
  arr = [a1].CurrentRegion.Offset(1)
  Set dic = CreateObject("scripting.dictionary")
  For i = 1 To UBound(arr, 1) - 1
dic(arr(i, 1) & arr(i, 2) & "|" & arr(i, 3)) = arr(i, 4)
  Next
  arr = [f1].CurrentRegion.Offset(1)
  For i = 1 To UBound(arr, 1) - 1
t = arr(i, 2) & arr(i, 3) & "|" & arr(i, 4)
arr(i, 5) = IIf(dic.exists(t), Round(dic(t), 2), vbNullString)
  Next
  [f2].Resize(UBound(arr, 1) - 1, UBound(arr, 2)) = arr
End Sub

约定的童话 · 发表于 2018-10-7 15:19

楼主试一下吧，数据太多看的头晕...
Sub 定价()
Dim i
For i = 2 To [g65536].End(xlUp).Row
  If Cells(i, "g") = "单" And Cells(i, "h") = "3000" And Cells(i, "i") = "1200" Then
   Cells(i, "j") = "10436.94"
  Else
If Cells(i, "g") = "单" And Cells(i, "h") = "3000" And Cells(i, "i") = "1400" Then
   Cells(i, "j") = "11002.54"
Else
   If Cells(i, "g") = "单" And Cells(i, "h") = "3200" And Cells(i, "i") = "1200" Then
      Cells(i, "j") = "13136.91"
   End If
   End If
End If
Next
End Sub

mind1238 · 发表于 2018-10-7 15:24

一把小刀闯天下发表于 2018-10-7 15:13
Option Explicit

Sub test()

你超级厉害的
太棒了你
非常感谢你

mind1238 · 发表于 2018-10-7 15:25

本帖最后由 mind1238 于 2018-10-7 16:20 编辑

约定的童话发表于 2018-10-7 15:19
楼主试一下吧，数据太多看的头晕...
Sub 定价()
Dim i

谢谢你
非常感谢你的
给心！

mind1238 · 发表于 2018-10-7 15:28

一把小刀闯天下发表于 2018-10-7 15:13
Option Explicit

Sub test()

还想再一问，平时他们做的按钮是怎么做出来的
我试了好多回都不到
我太笨了

约定的童话 · 发表于 2018-10-7 15:28

mind1238 发表于 2018-10-7 15:25
谢谢你
楼上有大哥帮我回签了
我觉得他的代码更好

嗯，会用就行吧，没必要看懂....刀哥出马，寸草不生，嘿嘿

一把小刀闯天下 · 发表于 2018-10-7 15:48

mind1238 发表于 2018-10-7 15:28
还想再一问，平时他们做的按钮是怎么做出来的
我试了好多回都不到
我太笨了

插入按钮，链接test这个过程即可

可不可以通过VBA的格式，快速获取对应条件数据值1.rar (22.09 KB, 下载次数: 29)

abc123281 · 发表于 2018-10-7 15:53

路过而已
善意的建议楼主在回复帮助你的老师时不要评论谁的代码好或是更好
无论有用或是无用自己参考着用就行水平有高低能力有大小
能帮你的都是热心人士都是vba学习爱好者要知道有些帖子是不会有回复的
所以这无疑会给帮助者泼了冷水

mind1238 · 发表于 2018-10-7 16:21

abc123281 发表于 2018-10-7 15:53
路过而已
善意的建议楼主在回复帮助你的老师时不要评论谁的代码好或是更好
无论有用或是无用 ...

是的，明白，谢谢提醒
是我想得不够周到

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

[已解决] 可不可以通过VBA的方式，快速获取对应条件数据值

评分

评分

评分