麻辣家族討論版版 » Excel程式區 » 矩陣 or VBA 如何建立 ?

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

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

　暱稱: duck_simon

中學生 Rank: 2

帖子: 117
主題: 33
精華: 0
積分: 170
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-10-18

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-4-17 09:30 | 只看該作者

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

請教各位大大先進:
矩陣 or VBA 如何建立 ?
如附件內說明:

活頁簿1.rar (7.32 KB)

樓主熱帖

收藏

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2014-4-17 10:48 | 只看該作者

L27 =N(COUNT(MATCH(G27:K27,G8:K8,))>3)
陣列輸入公式 (CTRL+SHIFT+ENTER 齊按輸入公式)

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

　暱稱: duck_simon

中學生 Rank: 2

帖子: 117
主題: 33
精華: 0
積分: 170
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-10-18

3^#

發表於 2014-4-17 20:32 | 只看該作者

L27 =N(COUNT(MATCH(G27:K27,G8:K8,))>3)
陣列輸入公式 (CTRL+SHIFT+ENTER 齊按輸入公式)
ML089 發表於 2014-4-17 10:48

回ML089大大: 是我表達錯誤啦 !?
是前20期內, 每一期都要比對.. Sorry !..

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2014-4-17 22:43 | 只看該作者

第1期比第2期~第20期嗎?
第2期比第3期~第21期嗎?
第3期比第4期~第22期嗎?

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

5^#

發表於 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元的贊助,人人有能力.

　暱稱: duck_simon

中學生 Rank: 2

帖子: 117
主題: 33
精華: 0
積分: 170
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-10-18

6^#

發表於 2014-4-18 16:33 | 只看該作者

第1期比第2期~第20期嗎?
第2期比第3期~第21期嗎?
第3期比第4期~第22期嗎?
ML089 發表於 2014-4-17 22:43

回ml大大可以, 差一期沒關係 !

　暱稱: duck_simon

中學生 Rank: 2

帖子: 117
主題: 33
精華: 0
積分: 170
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-10-18

7^#

發表於 2014-4-18 16:37 | 只看該作者

回復 duck_simon
試試看
GBKEE 發表於 2014-4-18 09:27

回GBKEE大大: 複製程式碼之後還要設位格 (L27) =EX 嗎?

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

8^#

發表於 2014-4-18 16:46 | 只看該作者

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

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

9^#

發表於 2014-4-18 17:31 | 只看該作者

回復 6# duck_simon

L27 =IF(OR(MMULT(1-ISERROR(MATCH(N(OFFSET(G27,-ROW($1:$20),{0,1,2,3,4},)),G27:K27,)),{1;1;1;1;1})>3),1,0)
往上複製

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

　暱稱: duck_simon

中學生 Rank: 2

帖子: 117
主題: 33
精華: 0
積分: 170
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-10-18

10^#

發表於 2014-4-19 08:43 | 只看該作者

回復 8# GBKEE

感謝超級大板主指導 ,謝謝 ~

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。

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