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

[µo°Ý] ½Ð±ÐÃö©ó¦P®É¥X²{¦¸¼Æ¤§²Î­p

[µo°Ý] ½Ð±ÐÃö©ó¦P®É¥X²{¦¸¼Æ¤§²Î­p

¥»©«³Ì«á¥Ñ °¶ÔÐ ©ó 2010-6-28 22:35 ½s¿è

§Ú¦³¤@°ï¸ê®Æ,¨Cµ§¸ê®Æ¤¤¦³¼Æ­Ó³æ¦r,¥H¤À¸¹°Ï¹j
§Ú²{¦b·Q­n¥h²Î­p,¨â¨â³æ¦r¥X²{ªº¦¸¼Æ,°µ¦¨¤@­Ó¯x°}
¨Ò¦p:
NO        ³æ¦r
1        Welding; Abb; Robots;
2        Robots; Cutting Waterjet; Automotive Industry;
3        Robots; Control;Manipulators
4        Robots; Control; Aerospace;
5        Robots; Control; Actuators;
6        Robots; Control;
«h Abb»PRobots¡BWelding»PAbb¡BWelding»PRobots...µ¥¦U1¦¸;¦ÓRobots»PControl¦³4¦¸...(¤£ºÞ³æ¦r¤§¶¶§Ç)
¤£ª¾­n«ç»ò³B²z¸û¨Î,·Ð¦³¸gÅ窺ºô¤Í¥i¥H´£¨Ñ°Ñ¦Ò,ÁÂÁÂ!

990628.rar (4.76 KB)

°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

¦^´_ 1# °¶ÔÐ


    ¬O³o¼Ëªº·N«ä¶Ü? 990628.rar (12.71 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

ÁÂÁÂHsiehª©¥D
¬O§Ú­nªº¨S¿ù,¤£¹L½Ð±Ð¤@¤U,¨ç¼ÆFIND($A2,x)¤¤ªºx«ç»ò³]©wªº,¥i§_¦A»¡©ú,ÁÂÁÂ!
  1. SUMPRODUCT(ISNUMBER(FIND($A2,x))*ISNUMBER(FIND(B$1,x)))
½Æ»s¥N½X
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

¦^´_ 3# °¶ÔÐ


    x¬O°ÊºA½d³ò©w¸q¦WºÙ
¦]¬°¦r¦ê¸ê®Æ¬O¤£Â_¼W¥[
©w¸q¤½¦¡
=OFFSET(³æ¦r!$B$2,,,COUNTA(³æ¦r!$B:$B)-1,)
¥HB2¬°°ò·ÇÂI,¦V¤UÂX¥RBÄæ¸ê®Æ¼Æ¶qªº¦C¼Æ§@¬°½d³ò
¦]¬°¦³¼ÐÃD¦C©Ò¥HCOUNTA(³æ¦r!$B:$B)-1
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦A½Ð±Ð¦U¦ì,¦b§¹¦¨¯x°}«á,­Y¶È·Q«O¯d¤@¥b
1)«O¯d§t¹ï¨¤½u¤§¥k¤W¨¤¸ê®Æ
2)«O¯d¤£§t¹ï¨¤½u¤W¥k¤W¨¤¸ê®Æ
¦³¸û§Ö³tªº§R°£¤èªk¶Ü?
ÁÂÁÂ
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

  1. Sub ¤£§t¹ï¨¤½u()
  2. Dim Rng As Range
  3. r = [A65536].End(xlUp).Row
  4. For i = 2 To r
  5.     For j = i + 1 To r
  6.        If Rng Is Nothing Then
  7.        Set Rng = Cells(i, j)
  8.        Else
  9.        Set Rng = Union(Rng, Cells(i, j))
  10.        End If
  11.     Next
  12. Next
  13. Rng.Select
  14.      
  15. End Sub
  16. Sub §t¹ï¨¤½u()
  17. Dim Rng As Range
  18. r = [A65536].End(xlUp).Row
  19. For i = 2 To r
  20.     For j = i To r
  21.        If Rng Is Nothing Then
  22.        Set Rng = Cells(i, j)
  23.        Else
  24.        Set Rng = Union(Rng, Cells(i, j))
  25.        End If
  26.     Next
  27. Next
  28. Rng.Select
  29.      
  30. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh

ÁÂÁÂ[Hsieh]ª©¥D
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

¦A½Ð±Ð[Hsieh]ª©¥D
­Y¥u­n¿ï¨ú"¹ï¨¤½u"¥»¨­
­n¦p¦ó­×§ï?
ÁÂÁÂ!
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

¦^´_ 8# °¶ÔÐ
  1. Sub ¹ï¨¤½u()
  2. Dim Rng As Range
  3. r = [A65536].End(xlUp).Row
  4. For i = 2 To r
  5.        If Rng Is Nothing Then
  6.        Set Rng = Cells(i, i)
  7.        Else
  8.        Set Rng = Union(Rng, Cells(i, i))
  9.        End If
  10. Next
  11. Rng.Select
  12.      
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 9# Hsieh

¦A¦¸ÁÂÁÂ[Hsieh]ª©¥D
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD