返回列表 上一主題 發帖

[發問] 關於For迴圈的使用(已解決)

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-8-12 11:46 | 只看該作者

[發問] 關於For迴圈的使用(已解決)

本帖最後由 av8d 於 2011-8-15 12:11 編輯
  1. Private Sub CommandButton1_Click()

  3.     '複製主檔案
  4.     Range("A1:H44").Select
  5.     Selection.Copy
  6.    
  7.     '貼上2.3.4...頁面
  8.     Range("A54:D97").Select
  9.     ActiveSheet.Paste

  11.     Range("A107:D150").Select
  12.     ActiveSheet.Paste
  13.     '．
  14.     '．
  15.     '．
  16.     Range("A478:D521").Select
  17.     ActiveSheet.Paste

  19.    
  20.     '調整列高
  21.     Rows("45:53").Select
  22.     Selection.RowHeight = 16.5
  23.    
  24.     Rows("98:106").Select
  25.     Selection.RowHeight = 16.5
  26.     '．
  27.     '．
  28.     '．
  29.     Rows("469:477").Select
  30.     Selection.RowHeight = 16.5


  33. End Sub
複製代碼
中間每次貼都會出現"您要取代目標的儲存格嗎?"

我計算出他們的等差=53

未來我打算利用Textbox填入後執行

請問有大大可以指導一下比較快的寫法嗎? 不一定要用For迴圈也可以

迴圈初步概念如下
Dim r1=1 , r2=44
Range("A" & r1 & ":H" & "r2").Select
For r1<478 then
    r1=r1+53
Next

For r2<521 then
    r2=r2+53
Next

不知道對不對? 煩請各位大大指導了!

------------------------------------------------------------------------
感謝2樓大大~GBKEE大大您給的正是我要的答案~再次感謝兩位!
                                                                                          2011/8/15 留
------------------------------------------------------------------------
收藏 分享

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
4#
發表於 2011-8-17 16:55 | 只看該作者
回復 3# GBKEE

突然發現一個問題~在複製的時候~中間的第12,34列~向下複製後~下方的對應列~寬度都會變寬(原寬度16.5)~請問我是否還有下For迴圈去制定他的寬度呢?還是有其他方法?
檔案如下:
    1.rar (13.77 KB)

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2011-8-12 14:26 | 只看該作者
回復 1# av8d
  1. Sub Ex()
  2.     Dim i As Integer
  3.     With ActiveSheet
  4.         .[A1:H44].Copy
  5.         For i = 53 To 477 Step 53
  6.             .Paste Range("a" & i)
  7.             .Rows(i & ":" & i + 43).RowHeight = 16.5
  8.         Next
  9.     End With
  10.     Application.CutCopyMode = False
  11. End Sub
複製代碼

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2011-8-12 12:46 | 只看該作者
回復 1# av8d

迴圈初步概念如下
Dim r1=1 , r2=44
Range("A" r1 & ":H" & "r2").Select
For r1<478 then
    r1=r1+53
Next

For r2<521 then
    r2=r2+53
Next

樓主的語法有誤唷~  
FOR的語法應該是下述方式 (從多少到多少)
for i =1 to 100 ...... next

你可以使用Do ....Loop的方式可以上r1與r2累加到滿足妳的條件下離開~

至於樓主要的解決方式~ 是否提供檔案~ 可以比較清楚知道樓主你要的結果是什麼....
學習才能提升自己

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題