Office中国论坛/Access中国论坛

标题: 求助。怎么实现这个的表 [打印本页]

作者: cangqiong 时间: 2006-9-14 20:41
标题: 求助。怎么实现这个的表
如。。。表1、表2、表3、表4、表5 的第72条记录（一整条数据。包括A1，B1，C1，D1。。。。）

显示在表6里面。。。。

按A1，A2，A3。。顺序，怎么样作啊

[此贴子已经被作者于2006-9-14 12:41:48编辑过]

作者: 老鬼 时间: 2006-9-15 02:34
什么意思

作者: cangqiong 时间: 2006-9-15 20:33
[attach]20338[/attach]

要求Sheet1 到Sheet5 第一排的数据按顺序显示在Sheet6里面像附件的形式。

最好用编程。。的方式作。。。。

作者: tangqp 时间: 2006-9-16 01:36
Sub main()
xRow = 1
For i = 1 To Application.ActiveWorkbook.Worksheets.Count - 1
      For j = 1 To 9
         Sheets(6).Cells(xRow, j) = Sheets(i).Cells(1, j)
      Next
      xRow = xRow + 1
Next
End Sub

作者: cangqiong 时间: 2006-9-18 16:18
谢谢

作者: cangqiong 时间: 2006-9-18 18:28
For i = 1 To Application.ActiveWorkbook.Worksheets.Count - 1
这句是什么意思啊？

为什么要—1啊。。。。-1是什么意思啊

作者: cangqiong 时间: 2006-9-18 18:36
还有要是把第1到6的第一排数

   a1 b1 c1 d1 e1

1    1  2 3  4  5

换成第15排  应该改哪个数啊

15 a1 b1 c1 d1 e1

   1  2 3  4  5

作者: cangqiong 时间: 2006-9-18 18:40
我改出来了。。。

但是

For i = 1 To Application.ActiveWorkbook.Worksheets.Count - 1
这句是什么意思啊？

为什么要—1啊。。。。-1是什么意思啊

作者: tangqp 时间: 2006-9-18 19:23
sheets(6)不用,那就-1了

作者: ayu330602 时间: 2006-9-18 19:33
教你一个简单的方法：打开表6，将A列的相应行分别与表1-5A列的对应单元格建立连接，然而拉动操纵柄至全部。

表6，A1=表1，A1；

表6，A2=表2，A1

表6，A3=表3，A1

。。。。。。

要哪一项都行哦

[此贴子已经被作者于2006-9-18 11:36:03编辑过]

作者: cangqiong 时间: 2006-9-21 01:32
表是不固定的。。。这个月可能是6个。下个月可能是10个，再下个月可能是15个。。。

你还有别的简单方法吗?

我跟据tangqp的方法。。改了一下。。就可以用了。。

我想多学几种方法！！

作者: 风云际会 时间: 2006-9-23 00:27
哦，不错，!~

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