12
返回列表 上一主題 發帖

range離奇問題

HSINLI

帖子
13 
主題
4 
精華
0 
積分
17 
點名
0  
作業系統
mac 
軟體版本
os10 
閱讀權限
10 
註冊時間
2015-6-16 
最後登錄
2015-8-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-7-4 09:28 | 只看該作者

range離奇問題

不好意思，想問一個很離奇的問題
就是指定這個對象時
Range("A" & i * 100 + 88 & ":l100")
所呈現的範圍卻是
$A$100:$L$188

但指定這個對象
Range("A" & i * 100 + 88 & ":l1000")
所呈現的範圍又是
$A$188:$L$1000

請問問題出在哪裡？
收藏 分享

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
2#
發表於 2015-7-4 09:59 | 只看該作者
你的是 mac 系統
是否與此有關?

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2015-7-4 11:29 | 只看該作者
本帖最後由 lpk187 於 2015-7-4 11:40 編輯

回復 1# HSINLI


    這樣沒問題啊！假如範圍A1:C10好了，你也可以標示A10:C1的兩種寫法都對
範圍在一般寫法數字小的列會在前面，數字大的會在後面
依$A$100:$L$188的寫法和$A$188:$L$100其實是一樣的！
而$A$188:$L$1000，188的數字比1000小所以電腦直接判斷為$A$188:$L$1000，但若用人工寫的也可以寫$A$1000:$L$188
  1. Public Sub test()
  2. Range("A10:c1").Select
  3. Range("A1:c10").Select
  4. End Sub
複製代碼
上面代碼答案結果都是一樣的！

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
4#
發表於 2015-7-4 11:44 | 只看該作者
回復 3# lpk187

有道理
目前得到的結論是
EXCEL 會自動把小的值放前面, 大的值放後面
就能夠同一 標準
目的可能是這樣才能互比

例如
以下其實是相同區域的  
Range("A2: C100")  EXCEL  如果回傳 "A2:C100"
Range("A100: C2")  EXCEL  如果回傳 "A100:C2"
IF"A2:C100" <> "A100:C2"　Then
    Msgbox "這是不同的選取區"
End iF
要避免這種錯誤,  EXCEL 就必須統一標準

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2015-7-4 11:57 | 只看該作者
本帖最後由 lpk187 於 2015-7-4 11:59 編輯

回復 4# jackyq


IF"A2:C100" <> "A100:C2"　Then
    Msgbox "這是不同的選取區"
End iF
上面代碼是兩組不同的字串
範圍則是位置，是相同的！如下：
If Range("A10:c1").Address <> Range("A1:c10").Address Then
    MsgBox "這是不同的選取區"'
End If
所以這不是錯誤！

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
6#
發表於 2015-7-4 12:25 | 只看該作者
回復 5# lpk187

你誤會我的意思
版大他其實就是問
Range("A10:c1").Address = 為何 EXCEL 不是傳回 "A10:c1" 反而傳回  "A1:c10"
Range("A1:c10").Address = "A1:c10"

我要跟他說 Range("A10:c1") 和 Range("A1:c10") 其實是相同的選取區
如果 EXCEL 它設計成 一個傳回 "A1:c10" 另一個卻傳回"A10:c1"
將導致發生以下的錯誤現象
IF "A1:c10" <> "A10:c1"　Then   (  if Range("A1:c10").Address  <> Range("A10:c1").Address  then )
    Msgbox "這是不同的選取區"
End iF

所以 EXCEL 才會把 Range("A10:c1").Address = 改成傳回  "A1:c10"
這樣就不會出現以上的問題

版大他就是無法理解為何  Range("A10:c1").Address  為何不是傳回 "A10:c1" 而是傳回 "A1:c10"
我要告訴他的是如果  Range("A10:c1").Address   傳回的是  "A10:c1"
將會引發下列的錯誤
IF Range("A1:c10").Address  <> Range("A10:c1").Address  Then
    Msgbox "這是不同的選取區"
End iF
這也就是我認為 EXCEL 為何不傳回 "A10:c1" 的原因

你...沒看清楚我的意思

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
7#
發表於 2015-7-4 12:33 | 只看該作者
不好意思, 上面寫得也點雜
想修改已經超過3分鐘無法修改


你誤會我的意思
版大他就是無法理解為何  Range("A10:c1").Address  為何不是傳回 "A10:c1" 而是傳回 "A1:c10"
我要告訴他的是如果  Range("A10:c1").Address   傳回的是  "A10:c1"
將會引發下列的錯誤
IF Range("A1:c10").Address  <> Range("A10:c1").Address  Then
    Msgbox "這是不同的選取區"
End iF
把 Range("A1:c10").Address  直接以值來替代就變為如下
IF ("A1:c10") <> "A10:c1" Then
    Msgbox "這是不同的選取區"
End iF

這也就是我認為 EXCEL 為何不傳回 "A10:c1" 的原因

你...沒看清楚我的意思

TOP

HSINLI

帖子
13 
主題
4 
精華
0 
積分
17 
點名
0  
作業系統
mac 
軟體版本
os10 
閱讀權限
10 
註冊時間
2015-6-16 
最後登錄
2015-8-10 
8#
發表於 2015-7-4 14:05 | 只看該作者
喔喔！了解了！
所以說excel會自動將數字小得換到前方，但是所選取的範圍一樣沒有變更
是這樣嗎？？

TOP

HSINLI

帖子
13 
主題
4 
精華
0 
積分
17 
點名
0  
作業系統
mac 
軟體版本
os10 
閱讀權限
10 
註冊時間
2015-6-16 
最後登錄
2015-8-10 
9#
發表於 2015-7-4 15:28 | 只看該作者
不好意思，想要再詢問一下
range這樣的寫法出了什麼問題嗎？
Range("a" & i - 1 * 100 + 88 & ":l " & i * 100 + 88).Copy j
為什麼每次執行的時候都出現1004錯誤

整組code見附件，主要是要用vba叫ie，複製貼上其內容至excel
(會這樣操作是因為該網址無法用querytable下載）
  1. Sub 擷取yahoofinanceetf()

  3. Dim j As Range
  4. Dim i As Integer
  5. Dim url As String

  7.     Cells.Clear
  8.    
  9.     Application.ScreenUpdating = False
  10.     Set ie = CreateObject("internetexplorer.application")

  12. For i = 1 To 16 '欲複製下載的網頁頁數有16頁
  13.     With ie
  14.         .Visible = False
  15.         .Navigate "http://finance.yahoo.com/etf/lists/?mod_id=mediaquotesetf&tab=tab4&scol=avgcap&stype=desc&rcnt=100&page=" & i

  17.     Do While .ReadyState <> 4
  18.         DoEvents
  19.     Loop
  20.         .ExecWB 17, 2
  21.         .ExecWB 12, 2
  22.    End With
  23.   If i = 1 Then '如果是第一頁的話從A1開始貼
  24.         Range("A1").Select
  25.         ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
  26.                 False, NoHTMLFormatting:=True
  27.    
  28.     Range("a87:l187").Copy Range("a1") '因為是全頁複製故只將所需的表格複製貼上到指定位置
  29.     Range("a102:l302").Clear '除以上所需外之後的內容清除

  31. Else '如果是第二頁之後的內容
  32.      Set j = Cells(Rows.Count, "a").End(xlUp).Offset(1) '將range J指定在使用過儲存格的下一個空白儲存格
  33.       j.Select
  34.       ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
  35.                 False, NoHTMLFormatting:=True
  36.    Range("a" & i - 1 * 100 + 88 & ":l " & i * 100 + 88).Copy j  '將所需的資料貼至range j
  37.    j.EntireRow.Delete '將那一行整行刪除，因為是標題列，前面已有同樣內容
  38.    Range("a" & i * 100 + 2 & ":l65536").Clear '除所需部份，其餘內容清除
  39.    Set j = Nothing '清除j的賦值，下次循環再重新定義新的range j
  40.   End If
  41. Next i

  43. ie.Quit

  45. End Sub
複製代碼

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
10#
發表於 2015-7-4 16:09 | 只看該作者
i - 1 * 100 應該是寫成   (i - 1) * 100

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
12
返回列表 上一主題