以下代码们都是有业务逻辑的,展示在这里,只是想让自己别忘了一些写法,至于业务逻辑,
各位想必没有兴趣,有兴趣的可以学习
Sub «ö1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim biao_zhi As Boolean
Dim yong_liang As Double
n = 2
For i = 3 To 10000
If Len(Sheet1.Cells(i, 16).Value) < 2 Then
Exit For
End If
yong_liang = 0
biao_zhi = True
For m = 2 To 10000
If Len(Sheet3.Cells(m, 1).Value) < 2 Then
Exit For
End If
If Sheet3.Cells(m, 2) = Sheet1.Cells(i, 2).Value _
And Sheet3.Cells(m, 1).Value = Sheet1.Cells(i, 16).Value Then
biao_zhi = False
Exit For
End If
Next m
If biao_zhi = True Then
For j = 3 To 10000
If Len(Sheet1.Cells(j, 16).Value) < 2 Then
Exit For
End If
If Sheet1.Cells(j, 2).Value = Sheet1.Cells(i, 2).Value _
And Sheet1.Cells(j, 16).Value = Sheet1.Cells(i, 16).Value Then
yong_liang = yong_liang + Sheet1.Cells(j, 9).Value
End If
Next j
Sheet3.Cells(n, 1).Value = Sheet1.Cells(i, 16).Value
Sheet3.Cells(n, 2).Value = Sheet1.Cells(i, 2).Value
Sheet3.Cells(n, 3).Value = yong_liang
n = n + 1
End If
Next i
End Sub
Sub «ö2_Click()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim biao_zhi As Boolean
Dim yong_liang As Double
n = 2
For i = 3 To 10000
If Len(Sheet2.Cells(i, 16).Value) < 2 Then
Exit For
End If
yong_liang = 0
biao_zhi = True
For m = 2 To 10000
If Len(Sheet3.Cells(7, 1).Value) < 2 Then
Exit For
End If
If Sheet3.Cells(m, 8) = Sheet2.Cells(i, 2).Value _
And Sheet3.Cells(m, 7).Value = Sheet2.Cells(i, 16).Value Then
biao_zhi = False
Exit For
End If
Next m
If biao_zhi = True Then
For j = 3 To 10000
If Len(Sheet2.Cells(j, 16).Value) < 2 Then
Exit For
End If
If Sheet2.Cells(j, 2).Value = Sheet2.Cells(i, 2).Value _
And Sheet2.Cells(j, 16).Value = Sheet2.Cells(i, 16).Value Then
yong_liang = yong_liang + Sheet2.Cells(j, 9).Value
End If
Next j
Sheet3.Cells(n, 7).Value = Sheet2.Cells(i, 16).Value
Sheet3.Cells(n, 8).Value = Sheet2.Cells(i, 2).Value
Sheet3.Cells(n, 9).Value = yong_liang
n = n + 1
End If
Next i
End Sub
Sub «ö3_Click()
'Selection.Value = "Test1"
Dim i As Integer
Dim j As Integer
Dim n As Integer
n = 2
For i = 2 To 10000
If Len(Sheet3.Cells(i, 1).Value) < 2 Then
Exit For '¦pªG²£«~®Æ¸¹¬°ªÅªº®ÉÔ¡A´N°h¥X´`Àô
End If
For j = 2 To 10000
If Len(Sheet3.Cells(j, 1).Value) < 2 Then
Exit For '¦pªG²£«~®Æ¸¹¬°ªÅªº®ÉÔ¡A´N°h¥X´`Àô
End If
If Sheet3.Cells(i, 1).Value = Sheet3.Cells(j, 7).Value _
And Sheet3.Cells(i, 2).Value = Sheet3.Cells(j, 8).Value _
And Sheet3.Cells(j, 9).Value - Sheet3.Cells(i, 3).Value <> 0 Then
Sheet3.Cells(n, 12).Value = Sheet3.Cells(i, 1).Value
Sheet3.Cells(n, 13).Value = Sheet3.Cells(i, 2).Value
Sheet3.Cells(n, 14).Value = Sheet3.Cells(i, 3).Value
Sheet3.Cells(n, 15).Value = Sheet3.Cells(j, 9).Value
n = n + 1
End If
Next j
Next i
End Sub
Sub «ö4_Click()
'Selection.Value = "Test2"
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim a As Integer
n = 2
For i = 3 To 10000
a = 0
If Len(Sheet3.Cells(i, 1).Value) < 2 Then
Exit For '¦pªG²£«~®Æ¸¹¬°ªÅªº®ÉÔ¡A´N°h¥X´`Àô
End If
For j = 3 To 10000
If Len(Sheet3.Cells(j, 7).Value) < 2 Then
Exit For '¦pªG²£«~®Æ¸¹¬°ªÅªº®ÉÔ¡A´N°h¥X´`Àô
End If
If Sheet3.Cells(i, 1).Value = Sheet3.Cells(j, 7).Value _
And Sheet3.Cells(i, 2).Value = Sheet3.Cells(j, 8).Value Then
a = 1
End If
Next j
If a = 0 Then
Sheet3.Cells(n, 18).Value = Sheet3.Cells(i, 1).Value
Sheet3.Cells(n, 19).Value = Sheet3.Cells(i, 2).Value
Sheet3.Cells(n, 20).Value = Sheet3.Cells(i, 3).Value
'Selection.Value = i
n = n + 1
End If
Next i
End Sub
Sub «ö5_Click()
'Selection.Value = "Test2"
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim a As Integer
n = 2
For i = 3 To 10000
a = 0
If Len(Sheet3.Cells(i, 7).Value) < 2 Then
Exit For '¦pªG²£«~®Æ¸¹¬°ªÅªº®ÉÔ¡A´N°h¥X´`Àô
End If
For j = 3 To 10000
If Len(Sheet3.Cells(j, 1).Value) < 2 Then
Exit For '¦pªG²£«~®Æ¸¹¬°ªÅªº®ÉÔ¡A´N°h¥X´`Àô
End If
If Sheet3.Cells(i, 7).Value = Sheet3.Cells(j, 1).Value _
And Sheet3.Cells(i, 8).Value = Sheet3.Cells(j, 2).Value Then
a = 1
End If
Next j
If a = 0 Then
Sheet3.Cells(n, 23).Value = Sheet3.Cells(i, 7).Value
Sheet3.Cells(n, 24).Value = Sheet3.Cells(i, 8).Value
Sheet3.Cells(n, 25).Value = Sheet3.Cells(i, 9).Value
'Selection.Value = i
n = n + 1
End If
Next i
End Sub