Office中国论坛/Access中国论坛

标题: 有效判断填充问题请教 [打印本页]

作者: zzll15888 时间: 2007-5-19 22:52
标题: 有效判断填充问题请教
表一sheet1中有“特殊编号”、“要素1”、“要素2”、“要素3”；

表二sheet2中有“特殊编号前六位”、“要素3“;

请问：如何通过“特殊编号”与“特殊编号前六位”的有效判断识别后，一次性填充“要素3”内容至表一sheet1中，组

成表三sheet3的格式。[attach]24513[/attach]

作者: fjzjyan 时间: 2007-5-20 19:22
按ALT+F11进入VBE界面分别将三个工作表代码名称(按F4从属性窗口设)设置为ws1、ws2、ws3，插入一个模块编写如下代码并将其加载到一个窗体控件即可。

Sub a()
Dim i As Integer
Dim j As Integer
ws1.[b2].CurrentRegion.Copy ws3.[b2]
For i = 3 To 8
For j = 3 To 8
If Trim(Left(ws3.Cells(j, 2), 6)) = Trim(ws2.Cells(i, 2)) Then

ws3.Cells(j, 2).Offset(0, 3) = ws2.Cells(i, 2).Offset(0, 1)
End If
Next j
Next i
End Sub
[attach]24525[/attach]

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