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

[µo°Ý] ¥ÎCells.Find§ä´M¸ê®Æ¦p§ä¤£¨ì·|¥X²{¿ù»~

[µo°Ý] ¥ÎCells.Find§ä´M¸ê®Æ¦p§ä¤£¨ì·|¥X²{¿ù»~

Cells.Find(What:=InputBox("½Ð¿é¤J­n§ä´Mªº¸ê®Æ!", "Search"), _
    After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
    SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False).Activate

    ActiveCell.Offset(-1, 0).Activate
    Range(Selection, Selection.End(xlUp)).Select
    Selection.EntireRow.Delete
    Selection.End(xlUp).Select

¨Ò¦p¥H¤W¤@¬q,¦p¿é¤J¥¿½Tªº¸Ü,·|¶¶§Q§ä¨ìÀx¦s®æ¥h¨ì¤U¤@¬q,
¦ý¦pªG§ä¤£¨ì¤Ç°tªº¸ê®Æ,·|¥X²{

°õ¦æ¶¥¬q¿ù»~ '91':
¨S¦³³]©wª«¥óÅܼƩΠWITH °Ï¶ôÅܼÆ

¦p¦ó¼g¤~¥i¥H²¤¹L¿ù»~,ª½±µ¨ì¤U¤@¦æ©O?ÁÂÁÂ!!

¦^´_ 1# leehom


   ­n³]©w¬°ª«¥ó
  1.     Set xF = Cells.Find(What:=InputBox("½Ð¿é¤J­n§ä´Mªº¸ê®Æ!", "Search"), _
  2.     After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
  3.     SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
  4.     False)
  5.     If xF Is Nothing Then MsgBox "§ä¤£¨ì¸ê®Æ" Else xF.Select
½Æ»s¥N½X

TOP

¦^´_ 2# lpk187

ÁÂÁ°Ú,°ª¤âªGµM¤£¤@¼Ë,¦­ª¾¤£¥Î·Q¨º»ò¤[¤F~:D

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD