會員登入
新使用者？立即註冊
.
服務首頁|服務說明|Yahoo!奇摩. 知識+ 首頁
知識分類
電腦網路
科學常識
醫療保健
煩惱心事
生活資訊
手機通訊
休閒嗜好
視聽娛樂
運動體育
社會人文
商業金融
教育學習 .如何做
煩惱
主題知識
.我要發問 發表 我要發問 ..熱門： 蛇年運勢 年菜食譜 犯太歲 2013燈會 平溪天燈節 主題 金蛇報喜，大過好年 用手機上知識+ .知識搜尋 ....知識+ 首頁> 電腦網路> 軟體> 商務應用 加入追蹤 轉寄朋友 友善列印 .知識問題|
VBA~同欄位語法研習。. 發問者： DEER ( 實習生 5 級)
擅長領域： 商務應用 | 周邊設備
發問時間： 2013-02-03 03:27:19
解決時間： 2013-02-04 00:16:44
解答贈點： 32 ( 共有 6 人贊助 )
回答： 1 評論： 0 意見： 3
[ 檢舉 ]
網友正面評價
100%
.共有 10 人評價.參考附件︰http://www.FunP.Net/624512
For Each a In.Range("B2", "H" & mthcount + 1)
If Application.CountIf(.Range("B" & mthcount + 1,"H" & mthcount + 1), a) Then a.Interior.ColorIndex = 6
Next
需求︰
想將列34-列36~再增加一個條件~
.Range("B2", "H" & mthcount + 1)中的數字~
必須與.Range("B"& mthcount + 1, "H" & mthcount + 1)的數字同欄位~
則該數字才標示6號底色。
詳如附件。
請問︰
程式碼應該如何再增寫? 謝謝!
最佳解答發問者自選
.. 回答者： 冰淇淋 ( 研究生 1 級 )
擅長領域： 商務應用 | VisualBasic
回答時間： 2013-02-03 23:20:30
[ 檢舉 ] .Dim xR As Range, ArNo% ', CIAr
'CIAr = Array(0, 40, 39, 45, 4, 38, 37, 8) 'ColorIndexArray
'CIAr 陣列索引 1 2 3 4 5 6 7
'當a.Column為 2 3 4 5 6 7 8
'本題清一色 6, 不因欄位影響色,故去除索引陣列
Set xR = .[A1].Offset(mthcount, 1) '去掉多餘的.Resize(1, 7)
For Each a In .Range("B2:H" & mthcount + 1)
' 因相對欄位的位置仍有相關,故需保留ArNo
ArNo = a.Column - 1
If a = xR(1, ArNo) Then a.Interior.ColorIndex = 6 'CIAr(ArNo)
Next
~
本題mthcount=100
設定xR=[B101]
設a為[C2]時,a.column=3,要和[C101]比較是否相等
xR=[B101]
xR(1,ArNo)=xR(1,a.column-1)=xR(1,2)=[C103]
~
參考檔案
http://www.FunP.Net/665649
相關詞：
無名音樂語法,音樂語法,無名語法,游標語法,語法教學,連結語法,語法產生器,css語法,html語法,部落格語法
語法,amp,詳如附件,Dim,Array,B101,程式碼,C101,C103,數字[ 快速連結 ] 其它回答( 0 ) | 意見( 3 ) | 評論( 0 )
.發問者評價 冰大︰
謝謝您的耐心指導和幫忙!
PS:
由衷感謝您再詳加說明程式的意義和變化因由~
末學受益良多~感恩喔^^ .發表你的評價
你的評價 發表評價： 正面 普通 負面
評價內容： 發表 取消
.
加入追蹤 轉寄朋友 友善列印 .馬上按讚 加入 Yahoo! 奇摩 知識+ 粉絲團
•免費索取商英光碟+小書
•多益700分線上測驗題庫
•立即免費測試你的多益等級
•英文email超實用金句！
•測你在旁人眼中的英文力？
•多益700分線上測驗題庫
相關問答
[ 語法特效 ]尋夢語法 !
.
[ 語法特效 ]語法是甚麼呀？是留言板的語法
.
[ 網路文化 ]部落格語法
.
[ 語法特效 ]無名網誌語法
.
[ 語法特效 ]guestbook語法
.
[ 語法特效 ]音樂語法和滑鼠語法
.
更多
.其他回答(0)
意見(3)
相關評論(0)
.目前沒有資料
001 意見者： 冰淇淋 ( 研究生 1 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-02-03 22:17:20
[ 檢舉 ] ..同樣的東東,發表兩次,真不好意思.....^^"
~
http://www.FunP.Net/665649 002 意見者： DEER ( 實習生 5 級 )
擅長領域： 商務應用 | 周邊設備
發表時間： 2013-02-03 22:32:21
[ 檢舉 ] ..冰大:
OK了!敬請上答!
謝謝您^^
PS︰
您太客氣了!
應該是說:末學笨拙~
同性值的問題，要麻煩您寫二次~
才知道其變化(差別)是在哪裡^^" 003 意見者： DEER ( 實習生 5 級 )
擅長領域： 商務應用 | 周邊設備
發表時間： 2013-02-04 00:15:59
[ 檢舉 ] ..冰大︰
http://tw.knowledge.yahoo.com/question/question?qid=1013020305160
此題的流程架構有點困擾~不知末學的想法可不可行?
冒昧勞駕您幫忙思考一下~
1..如果是不可行~敬請告之一聲!並煩請告知該如何設計流程架構為宜?
2.如果可行~勞煩您再次賜教為禱!
謝謝您^^ 1 發表意見發表意見字數已達上限，要改成發表評論嗎？. 發表 取消 .
目前沒有資料 我要評論 註冊
會員登入 .公告： 知識團員轉粉絲全數完成 .
HOT! 拍賣 | 雙核心 奇美19吋 無線網卡 .
.刊登贊助網站•寶盛商務軟體 管理一把罩
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
•金賺錢POS 立即享14天免費
retail.hisales.hinet.net
中華流通雲全方位整合POS、CRM系統，掌握門市資訊更迅速，提升經營效率！
retail.hisales.hinet.net
•元志科技 商務軟體推薦
www.iemis.com.tw
ERP研討會開始報名！成本運算概念、HR系統與二代健保、Dyn讓您一次掌握！
www.iemis.com.tw.最新商務應用
發問中
已解決
.資料庫問題 -- 如何批次處理多筆查詢
VBA~依據條件增加四個指定數字組合的工作表。
countif
mac word 2008 直書橫書在哪？？？
更多
Outlook 2007 功能區 想用刷條碼來管理貨品儲位.進、銷、備料可看儲位 請教我用excel算薪水，拜託拜託 access 超連結問題 EXCEL VBA篩選問題 更多
精選關鍵字
..庫存表 Pdf 庫存管理 進銷存 簡報 Word 財務 金融 進銷存軟體 Project 專案管理 Access Office 資料庫 PowerPoint Visio Spss 會計軟體 Excel OpenOffice 客戶管理 試算表 符號 Outlook 傳真 方程式 文書處理 vba
.知識搜尋 ...雅虎資訊 版權所有 (c) 2013 Yahoo! Taiwan. All Rights Reserved. 「本服務設有管理員」
服務條款隱私權政策..知識+ 之問答內容是由參與Yahoo!奇摩知識+ 之網友提供，僅供參考，Yahoo!奇摩不保證其正確性。
...
.
phibrainno17 發表在 痞客邦 留言(0) 人氣()
留言列表
