Article View: cn.bbs.comp.lang.visual-basic
Article #382��̣�excel��ѭ�������
From: �����
Date: Wed, 06 Dec 2006 01:58
Date: Wed, 06 Dec 2006 01:58
17 lines
1725 bytes
1725 bytes
��Ϻ������һ��EXCEL�?2��730�����ݣ�ÿ���Сʱ��һ����ݣ�����48����ݣ���˹���35041�У���һ��Ϊ��ͷ������Ա�ĵ����н��д��?Ŀ���Ƕ�ÿ48�е�ֵ���Ƚϳ����ֵ����Сֵ���������ֵ����Сֵȡƽ������Ϊƽ��ֵ���ٽ������ֵ�浽��һ�ű��У�������У�����Ϊ���ֵ����Сֵ��ƽ��ֵ����Ϊûѧ��BASIC���ο�����д������ij����鷳��Ϻ�������£�
Sub main()
Workbooks.Open ("e:\sfc.xls")
For rwIndex = 0 To 729
For colIndex = 1 To 48
Set oursheet = Worksheets("Sheet1").Cells(rwIndex + 48 * rwIndex, 7)
��
��
������Ӧ�����д
Next colIndex
Next rwIndex
End Sub
--
[m[33m�� ��Դ:��ˮľ���� http://newsmth.net��[FROM: 210.31.68.*][m
Technical Details
Message-ID:
<4RPR3e$6aT@newsmth.net>Path:
arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!news.glorb.com!news.szu.edu.cn!news.bbh.net.cn!news.newsmth.net!NEWSMTHShow Full Headers
Complete Article Headers
X-Google-Thread: 109fdd,431ad5d0a6970fbb,start X-Google-Attributes: gid109fdd,public X-Google-Language: Chinese,GB Path: arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!news.glorb.com!news.szu.edu.cn!news.bbh.net.cn!news.newsmth.net!NEWSMTH From: whitingshark@newsmth.net-SPAM.no (�����) Newsgroups: cn.bbs.comp.lang.visual-basic Subject: ��̣�excel��ѭ������� Date: 06 Dec 2006 01:58:17 GMT Organization: ˮľ���� Message-ID: <4RPR3e$6aT@newsmth.net> Mime-Version: 1.0 Content-Type: text/plain; charset="gb2312" Content-Transfer-Encoding: 8bit X-Filename: VisualBasic/h/M.1165370296.m0