往来帐管理系统，望多提意见。

laoshenji

从头到尾不俺不看了一遍，谢谢楼主的辛勤劳动！
同时也提醒各位会员，不要什么都要麻烦楼主回复，有些问题可以通过浏览帖子内容就可以解决！

雨点鱼儿

挺不错的仔细研究下

静阳

新人一枚，到这里来学习下 不错

649080359

好{:soso_e128:}

hgh8341

非常感谢楼主的无私！！！

请哪位VBA高手完善下此功能：

在“数所据库”表中输入数据，由于编码不好记，楼主在右上角设了一个很贴心的功能--可以通过选择单位名称反查编码，查到编码后，再在C列最后一个有数据的单元格的下一个单元格输入查到的编码。如果在旁边做一个按纽（如图中的“填写”），点一下就自动将查到的编码填入C列最后一个有数据的单元格的下一个单元格，然后定位到要接下来输入数据的F列，这样就更完美了。

点击“复制”按纽后的动作：
1、选中J1单元格。
2、复制
3、定位到C列最后一个有数所据的单元格的下一个单元格。
4、选择性粘贴数值。
5、定位到同一行的F列。
6、取销J1单元格COPY状态。
7、结束。

这个VBA代码我不熟，楼主也说不熟VBA，请哪个VBA高手实现一下，谢谢

hgh8341

失意的人 发表于 2012-8-15 10:39
此表做的真的很强大，要认真学习！
谢谢！
另外，在明细查询中，刷新数据库时出现“数据库引擎找不到对象 ...

如果变更了目录，请在数据透视表中将下面的目录变为你实际的目录即可:
Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=E:\***\**\财务\往来帐款\往来帐款管理系统2013.xls;Mode=Share Deny Write;Extended Properties="HDR=YES;";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

练字学

谢谢楼主分享，菜鸟学习下

思蕾

真的很好用，大概的看了一下，学习了。

hgh8341

hgh8341 发表于 2013-11-14 18:17
非常感谢楼主的无私！！！

请哪位VBA高手完善下此功能：

代码已通过录制宏和查找资料搞定，如下：

Sub Macro3()
'
' Macro3 Macro
' 宏由 Sky123.Org 录制，时间: 2013-11-20
'

'
    Range("J1").Select
    Selection.Copy
    Range("C1").Select
    Selection.End(xlDown).Select
    Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells(ActiveCell.Row, ActiveCell.Column + 3).Select
    Application.CutCopyMode = False
End Sub

xiaogang104

楼主强大啊！