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

¦©©Î¤£¦©¦Ê¤À¤§10°ÝÃD

¦©©Î¤£¦©¦Ê¤À¤§10°ÝÃD

¦p°Æ¥ó­n¦p¦ó¼g¤JVBA¸Ì½Ð¦U¦ìª©¤j«ü¾ÉÁÂÁÂ
1.E22­n¦©°£G18ªºª÷ÃB¦Ê¤À¤§10
2.°µ¤@­Ó¤Á´«¯Ã¥i¿ï¦©©Î¤£¦©
½Ð«ü±ÐÁÂÁÂ

·s¼W Microsoft Excel ¤u§@ªí.rar (6.66 KB)

¦^´_ 1# gca78000

½Ð¸Õ¸Õ¬Ý¡A¬O§_¬O§A­nªº¡ã
  1. Private Sub ToggleButton1_Click()

  2.     GG = [G18] + ([G18] * 10)
  3.     If [E21] = GG Then
  4.         [E21] = [G18]
  5.     Else
  6.         [E21] = [G18] + ([G18] * 10)
  7.     End If
  8.    
  9. End Sub
½Æ»s¥N½X
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

ÁÂÁ»k¥ú°j¯T ¤j¤j«ü±Ðºb´ú¸Õ¤@¤U¦³ÂI°ÝÃD·Q¦A½Ð±Ð¤@¤U
1.¬°¦ó°õ¦æ«á¤£¬O¦©°£ª÷ÃBªº¦Ê¤À¤§¤Q¦Ó¬O*10­¿
¨Ò¦p1000ªº¦Ê¤À¤§¤QÀ³¬O100¤~¹ï·|Åܦ¨11000
2.¦b°õ¦æ¤£¦©¦Ê¤À¤§¤Q¥i§_¶¶«K²M°£E21¤º®e
½Ð¦b«ü¾É¤p§ÌÁÂÁÂ

TOP

¦^´_ 3# gca78000

¤½¦¡½Ðª½±µ§ï¬õ¦â³o¤@¬q
GG = [G18] - ([G18] * 0.1)

   
  1. Private Sub ToggleButton1_Click()

  2.     GG = [G18] - ([G18] * 0.1)
  3.     If [E21] = "" Then
  4.         [E21] = GG
  5.     Else
  6.         [E21] = ""
  7.     End If
  8.    
  9. End Sub
½Æ»s¥N½X
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

»k¥ú°j¯T¦Ñ®v§A¦n·PÁ§A¦a¸Ñµª
­è¸g´ú¸Õ«á²M°£¥\¯à¤w¸g¥i¥H
¥i¯à¬O¤p§Ìªí¹F¯à¤O¤í¨Î§Ú¬O­n¨Ò¦p
¤@¶}©lG18¿é¤Jª÷ÃB1000¦ÓE21·|¦Û°Ê¨q¥X¦Ê¤À¤§¤Q
·í§Ú°õ¦æToggleButton1_Click()  ®É«hE21¤º®e·|³Q²M°£
·q½Ð«ü¾É·P®¦

TOP

¦p°Æ¥ó­n¦p¦ó¼g¤JVBA¸Ì½Ð¦U¦ìª©¤j«ü¾ÉÁÂÁÂ
1.E22­n¦©°£G18ªºª÷ÃB¦Ê¤À¤§10
2.°µ¤@­Ó¤Á´«¯Ã¥i¿ï¦©©Î¤£¦©
½Ð ...
gca78000 µoªí©ó 2014-11-4 17:39



(§Ú­ú¤F¡D¡D¡D¡D)¡@³o¤S¬O¥t¥~¤£¦Pªºµ{¦¡»yªk¡D¡D¡D¡D
ÁÙ¦³¡ã¤U¦¸³oºØÃþ¦ü°ÝÃD¡A½Ð¦Ü Excel µ{¦¡°Ï´£°Ý¡A·PÁ¡ã

¦³¤G­Ó¨BÆJ
¡@¡´E21Äæ¦ì¶ñ¤W¥H¤U¤½¦¡¡G=G18-(G18*0.1)

¡@¡´¦A¶K¤W¥H¤Uµ{¦¡½X¡G

  1. Private Sub ToggleButton1_Click()
  2.     GG = [G18] - ([G18] * 0.1)
  3.     If [E21] = "" Then
  4.         [E21] = "=G18-(G18*0.1)"
  5.     Else
  6.         [E21] = ""
  7.     End If
  8.    
  9. End Sub
½Æ»s¥N½X
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

·PÁ»k¥ú°j¯T¤j¤j²Ó¤ß¦^µª¤p§Ì¨ü±Ð¤F¤U¦¸¤p§Ì·|ª`·Nªº·PÁ§A¦a¦^À³

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD