矩陣 or VBA 如何建立 ? - Excel程式區

[發問] 矩陣 or VBA 如何建立 ?

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2014-4-18 09:27 | 顯示全部帖子

回復 3# duck_simon
試試看

Option Explicit
Sub Ex()
Dim Rng(1 To 3) As Range, i As Integer, ii As Integer, iii As Integer
Dim Msg(1 To 5) As Integer
Dim MsgAll(1 To 19) As Integer
With Sheet1
Set Rng(1) = .Range("G1:K" & .Cells(.Rows.Count, "G").End(xlUp).Row) 'G:K 的範圍
For i = 20 To Rng(1).Rows.Count '第20列開始
Set Rng(2) = Rng(1).Rows(i)
Set Rng(3) = Rng(2).Offset(-19).Resize(19) '往上19列的範圍
Erase MsgAll '紀錄19列中的 Msg
'Erase 陳述式重新初始化固定大小陣列的元素 , 並釋放動態陣列的儲存空間
For ii = 1 To 19
Erase Msg
For iii = 1 To 5
If Application.CountIf(Rng(3).Rows(ii), Rng(2).Cells(iii)) Then Msg(iii) = 1 '記錄每一列的相同數
Next
If Application.Sum(Msg) >= 4 Then MsgAll(ii) = 1
Next
If Application.Sum(MsgAll) >= 3 Then
Rng(2).Cells(1, iii) = 1
Else
Rng(2).Cells(1, iii) = 0
End If
Next
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-4-18 16:46 | 顯示全部帖子

回復 7# duck_simon
這是VBA 程式碼,你要去執行這程式.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 站在半路，比走到目標更辛苦。