返回列表下一主題上一主題發帖

[請教]EXCEL 一執行即動作

bqwangs

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 58
點名: 0
作業系統: win xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-5-22
最後登錄: 2020-3-9

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-3-12 20:55 | 顯示全部帖子

[請教]EXCEL 一執行即動作

EXCEL開啟後
馬上執行下面按鈕的碼
要如何執行
VB要如何寫

例如:要如何在 This Workbook裡設定執行...等

Option Explicit
Const 灰色 = &H8000000F

Private Sub CommandButton4_Click()
CommandButton4.BackColor = vbGreen
   CommandButton1.BackColor = 灰色
   CommandButton2.BackColor = 灰色
   CommandButton3.BackColor = 灰色
End Sub

樓主熱帖

bqwangs

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 58
點名: 0
作業系統: win xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-5-22
最後登錄: 2020-3-9

2^#

發表於 2014-3-13 20:37 | 顯示全部帖子

本帖最後由 bqwangs 於 2014-3-13 20:38 編輯

我已經有開啟你說的那個
我是指Private Sub Workbook_Open()
無法放入顏色的語法
所以我把語法放進按鈕裡
===============
Private Sub CommandButton4_Click()
CommandButton4.BackColor = vbGreen
   CommandButton1.BackColor = 灰色
   CommandButton2.BackColor = 灰色
   CommandButton3.BackColor = 灰色
End Sub
===============
那要如何一開始EXCEL就會執行那個按鈕的語法

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

TOP

bqwangs