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

[µo°Ý] ½Ð±Ð¦p¦ó¥u§R°£Àx¦s®æ¤ºªº¼Æ­È ¦Ó¤£§R°£¤½¦¡

[µo°Ý] ½Ð±Ð¦p¦ó¥u§R°£Àx¦s®æ¤ºªº¼Æ­È ¦Ó¤£§R°£¤½¦¡

·Q½Ð±Ð¤@¤U
§Ú¦bºô¸ô¤W°Ñ¦Òªº²M°£«ü¥O¦p¤U
  1. Sub ²M°£()
  2. Beep
  3. If MsgBox("¡°½T©w­n²M°£¡e¸ê®Æ¹Ïªí°Ï¡fªº°O¿ý¶Ü¡H¡@", 4 + 32 + 256) = vbNo Then Exit Sub
  4. Call ¦@¥Î¨Ï¥Î
  5. Sht1.Rows("19:65536").ClearContents
  6. If ActiveSheet.Name = Sht1.Name Then ActiveWindow.ScrollRow = 1
  7. Beep
  8. End Sub
½Æ»s¥N½X
³o­Ó·|±N§ÚRow 19¥H¤Uªº¼Æ­È§t¤½¦¡¥þ³¡§R°£
¤£¹L§Ú¦b(K19,K319)¤Î(N19,N319)¤º¦³¼g¤J²³æªº¤½¦¡
¥i¥H­×§ï¦¨¥u§R°£¼Æ­È¤£§R°£¤½¦¡¶Ü?
½Ð°Ý¦p¦ó­×§ï

¦^´_ 4# GBKEE

¤Ó·PÁ¤F §Ú­ì¥»¤]¸Õ¹L¥Î(xlCellTypeConstants, 23)
¤£¹L¤]¬O¦pªGÀx¦s®æ¦³­Èªº®É­Ô°õ¦æ·|¦¨¥\,
²M°£«á¦A°õ¦æ´Nµo¥Í¿ù»~~·PÁ±z

¤]·PÁ¨ä¥L¤j¤j¼ö¤ßªº´£¨Ñ·N¨£

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD