Board logo

標題: 請高手指點迷津 [打印本頁]
作者: seemee    時間: 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


為什麼這樣不能跑
請高手賜教
作者: oobird    時間: 2013-4-10 20:32

代碼可以跑，可能是與你的意圖不符吧！
作者: seemee    時間: 2013-4-10 20:45

我跑起來是寫 執行階段錯誤 424

我是2010 X86的
作者: seemee    時間: 2013-4-10 22:25

找到問題了.. sheet1
預設是 工作表1 改成sheet1 就好了
感謝幫忙測試
在請教一個問題 如果我要把 每一個 1 的字型顏色改變要怎麼寫?
作者: oobird    時間: 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
複製代碼
作者: GBKEE    時間: 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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)