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

[µo°Ý] excel VBA ¨ç¼Æ-««ª½·j´M¬Û¹ïÀ³¦Cªº­È

¦^´_ 2# GBKEE


GBKEE ª©¥D±z¦n :

½Ð°Ý¤@¤U¡A­Y§Ú¦³¦h­Ó­n·j´Mªº¸ê®Æ¸Ó¦p¦ó¤@­Ó¤@­Óªº¨ú¥N¦¨¨ä¥Lªº­È¡A   

¨Ò¦paÄæ¨ìcÄ椤ªº¡ytest¡z¨ú¥N¦¨¡ytt¡z!!

TOP

¦^´_ 1# junkwei
ªþÀÉÁ|­Ó§A¹ê»Ú¹J¨ìªº¨Ò¤l&§Æ±æªºµ²ªG¡A°Ý¨ìªºµª®×·|ºë·Çªº¦h¡C¡C
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 1# junkwei
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range
  4.     Set Rng = Sheets("«ü©w¤u§@ªí").Range("«ü©w½d³ò").Find("·j´M¦r¦ê", LookAT:=xlWhole)
  5.     If Not Rng Is Nothing Then MsgBox Rng.Value
  6. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD