如何在sheet1輸入資料指定到sheet2或sheet3
暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
回復 2# flutist
建議把附檔傳上來
這樣其他大大們才比較知道問題點在哪
附帶一提
您所詢問的問題論壇內有類似帖
可以搜索看看 |
|
|
多做多想多學習，少看少錯少迷途
多做=多多練習，多多編寫。
多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
多學習=學習人家的發問並解答，學習人家的寫法
少看=只看不做也枉然
|
|
|
|
|
- 帖子
- 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的相關問題，還是沒看懂 |
|
|
|
|
|
|
|
暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生
- 帖子
- 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列(橫)，是要以那個為基準? |
|
|
多做多想多學習，少看少錯少迷途
多做=多多練習，多多編寫。
多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
多學習=學習人家的發問並解答，學習人家的寫法
少看=只看不做也枉然
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
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
|
|
|
|
|
|
|
|
- 帖子
- 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 大大解決我的問題了:) |
|
|
|
|
|
|
|
