[請教]EXCEL 一執行 即動作

帖子: 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

樓主熱帖

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

6^#

發表於 2014-3-15 11:42 | 只看該作者

http://forum.twbts.com/thread-11073-1-1.html
http://forum.twbts.com/thread-11311-1-1.html
能請教嗎??
如果判斷C5為1 或 0 或 -1
分別去執行按鈕1 按鈕2 按鈕3
程式碼可能會簡單些
請教該如何寫

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

5^#

發表於 2014-3-15 11:39 | 只看該作者

謝謝搞定了

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: 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

帖子: 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