標題: [發問] 同步2個工作表 [打印本頁]

---

作者: vinejason    時間: 2014-6-23 12:20     標題: 同步2個工作表

平安
有2張工作表分別是sheet4 與Sheet12
Sheet4 欄位
客戶編號 客戶名稱 郵遞區號 地址 電話 ...
Sheet12 欄位
客戶編號 開始 結束 生日 性號 付款方式 登入日期 姓名  ....
請教
當Sheet4 新增一列
客戶編號開頭為F時(Ex:F1181)
客戶名稱 王小明
同步在Sheet12 新增一列並填入
F1181 .....................................王大明
以上

---

作者: vinejason    時間: 2014-6-23 12:26

眼前只做到同步客戶編號
Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Column = 1 And Target.Count = 1 Then
        If Left(Target.Value, 1) = "F" Then
            intRow = Me.Range("A65536").End(xlUp).Row
            rng = Me.Range("A1:A" & intRow)
            For i = 1 To intRow
                If Left(rng(i, 1), 1) = "F" Then
                    intRow1 = Target.Row - i + 1
                    If intRow1 < 1 Then
                        intRow1 = 1
                    End If
                    Application.EnableEvents = False     '關掉觸發事件
                    Sheet12.Rows(intRow1 + 2).Insert Shift:=xlDown
                    Sheet12.Range("A" & CStr(intRow1 + 1)).Value = Target.Value
                    
                    Application.EnableEvents = True     '恢復觸發事件
                    Exit Sub
                End If
            Next i
        End If
    End If

End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)