困难户档案的自动添加问题

excelzzl

请教各位老师怎样写这个按钮的宏代码，谢谢！

xdxkm99

VBA俺还是门外汉，等高手出手的时候再看看怎么写。

changxuegu

我觉得楼主的表格应该改变一下，录入的原始数据做成汇总表的格式，作为数据源。其它表格的数据从数据源中获取，这样就方便多了。

excelzzl

原帖由 changxuegu 于 2010-11-12 14:19 发表
我觉得楼主的表格应该改变一下，录入的原始数据做成汇总表的格式，作为数据源。其它表格的数据从数据源中获取，这样就方便多了。

楼主不知，其实这也是无奈之举，因为这个原始数据来自于网络上，没有办法转换成规矩的文本文档，所以也就没有办法导入excel，最后无奈只能复制过来了。

wanghaiqn1957

Sub try()
i = Sheet4.[b65536].End(3).Row
x = Sheet4.Cells(i, 2)
    If CStr(x) = CStr(Sheet2.Cells(2, 2)) Then
        MsgBox "该职工编号已存在"
    GoTo 100
    End If
With Sheet4
    .Cells(i + 1, 2) = Sheet2.Cells(2, 2)'职工编号
    .Cells(i + 1, 3) = Sheet2.Cells(2, 6) '困难类别
……
End With
100: Sheet4.Activate
End Sub

[ 本帖最后由 wanghaiqn1957 于 2010-11-12 15:24 编辑 ]

wanghaiqn1957

原帖由 changxuegu 于 2010-11-12 14:19 发表
我觉得楼主的表格应该改变一下，录入的原始数据做成汇总表的格式，作为数据源。其它表格的数据从数据源中获取，这样就方便多了。

完全同意：让简单的由手工来完成，复杂的交给程序

[ 本帖最后由 wanghaiqn1957 于 2010-11-12 15:23 编辑 ]

excelzzl

原帖由 wanghaiqn1957 于 2010-11-12 15:19 发表
Sub try()
i = Sheet4..End(3).Row
x = Sheet4.Cells(i, 2)
    If CStr(x) = CStr(Sheet2.Cells(2, 2)) Then
        MsgBox "该职工编号已存在"
    GoTo 100
    End If
With Sheet4
    .Cells(i + 1, 2 ...

谢谢wanghaiqn1957的引导，问题已经解决了。

excelzzl

谢谢wanghaiqn1957的引导，问题已经解决了。