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

[µo°Ý] ¬Ý¤£À´³o­Óµ{¦¡ªº°j°é

[µo°Ý] ¬Ý¤£À´³o­Óµ{¦¡ªº°j°é

Private Sub CommandButton1_Click()
Set X = Sheets("Core KPIs")
Set Y = Sheets("KPI_to_China")
K1 = 3
K2 = 39
    For I = K1 To K2   
        Flag = Y.Cells(I, 1)  'sheets("KPI to_China").Cells(3,1) ??
        If Flag <> "" Then
               Y.Cells(I, 2) = X.Cells(Flag, 4) ' ³o¤T¥y¬Ý¤£À´¬Æ»ò·N«ä
               Y.Cells(I, 3) = X.Cells(Flag, 7)
               Y.Cells(I, 4) = X.Cells(Flag, 9)
               
               Select Case Y.Cells(I, 4)
                      Case "%"
                            Y.Cells(I, 5) = Format(X.Cells(Flag, 10), "00.00%")
                            Y.Cells(I, 6) = Format(X.Cells(Flag, 12), "00.00%")
                            Y.Cells(I, 7) = Format(X.Cells(Flag, 13), "00.00%")
                            Y.Cells(I, 20) = Format(X.Cells(Flag, 14), "00.00%")
                      Case "Abslute (#)"
                            Y.Cells(I, 5) = Format(X.Cells(Flag, 10), "00")
                            Y.Cells(I, 6) = Format(X.Cells(Flag, 12), "00")
                            Y.Cells(I, 7) = Format(X.Cells(Flag, 13), "00")
                            Y.Cells(I, 20) = Format(X.Cells(Flag, 14), "00")
                      Case Else
                            Y.Cells(I, 5) = Format(X.Cells(Flag, 10), "0.000")
                            Y.Cells(I, 6) = Format(X.Cells(Flag, 12), "0.000")
                            Y.Cells(I, 7) = Format(X.Cells(Flag, 13), "0.000")
                            Y.Cells(I, 20) = Format(X.Cells(Flag, 14), "0.000")
               End Select

¥t¥~½Ð°ÝÀɮ׶}±Ò¤§«á¡A«ö¶s¤£¯à«ö(CommandButton)??

Private Sub CommandButton1_Click()
Set X = Sheets("Core KPIs")
Set Y = Sheets("KPI_to_China")
K1  ...
¤pµØ µoªí©ó 2013-1-8 22:06



    Set X = Sheets("Core KPIs")
Set Y = Sheets("KPI_to_China")

        Flag = Y.Cells(I, 1)  'sheets("KPI to_China").Cells(3,1) ??

                Y.Cells(I, 2) = X.Cells(Flag, 4) ' ³o¤T¥y¬Ý¤£À´¬Æ»ò·N«ä
                Y.Cells(I, 3) = X.Cells(Flag, 7)
                Y.Cells(I, 4) = X.Cells(Flag, 9)


'ÁÙ­ì¦^­ì©l
                FOR i = 3 to 39
                        Sheets("KPI_to_China").Cells(I, 2) = Sheets("Core KPIs").Cells(Y.Cells(I, 1), 4)
                        Sheets("KPI_to_China").Cells(I, 3) = Sheets("Core KPIs").Cells(Y.Cells(I, 1), 7)
                        Sheets("KPI_to_China").Cells(I, 4) = Sheets("Core KPIs").Cells(Y.Cells(I, 1), 9)

                        'Sheets("KPI_to_China").Cells(I, 2) ==> Sheets("KPI_to_China").range("b"&i).value

  ¦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

¦^´_ 1# ¤pµØ
¬O Cells ÄÝ©Ê ¬Ý¤£À´? ¥i¹î¬ÝVBA ªº»¡©ú.

TOP

¦^´_ 3# GBKEE


    CELLS Äݩʤj­P¤F¸Ñ¡A¥u¬O¬Ý¤£À´°j°é¤º©Ò¥Nªíªº·N«ä

TOP

¦^´_ 2# mark15jill


                        Sheets("KPI_to_China").Cells(I, 2) = Sheets("Core KPIs").Cells(Y.Cells(I, 1), 4)  ½Ð°Ý4.7.9  ¬O¥Nªí¬Æ»ò·N«ä???
                        Sheets("KPI_to_China").Cells(I, 3) = Sheets("Core KPIs").Cells(Y.Cells(I, 1), 7)
                        Sheets("KPI_to_China").Cells(I, 4) = Sheets("Core KPIs").Cells(Y.Cells(I, 1), 9)

                        'Sheets("KPI_to_China").Cells(I, 2) ==> Sheets("KPI_to_China").range("b"&i).value   ³o¥y¬Oªí¥ÜSheets("KPI_to_China").range("b"&i).value ªº­È  ½Æ»s¨ì'Sheets("KPI_to_China").Cells(I, 2)ªº¦ì¸m?

ÁÂÁ°ª¤âªº«ü¾É¡A¤w¤j­P©ú¥Õµ{¦¡©Ò¼gªº·N«ä  ÁÙ¦³¤Ö³¡¤À¤£¬O«ÜÀ´¡C

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2013-1-9 17:28 ½s¿è

¦^´_ 5# ¤pµØ


4 7 9  = Äæ¼Æ (Á|¨Ò  A=1 , B=2 ,C=3  ¥H¦¹Ãþ±À
4=DÄæ
7=GÄæ
9=IÄæ

'Sheets("KPI_to_China").Cells(I, 2) ==> Sheets("KPI_to_China").range("b"&i).value
³o¦æªº·N«ä ¬O  Sheets("KPI_to_China").Cells(I, 2) µ¥©ó Sheets("KPI_to_China").range("b"&i).value

cells(I,2) ¥i¥Hµø¬° range("b" & i).value

  ¦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

¦^´_ 6# mark15jill


    ÁÂÁ°ª¤â«ü¾É¡A²Ä¤@¦¸¬Ý¨ì³oºØ¼gªk¡C µ{¦¡¤Ó½ÆÂø ¬Ý¨ì²´ªáªá¤F.......

TOP

¦^´_ 7# ¤pµØ


    ³o­Ó¥u¬O§âµ{¦¡½X¥Î¨ä¥L¦r²´¨ú¥N ¸`¬Ùµ{¦¡½Xªºªø«×...

  ¦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

¦^´_ 8# mark15jill

´N¬O¦]¬°Â²¤Æ¤Fµ{¦¡½Xªºªø«×¡A©Ò¥H¬Ý¤£À´µ{¦¡©Ò¥Nªíªº·N«ä

§ÚÁÙ¬O­Ó­è¾Ç²ßªº·s¤â¡A¥u¬Ý±oÀ´Â²³æªºµ{¦¡½X¡C

ÁÂÁ°ª¤â À°§Ú¸Ñ¶}¤@¨Ç¤£À´ªº¦a¤è¡A²{¦b§Ú¦bµÛ¤â¤F¸Ñ³o­Óµ{¦¡¾ã­Óªº·N«ä¡A¦n¶i¦æºûÅ@­×§ï........

¹ï©ó°j°éÁÙ¤£¬O«ÜÀ´¡A©Ò¥H¦³®É­Ô·Q¨ìÀY«Üµh........

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2013-1-10 08:15 ½s¿è

¦^´_ 9# ¤pµØ


    °¸¤£¬O°ª¤â... °¸¥u¬O¼ç¤ô¸¥    ;P
³oºô§}¥i°Ñ¦Ò¬Ý¬Ý

(VBAªº¨Ï¥Î)
http://civil.njtc.edu.tw/weng/excel/lectureNote/1.6.htm
¤ñ¸û¾A¦X­è±µÄ²ªº

¥[ªo§a

§Ú¤]­è±µÄ²¨S¦h¤[= =""(¤£ª¾¹Dµ¥µ¥·|¤£·|³Q¥´..
¹³§Ú¦³®É­Ô¡A¦pªG¯uªº¤£ª¾¹D«ç¿@ÁYµ{¦¡
§Ú·|
1.¶]¤W½×¾Â°Ý
2.«ô¨£»Å­ô¤j¯«
3.±Nµ{¦¡½X¤@¬q¬q®i¶} ¦A§ä¬Û¦P¦a¤è(©Î¦³¨Ì§Ç) ¦b¸ÕÅç¿@ÁY¡A©Ò¥H¦³®É­Ô §Úªºµ{¦¡¤@¶}©l·|¶W¹L´X¦Ê¦æ¡Aµ²§ô®É¡A³Ñ¤£¨ì´X¤Q¦æ..     ;P




±Ð§A­Ó³Z¬
§Q¥Î¼Æ¾Çªº¥N¼Æ¤è¦¡
§â¬Û¦Pªº¥N¤J ³o¼Ë§A·|¤ñ¸û¦nÀ´

  ¦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

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD