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

　暱稱: VBA向前衝

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

2^#

發表於 2011-1-10 09:56 | 顯示全部帖子

回復 2# oobird


   Dear 大大~  我將你撰寫的程式碼放入到範本中,但執行卻完全無任何動作
            :dizzy:
            大大之前我也有試過Private Sub Worksheet_Change(ByVal Target As Range)
                  但可能我的寫法上有錯~ 它會一直計算
            所以~ 我才改成Private Sub Worksheet_SelectionChange(ByVal Target As Range)
                     當選擇的有改變時就計算~

學習才能提升自己

　暱稱: VBA向前衝

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

3^#

發表於 2011-1-10 11:31 | 顯示全部帖子

回復 2# oobird

Dear 大大

後來我有測試把其中的一行拿掉就可以達到需求,但這行拿掉會不會有什麼樣的問題呢??

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub <----把該行拿掉就可以執行
On Error Resume Next
Target(1, 2) = Sheet2.[b:b].Find(Target, , , 1)(1, 2).Value
End Sub

學習才能提升自己

　暱稱: VBA向前衝

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

4^#

發表於 2011-1-10 14:05 | 顯示全部帖子

回復 5# oobird

Dear 大大
Target <---這個意思是什麼我用F1查詢被未找到這個字的用法跟說明

學習才能提升自己

　暱稱: VBA向前衝

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

5^#

發表於 2011-1-10 15:04 | 顯示全部帖子

Dear 大大

   若假設我需要從Data1與Data2中各自的Sheet中比對資料後,將資料帶出來,這樣該如何修改
   說明:
   1. 在sheet[輸入]中,{A}填入資料帶出DATA1中的B欄位資料
   2. 利用B欄位資料帶出DATA2中C欄位資料
      (先前條件Data1與Data2的表格資料是在未加工且不能整合在一起的情況下)
   問題如附件之範本

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

學習才能提升自己

　暱稱: VBA向前衝

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

6^#

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

學習才能提升自己

　暱稱: VBA向前衝

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

7^#

發表於 2011-1-10 17:19 | 顯示全部帖子

回復 11# GBKEE

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

學習才能提升自己

　暱稱: VBA向前衝

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

8^#

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

9^#

發表於 2011-1-11 18:12 | 顯示全部帖子

回復 15# Hsieh

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

學習才能提升自己