��vb��Ч�ʱ�vba�ͺܶ�ô��

Article View: cn.bbs.comp.lang.visual-basic

Article #243

Back to cn.bbs.comp.lang.visual-basic Previous Next

#243

From: firce
Date: Tue, 12 Dec 2006 11:20

22 lines
1823 bytes

��ǰ��vba�Ա�����excel��������д��vb���򣬷��������ٶ����˺ܶ࣬��֪��ʲôԭ�����Ұ�æ������ѭ����������
For i = 2 To intLastRowNum1
        For j = 2 To intLastRowNum2
        shenfen = exlSheet1.Cells(i, Combo3.ListIndex + 1)
        If exlSheet2.Cells(j, Combo4.ListIndex + 1) = shenfen Then
            For k = 1 To List1.SelCount
                exlSheet1.Cells(i, intLastColNum1 + 1 + k) = exlSheet2.Cells(j, xieru(k - 1))
            Next
        
        exlSheet1.Cells(i, intLastColNum1 + 1) = exlSheet1.Cells(i, intLastColNum1 + 1) + 1
        exlSheet2.Cells(j, intLastColNum2 + 1) = exlSheet2.Cells(j, intLastColNum2 + 1) + 1
        End If
    Label9.Caption = i & "/" & intLastRowNum1
        Next j
        
Next i

����һ���ж����ݣ����һֱ�Ͱ�һ�����еļ�����д����һ������

--

[m[1;37m�� ��Դ:��ˮľ���� newsmth.net��[FROM: 202.118.71.*][m

Technical Details

Message-ID: <4RUQWi$4eo@newsmth.net>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!image.surnet.ru!newsfeed.simtel.ru!Simtel.RU!news.newsmth.net!NEWSMTH

Show Full Headers

Complete Article Headers

X-Google-Thread: 109fdd,eab62dc4dc338ac0,start
X-Google-Attributes: gid109fdd,public
X-Google-Language: Chinese,GB
Path: arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!image.surnet.ru!newsfeed.simtel.ru!Simtel.RU!news.newsmth.net!NEWSMTH
From: firce@newsmth.net-SPAM.no (firce)
Newsgroups: cn.bbs.comp.lang.visual-basic
Subject: ����vb��Ч�ʱ�vba�ͺܶ�ô��
Date: 12 Dec 2006 11:20:48 GMT
Organization: ˮľ����
Message-ID: <4RUQWi$4eo@newsmth.net>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: VisualBasic/I/M.1165922348.l0
Lines: 22

Article View: cn.bbs.comp.lang.visual-basic

����vb��Ч�ʱ�vba�ͺܶ�ô��

��vb��Ч�ʱ�vba�ͺܶ�ô��