返回列表 上一主題 發帖

工作表同步增加資料

工作表同步增加資料

問題:
sheet2工作表的a欄及b欄是抓取sheet1的a欄及b欄,sheet1的a,b欄資料會不斷增加,則sheet2的a,b欄也要同步增加
請問要如何設定公式?

Book1.rar (6.15 KB)

小如

A2=IF(Sheet1!A2="","",Sheet1!A2)

TOP

DEAR SIR
  用VBA如下放於 SHEET1 內

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet2.[A1:b65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[B65536].End(xlUp).Row
For M = 1 To X
Sheet2.Cells(M, 1) = Sheet1.Cells(M, 1)
Next
For N = 1 To Y
Sheet2.Cells(N, 2) = Sheet1.Cells(N, 2)
Next
End Sub

TOP

回復 1# 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
複製代碼

TOP

謝謝ANGELA 及rouber590324 及owen06 回覆...
不會vba,請問是否可以設定函數....

angela大師,此公式在sheet2是要下拉,想設定的公式可以自動產生,不用作下拉式才產生新的資料
小如

TOP

本帖最後由 owen06 於 2015-2-12 14:59 編輯

回復 5# leiru


    vba又不難,何必要排斥呢?畢竟只靠公式,很難達成這種自動的動作。
    先點上面的『複製代碼』,然後在你的檔案裡按alt+F11,跳出vba編輯視窗,然後點『工作表1』2下,貼上代碼,就完成了呀。

TOP

回復 6# owen06


   謝謝您的回覆,我再試試看
小如

TOP

回復 4# owen06


    請問,若SHEET1再增加欄位,此VBA要如何修改
謝謝
小如

TOP

If .Row >= 2 And .Column = 1 Or .Column = 2 Then
Column是欄 1或2
若要增加應該是改這邊的數值

TOP

回復 9# fantersy


   再試試看....
  請問,若工作表名稱也改名,要如何修改模組內容
小如

TOP

        靜思自在 : 話多不如話少,話少不如話好。
返回列表 上一主題