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

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

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

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®¦~~~~
¤¯¥S

¦^´_ 1# pitera88


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

  ¦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

¦^´_ 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
¤¯¥S

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2012-10-2 21:45 ½s¿è
¦^´_  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

TOP

¦^´_ 4# luhpro


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

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

TOP

¦^´_ 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®¦!!!
¤¯¥S

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD