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

¼g¤J­ì¦ì

¦^´_ 10# myleoyes
  1. Sub ½m²ß1() '¥[
  2.     ¦ì²¾AZ
  3. ag:
  4.     Dim ZZ As Range, E As Range, M
  5.     On Error Resume Next
  6.     Set ZZ = Application.InputBox("½Ð¤£§[½ç±Ð!", "     ½Ð±Ð«e½ú­Ì!!", "¢C ½ÐÂI¿ïAZÄæ ¢C", Type:=8)
  7.            If ZZ <= 0 Then Sheet2.[I1] = 2: Exit Sub
  8.         For Each E In ZZ.Cells
  9.               M = IIf(M = "", "=", M & "+") & IIf(E = "", "0", E)
  10.        Next
  11.        ThisWorkbook.Sheets("¸ê®Æ").[$M$1] = M
  12. End Sub
½Æ»s¥N½X
¥ÒÀɦpªG´«¦¨¤AÀÉ´NµLªk¨Ï¥Î -> ­n¦p¦ó¨M©w¨Ï¥Î ¥ÒÀɩΤAÀÉ
  1. Sub ¦ì²¾AZ()
  2.     With Windows("¥ÒÀÉ.xls")
  3.         .Activate
  4.         .ScrollColumn = 52
  5.         .ScrollRow = ActiveSheet.Range("AO" & Rows.Count).End(xlUp).Row
  6.     End With
  7. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 11# GBKEE
¨}®v!ÁÂÁÂ!!
     ­n¦p¦ó¨M©w¨Ï¥Î ¥ÒÀɩΤAÀÉ
     ¥ÒÀɩΤAÀɬO¥Î¤â°Ê¤è¦¡¶}±Ò
     ¦p¶}¥ÒÀÉ«ö¶s®É¦ì²¾AZµ{¦¡¾A¥Î
     ¶}¤AÀÉ«ö¶s®É¦ì²¾AZµ{¦¡¤]¥i¥H¨Ï¥Î
     ¤]´N¬O»¡¦ì²¾AZµ{¦¡¾A¥Î¥ô¦ó³Q¿ï¨ú¼Æ¾ÚªºÀÉ®×
     ©Ò¥H¦ì²¾AZµ{¦¡¤£¯à¥Î With Windows("¥ÒÀÉ.xls")
     ¤p§Ì·Q¬O§_¥Î¦p OpenWork.Sheets("½m²ß")
     ³o¼Ëªº·Qªk¨}®v¬O§_©ú¥Õ?½Ð¦A«ü¾É¨¯­WÅo!ÁÂÁ¦A¤T!!

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD