Office中国论坛/Access中国论坛

标题: 求助！ [打印本页]

作者: edei0795 时间: 2006-7-5 05:21
标题: 求助！
[attach]18874[/attach]
怎样用VBA或函数得到这个结果？？见附件！

作者: zhaopin616 时间: 2006-7-5 21:35
看看是不是这洋

Sub jia()
Dim i As Integer
For i = 1 To 200 【此处假设有200条记录』
c = c & Sheets(1).Cells(i, 1).Value
Next i
Sheets(1).Cells(1, 2).Value = c

End Sub
我已经测试过了，可以得。

作者: zhaopin616 时间: 2006-7-5 21:39
楼上的，另外问你一下，

附件怎末传上去？

我咋不会！代码你测试以下绝对ok

作者: HSQ8888 时间: 2006-7-5 21:47

以下是引用zhaopin616在2006-7-5 13:39:00的发言：

楼上的，另外问你一下，

附件怎末传上去？

我咋不会！代码你测试以下绝对ok

你在快速回复中没有上传附件的窗口，你按回复或引用就会看到上传文件的窗口

作者: edei0795 时间: 2006-7-6 06:38
谢谢zhaopin616的帮助，测试通过！

作者: zhaopin616 时间: 2006-7-6 20:51
知道了

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