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

oak0723-1

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

oobird

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

Hsieh

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

oak0723-1

¦^´_ 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ªþ¥ó)

Hsieh

¦^´_ 4# oak0723-1


    F8©ÎG8­«·s¿é¤J

oak0723-1

¦^´_ 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´£¨ìªº

oobird

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

GBKEE

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

oak0723-1

¦^´_ 7# oobird


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

oobird

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