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

帖子: 49
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: win7
軟體版本: office2001
閱讀權限: 20
性別: 男
註冊時間: 2012-4-10
最後登錄: 2024-8-9

2^#

發表於 2016-3-11 08:40 | 顯示全部帖子

回復 2# yifan2599

感謝大大的回覆
小弟很糗因為我是小學生等級
無法下載附檔

可以請大大貼源碼嗎？

不好意思麻煩你了
謝謝你的幫忙

學習學習一直學習

帖子: 49
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: win7
軟體版本: office2001
閱讀權限: 20
性別: 男
註冊時間: 2012-4-10
最後登錄: 2024-8-9

3^#

發表於 2016-3-11 11:30 | 顯示全部帖子

回復 4# yifan2599

請問大大以下的程式碼的意思方便幫我寫註解嗎??
再次感謝你的幫忙
謝謝
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

s1 = Worksheets("甲").Cells(1, 1).End(xlDown).Row
s2 = Worksheets("乙").Cells(1, 1).End(xlDown).Row
s3 = Worksheets("統計").Cells(1, 1).End(xlDown).Row
s3_1 = Worksheets("統計").Cells(10000, 8).End(xlUp).Row
s3_2 = Worksheets("統計").Cells(10000, 9).End(xlUp).Row

w = MsgBox("請問要從統計第一天起開始更新", vbYesNoCancel, "!!")

If w = vbYes Then
      xx = 2
ElseIf w = vbNo Then
      xx = Application.Max(s3_1, s3_2)
ElseIf w = vbCancel Then
      b = MsgBox("取消更新!", vbOKOnly, "!!")
      Exit Sub
End If

For x3 = xx To s3
      up = Worksheets("統計").Cells(x3, 1)

      For x1 = 2 To s1
         If up = Worksheets("甲").Cells(x1, 1) Then
            q1 = x1
         End If
      Next x1

      For x2 = 2 To s2
         If up = Worksheets("乙").Cells(x2, 1) Then
            q2 = x2
         End If
      Next x2

      Worksheets("統計").Cells(x3, 2) = Worksheets("甲").Cells(q1, 12)
      Worksheets("統計").Cells(x3, 3) = Worksheets("乙").Cells(q2, 12)
Next x3

b = MsgBox("資料擷取完成!", vbOKOnly, "!!")

End Sub

學習學習一直學習

帖子: 49
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: win7
軟體版本: office2001
閱讀權限: 20
性別: 男
註冊時間: 2012-4-10
最後登錄: 2024-8-9

4^#

發表於 2016-3-12 14:48 | 顯示全部帖子

回復 5# lpk187

Lpk187大大感謝你的回覆

請問方便幫我寫你的程式碼註解嗎

小弟感謝你的幫忙

學習學習一直學習

帖子: 49
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: win7
軟體版本: office2001
閱讀權限: 20
性別: 男
註冊時間: 2012-4-10
最後登錄: 2024-8-9

5^#

發表於 2016-3-12 19:25 | 顯示全部帖子

回復 9# lpk187

Lpk187大大非常感謝你的回覆
小弟剛剛接觸vba的東西

有你們這些高手幫忙
小弟感激萬分
謝謝你

我自己先消化一下，謝謝

學習學習一直學習

帖子: 49
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: win7
軟體版本: office2001
閱讀權限: 20
性別: 男
註冊時間: 2012-4-10
最後登錄: 2024-8-9

6^#

發表於 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
再次感謝你的幫忙  謝謝

學習學習一直學習