¦r¤¸»PÅÜ¼Æ ­n¦p¦ó¦ê±µ

alex520188

¦U¦ì¤j¤j¦n

¤p§Ì¤@ª½·d¤£²M·¡ªº¦a¤è

¦r¤¸»PÅÜ¼Æ ­n¦p¦ó¤~¯à¥¿½T¦ê±µ©O?

ÅÜ¼Æ »P ÅÜ¼Æ ¤S¸Ó¦p¦ó¦ê±µ

½Ð¤j¤j«ü¾É¤@¤U

1. Private Sub CommandButton1_Click()
   
2. 
   
3. Dim Fs, t, Wb As Workbook, St As Worksheet
   
4. Dim k%, X%, i%
   
5. 
   
6. 'On Error Resume Next
   
7.     Fs = Application.GetOpenFilename("Excel,*.xls", , , , True)
   
8.         If Not IsArray(Fs) Then Exit Sub
   
9.             For Each t In Fs
   
10.                 If t <> ThisWorkbook.Name Then
    
11.                     Set Wb = GetObject(t)
    
12.                         For Each St In Wb.Worksheets
    
13. With St
    
14.     k = .Range("B65536").End(xlUp).Row
    
15. End With
    
16. 
    
17.     With St.Range("A9:O9")
    
18.         For i = .Cells.Count To 1 Step -1
    
19.             If .Cells(i).Borders.LineStyle = xlContinuous Then
    
20.                 X = i
    
21.                 Exit For
    
22.             End If
    
23.         Next
    
24.     End With
    
25.    
    
26.    
    
27.                         
    
28. With St.PageSetup
    
29.     If k <= 45 Then
    
30.     .PrintArea = Range("A1:X & 45").Address        '³o¦æªº»yªk ¦ê¤£¥X¨Ó
    
31.    
    
32.     ElseIf k <= 82 Then
    
33.     .PrintArea = "A1:x" & 82                       '³o¦æªº»yªk ¦ê¤£¥X¨Ó
    
34.    
    
35.     ElseIf k <= 115 Then
    
36.     .PrintArea = "A1:x" & 115                      '³o¦æªº»yªk ¦ê¤£¥X¨Ó
    
37.    
    
38.     ElseIf k <= 151 Then
    
39.     .PrintArea = "A1:x" & 151                      '³o¦æªº»yªk ¦ê¤£¥X¨Ó
    
40.    
    
41.     Else
    
42.     .PrintArea = "A1:" & X & k & ""                '³o¦æªº»yªk ¦ê¤£¥X¨Ó
    
43.    
    
44.     End If
    
45. End With
    
46. 
    
47. 
    
48. 
    
49. With St.Range("A12:X" & 151).Borders               '³o¦æªº»yªk ¦ê¤£¥X¨Ó
    
50.     .LineStyle = xlContinuous
    
51.     .Weight = xlHairline
    
52.     .ColorIndex = 1
    
53. End With
    
54.                     St.PrintOut
    
55.                 Next
    
56.             Wb.Close 0
    
57.         End If
    
58.      Next
    
59. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# alex520188

§Ú·í«e°õ¦æªº¤u§@ªí¬Ost, ¥u¬O¤@­È¶]¤£¹L

  
¦pªG§Aªºµ{¦¡¬O¦b ¤u§@ªí¼Ò²Õ ¥B¤£¬Ost¤u§@ªí¼Ò²Õ ´N·|¦p¦¹  
¤u§@ªí¼Ò²Õ ¤u§@ªí¤¤ªºª«¥ó ¦p¨S«ü©ú¤÷¼h¦WºÙ ,¹w³]¬° ¦¹¤u§@ªí¼Ò²Õªº¤u§@ªí.
·í«e°õ¦æªº¤u§@ªí¬Ost §Aªºµ{¦¡¬O¦b ¬Ost¤u§@ªí¼Ò²Õ ¤£·|¦p¦¹ªº
·í«e°õ¦æªº¤u§@ªí¬Ost §Aªºµ{¦¡¬O¦b ¬O¤@¯ë¼Ò²Õ ©Î¬OThisWorkbook¼Ò²Õ  ¤]¤£·|¦p¦¹ªº

alex520188

¦^´_ 7# oobird


    ¦A¦¸ÁÂÁÂoobird¦Ñ®vªº«ü¾É

§Ú·í«e°õ¦æªº¤u§@ªí¬Ost, ¥u¬O¤@­È¶]¤£¹L

«á¨Ó¶K¤Woobird«e½ú©Ò«üÂIªº»yªk«á ¸Ó¬q³]©w´N¯à¥¿±`°õ¦æ¤F

ÁöµM¤@ª½·d¤£¤Ó¸³ ¤£¹LÁÙ¬O­nÁÂÁ¦U¦ì¥ý¶iªº«üÂI^-^:lol

oobird

­Y§A°õ¦æ®É·í«e¤u§@ªí¤£¬OStªº¸Ü¡A­n³o¼Ë¼g¤~¯à³QÃѧO¡G
With St.Range( St.Cells(1, 1),  St.Cells(45, x)).Borders

alex520188

¦^´_ 5# oobird


    ÁÂÁÂoobird¦Ñ®vªº«ü¾É

¥t¥~§Ú§â¥L®M¶i With St.Range(Cells(1, 1), Cells(45, x)).Borders
                         .LineStyle = xlContinuous                  
                         .Weight = xlHairline                        
                         .ColorIndex = 1                              
                  End With
¬°¦ó°õ¦æ°_¨Ó¦³¿ù»~  ¬O­þ¸Ì¼gªº¤£¹ï¹À??

oobird

1. Sub yy()
   
2. x = 100
   
3. MsgBox Range(Cells(1, 1), Cells(45, x)).Address
   
4. End Sub

½Æ»s¥N½X

¹B¦æ¤@¤UÀ³¸Ó´N©ú¥Õ¤F¡C

alex520188

¦U¦ì«e½ú¯àÀ°¸Ñµª¤@¤U¶Ü~~~~

alex520188

¦^´_ 2# kimbal


ÁÂÁª©¤jªº«üÂI     ¤£¹L¦b¸g¹L´ú¸Õ¤§«á
With PageSetup
If K <= 45 Then
  .PrintArea = "A1:x45"
¤W¦¡¤¤ªºx ¨Ã«D§Ú­nªº«¬ºA(ÅܼÆx)
»P x = i  ªºx µLªk³sµ²

¥i§_½Ð¤j¤j¦bÀ°§Ú¬Ý¤@¤U^-^:D

ÁÙ¦³¤@­Ó¤p°ÝÃD´N¬O Trim(Str(K)) ³o¦ê¬O¤°»ò·N«ä???:Q

1. Private Sub CommandButton1_Click()
   
2. 
   
3. Dim Fs, t, Wb As Workbook, St As Worksheet
   
4. Dim K%, x%, i%
   
5. 
   
6. 
   
7.     Fs = Application.GetOpenFilename("Excel,*.xls", , , , True)   '
   
8.         If Not IsArray(Fs) Then Exit Sub
   
9.             For Each t In Fs
   
10.                 If t <> ThisWorkbook.Name Then
    
11.                     Set Wb = GetObject(t)
    
12.                         For Each St In Wb.Worksheets
    
13.                     
    
14.                     With St.Cells
    
15.                         K = .Range("B65536").End(xlUp).Row
    
16.                     End With
    
17.                     
    
18.                         With St.Range("A9:O9")
    
19.                                 For i = .Cells.Count To 1 Step -1
    
20.                                     If .Cells(i).Borders.LineStyle = xlContinuous Then
    
21.                                             x = i
    
22.                                             Exit For
    
23.                                     End If
    
24.                                 Next
    
25.                         End With
    
26.                                        
    
27.                     With St.PageSetup
    
28.                     
    
29.                     If K <= 45 Then
    
30.                     .PrintArea = "A1:x45"
    
31.                     '.PrintArea = Range("A1:X45").Address
    
32.                
    
33.                     ElseIf K <= 82 Then
    
34.                     .PrintArea = "A1:x82"
    
35.                     '.PrintArea = "A1:x82"
    
36.                     
    
37.                     ElseIf K <= 115 Then
    
38.                     .PrintArea = "A1:x115"
    
39.                     '.PrintArea = "A1:x115"
    
40.                     
    
41.                     ElseIf K <= 151 Then
    
42.                     .PrintArea = "A1:x151"
    
43.                     '.PrintArea = "A1:x151"
    
44.                     
    
45.                     Else
    
46.                         .PrintArea = "A1:x" & Trim(Str(K))          '¦C¦L½d³ò"
    
47.                        '.PrintArea = "A1:X" & Trim(Str(K))
    
48.                        '.Zoom = 100                                            'ÁY©ñ¤ñ¨Ò
    
49.                         End If
    
50.                     End With
    
51. 
    
52.                     
    
53.                     With St.Range("A12:x151").Borders
    
54.                     'With St.Range("A12:X151").Borders
    
55.                              .LineStyle = xlContinuous                   '½uºØÃþ =¹ê½u
    
56.                              .Weight = xlHairline                            '½u²Ê²Ó=·¥²Ó
    
57.                              .ColorIndex = 1                                  ' ½u¦â , 1=¶Â¦â
    
58.                      End With
    
59. 
    
60. 
    
61.                             St.PrintOut
    
62.                         
    
63.                     Next
    
64.                 Wb.Close 0
    
65.                 End If
    
66.             Next
    
67. End Sub

½Æ»s¥N½X

kimbal

.PrintArea = Range("A1:X45").Address
    .PrintArea = "A1:x82"
    .PrintArea = "A1:x115"
    .PrintArea = "A1:x151"
    .PrintArea = "A1:X" & trim(str(k))
With St.Range("A12:X151").Borders