會員登入
新使用者？立即註冊
.
服務首頁|服務說明|Yahoo!奇摩.
知識+ 首頁
知識分類
電腦網路
科學常識
醫療保健
煩惱心事
生活資訊
手機通訊
休閒嗜好
視聽娛樂
運動體育
社會人文
商業金融
教育學習 .如何做
煩惱
主題知識
.我要發問 發表 我要發問 ..熱門： 過年吃什麼 犯太歲 流感 2013燈會 平溪天燈節 主題 金蛇報喜，大過好年 用手機上知識+ .知識搜尋 ....知識+ 首頁> 電腦網路> 軟體> 商務應用 加入追蹤 轉寄朋友 友善列印 .知識問題|
VBA語法研習。. 發問者： 龍龍 ( 實習生 5 級)
擅長領域： 商務應用 | 作業系統
發問時間： 2013-01-28 19:18:27
解決時間： 2013-01-30 23:39:43
解答贈點： 26 ( 共有 3 人贊助 )
回答： 1 評論： 0 意見： 13
[ 檢舉 ]
網友正面評價
100%
.共有 9 人評價.MS 2003
參考附件︰http://www.FunP.Net/12818
請問︰
列95的'xR(6) 公式程式碼要如何修改為一般程式碼?
以利程式碼有效執行(詳如Indefinite_3_3_100期)。
謝謝!
'計算區....................
.[E1] = "號碼"
.[E1:BB1].Font.Size = 14
.[F1:BB1].NumberFormatLocal = "00"
.[E2] = "統計列數"
.[E3] = "B欄指定範圍和值"
.[E4] = "F1*F2"
.[E5] = "F4-F3"
.[E6] = "F5指定數值之列數"
.[E1:BB5].Font.ColorIndex = 5
.[E6:BB6].Font.ColorIndex = 9
.[E1:BB6].Font.FontStyle = "粗體"
'...............................................
ss =WorksheetFunction.Sum(.Range("B3", "B" & mthcount -strrng + 3))
For j =1 To 49
Ifss Mod j = 0 Then
DimxR As Range
SetxR = .[IV1].End(xlToLeft)(1, 2)
xR = j
xR(2) = mthcount - strrng + 1
xR(3) = WorksheetFunction.Sum(.Range("B3", "B" &mthcount - strrng + 3))
xR(4) = xR * xR(2)
xR(5) = xR(4) - xR(3)
'xR(6) = "=IF(AND(F5>=0,MOD(F3,F1)=0),F3/F1,SUMPRODUCT((-SUMIF(OFFSET($B3,,,ROW(INDIRECT(""1:""&COUNT($A:$A)))),""<>"")=F5)*ROW(INDIRECT(""1:""&COUNT($A:$A)))))"
‘IfRR(6) = 0 Then .Columns(RR.Column).Delete
EndIf
Next
Set xR =Nothing
2013-01-28 19:35:53 補充
列96
IfRR(6) = 0 Then .Columns(RR.Column).Delete
更正為
'If xR(6) = 0 Then .Columns(xR.Column).Delete
最佳解答發問者自選
.. 回答者： 冰淇淋 ( 研究生 1 級 )
擅長領域： 商務應用 | VisualBasic
回答時間： 2013-01-30 22:11:07
[ 檢舉 ] .Indefinite_3(MF)_v2版
~
xR(5)=..
'插入程序
Dim yR As Range, NON%
If xR(5) >= 0 Then
xR(6) = xR(3) / xR
Else
For Each yR In Range("B3:B" & mthcount + 1)
NON = NON + yR.Value
If NON = -xR(5) Then xR(6) = yR.Row - 2: Exit For
If NON > -xR(5) Then xR(6) = 0: Exit For
Next
End If
'-
'xR(6)=
~
因考慮i=1 to 49 時出過多數字
重複執行For Each ...Next產生效率不好問題
先增一陣列內容等同
SUMPRODUCT((SUMIF(OFFSET($B3,,,ROW(INDIRECT(""1:""&COUNT($A:$A)))),""<>"")=F5)*ROW(INDIRECT(""1:""&COUNT($A:$A))))
Indefinite_3(MF)_v3版
~
參考檔案
http://www.FunP.Net/463593
相關詞：
無名音樂語法,音樂語法,無名語法,游標語法,語法教學,連結語法,語法產生器,css語法,html語法,部落格語法
語法,程式碼,Each yR In Range,Mod,amp,Dim,Columns,INDIRECT,OFFSET,Exit[ 快速連結 ] 其它回答( 0 ) | 意見( 13 ) | 評論( 0 )
.發問者評價 冰大:
真是太感謝您了~
不僅耐心說明，又一再費心進階程式碼~不才受益良多~感恩!
再次感謝您的幫忙和指導。
b^_^d .發表你的評價
你的評價 發表評價： 正面 普通 負面
評價內容： 發表 取消
.
加入追蹤 轉寄朋友 友善列印 .馬上按讚 加入 Yahoo! 奇摩 知識+ 粉絲團
•免費索取商英光碟+小書
•多益700分線上測驗題庫
•立即免費測試你的多益等級
•英文email超實用金句！
•測你在旁人眼中的英文力？
•多益700分線上測驗題庫
相關問答
[ 語法特效 ]尋夢語法 !
.
[ 語法特效 ]語法是甚麼呀？是留言板的語法
.
[ 網路文化 ]部落格語法
.
[ 語法特效 ]無名網誌語法
.
[ 語法特效 ]guestbook語法
.
[ 語法特效 ]音樂語法和滑鼠語法
.
更多
.其他回答(0)
意見(13)
相關評論(0)
.目前沒有資料
001 意見者： 冰淇淋 ( 研究生 1 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-01-29 22:11:40
[ 檢舉 ] ..xR(5)=..
'插入程序
Dim yR As Range, NON%
If xR(5) >= 0 And xR(3) Mod xR = 0 Then
xR(6) = xR(3) / xR
Else
For Each yR In Range("B3:B" & mthcount + 1)
NON = NON + yR.Value
If NON = -xR(5) Then xR(6) = yR.Row - 2: Exit For
If NON > -xR(5) Then xR(6) = 0: Exit For
Next
End If
'-
'xR(6)=
試試 002 意見者： 龍龍 ( 實習生 5 級 )
擅長領域： 商務應用 | 作業系統
發表時間： 2013-01-29 23:03:37
[ 檢舉 ] ..冰大:
測試後全如需求~
敬請上答!謝謝您^^
續~ 003 意見者： 冰淇淋 ( 研究生 1 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-01-29 23:04:35
[ 檢舉 ] ..另外作法
http://www.FunP.Net/612518 004 意見者： 龍龍 ( 實習生 5 級 )
擅長領域： 商務應用 | 作業系統
發表時間： 2013-01-29 23:04:46
[ 檢舉 ] ..有些地方不太明瞭^^"~
..
..
..
Else
For Each yR In Range("B3:B" & mthcount + 1)
NON = NON + yR.Value
If NON = -xR(5) Then xR(6) = yR.Row - 2: Exit For
If NON > -xR(5) Then xR(6) = 0: Exit For
..
..
這樣 NON 不就都是正值了嗎?
為何NON會=-xR(5)?
又正值一定會>-xR(5)~這樣xR(6)不就都是= 0?
可否麻煩您於上答時。將此段貴程式碼註解一下~
好讓不才能吸納學習~感恩^^ 006 意見者： 冰淇淋 ( 研究生 1 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-01-29 23:24:46
[ 檢舉 ] ..1. ss Mod j = 0
2. xR(3)=ss
3. If xR(5) >= 0 And xR(3) Mod xR = 0 Then xR(6) = xR(3) / xR
所以
後段只計算 xR(5) 為負數時的狀況 007 意見者： 龍龍 ( 實習生 5 級 )
擅長領域： 商務應用 | 作業系統
發表時間： 2013-01-29 23:35:55
[ 檢舉 ] ..冰大:
謝謝另再賜解^^
有將貴解~
For i = 1 To UBound(xAr)
If xAr(i) = -xR(5) Then xR(6) = yR.Row - 2: Exit For
If xAr(i) > -xR(5) Then xR(6) = 0: Exit For
的i改為k(因為i定義重複)，
並將If xR(6) = 0 Then .Columns(xR.Column).Delete加入執行後~
答案有點誤差。
因為不知UBound的意思，不才沒轍~不知要如何再修正?^^"
敬請再賜教!謝謝您^^ 008 意見者： 龍龍 ( 實習生 5 級 )
擅長領域： 商務應用 | 作業系統
發表時間： 2013-01-29 23:44:00
[ 檢舉 ] ..Re:意見006
因為是Else
所以If xAr(i) > -xR(5) Then xR(6) = 0: Exit For
只計算xR(5)為負數的部分~
但NON是正值時~ 如何= -xR(5) 呢?為何不是-NON = -xR(5)呢?
^^"
謹請冰大解惑!謝謝您^^ 009 意見者： 冰淇淋 ( 研究生 1 級 )
擅長領域： 商務應用 | VisualBasic
發表時間： 2013-01-30 00:26:45
[ 檢舉 ] ..檔案更正
http://www.FunP.Net/854675
~
以Indefinite_3_3_100期_特
為例
if 控制
O5到Q5
else 計算F5到N5
~
餘明日再說 010 意見者： 龍龍 ( 實習生 5 級 )
擅長領域： 商務應用 | 作業系統
發表時間： 2013-01-30 00:27:43
[ 檢舉 ] ..有發現列89
For Each yR In Range("B3:B" & mthcount + 1)
範圍應該是
For Each yR In Range("B3:B" & mthcount - strrng + 3)
但改了答案還是一樣~有誤差~
EX:Indefinite_3_2_100期的工作表(一)F1:F6有值~
01
99
749
99
-650
85
但工作表(一)不見了~只有工作表(五)。
^^"
夜深了!明天再說^^ 011 意見者： 龍龍 ( 實習生 5 級 )
擅長領域： 商務應用 | 作業系統
發表時間： 2013-01-30 00:54:30
[ 檢舉 ] ..冰大:
OK了~
敬請上答!謝謝您^^ 12下一頁 發表意見發表意見字數已達上限，要改成發表評論嗎？. 發表 取消 .
目前沒有資料 我要評論 註冊
會員登入 .公告： 知識團員轉粉絲全數完成 .
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篩選問題 更多
精選關鍵字
..Excel vba 庫存管理 傳真 Pdf 文書處理 客戶管理 方程式 Office PowerPoint 符號 資料庫 金融 Outlook Spss 簡報 Word 會計軟體 進銷存 OpenOffice 庫存表 Project 進銷存軟體 試算表 專案管理 Visio Access 財務
.知識搜尋 ...雅虎資訊 版權所有 (c) 2013 Yahoo! Taiwan. All Rights Reserved. 「本服務設有管理員」
服務條款隱私權政策..知識+ 之問答內容是由參與Yahoo!奇摩知識+ 之網友提供，僅供參考，Yahoo!奇摩不保證其正確性。
...
.
phibrainno17 發表在 痞客邦 留言(0) 人氣()
留言列表
