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

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

Article #180

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

#180

From: firce
Date: Sun, 17 Dec 2006 02:18

27 lines
1655 bytes

�ѳ����excel����ȥ�ˣ����λ���ָ�Ѱ���

������Ҫ�������ѭ�����ϣ�����
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) = exlSheet1.Cells(j, intLastColNum2 + 1) + 1
        End If
    
        Next
        
Next

�� �� firce (firce) �Ĵ������ᵽ: ��
: ���ű�ֱ��м�������¼���Ա����һ��Ҫʮ������:(



--

[m[35m�� ��Դ:��ˮľ���� http://newsmth.net��[FROM: 202.118.71.*][m

Technical Details

Message-ID: <4RY851$4il@newsmth.net>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news2.google.com!newsfeed.media.kyoto-u.ac.jp!news.neu.edu.cn!news.newsmth.net!NEWSMTH

Show Full Headers

Complete Article Headers

X-Google-Thread: 109fdd,eab62dc4dc338ac0
X-Google-Attributes: gid109fdd,public
X-Google-Language: ENGLISH,GB
Path: arc1-ca.pugleaf.net!g2news2.google.com!news2.google.com!newsfeed.media.kyoto-u.ac.jp!news.neu.edu.cn!news.newsmth.net!NEWSMTH
From: firce@newsmth.net-SPAM.no (firce)
Newsgroups: cn.bbs.comp.lang.visual-basic
Subject: Re: ����vb��Ч�ʱ�vba�ͺܶ�ô��
Date: 17 Dec 2006 02:18:25 GMT
Organization: ˮľ����
Message-ID: <4RY851$4il@newsmth.net>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: VisualBasic/W/M.1166321905.f0

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

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

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