ªð¦^¦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)

¦^´_ 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

¥»©«³Ì«á¥Ñ 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

¦^´_ 7# oobird


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

TOP

¦^´_ 10# oobird


    À´¤F
·P®¦~~~

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD