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

[請教]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

樓主熱帖

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2014-3-12 22:38 | 只看該作者

回復 1# bqwangs

在thisworkbook裡面選擇『workbook』右邊選『open』
然後在裡面輸入你要的指令，那麼他就會在你開啟時，就立刻執行你給他的動作了。

TOP

bqwangs

中學生 Rank: 2

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

3^#

發表於 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

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

4^#

發表於 2014-3-13 23:48 | 只看該作者

回復 3# bqwangs

先把Private Sub CommandButton4_Click() 改成
public Sub CommandButton4_Click()

然後在thisworkbook裡選workbook、 open

再裡面輸入 call sheetX. CommandButton4_Click

TOP

bqwangs