號碼挑選 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 號碼挑選

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

號碼挑選

超級版主 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兔年全勤獎章

1^# 跳轉到 »

發表於 2010-12-8 16:40 | 顯示全部帖子

本帖最後由 GBKEE 於 2010-12-8 16:43 編輯

[SMALL(c7:g7,column(a1:e1))*column(a1:e1)^0]oobird 發表於 2010-12-8 15:31

oobird 版主:
第一次看到陣列公式用VBA寫在工作表上只顯示值而沒有公式
可否解釋一下 "*column(a1:e1)^0"的運作情形
及引介類似的VBA陣列公式.讓小弟見識見識.
謝謝你

超級版主 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兔年全勤獎章

2^#

發表於 2010-12-8 20:30 | 顯示全部帖子

回復 9# oobird
謝謝你的說明

超級版主 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兔年全勤獎章

3^#

發表於 2010-12-10 08:44 | 顯示全部帖子

回復 12# kelsie

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng(2) As Range, i%, ii%
Set Rng(0) = [B3:I4] '數字呈現區
Set Rng(1) = [B6:I7] '數字排序區
Set Rng(2) = [B10:K13] '數字選取區
If Not Intersect(Target, Rng(2)) Is Nothing Then
i = Application.Count(Rng(0)) '計算數字呈現區的總數字數
If i = Rng(0).Count Then '數字呈現區全部填滿數字時
Rng(0) = "": Rng(1) = "" '清空->數字呈現區,數字排序區
i = Application.Count(Rng(0)) '計算數字呈現區的總數字數
End If
If Application.CountIf(Rng(0), Target) = 0 Then '數字呈現區裡尋找重複的數字
Rng(0).Cells(i + 1) = Target
For ii = 1 To i + 1
Rng(1).Cells(ii) = Application.Small(Rng(0), ii) '傳回數字呈現區裡由小到大在數字排序區
Next
End If
End If
End Sub

複製代碼

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。

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