帖子: 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: 8 Rank: 8

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

論壇貢獻勳章

2^#

發表於 2013-4-10 20:32 | 只看該作者

代碼可以跑，可能是與你的意圖不符吧！

TOP

seemee

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 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: 8 Rank: 8

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

論壇貢獻勳章

5^#

發表於 2013-4-11 08:29 | 只看該作者

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

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

Sheets("Sheet1").Cells(65536, 1 + (i * 5)).End(xlUp).Offset(1, 0).Value = 1

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP