ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

·Q½Ð¦U¦ì¤j¤jÀ°¦£VBA

·Q½Ð¦U¦ì¤j¤jÀ°¦£VBA

VBAµ{¦¡À³¸Ó«ç»ò¼g

½Ð±Ð.rar (49.8 KB)

ÃC¦â§ïÅÜ

¥»©«³Ì«á¥Ñ 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§@ªíªº¼Ò²Õ¸Ì
  1. Option Explicit
  2. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  3.    Dim Rng As Range   
  4.    If Target = "" Then Exit Sub                                                 'ªÅ¥ÕªºÀx¦s®æ:Â÷¶}µ{§Ç
  5.    Cells(Target.Row, 1).Resize(, 3).Interior.ColorIndex = xlNone                '³]©w¬°µL©³¦â
  6.    If Not Application.Intersect(Target, UsedRange.Offset(1)) Is Nothing Then
  7.                      'Intersect ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí¨â­Ó©Î¦h­Ó½d³ò­«Å|ªº¯x§Î½d³ò¡C
  8.                      
  9.         Set Rng = Sheets("Sheet2").Range("A:A").Find(Cells(Target.Row, "A"), Lookat:=xlWhole)   'Sheet2ªºAÄ椤´M§ä
  10.                                                     'Cells(Target.Row, "A" ):   '§@¥ÎÀx¦s®æªºAÄæ
  11.         If Not Rng Is Nothing Then                  '´M§ä¨ì
  12.             If Application.Phonetic(Rng.Resize(, 3)) = Application.Phonetic(Cells(Target.Row, "A").Resize(, 3)) Then '¤ñ¹ï¦r¦ê
  13.                 Cells(Target.Row, "A").Resize(, 3).Interior.Color = vbYellow              '¶À¦â
  14.            End If
  15.         End If
  16.    End If
  17. End Sub
½Æ»s¥N½X

TOP

©_©Ç³á...¥¦³£·|¥X²{µLªk«ü©w¦Ü°}¦C£°

TOP

¦^´_ 4# sheau-lan
2#  ¤w­×¥¿  
03  Dim Rng( 1 to 2 )  As Range ->­×§ï    Dim Rng As Range

TOP

GBKEE ¤j.³o¼Ë¸ò§Ú·Qªº¦n¹³¦³¤@ÂI¤£¤Ó¤@¼Ë
§Ú­nªº¸ò"[µo°Ý]¿z¿ï?ÃöÁä¦r?¬d¸ß?"
³o¤@­Óªº¤º®e«Ü¹³.¤£¹L¥¦±qsheet1«ö2¤U½Æ»s¹Lsheet2®Ésheet1ªº¸ê®Æ¤£·|ÅÜÃC¦â
¥i¬O§Ú¬O·Q­n½Æ»s¹L´Nª½±µÅÜÃC¦â.¦Ó¤£¬O»Ý­n¦Û¤v¥ý½Æ»s¨ìsheet2¦A¦^¨Ósheet1ÂIÀ»¸ê®ÆÅý¥¦ÅÜÃC¦â
½Ð¦bÀ°¦£..ÁÂÁÂ...³Â·Ð¤F.

TOP

¦^´_ 5# sheau-lan
  1. Option Explicit
  2. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  3.    Dim R As Range, Msg As Boolean
  4.    If Target = "" Then Exit Sub                                                 'ªÅ¥ÕªºÀx¦s®æ:Â÷¶}µ{§Ç
  5.    If Not Application.Intersect(Target, UsedRange.Offset(1)) Is Nothing Then
  6.                      'Intersect ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí¨â­Ó©Î¦h­Ó½d³ò­«Å|ªº¯x§Î½d³ò¡C
  7.        With Sheets("Sheet2").UsedRange.Columns(1)  'UsedRange :¤u§@ªí¤¤ªº¤w¥Î½d³ò->ÁקK"¤ñ¹ï¦r¦ê"¨ì¤u§@ªí©³³¡
  8.             For Each R In .Cells
  9.                  If Application.Phonetic(R.Resize(, 3)) = Application.Phonetic(Cells(Target.Row, "A").Resize(, 3)) Then
  10.                     '¤ñ¹ï¦r¦ê
  11.                     Msg = True
  12.                 End If
  13.             Next
  14.             If Msg = False Then
  15.                 .Cells(.Cells.Count + 1).Resize(, 3) = Cells(Target.Row, "A").Resize(, 3).Value '½Æ»s¸ê®Æ¨ìSheets("Sheet2")
  16.                 Cells(Target.Row, "A").Resize(, 3).Interior.Color = vbYellow                    '¶À¦â
  17.             End If
  18.         End With
  19.    End If
  20. End Sub
½Æ»s¥N½X

TOP

®¦...ÁÂÁ¤j¤j..³o¯u¥iÅý§Ú¬ã¨s¦n´X¤ÑÅo!!
¹ê¦b¤Ó·PÁÂÅo!!

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD