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

[µo°Ý] ¨â­Óexcel¥H¤W¡A¬d¸ß¤èªk

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-10-19 17:11 ½s¿è

¦^´_ 10# swtseng

¤ñ¸û²²¤ªº¤èªk..
²³æ§PÂ_

    Windows("¤A.xlsm").Activate
    daa = [d2]

    ChDir "C:\Users\user\Desktop\swtseng"
    Workbooks.Open Filename:="C:\Users\user\Desktop\swtseng\¥Ò.xlsx"
        For paa = 1 To ActiveSheet.Range("a2").CurrentRegion.Rows.Count
            If Cells(paa, 1) = daa Then
                spad = Cells(paa, 1)
                spbd = Cells(paa, 2)
                spcd = Cells(paa, 3)
                spdd = Cells(paa, 4)
                sped = Cells(paa, 5)
                spfd = Cells(paa, 6)

                Windows("¤A.xlsm").Activate
                [e2] = spbd
                [f2] = spcd
                [g2] = spdd
                [h2] = sped
                [i2] = spfd
               
               
                Windows("¥Ò.xlsx").Activate
            End If
        Next
    ActiveWorkbook.Save
    ActiveWindow.Close

  ¦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

¤W¤å ¤]¥i§ï¼g¦¨¦hµ§¸ê®Æ¤ñ¹ï¡A¬Æ¦Ü¥i¤£¥Î¯S©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

¦^´_ 7# Hsieh


    ª©¤j:
¸Õ¹L¤F,¯uªº¦n¥Î¡A¦ý¬O¦pªG¬O10¦ì¤¸¥u¨ú¨ä¤¤5¦ì¤¸ªñ¦ü¸ê®Æªº¸Ü¡A¨º­n«ç»ò°µ.....¥Î¬P¸¹µLªk´À¥N.....ÁÂÁ¤F.

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD