- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-27 20:35 ½s¿è
¦^´_ 1# sheau-lan
¤u§@ªí©Ò¦³ªº¹w³]¨Æ¥óµ{§Ç: ¥i½s¼gµ{¦¡½X¬°§A´Á±æªº®ÄªG
Worksheet_BeforeDouble ¬O¤u§@ªí¦bÀx¦s®æ: ¥ªÁä³s«ö¤G¦¸ªº¹w³]¨Æ¥óµ{§Ç
¦bSheet1¥ô¤@¦³¸ê®ÆªºÀx¦s®æ,¥ªÁä³s«ö¤G¦¸ªºµ{¦¡½X
µ{¦¡½X»Ý½Æ»s¦b³o¤u§@ªíªº¼Ò²Õ¸Ì- Option Explicit
- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
- Dim Rng As Range
- If Target = "" Then Exit Sub 'ªÅ¥ÕªºÀx¦s®æ:Â÷¶}µ{§Ç
- Cells(Target.Row, 1).Resize(, 3).Interior.ColorIndex = xlNone '³]©w¬°µL©³¦â
- If Not Application.Intersect(Target, UsedRange.Offset(1)) Is Nothing Then
- 'Intersect ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí¨âөΦhÓ½d³ò«Å|ªº¯x§Î½d³ò¡C
-
- Set Rng = Sheets("Sheet2").Range("A:A").Find(Cells(Target.Row, "A"), Lookat:=xlWhole) 'Sheet2ªºAÄ椤´M§ä
- 'Cells(Target.Row, "A" ): '§@¥ÎÀx¦s®æªºAÄæ
- If Not Rng Is Nothing Then '´M§ä¨ì
- If Application.Phonetic(Rng.Resize(, 3)) = Application.Phonetic(Cells(Target.Row, "A").Resize(, 3)) Then '¤ñ¹ï¦r¦ê
- Cells(Target.Row, "A").Resize(, 3).Interior.Color = vbYellow '¶À¦â
- End If
- End If
- End If
- End Sub
½Æ»s¥N½X |
|