flutist

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-11-20 22:18 | 只看該作者

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

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

flutist

小學生 Rank: 1

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

15^#

發表於 2012-11-21 16:02 | 只看該作者

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

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

14^#

發表於 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

複製代碼

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

13^#

發表於 2012-11-21 14:39 | 只看該作者

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

回復 4# flutist

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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

flutist

小學生 Rank: 1

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

12^#

發表於 2012-11-21 11:27 | 只看該作者

test.rar (7.7 KB)

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

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

11^#

發表於 2012-11-21 11:19 | 只看該作者

回復 2# flutist

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

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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

flutist

小學生 Rank: 1

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

10^#

發表於 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

TOP

flutist