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

[µo°Ý] ½Ð°Ý§Ú·Q°µ­Ó¤W¤U²£«~ªº¤ñ¹ïÀ³¸Ó«ç»ò¼g

[µo°Ý] ½Ð°Ý§Ú·Q°µ­Ó¤W¤U²£«~ªº¤ñ¹ïÀ³¸Ó«ç»ò¼g

¦U¦ì¤j¤j¦n ¦pÃD ¥Ñ©ó«È¤á ¼t°ÓÁc¦h ¨C­Ó¤H»Ý¨D¤S¤£¤@¼Ë ±`±`¦]¬°¿é¤J¿ù»~¦WºÙ¾É­P¥Í²£¿ù»~
Àµ½Ð¤j¤jÀ°¦£«ü¾É¤@¤U ·í¤U¤ñ¹ï¤£¤@¼Ë®É¥i¥H¸õ¥Xµøµ¡´£¿ô ¨Ã±N©³¦â§ó´«

²£«~¤ñ¹ï.zip (5.7 KB)

®v§Ú

¦U¦ì¤j¤j¦n ¦pÃD ¥Ñ©ó«È¤á ¼t°ÓÁc¦h ¨C­Ó¤H»Ý¨D¤S¤£¤@¼Ë ±`±`¦]¬°¿é¤J¿ù»~¦WºÙ¾É­P¥Í²£¿ù»~
Àµ½Ð¤j¤jÀ°¦£«ü ...
et010884 µoªí©ó 2013-12-10 14:58



    ¨º­Ó¦ì¸m»P¨º­Ó¦ì¸m¤ñ¹ï?
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦U¦ì¤j¤j¦n ¦pÃD ¥Ñ©ó«È¤á ¼t°ÓÁc¦h ¨C­Ó¤H»Ý¨D¤S¤£¤@¼Ë ±`±`¦]¬°¿é¤J¿ù»~¦WºÙ¾É­P¥Í²£¿ù»~
Àµ½Ð¤j¤jÀ°¦£«ü ...
et010884 µoªí©ó 2013-12-10 14:58

¥H¤Uµ{¦¡©ñ¦b ThisWorkBook ¤º
  1. Private Sub Workbook_Open()
  2.   Dim lRow&
  3.   
  4.   Set dD = CreateObject("Scripting.Dictionary")
  5.   lRow = 3
  6.   With Sheets("¤u§@ªí1")
  7.     Do While .Cells(lRow, 2) <> ""
  8.       If .Cells(lRow, 3) <> "" Then
  9.         If dD(CStr(.Cells(lRow, 2))) = "" Then
  10.           dD(CStr(.Cells(lRow, 2))) = CStr(.Cells(lRow, 3))
  11.         Else
  12.           If dD(CStr(.Cells(lRow, 2))) <> .Cells(lRow, 3) Then
  13.             .Cells(lRow, 3).Interior.ColorIndex = 37
  14.             MsgBox ("¤ñ¹ï¿ù»~")
  15.           End If
  16.         End If
  17.       Else
  18.         .Cells(lRow, 3).Interior.ColorIndex = 37
  19.         MsgBox ("¨S¦³²£«~¦WºÙ")
  20.       End If
  21.       lRow = lRow + 1
  22.     Loop
  23.   End With
  24. End Sub
½Æ»s¥N½X
¥H¤Uµ{¦¡©ñ¦b Module ¤º
  1. Public dD
½Æ»s¥N½X
¥H¤Uµ{¦¡©ñ¦b Sheet1 ¤º
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   If Target.Count = 1 Then
  3.     With Target
  4.       If (.Column = 2 Or .Column = 3) And .Offset(, 2 - .Column) <> "" And .Offset(, 3 - .Column) <> "" Then
  5.         If dD(CStr(.Offset(, 2 - .Column))) <> .Offset(, 3 - .Column) Then
  6.           .Interior.ColorIndex = 37
  7.           MsgBox ("¿é¤J¿ù»~")
  8.           .Select
  9.         Else
  10.           .Interior.ColorIndex = -4142
  11.         End If
  12.       End If
  13.     End With
  14.   End If
  15. End Sub
½Æ»s¥N½X
²£«~¤ñ¹ï-a.zip (13.49 KB)

TOP

¦^´_ 3# luhpro


  ÁÂÁ¤j¤j
®v§Ú

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD