[µo°Ý] Àx¦s®æªº­È¥Ñ¥¨¶°¨Óµ¹¤©

pitera88

a1Àx¦s®æ =(¥¨¶°¤ºªºÅܼÆ)

  a2=if(a1=5(°²³]­È),"¥i¥HÅã¥Ü","")

½Ð°Ý³o¼Ë¥i¥H§@¨ì¶Ü?? ¤]´N¬Oa1ªº­È­n¥Ñ¥¨¶°¨Óµ¹¡A¤£°õ¦æ¥¨¶°®É a1 ªº­È¬OªÅªº

³o¼Ë´N¤£©È¥t¦s·sÀɮɡAa1 ªº­È´N³Q¦s°_¨Ó¤F

¥H¤Wªº·Qªk¤£ª¾¦³¤j¤j­Ì¥i¥H°Ñ¸Ô¤@¤U¶Ü¡A¥i¥H§@¨ì¶Ü??  ÁÙ¬O¦³¥t¥~§ó¦nªº¤èªk©O??

·P®¦~~~~

pitera88

¦^´_ 4# luhpro


    ÁÂÁ¤j¤j¡A¥i¥H¥Î¤F

¥t¥~½Ð±Ð¤@¤U¡A¦sÀɤ§«e¡A¥i¥HÅýµe­±«O«ù¤£ÅܶÜ? ¦]¬°§â a1 ²MªÅ«á¡Aµe­±·|¤£¦P¡AÁöµM¥u¦³¤@¤U¤U(¥i¥HÅý¤H¬Ý¤£¥X¨Ó¶Ü)

·P®¦!!!

pitera88

¦^´_ 4# luhpro


    ·PÁ¤j¤jªº«ü±Ð¡A­ì¨Ó¦sÀÉ«eÁÙ¥i¥H§@³o­Ó°Ê§@¡A¨ü±Ð¤F~~

¥¿¦b¹ê§@¤¤¡A·PÁ±z~~~

luhpro

¦^´_  mark15jill


       Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [ ...
pitera88 µoªí©ó 2012-10-2 15:00

¦]¬°§Aªº»Ý¨D¬O -> ©ó¥t¦s·sÀÉ®É a1 ªº­È¤£­n³Q¦s°_¨Ó.

©Ò¥H§Ú·|«Øij©ñ¦b BeforeSave ¸Ì,
¥ç§Y©ó¦sÀÉ«e¦A°µ³B²z:

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel as Boolean)
   
2.   With Sheets("¿é¤J­¶")
   
3.     If .[a1] <> "" Then Sheets("¦C¦L­¶").[b1] = .[a1]
   
4.     .[a1] = "" ' ¦sÀÉ«e±j¨î²M°£ A1 ªº­È
   
5.   End With
   
6. End Sub

½Æ»s¥N½X

¥t¥~ Sheets("¦C¦L­¶").[b1] ¦sÀÉ«e­n¤£­n²M´N­n¬Ý§Aªº»Ý¨D¤F

pitera88

¦^´_ 2# mark15jill


       Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [a1] <> "" Then [b1] = [a1] Else [a1] = ""  
End Sub

¤£¦n·N«ä¡A³o­Ó¬O­n©ñ¦b¿é¤J­¶¨º­Ósheet ªº¥¨¶°¶Ü??

¦pªG[a1]¬O¦b¡u¿é¤J­¶¡v³o­Ósheet  ¦ý[b1] ¬O¦b¡u¦C¦L­¶¡v ³o­Ó  If [a1] <> "" Then [b1] = [a1] Else [a1] = ""  ¦a¤è­n«ç»ò§ï!

ÁÂÁ¤j¤j

mark15jill

¦^´_ 1# pitera88


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [a1] <> "" Then [b1] = [a1] Else [a1] = ""
End Sub