返回列表 上一主題 發帖

[發問] 有問題,未解決

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
181 
主題
66 
精華
0 
積分
256 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2025-4-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-19 13:46 | 顯示全部帖子

[發問] 有問題,未解決

Dim A As Integer


請問下面有什麼問題?執行後有error message.
Dim A As Integer
A = 2
For A = 2 To 20
Worksheets("Sample").Copy after:=Worksheets(Worksheets.Count)

Worksheets(Worksheets.Count).Name = Sheet1.Cells(A, 1).Value
Worksheets(Worksheets.Count).Range("I2") = Sheet1.Cells(A, 1).Value
Worksheets(Worksheets.Count).Range("I3") = Sheet1.Cells(A, 2).Value

A = A + 1

Next
收藏 分享

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
181 
主題
66 
精華
0 
積分
256 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2025-4-3 
2#
發表於 2011-4-20 23:24 | 顯示全部帖子
本帖最後由 john2006168 於 2011-4-20 23:27 編輯

回復 3# GBKEE


    多謝2位老師的提醒,問題已解決,另一方面,我想問如果我不想固定a的值只是到20,我應該怎麼改?

Dim A As Integer
A = 2
For A = 2 To 20
Worksheets("Sample").Copy after:=Worksheets(Worksheets.Count)

Worksheets(Worksheets.Count).Name = Sheet1.Cells(A, 1).Value
Worksheets(Worksheets.Count).Range("I2") = Sheet1.Cells(A, 1).Value
Worksheets(Worksheets.Count).Range("I3") = Sheet1.Cells(A, 2).Value

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題