ios新遊戲自定義EXCEL過程：體積比
以上是2013年的時候寫的一個宏錛用于將溶劑的體積比轉換成質量比錛原來的博客頁面找不到了錛翻出來貼一下錛方便新學習VBA使用的的朋友.Public Sub 體積比to質量比()Dim CurSum As Double錛 tmpSum As Double錛 targetSum As Double錛 tmpStr As String錛 c As RangeOn Error GoTo theEndIf IsEmpty(Application.Selection) Then Exit SubtmpStr = InputBox("將當前溶劑比例視為體積比錛轉換成質量比." & vbCrLf & "請輸入質量比的總和"錛 "體積比→質量比"錛 "100%")If tmpStr = "" Then Exit SubIf Right(tmpStr錛 1) = "%" ThentargetSum = Val(Left(tmpStr錛 Len(tmpStr) – 1)) / 100ElsetargetSum = CDbl(tmpStr)End IfCurSum = Application.WorksheetFunction.Sum(Application.Selection)'將每份體積乘以密度錛得到單個質量錛相加得到總質量數For Each c In Application.SelectiontmpSum = tmpSum + c * GetSolvDensity(c.Offset(0錛 -1))Next c'將每份質量除以總質量錛得到質量百分數錛再乘以總目標數錛得到目標百分比.For Each c In Application.Selectionc = (c * GetSolvDensity(c.Offset(0錛 -1))) * targetSum / tmpSumNext ctheEnd:End Sub其中GetSolvDensity為自定義的獲取溶劑密度的函數，如下：這裡為速度考慮，直接賦值。Private Function GetSolvDensity(SolvName As String) As DoubleSelect Case UCase(Trim(SolvName))Case "DMC": GetSolvDensity = 1.0698Case "EMC": GetSolvDensity = 1.0132Case "DEC": GetSolvDensity = 0.9747Case "EC": GetSolvDensity = 1.37Case "PC": GetSolvDensity = 1.205Case "FEC": GetSolvDensity = 1.497Case "FB": GetSolvDensity = 1.024Case "EA": GetSolvDensity = 0.902Case "GBL": GetSolvDensity = 1.129Case "MPC": GetSolvDensity = 0.98Case "EP": GetSolvDensity = 0.888Case "MA": GetSolvDensity = 0.93Case "BC": GetSolvDensity = 1.1442Case "PA": GetSolvDensity = 0.8878Case "MP": GetSolvDensity = 0.915Case "MB": GetSolvDensity = 0.898Case ElseMsgBox "新溶劑" & UCase(SolvName) & "未在代碼中設定密度."GetSolvDensity = 0End SelectEnd Function演示的例子工作簿1.rar1998 Plant Disease：Behavior of a wild-type and two mutant strains of Colletotrichum gloeosporioides f. sp. aeschynomene on northern jointvetch in the field1998 Plant Disease：一個野生型和兩個突變型炭疽菌在北方野豌豆田間的行為 真菌炭疽病菌在維吉尼亞州的田皂角上引起炭疽病，在美國已被用作控制該雜草的生物防治劑。1994年和1995年在北方野豌豆田間進行了試驗，研究一個野生型菌株（3-1-3）及兩個突變株（抗苯菌靈菌株B21和硝酸鹽非利用菌株Nit A）的種群動態，以確定在田間條件下菌株與受感染植物的相互作用。將菌株3-1-3和B21、菌株3-1-3和Nit A、菌株3-1-3、B21和Nit A以相等和不相等的初始比例共接種植株。植物是在水淹的條件下在小水池中生長和保持的。在3-1-3和B21初始比例相同的植物共接種中，3-1-3的種群數量略有增加，直至達到60-70%的比例，而B21的種群密度在生長季末達到30-40%。初始比例不相同的情況下，B21的種群密度由90%下降到50%左右，而3-1-3的種群密度由10%上升到50%。在初始比例相同時，3-1-3的種群密度上升，且在各採樣時刻均顯著高于Nit A。初始比例不相同的情況下，3-1-3的種群密度由10%增加到90%，