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

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

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

¦pªþ¥ó
¦b¤u§@ªí1ªºÀx¦s®æg8»Pf8¿é¤J³æ¦ì¤Îºâ¦¡
¦p¦ó¦bÀx¦s®æd8±o¨ìºâ¦¡?

990903-2.rar (1.78 KB)

[d8] = Mid([g8].Formula, 2) & "=" & [g8] & [f8]

TOP

  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

¦^´_ 2# oobird
¦pªþ¥ó~~~
Private Sub CommandButton1_Click()
[D8] = Mid([G8].Formula, 2) & "+" & Mid([G14].Formula, 2) & "=" & [h10] & [F8]
End Sub
¥H¤W¬O¤p§Ì§ï¼gªºµ{¦¡½X
¦ý­pºâ¦¡2¤º®e­Y¬°ªÅ¥Õ©Î0®É
[d8]·|¦hÅã¥Ü¤@­Ó"+"¦p¦ó§ïµ½?(¨Ò:10*10+=100kg)
¥t
hish¤j¤j§Aªºµ{¦¡½X¤p§Ì¤£·|°õ¦æ­C(¦pªþ¥ó)

990903-3.rar (9.88 KB)

TOP

¦^´_ 4# oak0723-1


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

TOP

¥»©«³Ì«á¥Ñ oak0723-1 ©ó 2010-9-4 14:01 ½s¿è

¦^´_ 5# Hsieh

­è¥J²Ó¬Ý¤F¤@¤U
    ­ì¨ÓHsieh  ¤j¤j¤Ö¼g¤F¤@­Óµ{¦¡½X
¤p§Ì¦³µ¹¥L¸É¤W
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F8:G8]) Is Nothing Then Exit Sub
[D8] = Replace([G8].FormulaLocal, "=", "") & "=" & [g8]&[F8]
End Sub
´Nok¤F
¥u¬O¤p§ÌÁÙ¦³ªººÃ´b´N¬O«e½g´£¨ìªº

TOP

[D8] = Mid([G8].Formula, 2) & IIf([G14] = "", "", "+" & Mid([G14].Formula, 2)) & "=" & [h10] & [F8]

TOP

¦^´_ 7# oobird
¦A²¤Æ
[D8] = Mid([G8].Formula, 2) & IIf([G14] = "", "", "+") & Mid([G14].Formula, 2) & ["="&h10& F8]

TOP

¦^´_ 7# oobird


    Mid([G8].Formula, 2)¤¤"Formula"ªº·N«ä¬O????

TOP

´N¬O¤½¦¡ªº·N«ä¡I

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD