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

¤pµØ

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)??

¤pµØ

¦^´_ 3# GBKEE


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

¤pµØ

¦^´_ 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

¤pµØ

¦^´_ 6# mark15jill


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

¤pµØ

¦^´_ 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........