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

[½Ð±Ð]EXCEL ¤@°õ¦æ §Y°Ê§@

[½Ð±Ð]EXCEL ¤@°õ¦æ §Y°Ê§@

EXCEL¶}±Ò«á
°¨¤W°õ¦æ¤U­±«ö¶sªº½X
­n¦p¦ó°õ¦æ
VB­n¦p¦ó¼g

¨Ò¦p:­n¦p¦ó¦b This Workbook¸Ì³]©w°õ¦æ...µ¥

Option Explicit
Const ¦Ç¦â = &H8000000F

Private Sub CommandButton4_Click()
CommandButton4.BackColor = vbGreen
       CommandButton1.BackColor = ¦Ç¦â
       CommandButton2.BackColor = ¦Ç¦â
       CommandButton3.BackColor = ¦Ç¦â
End Sub

¦^´_ 1# bqwangs

¦bthisworkbook¸Ì­±¿ï¾Ü¡yworkbook¡z¥kÃä¿ï¡yopen¡z
µM«á¦b¸Ì­±¿é¤J§A­nªº«ü¥O¡A¨º»ò¥L´N·|¦b§A¶}±Ò®É¡A´N¥ß¨è°õ¦æ§Aµ¹¥Lªº°Ê§@¤F¡C

TOP

¥»©«³Ì«á¥Ñ bqwangs ©ó 2014-3-13 20:38 ½s¿è

§Ú¤w¸g¦³¶}±Ò§A»¡ªº¨º­Ó
§Ú¬O«üPrivate Sub Workbook_Open()
µLªk©ñ¤JÃC¦âªº»yªk
©Ò¥H§Ú§â»yªk©ñ¶i«ö¶s¸Ì
===============
Private Sub CommandButton4_Click()
CommandButton4.BackColor = vbGreen
       CommandButton1.BackColor = ¦Ç¦â
       CommandButton2.BackColor = ¦Ç¦â
       CommandButton3.BackColor = ¦Ç¦â
End Sub
===============
¨º­n¦p¦ó¤@¶}©lEXCEL´N·|°õ¦æ¨º­Ó«ö¶sªº»yªk

Private Sub Workbook_Open()
    Range("B1").Select
End Sub

TOP

¦^´_ 3# bqwangs

¥ý§âPrivate Sub CommandButton4_Click()  §ï¦¨
         public   Sub CommandButton4_Click()

µM«á¦bthisworkbook¸Ì¿ïworkbook¡B open

¦A¸Ì­±¿é¤J call sheetX. CommandButton4_Click

TOP

ÁÂÁ·d©w¤F

TOP

http://forum.twbts.com/thread-11073-1-1.html
http://forum.twbts.com/thread-11311-1-1.html
¯à½Ð±Ð¶Ü??
¦pªG§PÂ_C5¬°1 ©Î 0 ©Î -1
¤À§O¥h°õ¦æ«ö¶s1 «ö¶s2 «ö¶s3
µ{¦¡½X¥i¯à·|²³æ¨Ç
½Ð±Ð¸Ó¦p¦ó¼g

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD