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

[µo°Ý] ¦p¦ó¼¶¼g¨âÄæ¦ì¸ê®Æ¦P®É­«½Æªº¸õµ¡´£¿ô?(¤w¸Ñ¨M,GBKEE¤j, oobird¤j)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-10-8 17:14 ½s¿è

¦^´_ 3# av8d
¸Õ¸Õ¬Ý
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   Dim Rng As Range, I As Integer
  3.   With Target
  4.     .Select
  5.     If .Column = 4 Or .Column = 9 Then
  6.         If Cells(.Row, 4) <> "" And Cells(.Row, 9) <> "" Then
  7.             For I = 1 To Cells(Rows.Count, .Column).End(xlUp).Row
  8.                 If Cells(I, 4) = Cells(.Row, 4) And Cells(I, 9) = Cells(.Row, 9) And I <> .Row Then
  9.                     If Rng Is Nothing Then
  10.                         Set Rng = Union(Cells(I, 4), Cells(I, 9))
  11.                     Else
  12.                         Set Rng = Union(Rng, Cells(I, 4), Cells(I, 9))
  13.                     End If
  14.                 End If
  15.             Next
  16.             If Not Rng Is Nothing Then
  17.                 Set Rng = Union(Rng, Cells(.Row, 4), Cells(.Row, 9))
  18.                 Rng.Select
  19.                 MsgBox Cells(.Row, 4) & "  " & Cells(.Row, 9) & "  ¦³­«½Æ ?"
  20.             End If
  21.         End If
  22.     End If
  23.   End With
  24. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# av8d
«ö¤UTABÁ䪺®É­Ôª½±µ¦V¥k¤@®æ©Î«ö¤UEnterÁ䪽±µ¦V¤U¤@®æ~¤£¥Î«ö¨â¦¸©O
¥i¦A¸Ô»¡²M·¡¶Ü?

TOP

¦^´_ 10# av8d
¤@¯ë§Ú­Ì¦b¥´¸ê®Æ¥´§¹«á~¿é¤JENTER·|¦V¤U¤@®æ ¬O³o¼Ë´N·|¤Þµo Worksheet_Change µ{§Çªº
¬°¦ó§A­n«ö2¦¸Eneter ¶Ç¤WÀɮ׬ݬÝ

TOP

¦^´_ 12# av8d
¦p¹Ï:  ¬O²Ä2¦¸ªºEneter ¶Ü?
¦p¦ó¼¶¼g¨âÄæ¦ì¸ê®Æ¦P®É­«½Æªº¸õµ¡´£¿ô  ³o¤£´N¬O§Aªº¸Ñµªªü


¢ÓX1.GIF
2011-10-13 16:25

TOP

¦^´_ 14# av8d
­×§ï¦p¹Ï:

¢ÓX1.GIF
2011-10-17 14:24

TOP

¦^´_ 17# av8d
¬Oªü:
16ºO oobird¶Wª© ¤w¸Ñµª

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD