標題: 請問一個語法問題 For I = 1 To Range("更新新新").Cells.Count [打印本頁]

---

作者: m09903020    時間: 2012-7-5 23:33     標題: 請問一個語法問題 For I = 1 To Range("更新新新").Cells.Count

本帖最後由 m09903020 於 2012-7-5 23:35 編輯

這是一個書上的練習題目[attach]11594[/attach]

1. Option Explicit
   
2. Sub for_next()
   
3.    
   
4.     Dim I As Integer
   
5.    
   
6.     Sheets("Sheet2").Select
   
7.    
   
8.     For I = 1 To Range("更新新新").Cells.Count '我懷疑後面的吃不進office07
   
9.       
   
10.        If Range("更新新新").Cells(I) > Range("大機機機").Cells(I) Then
    
11.             
    
12.             Range("更新新新").Cells(I).Interior.Color = vbYellow
    
13.        Else
    
14.             Range("更新新新").Cells(I).Interior.Color = vbCyan
    
15.       
    
16.        End If
    
17.    
    
18.     Next I
    
19. 
    
20. End Sub

複製代碼

[attach]11592[/attach]

請問我這裡該怎麼測試 或 改善

謝謝

---

作者: oobird    時間: 2012-7-5 23:52

因為你沒有定義名稱
Range("更新新新")，Range("大機機機")都要定義名稱才生效！

---

作者: m09903020    時間: 2012-7-6 00:07

本帖最後由 m09903020 於 2012-7-6 00:08 編輯

回復 2# oobird


    謝謝提示；可以請您示範這種範圍的定義方法嗎? 謝謝

1. Dim range("大機機機") As range
   
2.    
   
3. 我似乎觀念不是很清楚要怎麼用
   
4.     Dim range("更新新新") As range
   
5.    
   
6.     range("大機機機") = range(R3C1)
   
7.     range("更新新新") = range(R3C6)
   
8.    

複製代碼

---

作者: chen_cook    時間: 2012-7-6 04:44

回復 1# m09903020


    函數、圖表...等功能及其他Excel一般使用問題
     這兒只能問上述問題..... vba 要到程式區

---

作者: m09903020    時間: 2012-7-6 12:35

回復 4# chen_cook

真是抱歉 現在才發現發錯位置

真是不好意思!

---

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