[½Ð±Ð]EXCEL ¤@°õ¦æ §Y°Ê§@
- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-5-22
- ³Ì«áµn¿ý
- 2020-3-9
|
[½Ð±Ð]EXCEL ¤@°õ¦æ §Y°Ê§@
EXCEL¶}±Ò«á
°¨¤W°õ¦æ¤U±«ö¶sªº½X
n¦p¦ó°õ¦æ
VBn¦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 |
|
|
|
|
|
|
- ©«¤l
- 396
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 425
- ÂI¦W
- 1
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-7-2
- ³Ì«áµn¿ý
- 2024-8-23
|
¦^´_ 1# bqwangs
¦bthisworkbook¸Ì±¿ï¾Ü¡yworkbook¡z¥kÃä¿ï¡yopen¡z
µM«á¦b¸Ì±¿é¤J§Anªº«ü¥O¡A¨º»ò¥L´N·|¦b§A¶}±Ò®É¡A´N¥ß¨è°õ¦æ§Aµ¹¥Lªº°Ê§@¤F¡C |
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-5-22
- ³Ì«áµn¿ý
- 2020-3-9
|
¥»©«³Ì«á¥Ñ 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 |
|
|
|
|
|
|
- ©«¤l
- 396
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 425
- ÂI¦W
- 1
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-7-2
- ³Ì«áµn¿ý
- 2024-8-23
|
¦^´_ 3# bqwangs
¥ý§âPrivate Sub CommandButton4_Click() §ï¦¨
public Sub CommandButton4_Click()
µM«á¦bthisworkbook¸Ì¿ïworkbook¡B open
¦A¸Ì±¿é¤J call sheetX. CommandButton4_Click |
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-5-22
- ³Ì«áµn¿ý
- 2020-3-9
|
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-5-22
- ³Ì«áµn¿ý
- 2020-3-9
|
|
|
|
|
|
|