- ©«¤l
- 129
- ¥DÃD
- 25
- ºëµØ
- 0
- ¿n¤À
- 159
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-24
- ³Ì«áµn¿ý
- 2022-12-12
|
¶X³oÓª©±¸ß°Ý¤@¤U¡AWorkSheet_Changeªº¥Îªk
©³¤U¤À§O¬Oª©¥D¸òÀs¤jªºµ{¦¡½X- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim xF As Range, xA As Range
- With Target
- If .Count > 1 Or .Columns.Count > 1 Or .Row < 2 Or .Column <> [I1].Column Then Exit Sub
- Set xA = .Cells(1, -1).Resize(1, 2): xA.ClearContents
- If .Value <> "" Then Set xF = [²M³æ!d:d].Find(.Value, Lookat:=xlWhole)
- If Not xF Is Nothing Then xA = xF(1, -1).Resize(1, 2).Value
- End With
- End Sub
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Column <> 9 Then Exit Sub
- Application.EnableEvents = False
- ¶ë¸ê®Æ¤J¦r¨å
- Key$ = Target.Value
- Cells(Target.Row, 8) = ¤U©Ô¿ï³æ.D(Key).¥Î³~§O
- Cells(Target.Row, 7) = ¤U©Ô¿ï³æ.D(Key).¤u§@pµe
- Application.EnableEvents = True
- End Sub
½Æ»s¥N½X §Úªº°ÝÃD¬O
¤@¡B¬°¤°»òIFªº«á±³£¤£»Ýn¥[¤W END IF¦Ó¥B°£¿ù³£¨S°ÝÃD
¤G¡BTarget«üªº¬O·Æ¹«ÂI¨ìªº¥ô¦ó¤@ÓÀx¦s®æ¶Ü? ¦]¬°¥i¥H¨ú±oTarget.Row
©Î¬OTarget.Column¡C
¦ý¬OPrivate Sub Worksheet_Change(ByVal Target As Range)¤S§âTarget·íRANGE ?
¤T¡B§Ú´ú¸Õ¤F¤@Ó¤pµ{¦¡¡A¦ý¬O¥u°Ê¤F¤@¦¸¡A´N¨S°Ê§@¤F¡A¤£¾å±o¿ù¦bþ¸Ì- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Column <> 3 Then Exit Sub
- Application.EnableEvents = False
- Target.Interior.ColorIndex = 3
- End Sub
½Æ»s¥N½X ·Ó²z»¡¡A§ÚÀH«K¿ï¤@ÓÀx¦s®æ¡A¦pªG¸ÓÀx¦s®æ¤£¬O²Ä3Äæ (CÄæ)
¨º´NÂ÷¶}µ{¦¡
¦pªG¿ï¨ì¨ä¥LÄæ¡A¨º´N·|§âÀx¦s®æÃC¦âÅܬõ¦â
¦ý¬O´N¨S¿ìªk
´Nºâ§Ú¿ï¨ìªºÀx¦s®æ¡AÀH«K¿é¤J123¡A¦A§R±¼¡A³o¼Ëºâ¬O¦³Change¤F§a?
¤]¨S°Ê§@....
¥|¡BSet xA = .Cells(1, -1).Resize(1, 2): xA.ClearContents ³oÃä.Resize¬O¤°»ò¥\¯à?
¥H¤W¸ß°Ý¡AÁÂÁ |
|