12
返回列表 上一主題 發帖

[發問] 如何 取不同工作表的欄位值,帶入另一工作表做運算

peter95

帖子
49 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
win7 
軟體版本
office2001 
閱讀權限
20 
性別
男 
註冊時間
2012-4-10 
最後登錄
2023-11-9 
11# 跳轉到 »
發表於 2016-3-15 23:31 | 只看該作者
回復 5# lpk187


    Sub 擷取()
    Dim Rng As Range, aRng As Range, bRng As Range
    With Sheets("統計")
        .Range("B2:C" & .Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
        For Each Rng In .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
            Set aRng = Sheets("甲").Columns(1).Find(Rng.Value, LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=2)
            Set bRng = Sheets("乙").Columns(1).Find(Rng.Value, LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=2)
            If Not aRng Is Nothing Then Rng.Offset(, 1) = aRng.Offset(, 11)
            If Not aRng Is Nothing Then Rng.Offset(, 2) = bRng.Offset(, 11)
        Next
    End With
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

請問lpk187 大大 這兩個取出的值 (相加) 然後在加上一個負值  並把它固定放在 ...固定G欄的儲存格(從G3開始將值放入..)

說明一下  "這兩個取出的值 (相加) 然後在加上一個負值 "
比如 取出 192  336,,,-(192+336)=-528
再次感謝你的幫忙  謝謝
學習 學習 一直學習

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-2-26 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
12#
發表於 2016-3-16 09:05 | 只看該作者
本帖最後由 lpk187 於 2016-3-16 09:10 編輯

回復 11# peter95

下圖是讓你瞭解Range物件的Offset屬性：運算式.Offset(列的偏移量, 欄的偏移量)

會讓你更容易瞭解程式怎麼運作的

  1. Option Explicit

  3. Sub 擷取()
  4.     Dim Rng As Range, aRng As Range, bRng As Range
  5.     With Sheets("統計")
  6.         .Range("B2:C" & .Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
  7.         For Each Rng In .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
  8.             Set aRng = Sheets("甲").Columns(1).Find(Rng.Value, LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=2)
  9.             Set bRng = Sheets("乙").Columns(1).Find(Rng.Value, LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=2)
  10.             If Not aRng Is Nothing Then Rng.Offset(, 1) = aRng.Offset(, 11)
  11.             If Not bRng Is Nothing Then Rng.Offset(, 2) = bRng.Offset(, 11)
  12.             Rng.Offset(, 6) = -(Rng.Offset(, 1) + Rng.Offset(, 1))
  13.         Next
  14.     End With
  15. End Sub
複製代碼

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-2-26 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
13#
發表於 2016-3-16 09:09 | 只看該作者
回復 11# peter95


    還有我第一次PO次的代碼中
If Not aRng Is Nothing Then Rng.Offset(, 1) = aRng.Offset(, 11)
If Not aRng Is Nothing Then Rng.Offset(, 2) = bRng.Offset(, 11)<<=這句是錯的
應該修正為
If Not bRng Is Nothing Then Rng.Offset(, 2) = bRng.Offset(, 11)

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
12
返回列表 上一主題