標題:
關於超連結
[打印本頁]
作者:
ddhh4053
時間:
2012-10-21 21:39
標題:
關於超連結
點選某一超連結(工作表1)後,在另一個工作表(工作表2)B1自動輸入9999程式要如何寫?
作者:
GBKEE
時間:
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
複製代碼
作者:
ddhh4053
時間:
2012-10-22 11:47
你好
我是要在工作表2的B1產生9999 請問要如何修改 謝謝
作者:
GBKEE
時間:
2012-10-22 12:16
本帖最後由 GBKEE 於 2012-10-22 13:16 編輯
回復
3#
ddhh4053
答案就在 MsgBox "
工作表2.[B1] = 9999
"
作者:
ddhh4053
時間:
2012-10-22 12:34
我要在工作表2 B1鍵入數字9999 不是要一個訊息視窗 要怎麼修改? 謝謝
作者:
softsadwind
時間:
2012-10-22 13:28
回復
2#
GBKEE
謝謝...我又學了一招....
很基礎的函數....但是很實用....多謝
作者:
mark15jill
時間:
2012-10-22 13:38
回復
5#
ddhh4053
可以先想想 在詢問
BGKEE 大大已給提示了..
作者:
ddhh4053
時間:
2012-10-22 13:55
我知道要輸入紅色的字 可是我輸入沒反應呢 工作表2.[B1] = 9999這個應該不是一個指令吧
作者:
mark15jill
時間:
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
複製代碼
作者:
ddhh4053
時間:
2012-10-23 10:06
換成你的程式會有錯誤它顯示:執行階段錯誤'424' 此處需要物件
作者:
ddhh4053
時間:
2012-10-23 10:07
我要在工作表2的B2寫入數字9999
作者:
GBKEE
時間:
2012-10-23 10:16
回復
11#
ddhh4053
用工作表名稱 SheetS("工作表2").Range("B2")=9999
用模組 名稱 Sheet1.Range("B2")=9999
[attach]12862[/attach]
作者:
ddhh4053
時間:
2012-10-23 11:47
GBK大大的寫法是對的!! 謝謝
作者:
mark15jill
時間:
2012-10-23 12:03
回復
10#
ddhh4053
我貼的那個 都有自己測試過..
直接放在 活頁簿的程式碼內
沒牽扯到物件吧..
作者:
kuoliang123
時間:
2012-10-29 12:39
回復
10#
ddhh4053
工作表2 名稱是否正確?
作者:
winint1
時間:
2012-11-15 04:16
應該是 "SHTTE2" 吧
作者:
mark15jill
時間:
2012-11-15 08:28
To kuoliang123 與 winint1 兩位
1.工作表2 為 OFFICE 2010 預設工作表名稱
2.
Sheet2
.......
3.當然 名稱可以改變~ 在此僅以預設的名稱告知
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
