返回列表 上一主題 發帖

關於超連結

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

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

TOP

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

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

TOP

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



   

TOP

        靜思自在 : 要比誰更受誰.不要比誰更怕誰。
返回列表 上一主題