通过VBA查询价格表，自动出单价，求助大神

九块腹肌X

求助大神。在输入品名和单位，自动出单价。VBA来实现。

jsgj2023

问题不难,但是你这格式其实可以更加规范!

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim d As Object
   
3.     Application.DisplayAlerts = False
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     arr = Sheets("价格表").Range("a1").CurrentRegion
   
6.     For x = 2 To UBound(arr)
   
7.         For y = 2 To UBound(arr, 2)
   
8.             d(arr(x, 1) & "," & arr(1, y)) = arr(x, y)
   
9.         Next
   
10.     Next
    
11.     If Target.Column = 3 Or Target.Column = 10 Then
    
12.         ss = Target.Offset(, -1).Value & "," & Target.Value
    
13.         Target.Offset(, 2) = d(ss)
    
14.     End If
    
15.     Application.DisplayAlerts = True
    
16. End Sub

复制代码

九块腹肌X

jsgj2023 发表于 2018-3-3 20:45
问题不难,但是你这格式其实可以更加规范!

之前有个字典查询代码，但表上的单价会被覆盖为空格，想要按照这个格式。

lsc900707

jsgj2023 发表于 2018-3-3 20:45
问题不难,但是你这格式其实可以更加规范!

有同感，看这格式就不想动手了。

jsgj2023

九块腹肌X 发表于 2018-3-3 22:23
之前有个字典查询代码，但表上的单价会被覆盖为空格，想要按照这个格式。

价格表这样设置,看起来舒服多了!

huangling888

搞个数据有效性+if嵌套vlookup，公式就解决了

jsgj2023

请见附件!!!

九块腹肌X

huangling888 发表于 2018-3-4 08:47
搞个数据有效性+if嵌套vlookup，公式就解决了

if+vlookup函数每个单价单元格都要有公式，我这边的表格太大了。。后期太卡

huangling888

九块腹肌X 发表于 2018-3-4 09:07
if+vlookup函数每个单价单元格都要有公式，我这边的表格太大了。。后期太卡

只就你发的表格而言。“商品”很多的话还涉及if嵌套的数量限制，但就填写发票而言，卡还不至于，不是批量计算。