🚀 go-pugleaf

���˵��һ���ӣ��п��ܣ�ʮ�����Ӿ�̫����
����ij������100*10�ı����Σ�δ���Ż����������˲���50��



Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim appl As New Excel.Application
        Dim wrkbk As Excel.Workbook

        wrkbk = appl.Workbooks.Add()

        appl.ScreenUpdating = False
        Dim wrksht(2) As Excel.Worksheet
        Dim i, j, k As Integer
        Debug.Print(Now)
        Randomize()
        For k = 1 To 2
            wrksht(k) = wrkbk.Worksheets(k)
            For i = 1 To 100
                For j = 1 To 10
                    wrksht(k).Cells(i, j) = Rnd()
                Next
            Next
        Next

        wrksht(0) = wrkbk.Worksheets(3)
        Dim c1, c2, c0 As Excel.Range
        For i = 1 To 100
            For j = 1 To 10
                c1 = wrksht(1).Cells(i, j)
                c2 = wrksht(2).Cells(i, j)
                c0 = wrksht(0).Cells(i, j)

                If c1.Value > c2.Value Then
                    c0.Value = c1.Value
                Else
                    c0.Value = "0"

                End If

            Next
        Next

        wrkbk.SaveAs("c:\5.xls")
        Debug.Print(Now)
        appl.Quit()
    End Sub
End Class

�� �� firce (firce) �Ĵ������ᵽ: ��
: �ѳ����excel����ȥ�ˣ����λ���ָ�Ѱ���
: ������Ҫ�������ѭ�����ϣ�����
: For i = 2 To intLastRowNum1
: ...................



--

�� ��Դ:��ˮľ���� http://newsmth.net��[FROM: 68.33.29.*]