- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¦^´_ kimbal
¥ýÁÂÁ«e½ú¼ö¤ß«ü¾É¡A§Úª½±µ§âÀÉ®×¥á¤W¨Ó¦n¤F¡I
wiemanson µoªí©ó 2010-7-22 21:16
¥¿¦p¤W±©Ò»¡,¨S¦³ "¥h²B", ©Ò¥H¦º±¼°Õ~
¶K¤W³oÓ¦A¸Õ¸Õ¹B¤@¤U- Sub s1()
-
- Worksheets("Sheet1").Select
- x = 1
- Do
- If Cells(x, 1) = "" Then
- Exit Do
- End If
- Set y1 = Cells.Find(What:="¤T¸s", After:=ActiveCell)
- If y1 Is Nothing Then
- y1 = ""
- End If
- Set y2 = Cells.Find(What:="¥h²B", After:=ActiveCell)
- If y2 Is Nothing Then
- y2 = ""
- End If
- Set y3 = Cells.Find(What:="ª÷µo", After:=ActiveCell)
- If y3 Is Nothing Then
- y3 = ""
- End If
- Set y4 = Cells.Find(What:="«p", After:=ActiveCell)
- If y4 Is Nothing Then
- y4 = ""
- End If
- If Cells(x, 1) = y1 And Cells(x, 3) = y2 And Cells(x, 4) = "Âì" And Cells(x, 6) = "§_" Then
- Cells(x, 7) = 11 * Cells(x, 5)
- ElseIf Cells(x, 1) = y1 And Cells(x, 3) = y4 And Cells(x, 4) = "Âì" And Cells(x, 6) = "§_" Then
- Cells(x, 7) = 2 * Cells(x, 5)
- ElseIf Cells(x, 1) = y1 And Cells(x, 4) = "Âì" And Cells(x, 6) = "§_" Then
- Cells(x, 7) = 5 * Cells(x, 5)
- ElseIf Cells(x, 1) = y1 And Cells(x, 4) = "»Ì" And Cells(x, 6) = "§_" Then
- Cells(x, 7) = 45 * Cells(x, 5)
- ElseIf Cells(x, 1) = y1 And Cells(x, 4) = "«C»É" And Cells(x, 6) = "§_" Then
- Cells(x, 7) = 12 * Cells(x, 5)
- ElseIf Cells(x, 1) = y1 And Cells(x, 4) = "Âì" And Cells(x, 5) <= 20 And Cells(x, 6) = "§_" Then
- Cells(x, 7) = "·r°u"
- ElseIf Cells(x, 1) = y1 And Cells(x, 6) = "§_" And Cells(x, 4) = "¨ä¥¦" Then
- Cells(x, 7) = "¥t¥~ºâ"
-
-
- ElseIf Cells(x, 1) = y3 And Cells(x, 3) = Cells.Find(What:="(3mm)", After:=ActiveCell) And Cells(x, 4) = "Âì" And Cells(x, 6) = "§_" Then
- Cells(x, 7) = "¤p¤ä"
- ElseIf Cells(x, 1) = y3 And Cells(x, 4) = "Âì" And Cells(x, 6) = "§_" Then
- Cells(x, 7) = 10 * Cells(x, 5)
- ElseIf Cells(x, 1) = y3 And Cells(x, 4) = "»Ì" And Cells(x, 6) = "§_" Then
- Cells(x, 7) = 2 * Cells(x, 5)
- ElseIf Cells(x, 1) = y3 And Cells(x, 4) = "Âì" And Cells(x, 5) <= 20 And Cells(x, 6) = "§_" Then
- Cells(x, 7) = 40
- ElseIf Cells(x, 1) = y3 And Cells(x, 6) = "§_" And Cells(x, 4) = "¨ä¥¦" Then
- Cells(x, 7) = "¥t¥~ºâ"
-
- Else
-
- Cells(x, 7) = 0
-
-
- End If
-
-
-
- x = x + 1
- Loop
-
- End Sub
½Æ»s¥N½X |
|