flutist

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

1^# 跳轉到 »

發表於 2012-11-20 15:39 | 只看該作者

按鈕問題

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

TOP

flutist

小學生 Rank: 1

帖子: 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仍然要在哦

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兔年全勤獎章

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

複製代碼

TOP

flutist

小學生 Rank: 1

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

4^#

發表於 2012-11-20 16:17 | 只看該作者

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2012-11-20 16:40 | 只看該作者

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

Option Explicit

複製代碼

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

6^#

發表於 2012-11-20 17:01 | 只看該作者

回復 4# flutist

Option Explicit
放在最上面

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

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

  少看=只看不做也枉然

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兔年全勤獎章

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

複製代碼

TOP

flutist

小學生 Rank: 1

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

8^#

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

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

但還有另外一個問題

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

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

TOP

flutist

小學生 Rank: 1

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

9^# 倒序看帖

打印

字體大小: 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

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