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

Excel ¨Ì±ø¥ó±a¥X¹ïÀ³¹Ï¤ù

Excel ¨Ì±ø¥ó±a¥X¹ïÀ³¹Ï¤ù

Dear All,
§Ú¦bºô¸ô¤W¦³¬Ý¨ì¨Ì±ø¥ó±a¥X¹ïÀ³°êºX(¤½¦¡¨Ï¥Î-->OFFSET,MATCH)¡A¦ý§Ú·Q­n¦bB3~B8¤]¦P¼Ë¥i¥H¦Û°Ê±a¥X°êºX
¦ý¤@ª½¸Õ¤£¥X¨Ó¡A¬O§_¦³¨ä¥L¤è¦¡©O¡H



°Ê§@GIF
123.gif

TEST.rar (22.07 KB)
Just do it.

¦^´_ 1# jsc0518


    ½Ð°Ñ¦Ò³o­Ó¬Ý¬Ý¡C



ÀɮפU¸ü¡G TEST v.01.rar (22.32 KB)

TOP

¦^´_ 2# jeffrey628litw

OK¡A§Úª¾¹D§Aªº¤èªk¤F¡C
¦ý­Y¬O§Ú¦bBÄæ¦ì¦³B2~B100ªº¸Ü¡A¨º©w¸q¦WºÙ¨ºÃ䤣´N­n³]©w99­Ó
¬O§_¥i¥H¥u»Ý©w¸q¤@­Ó¦WºÙ¡A¦bB2~B100´N¥i¥H±a¥X°êºX©O¡H
Thanks¡I
Just do it.

TOP

¦^´_ 3# jsc0518


    ¦pªG B2~B100 ¹Ï¤ù¬O­n¦P¨B(°²³]¬O¦P¤@­Ó ¤¤µØ¥Á°ê)¡A«h¹Ï¤ù¥u­n©w¸q¤@­Ó°²³]µ¹¹Ï¤ù©w¸qA¡A¨ä¥L99­Ó¹Ï¤ù´N½Æ»s100­Ó¡A

    Ctrl + F3 ¸Ì­±ªº¤½¦¡´N¥u­n¤@­Ó´N¦n¡C

  ¦pªG100¹Ï¤ù­n¦U§OÅܤƴN­n©w¸q100±i¹Ï¤ù(¨Ò¦p¹Ï¤ù1=A¡A¹Ï¤ù2=B ......¨Ì¦¹Ãþ±À)¡ACtrl + F3 ¸Ì­±ªº¤½¦¡´N­n100­Ó¡C

TOP

¦^´_ 3# jsc0518


      ½Ð°Ñ¦Ò§Ú¦b³oµoªº³o¤@©«¡A¸Ì­±¦³½d¨Ò¡Ghttp://forum.twbts.com/thread-5040-1-1.html

TOP

¦^´_ 5# jeffrey628litw
«õÁÉ¡A±z³o¤Ó±M·~¤F¡C¼F®`¼F®`¡I
Just do it.

TOP

§Q¥ÎChange§ïÅܹϤù:
Xl0000450.rar (21.52 KB)

TOP

¦^´_ 7# ­ã´£³¡ªL
Dear ­ã´£³¡ªL,
±z¯uªº¤Ó¼F®`¤F¡AÁÂÁ±zÅo¡I
Just do it.

TOP

¦^´_ 7# ­ã´£³¡ªL
¥i¥H°Ý¤@¤U¶Ü
¦pªG¦bEÄæ¦ì¡]¦WºÙ¡^FÄæ¦ì¡]·Ó¤ù¡^¤]¦³©O
¥¨¶°¦p¦ó­×§ï
¤~¯à¸òBCÄæ¤@¼Ë©O

TOP

¦^´_ 9# ÅQ®ð¨«¥þ¨­


Private Sub Worksheet_Change(ByVal Target As Range)
Dim SCunt&, xF As Range
With Target
     If .Row = 1 Or .Count > 1 Then Exit Sub
     If .Column = 2 Or .Column = 5 Then  'BÄæ/EÄæ
        On Error Resume Next
        Me.Shapes("_" & .Address(0, 0)).Delete
        On Error GoTo 0
        If .Value = "" Then Exit Sub
        SCunt = Me.Shapes.Count
        Set xF = [¹ï·Ó!B:B].Find(.Value, Lookat:=xlWhole)
        If xF Is Nothing Then Exit Sub
        xF(1, 2).Copy .Cells(1, 2)
        If SCunt = Me.Shapes.Count Then Exit Sub
        Me.Shapes(SCunt + 1).Name = "_" & .Address(0, 0)
     End If
End With
End Sub

'=============================

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD