2007ªºVBA µLªk¦b2003 ¨Ï¥Î?
- ©«¤l
- 14
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-11-3
- ³Ì«áµn¿ý
- 2017-5-30
|
2007ªºVBA µLªk¦b2003 ¨Ï¥Î?
½Ð°Ý¦U¦ì~~
2007ªºVBA¦p¤U
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sht As Worksheet
Dim Rng As Range, RngA, CR As Boolean
Set Sht = Sheets("¦b³~ªÑ§Q")
Set RngA = Cells(Target.Row, 1)
If Not Intersect(Target, [A:I]) Is Nothing And _
RngA <> "" And RngA(1, 6) <> "" Then
For Each Rng In Range(Cells(Target.Row, 1), Cells(Rows.Count, 1).End(3))
CR = IsNumeric(Evaluate("match(" & Rng.Address & "&" & Rng(, 2).Address & _
",¦b³~ªÑ§Q!a:a&¦b³~ªÑ§Q!b:b,0)"))
If Not CR Then _
Rng.Resize(, 9).Copy Sht.Range("A" & Rows.Count).End(3).Offset(1)
Next
End If
Application.CutCopyMode = False
End Sub
¦b2003ª©¥»µLªk¥¿±`¹B§@~~½Ð°Ýn¦p¦ó×¥¿@@
·PÁ¦U¦ì~~ |
|
|
|
|
|
|
- ©«¤l
- 181
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 197
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-3-9
- ³Ì«áµn¿ý
- 2024-4-29
|
|
|
|
|
|
|