- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 5# StanleyVic
你這程式是sheet2(物件)的程式 可使用關鍵字 Me => 物件本身, 及修改一下刪掉一些Activate 參考參考- Private Sub NegativeRecord_Click()
- '續張型號工作表作運算----------------------------------------------------------
- Dim WsName, N, i, j, K As Integer '不同工作表
- Dim X, Y, Z As Integer '自身工作表的範圍
- Dim Sh As Worksheet 'Dim(宣告變數為私用變數) 型態為 Worksheet(工作表)
- '移除所有Sh(工作表)的Hyperlinks(超連結集合物件)刪除----------------------------
- ' For Each Sh In Sheets
- ' Sh.Hyperlinks.Delete
- ' Next
- '先Delete所有舊Record!---------------------------------------------------------
- X = 4: Y = Range("A65536").End(xlUp).Row
- Range("A4:D" & Y).Hyperlinks.Delete
- Range("A4:D" & Y).ClearContents
- '設定所有型號Sheet中,以最Updata的方法計算因 Out 而引致的 負數Total 記錄------------
- 'N = Worksheets.Count
- For WsName = 3 To Sheets.Count
- With Sheets(WsName)
- .Hyperlinks.Delete '可在此 移除所有的Hyperlinks(超連結集合物件)刪除
- For j = 2 To .Range("IV3").End(xlToLeft).Column
- If .Cells(3, j).Value = "Out" Then
- For K = 4 To .Range("A65536").End(xlUp).Row
- If .Cells(K, j).Value <> "" And .Cells(K, j + 1) < 0 Then
- '抄 data進去, 讀出對應路徑 及 超連結 ---------------
- Cells(X, "A").Value = .Cells(K, 1)
- Cells(X, "B").Value = .Cells(1, j - 2)
- Cells(X, "C").Value = .Cells(K, j + 1)
- Cells(X, "D").Value = .Name & "!" & .Cells(K, j + 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
- Me.Hyperlinks.Add Anchor:=.Cells(X, "D"), _
- Address:="", _
- SubAddress:=.Cells(X, "D").Value, _
- TextToDisplay:=.Cells(X, "D").Value
- X = X + 1
- End If
- Next K
- End If
- Next j
- End With
- Next WsName
- '只保留最UPdate資料--------------------------------------------
- For Z = Range("A65536").End(xlUp).Row To 4 Step -1
- If Cells(Z, "B").Value = Cells(Z - 1, "B").Value Then
- Rows(Z - 1).Delete
- End If
- Next Z
- MsgBox ("負數資料己經全部顯示 !")
- End Sub
|
|
發表於 2011-7-30 11:34
| 
