ddhh4053

中學生 Rank: 2

帖子: 34
主題: 12
精華: 0
積分: 85
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2012-7-3
最後登錄: 2013-6-4

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-10-21 21:39 | 只看該作者

關於超連結

點選某一超連結(工作表1)後,在另一個工作表(工作表2)B1自動輸入9999程式要如何寫?

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-10-22 07:49 | 只看該作者

本帖最後由 GBKEE 於 2012-10-22 12:12 編輯

回復 1# ddhh4053

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '工作表1(移動儲存格)的觸動事件
If Target.Hyperlinks.Count Then MsgBox "工作表2.[B1] = 9999" '工作表2.B1自動輸入9999
End Sub

複製代碼

TOP

ddhh4053

中學生 Rank: 2

帖子: 34
主題: 12
精華: 0
積分: 85
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2012-7-3
最後登錄: 2013-6-4

3^#

發表於 2012-10-22 11:47 | 只看該作者

你好
我是要在工作表2的B1產生9999 請問要如何修改謝謝

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-10-22 12:16 | 只看該作者

本帖最後由 GBKEE 於 2012-10-22 13:16 編輯

回復 3# ddhh4053
答案就在 MsgBox "工作表2.[B1] = 9999"

TOP

ddhh4053

中學生 Rank: 2

帖子: 34
主題: 12
精華: 0
積分: 85
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2012-7-3
最後登錄: 2013-6-4

5^#

發表於 2012-10-22 12:34 | 只看該作者

我要在工作表2 B1鍵入數字9999 不是要一個訊息視窗要怎麼修改? 謝謝

TOP

softsadwind

中學生 Rank: 2

帖子: 129
主題: 3
精華: 0
積分: 178
點名: 0
作業系統: XP
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-12-28
最後登錄: 2018-11-10

6^#

發表於 2012-10-22 13:28 | 只看該作者

回復 2# GBKEE

謝謝...我又學了一招....
很基礎的函數....但是很實用....多謝

50 字節以內
不支持自定義 Discuz! 代碼

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 2012-10-22 13:38 | 只看該作者

回復 5# ddhh4053

可以先想想在詢問
BGKEE 大大已給提示了..

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

ddhh4053

中學生 Rank: 2

帖子: 34
主題: 12
精華: 0
積分: 85
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2012-7-3
最後登錄: 2013-6-4

8^#

發表於 2012-10-22 13:55 | 只看該作者

我知道要輸入紅色的字可是我輸入沒反應呢工作表2.[B1] = 9999這個應該不是一個指令吧

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

9^#

發表於 2012-10-22 14:21 | 只看該作者

請問您輸入在哪..沒反應原因?
9999 可以是指數(指定自訂) 可以是小函數(自設區間) 可以是文字可以是數字...

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '工作表1(移動儲存格)的觸動事件
If Target.Hyperlinks.Count Then 工作表2.[b1] = "9999" '工作表2.B1自動輸入9999
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

ddhh4053

中學生 Rank: 2

帖子: 34
主題: 12
精華: 0
積分: 85
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2012-7-3
最後登錄: 2013-6-4

10^#

發表於 2012-10-23 10:06 | 只看該作者

換成你的程式會有錯誤它顯示:執行階段錯誤'424' 此處需要物件

TOP