請問一個語法問題 For I = 1 To Range("更新新新").Cells.Count
- 帖子
- 40
- 主題
- 13
- 精華
- 0
- 積分
- 69
- 點名
- 0
- 作業系統
- w7
- 軟體版本
- office07
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-4-24
- 最後登錄
- 2012-8-20
|
請問一個語法問題 For I = 1 To Range("更新新新").Cells.Count
本帖最後由 m09903020 於 2012-7-5 23:35 編輯
這是一個書上的練習題目
 Book1.rar (17.04 KB)
- Option Explicit
- Sub for_next()
-
- Dim I As Integer
-
- Sheets("Sheet2").Select
-
- For I = 1 To Range("更新新新").Cells.Count '我懷疑後面的吃不進office07
-
- If Range("更新新新").Cells(I) > Range("大機機機").Cells(I) Then
-
- Range("更新新新").Cells(I).Interior.Color = vbYellow
- Else
- Range("更新新新").Cells(I).Interior.Color = vbCyan
-
- End If
-
- Next I
- End Sub
請問我這裡該怎麼測試 或 改善
謝謝 |
-
-
Sheet2.JPG
(41.07 KB)
問題的SHEET2
|
|
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
2#
發表於 2012-7-5 23:52
| 只看該作者
因為你沒有定義名稱
Range("更新新新")，Range("大機機機")都要定義名稱才生效！ |
|
|
|
|
|
|
|
- 帖子
- 40
- 主題
- 13
- 精華
- 0
- 積分
- 69
- 點名
- 0
- 作業系統
- w7
- 軟體版本
- office07
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-4-24
- 最後登錄
- 2012-8-20
|
3#
發表於 2012-7-6 00:07
| 只看該作者
本帖最後由 m09903020 於 2012-7-6 00:08 編輯
回復 2# oobird
謝謝提示；可以請您示範這種範圍的定義方法嗎? 謝謝- Dim range("大機機機") As range
-
- 我似乎觀念不是很清楚要怎麼用
- Dim range("更新新新") As range
-
- range("大機機機") = range(R3C1)
- range("更新新新") = range(R3C6)
-
|
|
|
|
|
|
|
|
- 帖子
- 40
- 主題
- 13
- 精華
- 0
- 積分
- 69
- 點名
- 0
- 作業系統
- w7
- 軟體版本
- office07
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-4-24
- 最後登錄
- 2012-8-20
|
5#
發表於 2012-7-6 12:35
| 只看該作者
回復 4# chen_cook
真是抱歉 現在才發現發錯位置
真是不好意思! |
|
|
|
|
|
|
|
