GBKEE

¦^´_ 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

myleoyes

¦^´_ 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!!