vba¦p¦ó¨ú¥N¦r¦ê

jerrystock

½Ð°ÝÄæ¦ìS2¤½¦¡¬°VLOOKUP(AK2,'2641'!$A$2:$F$250,2,0)
¦p¦ó¦bC2Äæ¦ì¿é¤J¼Æ¦r«á¨ú¥NS2Äæ¦ìªº2641¤u§@ªí¦WºÙ C3.C4...¿é¤J¤]·|¨ú¥NS3.S4ªº¤u§@ªí¦WºÙ
ÁÂÁÂ

lpk187

¦^´_ 1# jerrystock

µ¹§A°Ñ¦Ò¡I¡I

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = Cells(Target.Row, "C").Address Then
   
3.         i = Chr(39) ' ¨ú³æ«_¸¹
   
4.         Cells(Target.Row, "S") = "=VLOOKUP(AK" & Target.Row & "," & i & Cells(Target.Row, 3) & i & "!$A$2:$F$250,2,0)"
   
5.     End If
   
6. End Sub

½Æ»s¥N½X

jerrystock

¦^´_ 2# lpk187
ÁÂÁ¤j¤j§Ö³t¦^Âе{¦¡½X°õ¦æµL»~
§Ú¦bS2¤½¦¡§ó§ï¬°=IF(AND(AK2<>"",import!O1>=profitB!AK2),VLOOKUP(AK2,'2641'!$A$2:$F$250,2,0),"") ¦]¬°¨S¼Æ¾ÚÄæ¦ì·|¥X²{#N/A©Ò¥H¥[¤W¥h
¹Á¸Õ¦Û¤v¸Õ¸Õ¬Ýµ²ªG¨S·§©Àªº§Ú´N¥Î³o¼Ë
Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = Cells(Target.Row, "C").Address Then
            i = Chr(39) ' ¨ú³æ«_¸¹
            Cells(Target.Row, "S") = "=IF(AND(AK" & Target.Row & <>""  & "," & "import" & "!O1">=AK"  & Target.Row) & "," & "VLOOKUP(AK" & Target.Row & "," & i & Cells(Target.Row, 3) & i & "!$A$2:$F$250,2,0) & "," "")"
        End If
    End Sub
²´·ú§Öªá±¼¤F  ÁÙ¬O¤£¦æ ½Ð¤j¤j¬O§_¯à¦A¦¸«ü¾É·M§Ì  ÁÂÁÂ

lpk187

¦^´_ 3# jerrystock


  ¤è«K¤W¶Ç§AªºÀɮפW¨Ó¶Ü¡H

lpk187

¦^´_ 3# jerrystock

©Î«h¶K¤W¤U¦C¦¡¤l¬Ý¬Ý
  Cells(Target.Row, "S") = "=IF(AND(AK" & Target.Row & "<>""""," & "import!O1>=AK" & Target.Row & "),VLOOKUP(AK" & Target.Row & "," & i & Cells(Target.Row, 3) & i & "!$A$2:$F$250,2,0),"""")"
¦³¤@¹ïÂù¤Þ¸¹("")¤¤¶¡ªº¤å¼Æ¦r³£µø¬°¦r¦ê¡A©Ò¦³¦³Âù¤Þ¸¹ªº¦a¤è¥²¶·­n¦A¥ÎÂù¤Þ¸¹®Ø¦í¡A¨Ò¦p¤@­ÓÂù¤Þ¸¹¬°(""")¡A2 ­Ó«h¬°("""")¡A¨Ì¦¹Ãþ±À¡A©Ò¥H¥²¶·ª¾¹D§Aªº¦r¦ê¦b­þ¸Ì
³æ¤Þ¸¹(')¦bµ{¦¡¤¤µø¬°µù¸Ñ¡A©Ò¥H¥ÎChr(39)¨Óªí¥Ü¤§

jerrystock

¦^´_ 5# lpk187
ÁÂÁ¤j¤j»¡©ú±Ð¾Ç À°§Ú¸Ñ¨MºÃ°Ý  ¤£ª¾¹D¦p¦ó¸ò±z¹DÁ ¥u¯à¦b¦¹¸ò±z»¡ÁnµLºÉªº·PÁÂ
±z¬O¦n¤H^^