會員登入
新使用者？立即註冊
.
服務首頁|服務說明|Yahoo!奇摩.
知識+ 首頁
知識分類
電腦網路
科學常識
醫療保健
煩惱心事
生活資訊
手機通訊
休閒嗜好
視聽娛樂
運動體育
社會人文
商業金融
教育學習 .如何做
煩惱
主題知識
.我要發問 發表 我要發問 ..熱門： 年菜食譜 過年禁忌 犯太歲 流感 2013燈會 主題 金蛇報喜，大過好年 用手機上知識+ .知識搜尋 ....知識+ 首頁> 電腦網路> 軟體> 商務應用 加入追蹤 轉寄朋友 友善列印 .知識問題|
VBA~數字組合的儲存格標示底色之語法(二)。. 發問者： DEER ( 實習生 5 級)
擅長領域： 商務應用 | 周邊設備
發問時間： 2012-12-07 09:49:14
解決時間： 2012-12-10 13:31:13
解答贈點： 30 ( 共有 5 人贊助 )
回答： 1 評論： 0 意見： 10
[ 檢舉 ]
網友正面評價
100%
.共有 15 人評價.參考附件︰http://www.FunP.Net/432800
說明︰
1.以Nrange =500為例。
2.數字組合基準︰
在.Range("B2","H" & mthcount + 1)的範圍內~
以01~49各取二個數字為一組(即=COMBIN(49,2)共1176組)，且各單組合必須在同一列。
備註︰
1.簡單說~本題需求就是將列149~列160的一星程式碼改編為二星~寫入列111
2.各單組合數字的其它相同組合~有顯示就依據需求標示指定底色，無顯示就略過不標示。
需求︰
1.依據說明2的邏輯，以最接近.Range("B2","H" & mthcount + 1)(含)為原則~各單組合各取3組。
2.將各單組合的3個組合各標示底色~
最接近.Range("B2","H" & mthcount + 1) (含)的各單組合標示6號底色。
次接近.Range("B2","H" & mthcount + 1) (含)的各單組合標示8號底色。
第三接近.Range("B2","H" & mthcount + 1) (含)的各單組合標示45號底色。
EX︰
01,02最接近列501為B469,C469則6號底色。
01,02次接近列501為B427,C427則8號底色。
01,02第三接近列501為B403,C403則45號底色。
01,03最接近列501為B433,C433則6號底色。
01,03次接近列501為B427,C427則8號底色。
01,03第三接近列501為B264,H264則45號底色。
05,11最接近列501為B501,C501則6號底色。
05,11次接近列501為B422,H422則8號底色。
05,11第三接近列501為B396,D396則45號底色。
05,15最接近列501為B501,D501則6號底色。
05,15次接近列501為B369,H369則8號底色。
05,15第三接近列501為B343,C343則45號底色。
……其餘以此類推
詳如附件。
以上需求敬請各位前輩不吝賜教！ 謝謝！
2012-12-08 02:23:37 補充
筆誤更正~
最接近.Range("B2","H" & mthcount + 1)(含)
應為
最接近.Range("B" & mthcount + 1 , "H" & mthcount + 1) (含)
次接近.Range("B2","H" & mthcount + 1)(含)
應為
次接近.Range("B" & mthcount + 1 , "H" & mthcount + 1) (含)
最佳解答發問者自選
.. 回答者： 准提部林 ( 大師 5 級 )
擅長領域： 商務應用 | VisualBasic
回答時間： 2012-12-10 13:11:27
[ 檢舉 ] .EXCEL VBA．列出〔１－４９〕全部〔雙星組合〕最後３次出現的期數
＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
■程式碼：僅列出主段，餘請參閱範例檔
Sub 雙星尾三期()
Dim i&, j&, Jm, k&, Km&, y&, Ym&
Dim uG, uN(4849), uT$(1 To 49, 1 To 49), No1$, No2$, UU()
With ActiveSheet
y = .[A65536].End(xlUp).Row
If y = 1 Then Exit Sub
For i = y - 1 To 2 Step -1
uG = .Cells(i, 2).Resize(1, 7).Value
For j = 1 To 6
No1 = Application.Small(uG, j)
For k = j + 1 To 7
No2 = Application.Small(uG, k)
Km = No1 * 100 + No2
If uN(Km) < 3 Then
uT(No1, No2) = uT(No1, No2) & i & ","
uN(Km) = uN(Km) + 1
If uN(Km) = 1 Then Ym = Ym + 1
End If
Next k
Next j
Next i
If Ym = 0 Then Exit Sub
ReDim UU(1 To Ym, 1 To 4)
For i = 1 To 49: For j = 1 To 49
If uT(i, j) <> "" Then
Jm = Jm + 1
UU(Jm, 1) = "'" & Format(i * 100 + j, "0000")
uG = Split(uT(i, j), ",")
For k = 0 To UBound(uG) - 1
UU(Jm, k + 2) = uG(k) - 1
Next k
End If
Next j: Next i
.[K2].Resize(Ym, 4).Value = UU()
End Sub
■附加功能：
１．尾３期的標色以〔格式化條件〕處理。
２．可輸入指定〔雙星號碼〕，利用〔超連結〕找到尾３期的位置。
並自動列出尾３期的號碼。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜範例檔＞下載：
檔案名稱：20121208a01(雙星尾三期).rar
http://www.funp.net/372376
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
為善尚須善為．福至必有至福．祝．有緣者．常樂
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
相關詞：
組合語言,排列組合,組合屋,組合隊,組合音響,全民打棒球組合隊,行銷組合,投資組合,white-t全新牙齒亮白組合,三點組合
組合,Next,標示,林．＞,Sub ReDim UU,4849,不吝賜教,語法,需求,amp[ 快速連結 ] 其它回答( 0 ) | 意見( 10 ) | 評論( 0 )
.發問者評價 准大︰
感謝您耐心的為末學解惑~
貴表格架構讓末學有另一新思考
謝謝您^^
也祝福您:喜悅常樂! .發表你的評價
你的評價 發表評價： 正面 普通 負面
評價內容： 發表 取消
.
加入追蹤 轉寄朋友 友善列印 .馬上按讚 加入 Yahoo! 奇摩 知識+ 粉絲團
•免費索取商英光碟+小書
•多益700分線上測驗題庫
•立即免費測試你的多益等級
•英文email超實用金句！
•測你在旁人眼中的英文力？
•多益700分線上測驗題庫
相關問答
[ 數學 ]數學-排列組合
.
[ 運動競速 ]全民打棒球 組合隊
.
[ 數學 ]組合學的由來？
.
[ 星座血型 ]12星座最佳戀人、朋友、同事、敵人、曖昧組合
.
[ C&C++ ]組合語言的優缺點
.
[ 數學 ]排列組合問題：求六位數分別用０～９（可重複）填入的出現個數
.
更多
.其他回答(0)
意見(10)
相關評論(0)
.目前沒有資料
001 意見者： applerot ( 知識長 )
擅長領域： 商務應用 | 工程科學
發表時間： 2012-12-08 15:54:10
[ 檢舉 ] ..太多組最後會3個顏色混在一起看不出顏色的意義! 002 意見者： 准提部林 ( 大師 5 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2012-12-08 18:19:32
[ 檢舉 ] ..＜參考檔＞：
http://www.funp.net/26520
applerot ( 知識長 )說得沒錯，填色混亂用處不大，
提供另一參考，請自行套至主程式（Call）！ 003 意見者： Airman ( 實習生 5 級 )
擅長領域： 商務應用 | 公益彩券
發表時間： 2012-12-08 20:07:42
[ 檢舉 ] ..呵~呵~小弟就有提醒D大一星尚可著色，二星會一團混亂~只是D大堅持二星著色看會混合到什麼程度?
現在applerot 知識長和准大也這樣認為，而且准大的架構設計的很簡潔~
D大應該考慮採用為是。^^ 004 意見者： DEER ( 實習生 5 級 )
擅長領域： 商務應用 | 周邊設備
發表時間： 2012-12-08 21:28:21
[ 檢舉 ] ..謝謝applerot 知識長和准大和Air大的指導。
不好意思，末學當初沒有採納Air大的建議~
徒增好意幫忙解惑的前輩們之困擾~
真是抱歉!敬請見諒!謝謝! 005 意見者： DEER ( 實習生 5 級 )
擅長領域： 商務應用 | 周邊設備
發表時間： 2012-12-08 21:32:56
[ 檢舉 ] ..准大︰
謝謝您耐心的重新設計表格格式~非常適用~謝謝您!
依貴解檔格式~是否可再麻煩您曾加下列二項需求︰
1_O1填入的三個組合標示出來~
EX︰O1=0545時~
479，233，230的05,45各標示6,8,45的底色(如附件)，
其餘的05,45的組合則標示40底色。
EX︰O1=1314時~
489，452，423的13,14各標示6,8,45的底色(如附件)，
其餘的13,14的組合則標示40底色
標示40底色的組合~附件未標示出來，怕標示二個舉例會太亂。
~續~ 006 意見者： DEER ( 實習生 5 級 )
擅長領域： 商務應用 | 周邊設備
發表時間： 2012-12-08 21:33:17
[ 檢舉 ] ..2_將上述的尾2期數+(mthcount + 2-尾1期數)和尾3期數+(mthcount + 2-尾1期數)~
當二個加上期數的列，有交集數字時，則將該交集數字各標示4號的底色，
如果都無交集數字就略過。
不好意思~為完成一個階段的完整需求，所以冒昧再增加需求~
敬請見諒!謝謝您!
http://www.FunP.Net/740448 008 意見者： DEER ( 實習生 5 級 )
擅長領域： 商務應用 | 周邊設備
發表時間： 2012-12-09 11:59:53
[ 檢舉 ] ..准大︰
不好意思，有二個問題請教︰
1_末學將貴程式碼轉到總檔後~
列197的〔If A <> ""〕會和列171的貴公式相衝突，所以只能擇其中一列執行~
2_
產生的效果檔的P1右拉公式︰~希望能~
再因Q1填入新的數字組合而產生心的對應期數，且希望如005和006意見~.Range("B2" , "H" & mthcount + 2) 的底色標示也能對應改變。
如果是因2003版只能標示3個格式底色，請將8號和45號都改成6號底色即可。
以上敬請賜教!謝謝您!
參考附件：
http://www.FunP.Net/553619 009 意見者： 准提部林 ( 大師 5 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2012-12-09 14:15:20
[ 檢舉 ] ..＜參考檔＞：
http://www.funp.net/372376
雙星尾三期填色一樣使用〔格式化條件〕，
整體檔案需求太複雜，要做到全部效果，非能力所及，
只提供部份參考，等其他大大來竟全功，
時間有限，僅此為止了！
一張表格使用太多互相交雜的填色，或許應重新評估！！！ 010 意見者： DEER ( 實習生 5 級 )
擅長領域： 商務應用 | 周邊設備
發表時間： 2012-12-09 15:30:48
[ 檢舉 ] ..准大:
就這樣即可。
請上答!謝謝您!^^ 011 意見者： DEER ( 實習生 5 級 )
擅長領域： 商務應用 | 周邊設備
發表時間： 2012-12-10 12:56:44
[ 檢舉 ] ..准大:
整體檔案需求太複雜，要做到全部效果，非能力所及。
如果連您都說:非能力所及~
末學想應該也是能答者寥寥無幾^^
所以延長發問時間應該也沒有什麼意義。
本題後續延伸的需求為呈現一個段落完成而顯得太複雜~
等末學重新思考後再另PO題請教!謝謝您!
敬請上答!感恩囉^^ 1 發表意見發表意見字數已達上限，要改成發表評論嗎？. 發表 取消 .
目前沒有資料 我要評論 註冊
會員登入 .公告： 知識團員轉粉絲全數完成 .
HOT! 拍賣 | MacBook 雙核筆電 四核心 .
.刊登贊助網站•寶盛商務軟體 管理一把罩
www.lancer.com.tw
老闆們的首選！極高效率的企業管理，低成本、操作方便，隨時支援跨部門處理。
www.lancer.com.tw
•全新 Windows 8
www.microsoft.com
超快開機速度、電池效能再提升，搭配雲端整合服務，重要資訊隨身帶！
www.microsoft.com
•正航資訊-企業指定ERP系統
www.chi.com.tw
提昇營運績效，快速導入企業專用ERP！提供優質進銷存、薪資、MPS、MRP！
www.chi.com.tw
•POS系統-數碼動量
www.hotzsoft.com
國內專業POS系統廠商，超過8000家店家使用，應用範圍廣，歡迎洽詢。
www.hotzsoft.com
•元志科技 商務軟體推薦
www.iemis.com.tw
ERP研討會開始報名！成本運算概念、HR系統與二代健保、Dyn讓您一次掌握！
www.iemis.com.tw
•傳直銷商務軟體首選-威昊資訊
www.whi.com.tw
傳直銷軟體必選！進貨銷貨、會員、庫存管理、獎金明細統一整合，支援多國語系。
www.whi.com.tw.最新商務應用
發問中
已解決
.資料庫問題 -- 如何批次處理多筆查詢
VBA~依據條件增加四個指定數字組合的工作表。
countif
mac word 2008 直書橫書在哪？？？
更多
Outlook 2007 功能區 想用刷條碼來管理貨品儲位.進、銷、備料可看儲位 請教我用excel算薪水，拜託拜託 access 超連結問題 EXCEL VBA篩選問題 更多
精選關鍵字
..vba OpenOffice Access 客戶管理 進銷存 庫存管理 Project 會計軟體 Visio Pdf 傳真 Outlook 金融 進銷存軟體 方程式 Spss PowerPoint Excel 文書處理 試算表 資料庫 簡報 Word 財務 Office 庫存表 專案管理 符號
.知識搜尋 ...雅虎資訊 版權所有 (c) 2013 Yahoo! Taiwan. All Rights Reserved. 「本服務設有管理員」
服務條款隱私權政策..知識+ 之問答內容是由參與Yahoo!奇摩知識+ 之網友提供，僅供參考，Yahoo!奇摩不保證其正確性。
...
.
phibrainno17 發表在 痞客邦 留言(0) 人氣()
留言列表
