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

[µo°Ý] 3¬q¦¡½ü¯Zªk

[µo°Ý] 3¬q¦¡½ü¯Zªk

123.rar (7.22 KB) ½Ð±Ð¦U¦ì¥ý¶i¡A¦³¤@½ü­Èªí¤À¬°3ºØ½ü­È¤è¦¡¡A½ü­È¤H­û¬°B90-E128½d³ò¡A¨Ã¨Ì¥­¤é¤W¯Z®É¬q¤À¬°2¯Z¡A¥­¤é¤U¯Z®É¬q1¯Z¡A¥H¤Î¨Ò°²¤é2¯Z¡A3ºØ¯Zªí¦U¦Û½ü¬yªA¶Ô¡A°²³]7¤ë1¤é(¬P´Á¤é)¥ÑA8¶}©l½ü­È¡A7¤ë2¤é¤W¯Z¤é²Ä1¯Z¥ÑS1¶}©l½ü­È¡A7¤ë2¤é¥­±`¤é¤U¯Z®É¬q¥ÑA1¶}©l½ü­È¡A½Ð°Ý¬O§_¥i¥ÎVBA¨ú±o¨C¤ë¤§½ü­Èªí©O¡H³Â·Ð¦U¦ì¥ý¶i¤F¡C

¦^´_ 1# h60327
¸Õ¸Õ¬Ý

½ü­Èªí.rar (12.5 KB)

TOP

¦^´_ 2# GBKEE
±Æ¯Z R, Range(R)
½Ð±Ð±z²Ä¤G­Ó¤Þ¤J°Ñ¼Æ¡A¬°¦ó¨Ï¥Î Range(R)¡A¨ä¥Î·N¦ó¦b¡H

TOP

¤£¬O«Ü¤F¸Ñ¡A¦ý¬O³z¹L©w¸q¦WºÙ¨ú±o¨C¤@­Ó¯Zªíªº½ü§Ç¬O¤@­Ó¦nºc·Q¡A¥u¬O¥Ñ©ó¨C¤@­Ó¤ëªº¬P´Á±Æ§Ç¨Ã¥¼©T©w¡A¥i§_³z¹Lµ{§Ç¦Û°Ê½Õ¾ã½Õ¾ãÅã¥Ü©O¡H¨Ò¦p7¤ë1¤é¬O¬P´Á¤é¡A8¤ë1¤é¬O¬P´Á¤Tµ¥¡A¦A¦¸·PÁÂ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-8-14 10:48 ½s¿è

¦^´_ 3# c_c_lai ]
Range(R)¡A¨ä¥Î·N¦ó¦b¡H  
R="¥­¤é" ->  Range("¥­¤é")     
©w¸q"¥­¤é" ªº½d³ò"A1:C10"  => Range("A1:C10")

¦^´_ 4# h60327
¤T­Ó¯Zªíªº½ü§Ç ³£¦³µù©ú½ü§Ç²Å¸¹
¨C¤ë¨î©w±Æ¯Zªí¥Ü³£¨Ì¨C¬q¯Zªí³Ì«á²Å¸¹¶}©l, À³¸Ó¤£»Ý²z·|¨C¤ëªº¬P´Á±Æ§Ç§a.

·í½ü§Ç¨ì©³®É,·|¦^¨ì²Ä¤@­Ó­û¤u¶}©l½ü§Ç
  1. Private Sub ±Æ¯Z(R As Range, Rng As Range)
  2.     Dim X As Integer, xMatch As Integer, xRng As Range
  3.     X = Application.CountA(Rng)
  4.     If X = Rng.Count Then    '¤w¬O³Ì«á±Æ¯Z­û¤u
  5.         Rng.Clear
  6.         X = 0
  7.     End If
  8.     Rng.Cells(X + 1) = "¡·"
  9.     Set xRng = Rng.Cells(X + 1).Offset(, -1)
  10.     xMatch = Application.Match(xRng.Text, Range("¤H­û¸ê®Æ").Columns(3), 0)
  11.     R.Offset(, 1).Resize(, 3) = Range("¤H­û¸ê®Æ").Rows(xMatch).Value
  12. End Sub
½Æ»s¥N½X

TOP

¦p¦ó§â¥N½X¥´¨ì¡A¸Ì­±?

TOP

¦^´_ 6# keovin790916
¥¨¶°

½ÐALT+F11

´N¥i¥H¿é¤J¤½¦¡¤F
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

«Ü¦n¥Îªºµ{¦¡,
¥u·Q¦A¶i¤@¨B¸Õ°Ý
¦pªG¦b±Æ¥­¤é¯Z®É,±Æ¨ì¯S©w¤H®É,­n©T©w¦b¤U¤È¯Z
³o¤S¸Ó¦pªG­×§ï(²{¹êÁ`¦³¤@¨Ç¯S®í¤H­û)
ÁÂÁÂ!
max

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD