- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
5#
發表於 2014-1-7 08:35
| 只看該作者
回復 4# loveinput - Sub ipchange()
- Dim rng, arr, i%, m% '宣告四個變數
- rng = Range(Sheets("外部資料").[a1], Sheets("外部資料").[a65536].End(xlUp)) '變數值=欄位a1~a65536中的所有有值資料
- '*** rng: 外部資料").[a1]以下沒有資料
- rng2 = Range(Sheets("來源資料").[a1], Sheets("來源資料").[c65536].End(xlUp)) '變數值=欄位a1~a65536中的所有有值資料
- '*** rng2這變數設定之後再也沒有用到,為何??
- ReDim arr(1 To UBound(rng), 1 To 20) '修改二維陣列大小MsgBox Val(rng)
- '*** UBound(rng) 錯誤-> rng: 外部資料").[a1]以下沒有資料
- For i = 1 To UBound(rng) - 1 Step 1
- m = m + 1
- '*** Sheets("來源資料").[h30] 沒有資料, Terminal IP 的程式碼錯誤
- 'Terminal IP
- If Range(Sheets("來源資料").[e1], Sheets("來源資料").[h30]).Find(Val(Split(rng(i + 1, 1), ".")(1))).Column = 5 And IsOdd(Val(Split(rng(i + 1, 1), ".")(3))) Then
- arr(m, 3) = Split(rng(i + 1, 1), ".")(0) & "." & Split(rng(i + 1, 1), ".")(1) + 10 & "." & Split(rng(i + 1, 1), ".")(2) & "." & Split(rng(i + 1, 1), ".")(3) + 1
|
|
發表於 2014-1-7 18:49
| 
