Question

vba循环判断问题

刚学菜鸟求教：如何用判断和循环语句实现 表1内的A列中的（AX）值如果等于表2中B列的(BX)值则减去表2中B列的(BX)值。谢谢

Answer 1

通过挤牙膏式不断追问，大体懂你的意思。
感觉是个非常简单的问题，但不知道表一表二单号分别在在哪里，怎么给你做代码？VBA几乎具体问题具体分析，是定制的。
能分别上传表一表二的截图上来说明一下是最好。

追问

不好意识 表达的不够清楚 

就是用表一的单号和表二的单号比较  如果表二里的单号和表一里的单号相同就将表二里相同单号的金额 减去如：表三

追答

VBA数组+字典完美解决，详见附件。

1、已收款表格中的第3列第5行以下触发程序。实际应用时只需输入已收款数据，应收款数据会自己计算。可把你自己的实际数据复制对应粘贴后，双击已收款表格的[C5]单元格然后按回车。

2、录入单号错误时会弹出提示，说明在应收款没找到该单号。

3、可以实时计算，但为了保险，在已收款处对已计算的行数据做标记为“已减”，避免重复计算。

4、科学设计，金额放在表格上方位置。

追问

vba 要密码 密码是多少 啊 谢了

追答

55555

Answer 2

很简单的VBA，但你没说明白，按你提问来理解：表1中（AX）值等于表2中（BX）值则减去表2 中（BX）值，那不就等于0吗。从对zhl750501的追问看，应该说明两表哪列是单号，哪列是就收款，哪列是应收款。

Answer 3

行关系呢？什么数据库？什么语言？

追问

VBA 行是变量 只要单元格内 值相同

追答

相同的值相减对于0，
docmd.runsql " UPDATE 表1 INNER JOIN 表2 ON 表1.A= 表2.B SET 表1.A= 0; "

追问

这样不行啊 我要做的是 有两个表格 一个是已收款 （表一），一个是应收款（表二），如果表一里的单号，有和表二里的单号相同的（单号是唯一的 ）那么就从表二里减去这个相同单号的值 （应收款减少）