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

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

號碼挑選

小學生 Rank: 1

帖子: 12
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 10
註冊時間: 2010-9-8
最後登錄: 2012-2-16

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-12-8 12:02 | 只看該作者

號碼挑選

有1~25的數字(似賓果盤的方式)，點選被抽中的數字後，他會自動顯示出在另外一排~
是否需要用vba方式去設定呢??

呈現方式如附檔。

再麻煩各位大大們解答~感謝!!

號碼挑選.rar (6.21 KB)

收藏

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-12-8 13:34 | 只看該作者

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [g7] <> "" Then [c7:g7] = ""
If Not Intersect(Target, [C13:g17]) Is Nothing Then
[c7:g7].SpecialCells(4)(1) = Target
End If
End Sub

小學生 Rank: 1

帖子: 12
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 10
註冊時間: 2010-9-8
最後登錄: 2012-2-16

3^#

發表於 2010-12-8 14:03 | 只看該作者

好厲害!!
感謝 oobird大大解答了我的問題!!

小學生 Rank: 1

帖子: 12
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 10
註冊時間: 2010-9-8
最後登錄: 2012-2-16

4^#

發表於 2010-12-8 15:17 | 只看該作者

本帖最後由 kelsie 於 2010-12-8 15:20 編輯

想再問~如果c7:g7選出來的5個數字~
要另外在c8:g8進行大小排序的話(小->大)
該如何進行??

p.s 我本來是直接在那行表格內直接下small函數
但想知道後端vba可以怎麼進行??

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2010-12-8 15:31 | 只看該作者

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [g7] <> "" Then [c7:g8] = ""
If Not Intersect(Target, [C13:g17]) Is Nothing Then
[c7:g7].SpecialCells(4)(1) = Target
End If
If [g7] <> "" Then
[c8:g8] = [SMALL(c7:g7,column(a1:e5))*column(a1:e1)^0]
End If
End Sub

小學生 Rank: 1

帖子: 12
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 10
註冊時間: 2010-9-8
最後登錄: 2012-2-16

6^#

發表於 2010-12-8 16:21 | 只看該作者

感謝oobird大大~~

If [g7] <> "" Then
[c8:g8] = [SMALL(c7:g7,column(a1:e5))*column(a1:e1)^0]
(這段的用意是??)
End If

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

發表於 2010-12-8 16:30 | 只看該作者

用意就是當5個填滿時在下一列排序。

超級版主 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^#

發表於 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

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

發表於 2010-12-8 17:32 | 只看該作者

其實就是等於框選那5個儲存格輸入陣列公式=SMALL(C7:G7,COLUMN(A1:E1))*COLUMN(A1:E1)^0
在vba中用中括號把公式框起來就會直接得到公式的值。而vba中多個儲存格同時寫入一個公式時後面*COLUMN(A1:E1)^0就必須的，才不致成為第一個值。

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

10^#

發表於 2010-12-8 20:30 | 只看該作者

回復 9# oobird
謝謝你的說明

靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -

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