如何在sheet1輸入資料指定到sheet2或sheet3

帖子: 10
主題: 2
精華: 0
積分: 13
點名: 0
作業系統: xp
軟體版本: xp
閱讀權限: 10
註冊時間: 2012-11-20
最後登錄: 2012-12-12

2^#

發表於 2012-11-20 15:45 | 顯示全部帖子

本帖最後由 flutist 於 2012-11-20 15:47 編輯

圖片中綠色部份是我要輸入的地方
而當我輸入2月和豐源和3000
則金額3000會自動跑到C10儲存格，但B9的2000仍然要在哦

帖子: 10
主題: 2
精華: 0
積分: 13
點名: 0
作業系統: xp
軟體版本: xp
閱讀權限: 10
註冊時間: 2012-11-20
最後登錄: 2012-12-12

3^#

發表於 2012-11-20 16:17 | 顯示全部帖子

請問它出現這個字樣，我應該貼這裡對嗎？

帖子: 10
主題: 2
精華: 0
積分: 13
點名: 0
作業系統: xp
軟體版本: xp
閱讀權限: 10
註冊時間: 2012-11-20
最後登錄: 2012-12-12

4^#

發表於 2012-11-20 18:29 | 顯示全部帖子

謝謝解答，我的問題解決了

但還有另外一個問題

假設我的報表如圖A8~D11是分佈在3個Sheet

我要如何做修改，剛剛想了好久都沒想出來

帖子: 10
主題: 2
精華: 0
積分: 13
點名: 0
作業系統: xp
軟體版本: xp
閱讀權限: 10
註冊時間: 2012-11-20
最後登錄: 2012-12-12

5^# 倒序看帖

打印

字體大小: tT

發表於 2012-11-20 22:18 | 顯示全部帖子

如何在sheet1輸入資料指定到sheet2或sheet3

請問
我在sheet1(圖一)綠色地方輸入月份、廠商名稱、金額
按下按鈕之後
金額會跑到sheet2(圖二)和sheet3(圖三)符合相同廠商的名字的儲存格內

帖子: 10
主題: 2
精華: 0
積分: 13
點名: 0
作業系統: xp
軟體版本: xp
閱讀權限: 10
註冊時間: 2012-11-20
最後登錄: 2012-12-12

6^#

發表於 2012-11-21 11:01 | 顯示全部帖子

這樣設計會出現沒有設定物件變數，需修改哪裡？

Sub 按鈕1_Click()
Dim 月份As Range,廠商As Range
With Sheets("Sheet2").Range("A8")
      Set 月份 = Sheets("Sheet2").Range(.Cells, .Cells.End(xlToRight)).Find([A2], LookAT:=xlWhole)
      Set 廠商 = Sheets("Sheet2").Range(.Cells, .Cells.End(xlDown)).Find([B2])
      Sheets("Sheet2").Cells(廠商.Row,月份.Column) = Sheets("Sheet1").Range("C2")
End With

With Sheets("Sheet3").Range("A8")
      Set 月份 = Sheets("Sheet3").Range(.Cells, .Cells.End(xlToRight)).Find([A2], LookAT:=xlWhole)
      Set 廠商 = Sheets("Sheet3").Range(.Cells, .Cells.End(xlDown)).Find([B2])
      Sheets("Sheet3").Cells(廠商.Row, 月份.Column) = Sheets("Sheet1").Range("C2")
End With
End Sub