Office中国论坛/Access中国论坛

标题: 表2单元格值修改表1单元格值 [打印本页]

作者: yanwei82123300 时间: 2019-5-15 07:25
标题: 表2单元格值修改表1单元格值
请老师看看表1（表名

LAN）,我想在表2（表名:编辑PLAN）中对表一进行相关单元格值的修改：
例如：
表1 D2单元格：MO-1817405 E2单元格值:5/14/2019
我想在表2中进行修改：增加一个命令按钮，（条件是：表1 D2单元格值与表2 A2单元格）将表1 E2单元格值修改为表2中B2单元格值:6/10/2019

作者: roych 时间: 2019-5-15 08:52
加一列用vlookup就好了，为啥去想VBA呢？[attach]63363[/attach]

作者: yanwei82123300 时间: 2019-5-15 10:11
roych老师表1是主表，一般不进行频繁的修改有时候在编辑过滤的时候会使用，在不改变现状的情况下通过表2修改表1中其他的数据。也就是说，我正在使用表1，突然有人要求改表1中的某一条数据值，我想使用表2进行修改更新表1的数据。

作者: yanwei82123300 时间: 2019-5-15 10:20
roych记得您好像写了一个excel 例子是通过sheet2（里面相关单元格为条件）查询sheet1的数据，我一直在用非常好用，在不影响sheet1的情况下，在sheet2里面查询数据

作者: yanwei82123300 时间: 2019-5-15 15:10
本帖最后由 yanwei82123300 于 2019-5-15 15:16 编辑

老师这有个相关例子，但是我代码有些看不懂，请看一下能否修改为新手能够看懂的代码？谢谢
Sub ss()
Dim brr, x%, t
t = Sheet1.Range("e1")
brr = Sheet2.UsedRange
For x = 2 To UBound(brr)
      If brr(x, 1) = t Then
         With Sheet1
            brr(x, 1) = .[e1]
            brr(x, 2) = .[b1]
            brr(x, 3) = .[b2]
            brr(x, 4) = .[e2]
         End With
      End If
Next
      Sheet2.Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

作者: 方漠 时间: 2019-6-6 12:32
很久不见了，Yanwei兄近况如何？　

作者: yanwei82123300 时间: 2019-8-1 20:08

方漠发表于 2019-6-6 12:32
很久不见了，Yanwei兄近况如何？　

老师好久不见，谢谢帮助，

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)