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

¦p¦ó¿é¤J­pºâ¦¡¥i±oµ²ªG?

  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Intersect(Target, [F8:G8]) Is Nothing Then Exit Sub
  3. [D8] = Replace([G8].FormulaLocal, "=", "") & "=" & [F8]
  4. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# oak0723-1


    F8©ÎG8­«·s¿é¤J
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD