字元與變數 要如何串接

alex520188

各位大大好

小弟一直搞不清楚的地方

字元與變數 要如何才能正確串接呢?

變數 與 變數 又該如何串接

請大大指導一下

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        '這行的語法 串不出來
    
31.    
    
32.     ElseIf k <= 82 Then
    
33.     .PrintArea = "A1:x" & 82                       '這行的語法 串不出來
    
34.    
    
35.     ElseIf k <= 115 Then
    
36.     .PrintArea = "A1:x" & 115                      '這行的語法 串不出來
    
37.    
    
38.     ElseIf k <= 151 Then
    
39.     .PrintArea = "A1:x" & 151                      '這行的語法 串不出來
    
40.    
    
41.     Else
    
42.     .PrintArea = "A1:" & X & k & ""                '這行的語法 串不出來
    
43.    
    
44.     End If
    
45. End With
    
46. 
    
47. 
    
48. 
    
49. With St.Range("A12:X" & 151).Borders               '這行的語法 串不出來
    
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

複製代碼

GBKEE

回復 8# alex520188

我當前執行的工作表是st, 只是一值跑不過

  
如果你的程式是在 工作表模組 且不是st工作表模組 就會如此  
工作表模組 工作表中的物件 如沒指明父層名稱 ,預設為 此工作表模組的工作表.
當前執行的工作表是st 你的程式是在 是st工作表模組 不會如此的
當前執行的工作表是st 你的程式是在 是一般模組 或是ThisWorkbook模組  也不會如此的

alex520188

回復 7# oobird


    再次謝謝oobird老師的指導

我當前執行的工作表是st, 只是一值跑不過

後來貼上oobird前輩所指點的語法後 該段設定就能正常執行了

雖然一直搞不太董 不過還是要謝謝各位先進的指點^-^:lol

oobird

若你執行時當前工作表不是St的話，要這樣寫才能被識別：
With St.Range( St.Cells(1, 1),  St.Cells(45, x)).Borders

alex520188

回復 5# oobird


    謝謝oobird老師的指導

另外我把他套進 With St.Range(Cells(1, 1), Cells(45, x)).Borders
                         .LineStyle = xlContinuous                  
                         .Weight = xlHairline                        
                         .ColorIndex = 1                              
                  End With
為何執行起來有錯誤  是哪裡寫的不對嘛??

oobird

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

複製代碼

運行一下應該就明白了。

alex520188

各位前輩能幫解答一下嗎~~~~

alex520188

回復 2# kimbal


謝謝版大的指點     不過在經過測試之後
With PageSetup
If K <= 45 Then
  .PrintArea = "A1:x45"
上式中的x 並非我要的型態(變數x)
與 x = i  的x 無法連結

可否請大大在幫我看一下^-^:D

還有一個小問題就是 Trim(Str(K)) 這串是什麼意思???: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))          '列印範圍"
    
47.                        '.PrintArea = "A1:X" & Trim(Str(K))
    
48.                        '.Zoom = 100                                            '縮放比例
    
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                   '線種類 =實線
    
56.                              .Weight = xlHairline                            '線粗細=極細
    
57.                              .ColorIndex = 1                                  ' 線色 , 1=黑色
    
58.                      End With
    
59. 
    
60. 
    
61.                             St.PrintOut
    
62.                         
    
63.                     Next
    
64.                 Wb.Close 0
    
65.                 End If
    
66.             Next
    
67. End Sub

複製代碼

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