間斷輸入時 如何讓程式也可以帶出資料

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

17^#

發表於 2011-1-11 18:18 | 只看該作者

回復 16# hugh0620
你的問題應該是出在流程上
請說明檔案使用流程，按鈕作用是甚麼?
把問題敘述清楚，才能得到解答

學海無涯_不恥下問

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

16^#

發表於 2011-1-11 18:12 | 只看該作者

回復 15# Hsieh

Dear 大大若現在改成用按鈕式的方式處理 (主要是我有一部份資料要自動計算~一部份是需要匯出後資料回填後再計算~)
         這樣 ByVal Target As Range 是否就無法使用了
         該如何處理讓間斷的資料可以在按下按鈕後進行運算~
               問題範本不變 (最後一次的範本)

學習才能提升自己

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

15^#

發表於 2011-1-10 19:44 | 只看該作者

回復 13# hugh0620

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 2
Set a = Sheets("DATA1").Columns(2).Find(Target, lookat:=xlWhole)
If Not a Is Nothing Then Target.Offset(, 1) = a.Offset(, 1)
Case 3
Set a = Sheets("DATA2").Columns(2).Find(Target, lookat:=xlWhole)
If Not a Is Nothing Then Target.Offset(, 1) = a.Offset(, 1)
Case 6
If Target <> "" And Target.Offset(, 1) <> "" Then Target.Offset(, -1) = Target * Target.Offset(, 1)
Case 7
If Target <> "" And Target.Offset(, -1) <> "" Then Target.Offset(, -2) = Target * Target.Offset(, -1)
End Select
End Sub

複製代碼

學海無涯_不恥下問

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

14^#

發表於 2011-1-10 18:40 | 只看該作者

例如a1與b1儲存格都是文字不是數字，不能做運算。
程式碼：
On Error Resume Next
[c1] = [a1] * [b1]
這樣它不會告訴你任何錯誤訊息。

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

13^#

發表於 2011-1-10 18:37 | 只看該作者

回復 11# GBKEE

Dear 大大
      唉~ 又有問題了
      因為我的資料輸入共分成兩塊
      Part1:輸入[A]後帶出[B][C]
         Part2:輸入[B1][C1]帶出[A1]  PS:Part1與Part2在同一行上,可以分別滿足各自的條件後,自行重覆運算
         用Worksheet_SelectionChange或Worksheet_Change,可以自動外出[A][A1],但是需要[A]再按一次(CHANGE),才會再運算
      除了用CommandButton(該填的地方填完後再按),是否有其他方式可以克服,只要我滿足我所需要的條件後,就計算
      附件為問題之範本

間斷輸入時程式如何克服_延伸題3.rar (12.85 KB)

學習才能提升自己

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

12^#

發表於 2011-1-10 17:19 | 只看該作者

回復 11# GBKEE

謝謝大大的提醒~ 在使用上會嚴謹些
大大是否可以舉例 On Error Resume Next 會不明易發現錯務的情況~ 給後學的晚輩參考~

學習才能提升自己

GBKEE

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

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

11^#

發表於 2011-1-10 16:44 | 只看該作者

回復 10# hugh0620
1. 變數.Count ?????????
Private Sub Worksheet_Change(ByVal 變數 As Range)
Range是物件 .Count 傳回物件子集合的計數

2.IsNumeric(I) 是否解讀 IsNumeric判別[I]是TRUE或是FALSE
對的

你所附上的程式可參可9樓所修改的程式碼較為簡潔
On Error Resume Next 使用上要小心 ,如程式碼有寫錯後,執行上是不易查出錯誤在哪裡的.

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

10^#

發表於 2011-1-10 16:00 | 只看該作者

回復 8# GBKEE

Dear 大大
      你的方式可以完全解決我的問題,並且也很簡單的增加(或擴增)我的其他條件~
         但大大我有幾個地方看不懂
      1. 變數.Count ?????????
         2.IsNumeric(I) 是否解讀 IsNumeric判別[I]是TRUE或是FALSE

另外我是用另外一個大大的寫法來修改,請大大幫忙看一下,這樣的寫法有什麼樣的缺失
If (Target.Count > 1 Or Target.Column <> 2) And (Target.Count > 2 Or Target.Column <> 3) Then Exit Sub
      On Error Resume Next
      Target(1, 2) = Sheet2.[b:b].Find(Target, , , 1)(1, 2).Value
   If Target.Count > 2 Or Target.Column <> 3 Then Exit Sub
      On Error Resume Next
      Target(1, 2) = Sheet3.[b:b].Find(Target, , , 1)(1, 2).Value

學習才能提升自己