owen06

回復 10# leiru

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. With Target
   
3.   If .Row >= 2 And .Column = 1 Or .Column = 2 Then
   
4.     tar = .Address(0, 0)
   
5.     Sheets("sheet2").Range(tar) = .Value
   
6.   End If
   
7. End With
   
8. End Sub

複製代碼

若要增加欄，就再多加：  or .column=X 即可
若要改工作表名   Sheets("XXX").Range(tar) = .Value
以上都修改X的部份即可

leiru

回復 11# owen06


    謝謝owen06耐心指導,照步驟操作,仍做不出來,再麻煩指導....
感謝

owen06

回復 12# leiru


    請問調整跟上傳這二個表，是要做怎麼樣的連動呢？可否簡述一下，謝謝~

leiru

回復 13# owen06

上傳工作表要抓取調整工作表的對應欄位,例如:上傳的a欄抓調整的a欄,以此類推....
上傳工作表的資料是要自動產生,也就是第11篇的vba,只是改工作表名稱及增加欄位,套此公式,寫不出來,想請問大師哪裡出錯..

謝謝您

owen06

回復 14# leiru


    我測試的結果是ok的呀，在『調整』工作表第1115列新增內容，
    在『上傳』工作表的第1115列，也就會秀出相對應的東西，
    還是你excel的巨集安全性裡，並未開啟『啟用所有巨集』呢？

    另外如果你要1到10欄都同步的話，直接改這樣會比較簡潔
    If .Row >= 2 And .Column <= 10 Then

leiru

回復 15# owen06


    選取 [開發人員] 核取方塊及勾選"啟用所有巨集 (不建議使用；會執行有潛在危險的程式碼)"
仍然不能帶出來資料,可以麻煩看是哪裡有問題.

owen06

回復 16# leiru


    小如，我看你在調整那個表，第1115列有新增一筆資料，
    而上傳的那個表，第1115列，就有同步你新增的那筆資料呀，沒問題呀~

leiru

回復 17# owen06


    我這裡電腦開啟這檔案,上傳檔案就一直無法帶出來資料,真不知哪裡出問題

owen06

回復 18# leiru


    你第一個上傳的附檔『統計』裡的第1115列是沒有資料的，
    但第二個上傳附檔『統計2』裡的第1115列你有key一筆資料，
    而上傳那個表的第1115列也出現了在調整的表裡輸入的東西，
    代表你所需要的功能有正確執行無誤呀，因為第二個附檔，
    是你在輸入完後儲存上傳的，即然他第1115列有產生東西出來，
    即表示功能已經正確執行無誤了不是嗎？

oshi

回復 11# owen06

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. With Target
   
3.   If .Row >= 2 And .Column = 1 Or .Column = 2 Then
   
4.     tar = .Address(0, 0)
   
5.     Sheets("sheet2").Range(tar) = .Value
   
6.   End If
   
7. End With
   
8. End Sub

複製代碼

請問一下如果我想要讓他可以Shift到指定欄位才貼上要怎麼修改呢?
目前都是sheet1(A2)->sheet2(A2)

如果我想要貼到sheet2(C2) 要怎麼修改?
我改變address 裡面的值好像也沒什麼用QQ