返回列表 上一主題 發帖

字元與變數 要如何串接

alex520188

帖子
31 
主題
12 
精華
0 
積分
69 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-19 
最後登錄
2016-1-2 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-7-21 00:18 | 只看該作者

字元與變數 要如何串接

各位大大好

小弟一直搞不清楚的地方

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

變數 與 變數 又該如何串接

請大大指導一下
  1. Private Sub CommandButton1_Click()

  3. Dim Fs, t, Wb As Workbook, St As Worksheet
  4. Dim k%, X%, i%

  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

  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



  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

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2012-7-31 14:10 | 只看該作者
回復 8# alex520188
我當前執行的工作表是st, 只是一值跑不過
  
如果你的程式是在 工作表模組 且不是st工作表模組 就會如此  
工作表模組 工作表中的物件 如沒指明父層名稱 ,預設為 此工作表模組的工作表.
當前執行的工作表是st 你的程式是在 是st工作表模組 不會如此的
當前執行的工作表是st 你的程式是在 是一般模組 或是ThisWorkbook模組  也不會如此的

TOP

alex520188

帖子
31 
主題
12 
精華
0 
積分
69 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-19 
最後登錄
2016-1-2 
8#
發表於 2012-7-31 10:46 | 只看該作者

RE: 字元與變數 要如何串接(已解決)

回復 7# oobird


    再次謝謝oobird老師的指導

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

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

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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
7#
發表於 2012-7-31 08:46 | 只看該作者
若你執行時當前工作表不是St的話，要這樣寫才能被識別：
With St.Range( St.Cells(1, 1),  St.Cells(45, x)).Borders

TOP

alex520188

帖子
31 
主題
12 
精華
0 
積分
69 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-19 
最後登錄
2016-1-2 
6#
發表於 2012-7-30 23:18 | 只看該作者
回復 5# oobird


    謝謝oobird老師的指導

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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
5#
發表於 2012-7-29 16:18 | 只看該作者
  1. Sub yy()
  2. x = 100
  3. MsgBox Range(Cells(1, 1), Cells(45, x)).Address
  4. End Sub
複製代碼
運行一下應該就明白了。

TOP

alex520188

帖子
31 
主題
12 
精華
0 
積分
69 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-19 
最後登錄
2016-1-2 
4#
發表於 2012-7-29 15:59 | 只看該作者
各位前輩能幫解答一下嗎~~~~

TOP

alex520188

帖子
31 
主題
12 
精華
0 
積分
69 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-19 
最後登錄
2016-1-2 
3#
發表於 2012-7-21 09:26 | 只看該作者
回復 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()

  3. Dim Fs, t, Wb As Workbook, St As Worksheet
  4. Dim K%, x%, i%


  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

  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


  61.                             St.PrintOut
  62.                         
  63.                     Next
  64.                 Wb.Close 0
  65.                 End If
  66.             Next
  67. End Sub
複製代碼

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2012-7-21 00:35 | 只看該作者
.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
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題