[¤w¸Ñ¨M]¼Æ¦r»P°Ï¶¡ªº¤ñ¸û

jiuhtsair

¦U¦ì¤j¤j¦n¡G ¼Æ¦r»P°Ï¶ô¤ñ¸û.zip (1.44 KB)

¤U¸ü¦¸¼Æ: 13

2012-2-7 21:48

    ¤p§Ì·Q­n±N¤@­ÓÀH·N¿é¤Jªº¼Æ¦r¡A§PÂ_¥L¦b¦óªÌ°Ï¶¡¡A°£¤F§Q¥Î­Ç­Ç¤ñ¸û¤§¥~¡A¬O§_¦³§ó¦nªº¤è¦¡?ÁÂÁ¡I
    ¨Ò¦p¡G¦ba2Ä榳¤@­Ó¼Æ¦r23...§Ú·Q§PÂ_¥L¬O¦bcÄæ10,20,30,40,50,60,70,80,90.100³o¨Ç¼Æ¦rªº­þ¨â­Ó¤§¶¡¡C
    ª½±µ§PÂ_·íµMª¾¹D¬O¦b20»P30¤§¶¡¡A¦ý¬O¡A¦p¦ó§Q¥Îvba¼g«ü¥O©Îµ{¦¡¨Ó§PÂ_©O?
      Àµ½Ð¤j¤j«ü¾É¡AÁÂÁ¡I

Hsieh

¦^´_ 1# jiuhtsair

If [A2] >= 10 And [A2] <= 100 Then
a = Application.Lookup([A2], [C2:C11])
b = Application.Lookup([A2], [C2:C11], [C3:C12])
MsgBox [A2] & "¤¶©ó" & a & "»P" & b & "¤§¶¡"
End If

jiuhtsair

¦^´_ 2# Hsieh
·PÁ¤j¤j«ü¾É...¤@¸ÕOK¡I
µ{¦¡Â²¼ä¡A¤p§Ì­ì¥ý·Q¥Î¨â¨â¤ñ¸û..¤uµ{¯E¤j¥BµL®Ä²v..
·PÁ¸Ѵb¡IÁÂÁ¡I

GBKEE

¦^´_ 1# jiuhtsair
§¹¥þ§PÂ_
   

1. Sub Ex()
   
2.     Dim A, Rng As Range, S As String
   
3.     Set Rng = [C2:C11]
   
4.     A = Application.Match([A2], Rng, 1)
   
5.     If IsError(A) Then
   
6.          S = [A2] & " :  <= " & Rng(1)
   
7.     ElseIf A = 1 Then
   
8.         S = [A2] & " :  <= " & Rng(1)
   
9.     ElseIf A = Rng.Count Then
   
10.         S = [A2] & " : >=" & Rng(A)
    
11.     Else
    
12.         If [A2] = Rng(A) Then
    
13.             S = [A2] & " : " & Rng(A - 1) & "  <->  " & Rng(A)
    
14.         Else
    
15.             S = [A2] & " : " & Rng(A) & "  <->  " & Rng(A + 1)
    
16.         End If
    
17.     End If
    
18.     MsgBox S
    
19. End Sub

½Æ»s¥N½X

PJChen

¦^´_ 2# Hsieh

ª©¤j±z¦n,
§Ú±N±z¼gªºµ{¦¡©ñ¦bexcel¤¤,¦ý«o¤£ª¾¦p¦óÅý¥¦°õ¦æ,§Ú±NÀɮפW¶Ç,½Ð§A«ü¾É!
¼Æ¦r»P°Ï¶ô¤ñ¸û.zip (9.23 KB)

¤U¸ü¦¸¼Æ: 9

2012-2-8 11:46

GBKEE

¦^´_ 5# PJChen

1. Sub judge()
   
2. If [A2] >= 10 And [A2] <= 100 Then
   
3. a = Application.Lookup([A2], [C2:C11])
   
4. b = Application.Lookup([A2], [C2:C11], [C3:C12])
   
5. MsgBox [A2] & "¤¶©ó" & a & "»P" & b & "¤§¶¡"
   
6. End If
   
7. End Sub

½Æ»s¥N½X

PJChen

¦^´_ 6# GBKEE

¥i¥H¹B§@¤F,ÁÂÁ«ü¥¿.

jiuhtsair

¦^´_ 4# GBKEE
ÁÂÁÂGBKEE¤j¤j´£¨Ñ¤£¦P¸ÑÃD¤è¦¡¡AÅý¤p§Ì¹ï«ü¥Oªº¹B¥Î¦³§ó¦hªº¤F¸Ñ¡C
·P®¦¡IÁÂÁ¡I