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

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

Article #187

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

#187

From: firce
Date: Sun, 17 Dec 2006 08:05

38 lines
2493 bytes

������˼�����±��˿�����������򵽵�Ҫ����Ͱ����Ҳ����ȥ��

������ʵ�ֵĹ���������ģ���2��һ��������������ź�Ժϵ�ȸ�����Ϣ����1�ǵ�����ֻ�����֣�����ͨ��Ա����֣��ѱ���е���Ϣд���1�������2��������Ա�֮��Ͱѱ�1���������Ϣд����2�������ֺ���

����Ҫд����Щ��Ϣ������list1��ѡ���

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



�� �� wdz (�ɶ���) �Ĵ������ᵽ: ��
: ����ԭ���ɾ��
: ԭ��
: ���ӱ���ļ��д���������˽��Ϣ
: ...................

--

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

Technical Details

Message-ID: <4RYGhB$70G@newsmth.net>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!news2.google.com!newsfeed.gamma.ru!Gamma.RU!newsfeed.simtel.ru!Simtel.RU!news.newsmth.net!NEWSMTH

Show Full Headers

Complete Article Headers

X-Google-Thread: 109fdd,eab62dc4dc338ac0
X-Google-Attributes: gid109fdd,public
X-Google-Language: Chinese,GB
Path: arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!news2.google.com!newsfeed.gamma.ru!Gamma.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: Re: ����vb��Ч�ʱ�vba�ͺܶ�ô��
Date: 17 Dec 2006 08:05:55 GMT
Organization: ˮľ����
Message-ID: <4RYGhB$70G@newsmth.net>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: VisualBasic/r/M.1166342171.r0

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

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

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