返回列表 上一主題 發帖

請高手指點迷津

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-4-10 18:55 | 只看該作者

請高手指點迷津

Sub test()
  Dim i As Integer
    For i = 1 To 10
      Sheet1.Cells(65536, 1 + (i * 5)).End(xlUp).Offset(1, 0).Value = 1
     Next
End Sub


為什麼這樣不能跑
請高手賜教

活頁簿1.rar (11.33 KB)

收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2013-4-10 20:32 | 只看該作者
代碼可以跑，可能是與你的意圖不符吧！

TOP

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
3#
發表於 2013-4-10 20:45 | 只看該作者
我跑起來是寫 執行階段錯誤 424

我是2010 X86的

TOP

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
4#
發表於 2013-4-10 22:25 | 只看該作者
找到問題了.. sheet1
預設是 工作表1 改成sheet1 就好了
感謝幫忙測試
在請教一個問題 如果我要把 每一個 1 的字型顏色改變要怎麼寫?

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
5#
發表於 2013-4-11 08:29 | 只看該作者
  1. Dim i As Integer
  2.     For i = 1 To 10
  3.         With Sheet1.Cells(65536, 1 + (i * 5)).End(xlUp).Offset(1, 0)
  4.             .Value = 1
  5.             .Font.ColorIndex = 3
  6.         End With
  7.     Next
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2013-4-11 18:53 | 只看該作者
找到問題了.. sheet1
預設是 工作表1 改成sheet1 就好了
seemee 發表於 2013/4/10 22:25
  1. Sheets("Sheet1").Cells(65536, 1 + (i * 5)).End(xlUp).Offset(1, 0).Value = 1
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題