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程式要如何寫?

樓主熱帖

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

17^#

發表於 2012-11-15 08:28 | 只看該作者

To kuoliang123 與 winint1 兩位

1.工作表2 為 OFFICE 2010 預設工作表名稱
2.Sheet2 .......
3.當然名稱可以改變~ 在此僅以預設的名稱告知

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

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

  少看=只看不做也枉然

TOP

winint1

中學生 Rank: 2

帖子: 32
主題: 9
精華: 0
積分: 51
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-31
最後登錄: 2023-8-1

16^#

發表於 2012-11-15 04:16 | 只看該作者

應該是 "SHTTE2" 吧

TOP

kuoliang123

中學生 Rank: 2

帖子: 32
主題: 1
精華: 0
積分: 57
點名: 0
作業系統: WINDOWS
軟體版本: XP Office 2003
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2011-6-30
最後登錄: 2014-7-27

15^#

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

回復 10# ddhh4053

工作表2 名稱是否正確?

kuoliang

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

14^#

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

回復 10# ddhh4053

我貼的那個都有自己測試過..

直接放在活頁簿的程式碼內
沒牽扯到物件吧..

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

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

  少看=只看不做也枉然

TOP

ddhh4053

中學生 Rank: 2

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

13^#

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

GBK大大的寫法是對的!! 謝謝

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兔年全勤獎章

12^#

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

回復 11# ddhh4053
用工作表名稱 SheetS("工作表2").Range("B2")=9999
用模組名稱 Sheet1.Range("B2")=9999

TOP

ddhh4053

中學生 Rank: 2

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

11^#

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

我要在工作表2的B2寫入數字9999

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

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