½ÐÀ°À°¦£VBA²¤Æ¤@¤UÐù!!

bear0925900003

½Ð¦U¦ì¤j¤j¯àÀ°¦£Â²¤Æ¤@¤U¤U­±ªºµ{¦¡¡A¤£³Ó·P¿E°Ú!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Range("D4") = "=IF(C4="""","""",VLOOKUP(¤é³øªí1!C4,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D5") = "=IF(C5="""","""",VLOOKUP(¤é³øªí1!C5,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D6") = "=IF(C6="""","""",VLOOKUP(¤é³øªí1!C6,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D7") = "=IF(C7="""","""",VLOOKUP(¤é³øªí1!C7,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D8") = "=IF(C8="""","""",VLOOKUP(¤é³øªí1!C8,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D9") = "=IF(C9="""","""",VLOOKUP(¤é³øªí1!C9,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D10") = "=IF(C10="""","""",VLOOKUP(¤é³øªí1!C10,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D11") = "=IF(C11="""","""",VLOOKUP(¤é³øªí1!C11,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D12") = "=IF(C12="""","""",VLOOKUP(¤é³øªí1!C12,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D13") = "=IF(C13="""","""",VLOOKUP(¤é³øªí1!C13,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D14") = "=IF(C14="""","""",VLOOKUP(¤é³øªí1!C14,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D15") = "=IF(C15="""","""",VLOOKUP(¤é³øªí1!C15,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D16") = "=IF(C16="""","""",VLOOKUP(¤é³øªí1!C16,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D17") = "=IF(C17="""","""",VLOOKUP(¤é³øªí1!C17,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D18") = "=IF(C18="""","""",VLOOKUP(¤é³øªí1!C18,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D19") = "=IF(C19="""","""",VLOOKUP(¤é³øªí1!C19,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D20") = "=IF(C20="""","""",VLOOKUP(¤é³øªí1!C20,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D21") = "=IF(C21="""","""",VLOOKUP(¤é³øªí1!C21,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D22") = "=IF(C22="""","""",VLOOKUP(¤é³øªí1!C22,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D23") = "=IF(C23="""","""",VLOOKUP(¤é³øªí1!C23,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D24") = "=IF(C24="""","""",VLOOKUP(¤é³øªí1!C24,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D25") = "=IF(C25="""","""",VLOOKUP(¤é³øªí1!C25,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D26") = "=IF(C26="""","""",VLOOKUP(¤é³øªí1!C26,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D27") = "=IF(C27="""","""",VLOOKUP(¤é³øªí1!C27,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D28") = "=IF(C28="""","""",VLOOKUP(¤é³øªí1!C28,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D29") = "=IF(C29="""","""",VLOOKUP(¤é³øªí1!C29,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D30") = "=IF(C30="""","""",VLOOKUP(¤é³øªí1!C30,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D31") = "=IF(C31="""","""",VLOOKUP(¤é³øªí1!C31,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D32") = "=IF(C32="""","""",VLOOKUP(¤é³øªí1!C32,¸ê®Æ®w!$A$1:$B$66,2))"
   Range("D33") = "=IF(C33="""","""",VLOOKUP(¤é³øªí1!C33,¸ê®Æ®w!$A$1:$B$66,2))"

   If [c4] <> "" And [a2] = "" Then [a2] = Date
   If [c4] = "" Then [a2] = ""

   If [c4] <> "" And [b4] = "" Then [b4] = Date
   If [c4] = "" Then [b4] = ""
   End Sub

bear0925900003

¸Ñ¨M¤F!!·P®¦

GBKEE

¦^´_ 9# bear0925900003
½Ð¦A¸Ô¬Ý ¤u§@ªí¨ç¼Æ VLOOKUPªº¥Îªk»¡©ú

bear0925900003

Range("D433").FormulaR1C1 = "=IF(RC[-1]="""","""",VLOOKUP(¤é³øªí1!RC[-1],¸ê®Æ®w!R1C1:R2C66,2))"

³o­Ó¤½¦¡²z½×¤WÀ³¸ÓD4~D33³£¯à¨ã¦³¬Û¦Pªº¥\¯à¡A¦ý¸ÕÅç«á¥u¦³D4¡BD5¥i¥H§ä¨ì¥¿½T¸ê°T¡AD5¤§«á³£¨Sªk¥¿½T¹ï¨ì¬Û¹ï¸ê°T

GBKEE

¦^´_ 7# bear0925900003
§A»¡:¤£¯à¥Î­C §Ú¤]¤£ª¾¹D,§A­n»¡²M·¡¿ù»~­È¬O¦ó?,¥iªþÀɬݬÝ

bear0925900003

¦^´_ 4# GBKEE

¤£¯à¥Î­C

bear0925900003

¹ï¤£°_!!¤p§Ì¬Ý®Ñ¦Û¾Ç¡A"¨±°j"³o½g©l²×µLªk°Ñ³z.....

bear0925900003

¦U¦ì¤j¤j¤Ó¯«¤F¡A·P¿Eªü

GBKEE

¦^´_ 1# bear0925900003
¥ÎR1C1ªí¥Üªk

1. Range("D4:D33").FormulaR1C1 = "=IF(RC[-1]="""","""",VLOOKUP(¤é³øªí1!RC[-1],¸ê®Æ®w!R1C1:R2C66,2))"

½Æ»s¥N½X

oobird

¾Ç²ßvba³Ì°ò¥»ªº­n¾Ç²ß«Ø¥ß°j°é¡A¦p¦¹¨Ò¥i¥H³o¼Ë¡G
For i = 4 To 100
If Range("c" & i) = "" Then
Range("b" & i) = ""
Else
If Range("b" & i) = "" Then Range("b" & i) = Date
End If
Next