以下代码们都是有业务逻辑的,展示在这里,只是想让自己别忘了一些写法,至于业务逻辑,
各位想必没有兴趣,有兴趣的可以学习
Sub «ö2_Click()
m = 5
For i = 3 To 10000 '±q²Ä3¦æ¶}©l¡A®Á¦æ³B²z
If Len(Sheet2.Cells(i, 2).Value) < 2 Then
Exit For
End If
n = 0
For j = 3 To 10000 '´M§ä¬O§_¦³¬Û¦Pòò»ù³æ¸¹+¶µ¦¸
If Len(Sheet2.Cells(j, 2).Value) < 2 Then
Exit For
End If
If Sheet2.Cells(i, 2).Value = Sheet2.Cells(j, 2).Value And _
Sheet2.Cells(i, 3).Value = Sheet2.Cells(j, 3).Value Then
n = n + 1
End If
Next j
If n = 1 And Sheet2.Cells(i, 13).Value <> "" Then '¦¹³Bn¯d·N¡A¦pªG¤À¶qp»ùªº¤W¤£?ªÅªº®ÉÔ¡A´Ncopy¹L¨Ó
Sheet1.Cells(m, 1).Value = Sheet2.Cells(i, 1).Value
Sheet1.Cells(m, 2).Value = Sheet2.Cells(i, 2).Value
Sheet1.Cells(m, 3).Value = Sheet2.Cells(i, 3).Value
Sheet1.Cells(m, 4).Value = Sheet2.Cells(i, 4).Value
Sheet1.Cells(m, 5).Value = Sheet2.Cells(i, 5).Value
Sheet1.Cells(m, 6).Value = Sheet2.Cells(i, 6).Value
Sheet1.Cells(m, 7).Value = Sheet2.Cells(i, 7).Value
Sheet1.Cells(m, 8).Value = Sheet2.Cells(i, 8).Value
Sheet1.Cells(m, 9).Value = Sheet2.Cells(i, 14).Value
'Sheet1.Cells(m, 10).Value = Sheet2.Cells(i, 15).Value
Sheet1.Cells(m, 10).Value = Sheet2.Cells(i, 14).Value * 1.16
Sheet1.Cells(m, 11).Value = Sheet2.Cells(i, 11).Value
'Sheet1.Cells(m, 12).Value = Sheet2.Cells(i, 12).Value
'Sheet1.Cells(m, 13).Value = Sheet2.Cells(i, 13).Value
'Sheet1.Cells(m, 14).Value = Sheet2.Cells(i, 14).Value
'Sheet1.Cells(m, 15).Value = Sheet2.Cells(i, 15).Value
m = m + 1
End If
If n = 1 And Sheet2.Cells(i, 13).Value = "" Then '¤£¬O¤À¶qp»ù
Sheet1.Cells(m, 1).Value = Sheet2.Cells(i, 1).Value
Sheet1.Cells(m, 2).Value = Sheet2.Cells(i, 2).Value
Sheet1.Cells(m, 3).Value = Sheet2.Cells(i, 3).Value
Sheet1.Cells(m, 4).Value = Sheet2.Cells(i, 4).Value
Sheet1.Cells(m, 5).Value = Sheet2.Cells(i, 5).Value
Sheet1.Cells(m, 6).Value = Sheet2.Cells(i, 6).Value
Sheet1.Cells(m, 7).Value = Sheet2.Cells(i, 7).Value
Sheet1.Cells(m, 8).Value = Sheet2.Cells(i, 8).Value
Sheet1.Cells(m, 9).Value = Sheet2.Cells(i, 9).Value
'Sheet1.Cells(m, 10).Value = Sheet2.Cells(i, 10).Value
Sheet1.Cells(m, 10).Value = Sheet2.Cells(i, 9).Value * 1.16
Sheet1.Cells(m, 11).Value = Sheet2.Cells(i, 11).Value
'Sheet1.Cells(m, 12).Value = Sheet2.Cells(i, 12).Value
'Sheet1.Cells(m, 13).Value = Sheet2.Cells(i, 13).Value
'Sheet1.Cells(m, 14).Value = Sheet2.Cells(i, 14).Value
'Sheet1.Cells(m, 15).Value = Sheet2.Cells(i, 15).Value
m = m + 1
End If
Next i
End Sub
Sub «ö3_Click()
For i = 5 To 100000
If Len(Sheet1.Cells(i, 2).Value) < 2 Then
Exit For
End If
For j = 1 To 15
Sheet1.Cells(i, j).Value = ""
Next j
Next i
End Sub
Sub «ö1_Click()
m = 5
For i = 3 To 10000 '±q²Ä3¦æ¶}©l¡A®Á¦æ³B²z
If Len(Sheet2.Cells(i, 2).Value) < 2 Then
Exit For
End If
n = 0
For j = 3 To 10000 '´M§ä¬O§_¦³¬Û¦Pòò»ù³æ¸¹+¶µ¦¸
If Len(Sheet2.Cells(j, 2).Value) < 2 Then
Exit For
End If
If Sheet2.Cells(i, 2).Value = Sheet2.Cells(j, 2).Value And _
Sheet2.Cells(i, 3).Value = Sheet2.Cells(j, 3).Value Then
n = n + 1
End If
Next j
'¥[Ó§PÂ_¡A¦pªG¤w¸g¦s¦b¡A´N¤£¼g¤J
If n > 1 And Sheet2.Cells(i, 13).Value <> "" Then '¦¹³Bn¯d·N¡A¦pªG¤À¶qp»ùªº¤W¤£?ªÅªº®ÉÔ¡A´Ncopy¹L¨Ó
n_2 = 0
For j = 3 To 10000 '´M§ä¬O§_¦³¬Û¦Pòò»ù³æ¸¹+¶µ¦¸
If Len(Sheet3.Cells(j, 2).Value) < 2 Then
Exit For
End If
If Sheet3.Cells(j, 2).Value = Sheet2.Cells(i, 2).Value And _
Sheet3.Cells(j, 3).Value = Sheet2.Cells(i, 3).Value Then
n_2 = n_2 + 1
End If
Next j
If n_2 = 0 Then
Sheet3.Cells(m, 1).Value = Sheet2.Cells(i, 1).Value
Sheet3.Cells(m, 2).Value = Sheet2.Cells(i, 2).Value
Sheet3.Cells(m, 3).Value = Sheet2.Cells(i, 3).Value
Sheet3.Cells(m, 4).Value = Sheet2.Cells(i, 4).Value
Sheet3.Cells(m, 5).Value = Sheet2.Cells(i, 5).Value
Sheet3.Cells(m, 6).Value = Sheet2.Cells(i, 6).Value
Sheet3.Cells(m, 7).Value = Sheet2.Cells(i, 7).Value
Sheet3.Cells(m, 8).Value = Sheet2.Cells(i, 8).Value
Sheet3.Cells(m, 9).Value = Sheet2.Cells(i, 9).Value
Sheet3.Cells(m, 10).Value = Sheet2.Cells(i, 10).Value
Sheet3.Cells(m, 11).Value = Sheet2.Cells(i, 11).Value
'Sheet3.Cells(m, 12).Value = Sheet2.Cells(i, 12).Value
'Sheet3.Cells(m, 13).Value = Sheet2.Cells(i, 13).Value
'Sheet3.Cells(m, 14).Value = Sheet2.Cells(i, 14).Value
'Sheet3.Cells(m, 15).Value = Sheet2.Cells(i, 14).Value * 1.16
m = m + 1
End If
End If
Next i
End Sub
Sub «ö6_Click()
For i = 5 To 100000
If Len(Sheet3.Cells(i, 2).Value) < 2 Then
Exit For
End If
For j = 1 To 15
Sheet3.Cells(i, j).Value = ""
Next j
Next i
End Sub
Sub «ö13_Click()
For i = 5 To 10000 '±q²Ä3¦æ¶}©l¡A®Á¦æ³B²z
If Len(Sheet1.Cells(i, 2).Value) < 2 Then
Exit For
End If
If i = 5 Then
Sheet1.Cells(i, 3).Value = 1
End If
If i > 5 Then
Sheet1.Cells(i, 3).Value = Sheet1.Cells(i - 1, 3).Value + 1
End If
Next i
End Sub
Sub «ö14_Click()
End Sub
Sub Sheet3_«ö1_Click()
m = 5
For i = 5 To 10000 '±q²Ä3¦æ¶}©l¡A®Á¦æ³B²z
If Len(Sheet1.Cells(i, 2).Value) < 2 Then
Exit For
End If
Sheet4.Cells(m, 2).Value = Sheet4.Cells(1, 4).Value
Sheet4.Cells(m, 3).Value = Sheet1.Cells(i, 3).Value
Sheet4.Cells(m, 4).Value = Sheet1.Cells(i, 4).Value
Sheet4.Cells(m, 5).Value = Sheet1.Cells(i, 6).Value
Sheet4.Cells(m, 6).Value = Sheet1.Cells(i, 9).Value
Sheet4.Cells(m, 7).Value = Sheet1.Cells(i, 9).Value
Sheet4.Cells(m, 8).Value = Sheet1.Cells(i, 11).Value
Sheet4.Cells(m, 9).Value = Date
Sheet4.Cells(m, 10).Value = " "
Sheet4.Cells(m, 11).Value = Sheet1.Cells(i, 8).Value
Sheet4.Cells(m, 12).Value = Sheet1.Cells(i, 10).Value
Sheet4.Cells(m, 13).Value = "1"
Sheet4.Cells(m, 14).Value = " "
Sheet4.Cells(m, 15).Value = "CKW"
Sheet4.Cells(m, 16).Value = "CKW"
m = m + 1
Next i
End Sub
Sub «ö7_Click()
For i = 5 To 10000
If Len(Sheet4.Cells(i, 4).Value) < 2 Then
Exit For
End If
For j = 1 To 16
Sheet4.Cells(i, j).Value = ""
Next j
Next i
End Sub
Sub ¨ú¥X¯u¥¿¤À¶qp»ù_«ö7_Click()
For i = 5 To 10000
If Len(Sheet3.Cells(i, 1).Value) < 2 Then
Exit For
End If
'Sheet3.Cells(i, 2).Value = Sheet3.Cells(1, 2).Value
If i = 5 Then
Sheet3.Cells(i, 13).Value = 1
End If
If i > 5 Then
Sheet3.Cells(i, 13).Value = Sheet3.Cells(i - 1, 13).Value + 1
End If
Next i
End Sub
Sub ¨ú¥X¯u¥¿¤À¶qp»ùPMR_«ö2_Click()
m = 5
For i = 3 To 10000 '±q²Ä3¦æ¶}©l¡A®Á¦æ³B²z
If Len(Sheet2.Cells(i, 2).Value) < 2 Then
Exit For
End If
n = 0
For j = 3 To 10000 '´M§ä¬O§_¦³¬Û¦Pòò»ù³æ¸¹+¶µ¦¸
If Len(Sheet2.Cells(j, 2).Value) < 2 Then
Exit For
End If
If Sheet2.Cells(i, 2).Value = Sheet2.Cells(j, 2).Value And _
Sheet2.Cells(i, 3).Value = Sheet2.Cells(j, 3).Value Then
n = n + 1
End If
Next j
If n > 1 And Sheet2.Cells(i, 13).Value <> "" Then '¦¹³Bn¯d·N¡A¦pªG¤À¶qp»ùªº¤W¤£?ªÅªº®ÉÔ¡A´Ncopy¹L¨Ó
If n_2 = 0 Then
Sheet5.Cells(m, 1).Value = Sheet2.Cells(i, 1).Value
Sheet5.Cells(m, 2).Value = Sheet2.Cells(i, 2).Value
Sheet5.Cells(m, 3).Value = Sheet2.Cells(i, 3).Value
Sheet5.Cells(m, 4).Value = Sheet2.Cells(i, 12).Value
Sheet5.Cells(m, 5).Value = Sheet2.Cells(i, 13).Value
Sheet5.Cells(m, 6).Value = Sheet2.Cells(i, 14).Value
Sheet5.Cells(m, 7).Value = Sheet2.Cells(i, 15).Value
'Sheet5.Cells(m, 8).Value = Sheet2.Cells(i, 8).Value
'Sheet5.Cells(m, 9).Value = Sheet2.Cells(i, 9).Value
'Sheet5.Cells(m, 10).Value = Sheet2.Cells(i, 10).Value
'Sheet5.Cells(m, 11).Value = Sheet2.Cells(i, 11).Value
'Sheet5.Cells(m, 12).Value = Sheet2.Cells(i, 12).Value
'Sheet5.Cells(m, 13).Value = Sheet2.Cells(i, 13).Value
'Sheet5.Cells(m, 14).Value = Sheet2.Cells(i, 14).Value
'Sheet5.Cells(m, 15).Value = Sheet2.Cells(i, 14).Value * 1.16
m = m + 1
End If
End If
Next i
End Sub
Sub ¨ú¥X¯u¥¿¤À¶qp»ùPMR_«ö7_Click()
For i = 5 To 10000
If Len(Sheet5.Cells(i, 2).Value) < 2 Then
Exit For
End If
For j = 5 To 10000
If Len(Sheet3.Cells(j, 2).Value) < 2 Then
Exit For
End If
If Sheet5.Cells(i, 2).Value = Sheet3.Cells(j, 2).Value _
And Sheet5.Cells(i, 3).Value = Sheet3.Cells(j, 3).Value Then
Sheet5.Cells(i, 9).Value = Sheet3.Cells(j, 13).Value
End If
Next j
Next i
End Sub
Sub «ö8_Click()
For i = 5 To 10000
If Len(Sheet3.Cells(i, 2).Value) < 2 Then
Exit For
End If
Sheet3.Cells(i, 2).Value = Sheet5.Cells(1, 2).Value
Sheet3.Cells(i, 3).Value = Sheet3.Cells(i, 13).Value
Next i
For i = 5 To 10000
If Len(Sheet5.Cells(i, 2).Value) < 2 Then
Exit For
End If
Sheet5.Cells(i, 2).Value = Sheet5.Cells(1, 2).Value
Sheet5.Cells(i, 3).Value = Sheet5.Cells(i, 9).Value
Next i
End Sub
Sub «ö9_Click()
For i = 5 To 100000
If Len(Sheet5.Cells(i, 2).Value) < 2 Then
Exit For
End If
For j = 1 To 15
Sheet5.Cells(i, j).Value = ""
Next j
Next i
End Sub