¿é¤J½d³ò§PÂ_Àx¦s®æ

yueh0720

³æ¤@Àx¦s®æ§PÂ_¬O¥i¥H,¦ý¬O­Y§Ú­n½d³ò¦¡¥i§_??

¤U¸ü (30.15 KB)

2011-6-3 17:28

ginbow

¥Î select case  ¥H¤U¬°½d¨Òµ{¦¡½X

Sub g1()
Dim i As Integer
Dim c As Integer

i = Worksheets("sheet1").Cells(65536, 1).End(xlUp).Row

For x = 1 To i

c = Cells(x, 1)

Select Case c

Case Is < 11

Cells(x, 2) = "A"

Case Is < 21

Cells(x, 2) = "B"

Case Is < 31

Cells(x, 2) = "C"

Case Is < 41

Cells(x, 2) = "D"

End Select

Next x

End Sub

yueh0720

¼Æ­ÈÅܧó«á,³£¨S¥bªk§PÂ_

Sub g1()
Dim i As Double
Dim c As Double

i = Worksheets("sheet1").Cells(65536, 2).End(xlUp).Row

For x = 2 To i

c = Cells(x, 1)

Select Case c

Case Is < 10000

Cells(x, 3) = "A"

Case Is < 12000

Cells(x, 3) = "B"

Case Is < 15000

Cells(x, 3) = "C"

Case Is < 17000

Cells(x, 3) = "D"

End Select

Next x

End Sub

yueh0720

¤w¥i¥H¥Î¤F,·P®¦

hugh0620

¼Ó¥D­nªº¥u¬O§â°Ï¶¡ªº­È±a¥X
         ´£¨Ñ¤TºØ¤è¦¡°Ñ¦Ò,§Æ±æ¥i¥H¸Ñ¨M¼Ó¥Dªº°ÝÃD
         ¨ç¼Æ=LOOKUP(E4,$B$4:$B$7,$A$4:$A$7)
         «ö¶s¦¡ :¦Û¦æ³]©w¤@­Ó«ö¶s,±Nµ{¦¡½X¶K¤W,­YSHEET¤£¤@¼Ë½Ð¦Û¦æ­×§ï
                        Private Sub CommandButton1_Click()
                                Do Until Sheet1.Range("E" & 4 + I) = ""
                                          Sheet1.Range("F" & 4 + I) = Application.Lookup(Sheet1.Range("E" & 4 + I), Sheet1.Range("B4:B7"), Sheet1.Range("A4:A7"))
                                         I = I + 1
                              Loop
                        End Sub
           ¦Û°Ê±a¥X:¿é¤J­È«á,¦Û¦æ§PÂ_,­YSHEET¤£¤@¼Ë½Ð¦Û¦æ­×§ï
           Private Sub Worksheet_Change(ByVal Target As Range)
                          If Target.Count >= 2 Then Exit Sub
                         If Target.Column <> 5 Or Target.Offset(0, 0) = "" Then Exit Sub
                                Target.Offset(0, 1) = Application.Lookup(Target.Offset(0, 0), Sheet3.Range("B4:B7"), Sheet3.Range("A4:A7"))
           End Sub