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

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

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

¥»©«³Ì«á¥Ñ av8d ©ó 2011-10-18 08:51 ½s¿è

·í¿é¤J¸ê®Æ®É¡ADÄæ©MIÄæ¦ì¦P®É­«½Æ®É¡A¸õµ¡´£¿ô!
Á|¨Ò»¡©ú¦p¤U:
A  B  C  D  E  F  G  H  I  J  K
1            ¸t½Ï¸`          ¥x«n
2
3
4            ¸t½Ï¸`          ¥x«n
5

DÄæ¥X²{"¸t½Ï¸`"¥BIÄæ¤]¥X²{¬Û¦Pªº"¥x«n"¡A¦¹®É±ø¥ó¦¨¥ß¡A¸õµ¡´£¿ô¡C

-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

¤£ª¾¹D«ç»ò¦b¸Ì­±¤U«ü¥O!?

¦^´_ 1# av8d
­Y¬O·Q¥HÀx¦s®æ³¡¤À¤º®e¨Ó¤ñ¹ïªº¸Ü,
¥i¯à©Ê½d³ò¤Ó¤j¨Ã¥B¤]¤£®e©ö±o¥X¥¿½Tªº¤ñ¹ïµ²ªG,
¨Ò¦p "¤¤¬î¸`¬¡°Ê" ´N¦³©³¤U³o¨Ç¥i¯àªºÃöÁä­È»Ý­n§@¤ñ¹ï,
¤¤¬î¸`¬¡°Ê, ¤¤¬î¸`¬¡, ¤¤¬î¸`, ¤¤¬î, ¤¤
¬î¸`¬¡°Ê, ¬î¸`¬¡, ¬î¸`, ¬î
¸`¬¡°Ê, ¸`¬¡, ¸`
¬¡°Ê, °Ê

·íµM, ­Y¬O§Aªº¨Ò¤l¥i¥HÁY¤p½d³ò,(¨Ò¦p¥u»Ý­n¤ñ¹ï©T©wªº´X­Ó¦p ¬¡°Ê»P¦aÂI...µ¥µ¥ÃöÁä¦r)
¤S©ÎªÌ¯à±N "ºÝ¤È¸`¬¡°Ê" »P "¤¤¬î¸`¬¡°Ê" ³o±Ô­z¤å¦r¦ê©î¶}©ñ¦b¨â­ÓÀx¦s®æ¤º,
Åܦ¨ "ºÝ¤È¸`", "¬¡°Ê", "¤¤¬î¸`", "¬¡°Ê" ³o¼Ë´N®e©ö¼g¤F.

¼È®É§Ú¯à·Q¨ìªº´N¬O§Q¥Î Dictionary ¨Ó¹ê²{,
¤è«Kªº¸Ü¬O§_¥i¥H¥ý¤j­P¤WÁY¤p¤@¤U»Ý­n¤ñ¹ïªº½d³ò.

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2011-10-8 01:31 ½s¿è

¦^´_ 2# luhpro


    A  B  C  D  E  F  G  H  I  J  K
1            ¸t½Ï¸`          ¥x«n
2
3
4            ¸t½Ï¸`          ¥x«n
5

DÄæ¥X²{"¸t½Ï¸`"¥BIÄæ¤]¥X²{¬Û¦Pªº"¥x«n"¡A¦¹®É±ø¥ó¦¨¥ß¡A¸õµ¡´£¿ô¡C

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-10-8 08:31 ½s¿è

¦^´_ 3# av8d
¨âÄæ¸ê®Æ­«½Æ®É¸õµ¡´£¿ô-Ans.zip (15.15 KB)

µù :
1. ­Y³æ¯Â­×§ï¤w¦³¸ê®ÆªºÀx¦s®æ¤º®e¤´¥i¥¿±`§ì¨ú¤Î¤ñ¹ï­«½Æ¸ê®Æ
2. ²§°Ê(§t·s¼W)¬YÀx¦s®æ¤º®e«á·|§ì¨ú¥þ³¡»P¤§¬Û¦P¸ê®ÆªºÀx¦s®æ, ¨Ã±N¨ä©³¦â³]¬°¶À¦â¥H¤è«K¿ëÃÑ.
3. ¤W­z³]©wªº©³¦â©ó¦A¦¸§ì¨ú(§Y¸Ó¨âÄ榳²§°Ê)®É, ·|¥ý²M°£©³¦â«á¦A¤ñ¹ï¸ê®Æ.
4. ¤£­­©w¨âÄæ¬Ò¶·¦³¸ê®Æ, ¥u­n¥ô¤@Ä榳¸ê®Æ´N¥i¥H§ì¨ú¤Î¤ñ¹ï¤º®e.
5. Debug ®É, ­Y¦³ Reset °Ê§@(©Îµo¥Í¿ù»~¾É­P²×¤îµ{¦¡®É)¥²¶·¥ý°õ¦æ Workbook_Open «á¤~¯à¦³¥¿±`ªº°Ê§@.

TOP

¥»©«³Ì«á¥Ñ 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

¥»©«³Ì«á¥Ñ av8d ©ó 2011-10-11 13:05 ½s¿è

¦^´_ 4# luhpro

luhpro ¤j¤j¨¯­W¤F~

          rTar.AddComment ""
À³¥Îµ{¦¡©Îª«¥ó¤W©w¸qªº¿ù»~

§Ú¦Û¦æ­×§ï¬Ý¬Ý~ÁÂÁÂ!

TOP

¦^´_ 5# GBKEE


    ½Ð°Ý¤j¤j~¬O§_¥i¥H·í§Ú«ö¤UTABÁ䪺®É­Ôª½±µ¦V¥k¤@®æ©Î«ö¤UEnterÁ䪽±µ¦V¤U¤@®æ~¤£¥Î«ö¨â¦¸©O?¦A¦¸·PÁÂ!

TOP

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

TOP

¦^´_ 6# av8d
rTar.AddComment "" ®Éµo¥Í "À³¥Îµ{¦¡©Îª«¥ó¤W©w¸qªº¿ù»~"...
³oÀ³¸Ó¬Oµo¥Í¿ù»~·í®É¸Ó rTar Àx¦s®æ¤w¸g¦³µù¸Ñ¤F,
¦ý³o®É«o­n·s¼Wµù¸Ñ¦Ó³y¦¨ªº¿ù»~.

¤£¹L«e­±¤w¸g¦³ On Error GoTo ErrorHandler ¤F,
©Ò¥H²z½×¤WÀ³¸Ó·|³Q "¿ù»~³B²zµ{§Ç" ¶¶§Q³B²z±¼¤~¬O,
¤£ª¾§A¬O«ç»ò¼Ëªº¾Þ§@¶¶§Ç¤Î¿é¤J¤°»ò¸ê®Æ¦Ó³y¦¨ªº¿ù»~.

§A¥i¸ÕµÛ³æ¨B°õ¦æ¬Ý¬Ýµ{¦¡¦³¨S¦³¸õ¨ì ErrorHandler °Ï°õ¦æ¿ù»~³B²z,
¤S°õ¦æ¨ì¸Ó°Ï¤¤®É¦b "§Y®É¹Bºâ" µøµ¡¤º¥´¤J ?Err.Number «ö Enter Áä,
¬Ý¬Ý Err.Number ¬O§_¬° 1004 ¤S©ÎªÌ¬O¨ä¥Lªº¼Æ¦r©O?

TOP

¦^´_  av8d
«ö¤UTABÁ䪺®É­Ôª½±µ¦V¥k¤@®æ©Î«ö¤UEnterÁ䪽±µ¦V¤U¤@®æ~¤£¥Î«ö¨â¦¸©O
¥i¦A¸Ô»¡²M·¡¶Ü?
GBKEE µoªí©ó 2011-10-11 14:46



    ·N«ä¬O»¡~¤@¯ë§Ú­Ì¦b¥´¸ê®Æ¥´§¹«á~¿é¤JENTER·|¦V¤U¤@®æ~¦ý¬O¿é¤J±zªº§PÂ_¦¡«á~Åܦ¨­n¿é¤J¨â¦¸ENTER~¬O§_¦³¿ìªkÅܦ^¥u­n¿é¤J¤@¦¸?ÁÂÁÂ!

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD