麻辣家族討論版版 - Powered by Discuz! Board

標題: 如何在sheet1輸入資料指定到sheet2或sheet3 [打印本頁]

作者: flutist 時間: 2012-11-20 15:39 標題: 按鈕問題

[attach]13212[/attach]

請問我該如何設定「按下按鈕」
金額2000元就會自動跑到B9儲存格？

作者: flutist 時間: 2012-11-20 15:45

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

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

作者: GBKEE 時間: 2012-11-20 16:01

本帖最後由 GBKEE 於 2012-11-20 16:53 編輯

回復 2# flutist
試試看

Option Explicit
Sub Ex()
Dim 月份 As Range, 廠商 As Range
With [A8]
Set 月份 = Range(.Cells, .Cells.End(xlToRight)).Find([A2], LookAT:=xlWhole)
Set 廠商 = Range(.Cells, .Cells.End(xlDown)).Find([B2])
Cells(廠商.Row, 月份.Column) = [C2]
End With
End Sub

複製代碼

作者: flutist 時間: 2012-11-20 16:17

[attach]13213[/attach]

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

作者: c_c_lai 時間: 2012-11-20 16:40

回復 4# flutist
可能是貼上時沒貼到。

Option Explicit

複製代碼

作者: mark15jill 時間: 2012-11-20 17:01

回復 4# flutist

Option Explicit
放在最上面

作者: GBKEE 時間: 2012-11-20 17:06

回復 4# flutist
不好意思,如 5# c_c_lai 說的我少貼一個 O,關於程式碼你尚需多練習程式是如何寫的
以下程式碼同2#的程式碼

Option Explicit '在模組層次中強迫每個在模組裏的變數都必須明確的宣告。
'Option Explicit 請注意 Option Explicit 陳述式必出現在模組裏，且在任何程序之前
'程序中間不可再宣告其他的Sub程序
Sub 按鈕_Click() '宣告Sub 程序名稱為"按鈕_Click"
'Sub Ex() '宣告Sub 程序名稱為"Ex"
'End Sub 'End 陳述式結束一個程序或區塊
Dim 月份 As Range, 廠商 As Range
With [A8]
Set 月份 = Range(.Cells, .Cells.End(xlToRight)).Find([A2], LookAT:=xlWhole)
Set 廠商 = Range(.Cells, .Cells.End(xlDown)).Find([B2])
Cells(廠商.Row, 月份.Column) = [C2]
End With
End Sub

複製代碼

作者: flutist 時間: 2012-11-20 18:29

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

但還有另外一個問題

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

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

作者: flutist 時間: 2012-11-20 22:18 標題: 如何在sheet1輸入資料指定到sheet2或sheet3

[attach]13215[/attach]

[attach]13216[/attach]

[attach]13217[/attach]

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

作者: flutist 時間: 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

作者: mark15jill 時間: 2012-11-21 11:19

回復 2# flutist

建議把附檔傳上來
這樣其他大大們才比較知道問題點在哪
附帶一提

您所詢問的問題論壇內有類似帖
可以搜索看看

作者: flutist 時間: 2012-11-21 11:27

[attach]13221[/attach]

各位大大，我上傳附檔上來了
請問如何更正？
剛剛用搜索的找sheet的相關問題，還是沒看懂

作者: mark15jill 時間: 2012-11-21 14:39

本帖最後由 mark15jill 於 2012-11-21 14:42 編輯

回復 4# flutist

你這會有幾個問題..
1.相同廠商：
如果今天 Sheet2和 Sheet3 同時有庚廠商你要判斷哪個???
2.項目沒有：
又或者都沒有在裡面那要判斷?
3.判斷列數：
若依照附檔的話，都是在第8列(橫)，是要以那個為基準?

作者: GBKEE 時間: 2012-11-21 15:23

回復 12# flutist

Option Explicit
Sub 按鈕1_Click()
Dim Sh As Variant,月份 As Range, 廠商 As Range
For Each Sh In Array("Sheet2", "Sheet3") '工作表的陣列
With Sheets(Sh)
Set 月份 = .Range("A8", .Range("A8").End(xlToRight)).Find(Sheets("Sheet1").[a2], LookAT:=xlWhole)
Set 廠商 = .Range("A8", .Range("A8").End(xlDown)).Find(Sheets("Sheet1").[B2])
'宣告月份,廠商為Range(物件),但Find如找不到(物件)為Nothing
If Not 月份 Is Nothing And Not 廠商 Is Nothing Then
Sheets(Sh).Cells(廠商.Row, 月份.Column) = Sheets("Sheet1").Range("C2")
End If
End With
Next
End Sub

複製代碼

作者: flutist 時間: 2012-11-21 16:02

本帖最後由 flutist 於 2012-11-21 16:03 編輯

感謝版主GBKEE 大大解決我的問題了:)

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)