选择公司名后，地址自动显示，求大神帮我写行代码，

lxctp

附件是别人做的系统 ，我改了里面的一些内容，在Ziliao里增加了地址，联系人，电话等内容，出库单里增加了公司地址一项，现在在出库单里选择公司名后，地址栏里自动填上地址内容，这个想用VBA代码实现，只要这一个代码，别的不用管，有大神可以帮下吗？谢谢了！

ggmmlol

增加一个按名称查询地址的函数：

1. Private Function dzcx$(ByVal str$)
   
2.     Dim r&, ar, i&
   
3.     With ThisWorkbook.Sheets("ZiLiao")
   
4.         r = .Cells(.Rows.Count, 17).End(xlUp).Row
   
5.         If r < 3 Then Exit Function
   
6.         ar = .[q3].Resize(r - 2, 2)
   
7.     End With
   
8.     For i = 1 To r - 2
   
9.         If ar(i, 1) = str Then dzcx = ar(i, 2): Exit For
   
10.     Next
    
11. End Function

复制代码

lxctp

ggmmlol 发表于 2020-9-15 12:35
增加一个按名称查询地址的函数：

谢谢大神，你这个增加的位置有没有要求，我试了下，还是调不出来，是不是位置放错了

ggmmlol

lxctp 发表于 2020-9-15 13:36
谢谢大神，你这个增加的位置有没有要求，我试了下，还是调不出来，是不是位置放错了

对公司名称单元格双击后，会弹出一个用户窗体，上面代码就需要放在这个模块之下，而且在该窗体的“选择”按钮的代码中需要添加一个赋值语句，让填写该公司地址的单元格的值等于用该函数查询出来的值。

lxctp

ggmmlol 发表于 2020-9-15 13:43
对公司名称单元格双击后，会弹出一个用户窗体，上面代码就需要放在这个模块之下，而且在该窗体的“选择” ...

大神，这个太深邃了，我现在刚会一点点，入门都算不上，只能小修小补的，增加一列项，我都修了快一个月了，能帮我直接写在附件里吗，谢谢了

ggmmlol

lxctp 发表于 2020-9-15 13:47
大神，这个太深邃了，我现在刚会一点点，入门都算不上，只能小修小补的，增加一列项，我都修了快一个月了 ...

自制某工厂进销存系统.rar (656.25 KB, 下载次数: 29)

2020-9-15 14:15 上传

点击文件名下载附件

lxctp

ggmmlol 发表于 2020-9-15 14:15

谢谢大神，，我可以修改其他了，太感谢了

lxctp

ggmmlol 发表于 2020-9-15 14:15

大神你好，现在遇到一个问题，就是增加了显示地址代码后，入库单也调用了这个代码，能不能只限制出库单调用代码，别的不用