请求编写一个能够通用于各工作表提交信息的VBA代码

如饥似渴

说明：
如附件“001工作薄登记表”的“A30信息关联表”，
1. 在D3：IV3范围内的单元格中，前三个字符是需要传送信息的工作表的代号，如 A01、A02、A03、......、A30；后三个字符是需要传送信息的工作表的列代号，如 B01、B02、B03、......、B30；
2. 在 C4：C 范围内的单元格中，前三个字符是接收信息的工作表的代号，如 A01、A02、A03、......、A30；后三个字符是接收信息的工作表的列代号，如 B01、B02、B03、......、B30。
3. 无论是需要传送信息的工作表的列，还是需要接收信息的工作表的列，它们的列的代号都设定在该工作表的第三行单元格中。

在附件“201品保部”的“A02我的提案”中设置VBA代码，实现以下要求：
1. 点击“提交信息”按钮，当前工作表名称的前三个字符与“001工作薄登记表”的“A30信息关联表”D3：IV3范围内单元格前三个字符相同时，自第四行往下打有“*”标记的列，信息对应传送到“*”所在行的 B 列单元格和 C 列单元格所表示的工作表及其所表示的列中。
举例说明：
在“001工作薄登记表”的“A30信息关联表”中，请看 K:T 各列标注的“*”，
1.K4单元格标注一个“*”，K24单元格标注一个“*”，再看K3的 A02B01 可知：需要传送信息的是工作表代号为“A02”,列代号为“B01”。
2.信息传到哪里呢？再看“*”所在行的 B 列和 C 列的单元格：
  K4 单元格的“*”表示信息传送到“002工作任务汇编”的代号为 A27 的工作表中的代号为 B01 的列；
  K24 单元格的“*”表示信息传送到“003提案信息汇编”的代号为 A28 的工作表中的代号为 B01 的列；
  其它“*”也都参照这样去识别。

信息传送条件：
点击“提交信息”按钮后，
1. 需要传送的信息文字不是蓝颜色的单元格则传送，否则，不传送；且传送成功的信息文字变为蓝颜色。
2. 需要传送的信息以列号为 B01 的列为参照，如果所传 B01 列单元格能在接收信息工作表的 B01 列找到相同的数据，则所传单元格的信息覆盖接收工作表相应单元格的信息；如果所传 B01 列单元格在接收信息工作表的 B01 列找不到相同的数据，则所传单元格的信息依次传送到接收工作表相应的空白单元格。
3. 所传送的信息在接收信息的工作表中以列号为 B06 的列自动升序排列。
4.信息传送完成后，接收信息的工作表在 AA 列相应的单元格显示接收信息的时间(如：2009-9-10 15：30)

如饥似渴

谈不上系统，不够格，只是几个工作表之间的信息流传而已。因为叙述比较拗口，文字多了点，实际上就是那么几句话。
    实现我的要求，这几句话对于我来说比登天还难，因为我是外行，但，对于你们这些高手来说就如小菜一碟，朋友，帮帮忙吧。
    下面的这段文字所描述的是论坛吗？如何才能加入？请详细介绍一下加入的流程好吗？谢谢
<strong>解决VBA的疑难杂症。QQ：276459108,QQ群：3517545,欢迎加入<strong>

如饥似渴

高手们，伸出援手吧

如饥似渴

高手们还是不愿出手帮忙？可悲！

zez

感受同2楼一样

如饥似渴

朋友，这个问题难道又是不了了之？

zez

原帖由 如饥似渴 于 2009-9-12 07:00 发表
朋友，这个问题难道又是不了了之？

虽然想帮，但无能为力。实际上我的文化水平低，VBA也只是略知皮毛。你可以发个短信给罗君刚老师，请他帮帮忙。

如饥似渴

8楼的朋友，请问，我怎么样才能与罗君刚老师联系上呢？请详细说明一下好吗？谢谢您的帮忙。

zez

写错了，应该是罗刚君
http://club.excelhome.net/space-uid-140164.html

jxl1401

我也想了解呀