ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

match ·j´M¤£¦P¤u§@ªí¥i¥H«ü©wÅܼƶÜ?

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-9-24 15:37 ½s¿è

¦^´_ 42# EGBT
x As Single (¬O°w¹ï·¸¦ì ­×§ïªº«¬ºA )
Match §ä¤£¨ì¶Ç¦^¿ù»~­È,»Pxªº«¬ºA¤£¹ï,¬Gµ{¦¡¦³«¬ºA¤£²Å¦Xªº»~­È.
©Ò¥H¥²¶·¬O Dim x As Variant

Match¥´ 1 or -1 ³£¤£¦æ...¥´0´N¥i¥H   
À³¸Ó¬O Match¥´ 0 or -1 ³£¤£¦æ...¥´1´N¥i¥H
  1. Match_type    ¬O­Ó¼Æ¦r¡A¨ä­È¦³¤TºØ¥i¯à¡G-1¡B0 ©Î 1¡C¥Î¥H«ü©w Microsoft Excel ¦p¦ó±q lookup_array ¸Ì´M§ä lookup_value¡C
  2. ¦pªG match_type ¬O 1¡A«h MATCH ¨ç¼Æ·|§ä¨ìµ¥©ó©Î¶È¦¸©ó lookup_value ªº­È¡CLookup_array ¥²¶·¥H»¼¼W¦¸§Ç±Æ¦C¡G...-2, -1, 0, 1, 2, ..., A-Z, FALSE, TRUE¡C
  3. ¦pªG match_type ¬O 0¡A«h MATCH ¨ç¼Æ·|§ä²Ä¤@­Ó§¹¥þµ¥©ó lookup_value ªº¤ñ¸û­È¡CLookup_array ¥i¥H¨Ì¥ô·N¦¸§Ç±Æ¦C¡C
  4. ¦pªG match_type ¬O -1¡A«h MATCH ¨ç¼Æ·|§ä¨ìµ¥©ó©Î¤j©ó lookup_value ªº³Ì¤p­È¡CLookup_array ¥²¶·¥H»¼´î¦¸§Ç±Æ§Ç¡GTRUE, FALSE, Z-A, ...2, 1, 0, -1, -2, ...¡A¥H¦¹Ãþ±À¡C
  5. ¦pªG match_type ¤Þ¼Æ³Q¬Ù²¤¡A«h°²³]¨ä­È¬° 1¡C
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 44# EGBT

match_type ¬O 1¡A«h MATCH ¨ç¼Æ·|
§ä¨ìµ¥©ó©Î¶È¦¸©ó lookup_value ªº­È¡CLookup_array ¥²¶·¥H»¼¼W¦¸§Ç±Æ¦C¡G...-2, -1, 0, 1, 2, ..., A-Z, FALSE, TRUE¡C
match_type ¬O -1¡A«h MATCH ¨ç¼Æ·|
§ä¨ìµ¥©ó©Î¤j©ó lookup_value ªº³Ì¤p­È¡CLookup_array ¥²¶·¥H»¼´î¦¸§Ç±Æ§Ç¡GTRUE, FALSE, Z-A, ...2, 1, 0, -1, -2, ...¡A¥H¦¹Ãþ±À¡C
¦pªG match_type ¤Þ¼Æ³Q¬Ù²¤¡A«h°²³]¨ä­È¬° 1
  1. Sub test()
  2.     Dim x As Variant, Mdate As Date
  3.     x = Application.Match(Range("A1"), Range("B:B"), -1)
  4.     If IsNumeric(x) Then
  5.        Mdate = Range("b" & x)
  6.        x = Range("A1") - Mdate
  7.        If x >= 0 And x <= 5 Then MsgBox Mdate
  8.     End If
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 47# EGBT
    Ãö³¬ÀÉ®×(­n¦sÀÉ).¦A¶}±Ò¬Ý¬Ý
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD