如何在sheet1輸入資料指定到sheet2或sheet3
- 帖子
- 10
- 主題
- 2
- 精華
- 0
- 積分
- 13
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- xp
- 閱讀權限
- 10
- 註冊時間
- 2012-11-20
- 最後登錄
- 2012-12-12
|
按鈕問題
請問我該如何設定「按下按鈕」
金額2000元就會自動跑到B9儲存格? |
|
|
|
|
|
|
- 帖子
- 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仍然要在哦 |
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
3#
發表於 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
複製代碼 |
|
|
|
|
|
|
- 帖子
- 10
- 主題
- 2
- 精華
- 0
- 積分
- 13
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- xp
- 閱讀權限
- 10
- 註冊時間
- 2012-11-20
- 最後登錄
- 2012-12-12
|
4#
發表於 2012-11-20 16:17
| 只看該作者
請問它出現這個字樣,我應該貼這裡對嗎? |
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
5#
發表於 2012-11-20 16:40
| 只看該作者
|
|
|
|
|
|
暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
6#
發表於 2012-11-20 17:01
| 只看該作者
回復 4# flutist
Option Explicit
放在最上面 |
|
多做多想多學習,少看少錯少迷途
多做=多多練習,多多編寫。
多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
多學習=學習人家的發問並解答,學習人家的寫法
少看=只看不做也枉然
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
7#
發表於 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
複製代碼 |
|
|
|
|
|
|
- 帖子
- 10
- 主題
- 2
- 精華
- 0
- 積分
- 13
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- xp
- 閱讀權限
- 10
- 註冊時間
- 2012-11-20
- 最後登錄
- 2012-12-12
|
8#
發表於 2012-11-20 18:29
| 只看該作者
謝謝解答,我的問題解決了
但還有另外一個問題
假設我的報表如圖A8~D11是分佈在3個Sheet
我要如何做修改,剛剛想了好久都沒想出來 |
|
|
|
|
|
|
- 帖子
- 10
- 主題
- 2
- 精華
- 0
- 積分
- 13
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- xp
- 閱讀權限
- 10
- 註冊時間
- 2012-11-20
- 最後登錄
- 2012-12-12
|
9#
倒序看帖
發表於 2012-11-20 22:18
| 只看該作者
如何在sheet1輸入資料指定到sheet2或sheet3
|
|
|
|
|
|
- 帖子
- 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 |
|
|
|
|
|
|