[已解决]请老师帮我写段代码，谢谢

lh442246

工作簿1.rar (7.03 KB, 下载次数: 11)

2014-6-14 14:17 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

xdragon

2014-6-14 16:17

     Union(Columns(1), Columns(2), Columns(4)).NumberFormatLocal = "yyyy/m/d"
加一行设置格式的就行了，（我这里不加也可以正常显示的呢）

跳转到最佳答案楼层

zyouong

能用函数 不用代码

kevinshe

我把你的合同编号输入的地方改到B1了
Sub test()

Dim SQL$, SQL_2$
Sheets("Sheet2").[A4:F1000].ClearContents
Set cnn = CreateObject("ADODB.Connection")
Set cnn_2 = CreateObject("ADODB.Connection")
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
cnn_2.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
SQL = "Select 借款日期,到期日期,借款金额,还款日期,还款金额,借款金额 from [Sheet1$] where 合同编号 ='" & ActiveSheet.Cells(1, 2) & "'"
SQL_2 = "Select first(客户姓名) from [sheet1$] where 合同编号 ='" & ActiveSheet.Cells(1, 2) & "'"
Sheets("Sheet2").[A4].CopyFromRecordset cnn.Execute(SQL)
Sheets("Sheet2").[b2].CopyFromRecordset cnn_2.Execute(SQL_2)
cnn.Close
cnn_2.Close
Set cnn = Nothing

Set cnn_2 = Nothing
End Sub

xdragon

change事件的，见附件吧。你的第六列貌似和前面有一列是相同的，我改了个，不知道是不是你想要的列字段。

lh442246

xdragon 发表于 2014-6-14 15:26
change事件的，见附件吧。你的第六列貌似和前面有一列是相同的，我改了个，不知道是不是你想要的列字段。

谢谢您！第六列是借款余额，前面是借款金额。您改了更好用。就是日期列运行后显示是数字不是日期格式。

lh442246

kevinshe 发表于 2014-6-14 15:25
我把你的合同编号输入的地方改到B1了
Sub test()

谢谢您！第六列借款余额不用显示。其他的也好用。

xdragon

     Union(Columns(1), Columns(2), Columns(4)).NumberFormatLocal = "yyyy/m/d"
加一行设置格式的就行了，（我这里不加也可以正常显示的呢）

开心妙妙

工作簿11.rar (12.6 KB, 下载次数: 6)

2014-6-14 16:18 上传

点击文件名下载附件

lh442246

开心妙妙 发表于 2014-6-14 16:18

谢谢！

lh442246

xdragon 发表于 2014-6-14 16:17
Union(Columns(1), Columns(2), Columns(4)).NumberFormatLocal = "yyyy/m/d"
加一行设置格式的就行了 ...

哦，谢谢！