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

[發問] VBA_指定對應列變更後的程式碼修正。

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-12-19 20:49 | 只看該作者

[發問] VBA_指定對應列變更後的程式碼修正。

本帖最後由 Airman 於 2015-12-19 20:56 編輯

以下是對應第3列時的程式碼~

         RW = Array(.[R6] - 3, .[T5] - 3, .Range("R" & b.Row) - 3)
                  Dim R(1 To 3), L(1 To 3)
                  For y = 1 To 3: Set R(y) = .[J:P].Rows(RW(y - 1) + 6).Cells: Next y
         For K = 1 To 7
               L(1) = K
               For y = 2 To 3
                  L(y) = Application.Match(R(1)(K), R(y), 0)
                  If IsError(L(y)) Then L(1) = 0: Exit For
                  'If L(y) <> L(1) Then L(1) = 0: Exit For　'若要求〔同欄〕，加入這行
               Next y
               If L(1) > 0 Then
                  For y = 1 To 3
                     R(y)(L(y)).Select
                     Selection.Interior.ColorIndex = Array(6, 4, 8)(y - 1)
                  Next
               End If
         Next K

Q_1︰請問︰當對應第3列改為第1列時的程式碼要如何修改?
         RW = Array(.[R6] - 1, .[T5] - 1, .Range("R" & b.Row) - 1)

Q_2︰請問︰當對應第3列改為第2列時的程式碼要如何修改?
         RW = Array(.[R6] - 2, .[T5] - 2, .Range("R" & b.Row) - 2)

Q_3︰請問︰當對應第3列改為第4列時的程式碼要如何修改?
         RW = Array(.[R6] - 4, .[T5] - 4, .Range("R" & b.Row) - 4)

★★因為三個問題解答是要放在三個不同的檔案，所以煩請將三個問題分開獨立作解。謝謝!

PS︰本來有想開三題發問比較清楚，但恐被誤解是為增加點數，所以併題發問，敬請見諒。

以上  懇請各位先進、前輩不吝賜教!  謝謝!

樓主熱帖

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

2^#

發表於 2015-12-19 23:24 | 只看該作者

本帖最後由 Airman 於 2015-12-19 23:33 編輯

依與准提版主大在http://forum.twbts.com/viewthrea ... a=pageD1&page=4
的#37比對(因M變數與小弟的原檔案重複，所以在今天的提問裡~將其改為L)~
RW = Array(b(1, -1)-0, b(1, -1) - .[T3], b(1, -1) - .[T3] * 2
For y = 1 To 3: Set R(y) = .[J:P].Rows(RW(y - 1) + 6).Cells: Next y
Dim M(1 To 3)
For k = 1 To 7
　　M(1) = k
　　For y = 2 To 3
　　　　M(y) = Application.Match(R(1)(k), R(y), 0)
　　　　If IsError(M(y)) Then M(1) = 0: Exit For
　　　　'If M(y) <> M(1) Then M(1) = 0: Exit For　'若要求〔同欄〕，加入這行　
　　Next y
　　If M(1) > 0 Then
　　　For y = 1 To 3: R(y)(M(y)).Interior.ColorIndex = Array(4, 45, 8)(y - 1): Next
　　End If
Next k
本來以為是-0或-1或-2或-3或-4或.....不會有差別
但套進小弟的使用檔中，卻只有-3跑出正確答案，其餘的答案都不符合QQ

摸索了一天~也找不出關鍵的錯誤是在哪裡^^"'

敬請諸位先進、前輩不吝賜教為禱! 感恩^^

TOP

Airman