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

¦p¦ó¦bsheet1¿é¤J¸ê®Æ«ü©w¨ìsheet2©Îsheet3

«ö¶s°ÝÃD



½Ð°Ý§Ú¸Ó¦p¦ó³]©w¡u«ö¤U«ö¶s¡v
ª÷ÃB2000¤¸´N·|¦Û°Ê¶]¨ìB9Àx¦s®æ¡H

TOP

¥»©«³Ì«á¥Ñ flutist ©ó 2012-11-20 15:47 ½s¿è

¹Ï¤ù¤¤ºñ¦â³¡¥÷¬O§Ú­n¿é¤Jªº¦a¤è
¦Ó·í§Ú¿é¤J2¤ë©MÂ×·½©M3000
«hª÷ÃB3000·|¦Û°Ê¶]¨ìC10Àx¦s®æ¡A¦ýB9ªº2000¤´µM­n¦b®@

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-11-20 16:53 ½s¿è

¦^´_ 2# flutist
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim ¤ë¥÷ As Range, ¼t°Ó As Range
  4.     With [A8]
  5.         Set ¤ë¥÷ = Range(.Cells, .Cells.End(xlToRight)).Find([A2], LookAT:=xlWhole)
  6.         Set ¼t°Ó = Range(.Cells, .Cells.End(xlDown)).Find([B2])
  7.         Cells(¼t°Ó.Row, ¤ë¥÷.Column) = [C2]
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP



½Ð°Ý¥¦¥X²{³o­Ó¦r¼Ë¡A§ÚÀ³¸Ó¶K³o¸Ì¹ï¶Ü¡H

TOP

¦^´_ 4# flutist
¥i¯à¬O¶K¤W®É¨S¶K¨ì¡C
  1. Option Explicit
½Æ»s¥N½X

TOP

¦^´_ 4# flutist


Option Explicit
©ñ¦b³Ì¤W­±

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 4# flutist
¤£¦n·N«ä,¦p 5# c_c_lai »¡ªº§Ú¤Ö¶K¤@­Ó O,Ãö©óµ{¦¡½X§A©|»Ý¦h½m²ßµ{¦¡¬O¦p¦ó¼gªº
¥H¤Uµ{¦¡½X¦P2#ªºµ{¦¡½X
  1. Option Explicit '¦b¼Ò²Õ¼h¦¸¤¤±j­¢¨C­Ó¦b¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½Tªº«Å§i¡C
  2. 'Option Explicit ½Ðª`·N Option Explicit ³¯­z¦¡¥²¥X²{¦b¼Ò²ÕùØ¡A¥B¦b¥ô¦óµ{§Ç¤§«e
  3. 'µ{§Ç¤¤¶¡¤£¥i¦A«Å§i¨ä¥LªºSubµ{§Ç
  4. Sub «ö¶s_Click()  '«Å§iSub µ{§Ç¦WºÙ¬°"«ö¶s_Click"
  5. 'Sub Ex()   '«Å§iSub µ{§Ç¦WºÙ¬°"Ex"
  6. 'End Sub    'End ³¯­z¦¡ µ²§ô¤@­Óµ{§Ç©Î°Ï¶ô
  7.     Dim ¤ë¥÷ As Range, ¼t°Ó As Range
  8.     With [A8]
  9.         Set ¤ë¥÷ = Range(.Cells, .Cells.End(xlToRight)).Find([A2], LookAT:=xlWhole)
  10.         Set ¼t°Ó = Range(.Cells, .Cells.End(xlDown)).Find([B2])
  11.         Cells(¼t°Ó.Row, ¤ë¥÷.Column) = [C2]
  12.     End With
  13. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ¸ѵª¡A§Úªº°ÝÃD¸Ñ¨M¤F

¦ýÁÙ¦³¥t¥~¤@­Ó°ÝÃD

°²³]§Úªº³øªí¦p¹ÏA8~D11¬O¤À§G¦b3­ÓSheet

§Ú­n¦p¦ó°µ­×§ï¡A­è­è·Q¤F¦n¤[³£¨S·Q¥X¨Ó

TOP

¦p¦ó¦bsheet1¿é¤J¸ê®Æ«ü©w¨ìsheet2©Îsheet3

1.JPG





½Ð°Ý
§Ú¦bsheet1(¹Ï¤@)ºñ¦â¦a¤è¿é¤J¤ë¥÷¡B¼t°Ó¦WºÙ¡Bª÷ÃB
«ö¤U«ö¶s¤§«á
ª÷ÃB·|¶]¨ìsheet2(¹Ï¤G)©Msheet3(¹Ï¤T)²Å¦X¬Û¦P¼t°Óªº¦W¦rªºÀx¦s®æ¤º

³o¼Ë³]­p·|¥X²{¨S¦³³]©wª«¥óÅܼơA»Ý­×§ï­þ¸Ì¡H

Sub «ö¶s1_Click()
    Dim ¤ë¥÷As Range,¼t°ÓAs Range
    With Sheets("Sheet2").Range("A8")
        Set ¤ë¥÷ = Sheets("Sheet2").Range(.Cells, .Cells.End(xlToRight)).Find([A2], LookAT:=xlWhole)
        Set ¼t°Ó = Sheets("Sheet2").Range(.Cells, .Cells.End(xlDown)).Find([B2])
        Sheets("Sheet2").Cells(¼t°Ó.Row,¤ë¥÷.Column) = Sheets("Sheet1").Range("C2")
    End With
   
    With Sheets("Sheet3").Range("A8")
        Set ¤ë¥÷ = Sheets("Sheet3").Range(.Cells, .Cells.End(xlToRight)).Find([A2], LookAT:=xlWhole)
        Set ¼t°Ó = Sheets("Sheet3").Range(.Cells, .Cells.End(xlDown)).Find([B2])
        Sheets("Sheet3").Cells(¼t°Ó.Row, ¤ë¥÷.Column) = Sheets("Sheet1").Range("C2")
    End With
End Sub

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD