返回列表下一主題上一主題發帖

[發問] 請教各位高手大大vba 的index問題~

ii31sakura

中學生 Rank: 2

帖子: 43
主題: 13
精華: 0
積分: 75
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2014-5-6
最後登錄: 2019-6-17

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-5-6 18:23 | 只看該作者

[發問] 請教各位高手大大vba 的index問題~

請問各位大大，能否請幫忙解決一下小弟的困擾？

主要問題為：
分頁(異常批統計) 的L & M 欄內的值用以下的程式碼可以求得，但小弟想要那兩欄自動去換算除以J欄的資料、
例：(異常批統計)的L 2資料 / J2資料、(異常批統計)的M 2資料 / M2資料，(往下類推)
但一直不知道是卡在哪部份、故在此求助，感謝各位。

程式碼：
Public Sub 異常批統計_1判定()
Dim ARR
Dim ARR1
Dim arr2
Dim arr3 'test
Dim arr4 ' test1
Dim c As Integer

For i = 2 To [h65536].End(3).Row
Set findvalue = Worksheets("批異常Data").Columns("O").Find(What:=Worksheets("異常批統計").Cells(i, 8))

If findvalue.Row = 1 Then
   'With Worksheets("批異常Data") (目前不需使用)
'    arr2 = Worksheets("批異常Data").Range("b" & 1, "g" & findvalue.Row + 1) 'index (目前不需使用)
'    ARR = Worksheets("批異常Data").Range("O" & 1, "O" & findvalue.Row + 1) 'match (目前不需使用)
      Else

   arr2 = Worksheets("批異常Data").Range("H" & findvalue.Row - 1, "I" & findvalue.Row)
   ARR = Worksheets("批異常Data").Range("O" & findvalue.Row, "O" & findvalue.Row + 1)
   c = Application.Match(findvalue, ARR, 0)

   Worksheets("異常批統計").Range("L" & i, "M" & i) = Application.Index(arr2, c + 1) '問題點...


End If

Next
End Sub

樓主熱帖

ii31sakura

中學生 Rank: 2

帖子: 43
主題: 13
精華: 0
積分: 75
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2014-5-6
最後登錄: 2019-6-17

6^#

發表於 2014-5-7 08:34 | 只看該作者

owen06 大大、太謝謝你了~原來這種寫法也行、讓小弟學到了，感謝幫忙囉~

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

5^#

發表於 2014-5-6 23:04 | 只看該作者

回復 4# ii31sakura

很抱歉，我沒注意看到你是要那二欄都除以j欄，
你在『Worksheets("異常批統計").Range("L" & i, "M" & i) = Application.Index(arr2, c + 1) '問題點..』的下面輸入
Cells(i, 12) = Cells(i, 12) / Cells(i, 10)
Cells(i, 13) = Cells(i, 13) / Cells(i, 10)
他就會把那二欄都除以對應的j欄內容了

TOP

ii31sakura