請高手指點迷津 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請高手指點迷津

返回列表下一主題上一主題發帖

請高手指點迷津

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

1^# 跳轉到 »

發表於 2013-4-10 20:32 | 顯示全部帖子

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

2^#

發表於 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

複製代碼

靜思自在 : 不要隨心所欲，要隨心教育自己。

返回列表下一主題上一主題