Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25929 / 76732

←次へ　｜　前へ→


	【56140】Re:構成式から計算結果を求めるには

Yuki - 08/6/4(水) 13:33 -


	引用なし

	パスワード

▼大学一年生さん：
こんな感じですか？
Sub TEST()
　　Debug.Print Num_Proc("III", "2V×4.1II×1.1III×10IV×2I")
End Sub

Function Num_Proc(CN As String, sType As String) As Double
　　Dim vD　　　As Variant
　　Dim vF　　　As Variant
　　Dim i　　　 As Long
　　Dim dD　　　As Double
　　Dim strD　　As String
　　Dim sVi　　 As Long
　　
　　vD = Split(sType, "×")
　　If UBound(vD) = 0 Then Exit Function
　　dD = 1
　　sVi = 99999
　　For i = 0 To UBound(vD)
　　　　strD = CStr(Val(vD(i)))
　　　　If Replace(vD(i), strD, "") = CN Then sVi = i
　　　　If i >= sVi Then dD = dD * Val(vD(i))
　　Next
　　If sVi = 99999 Then dD = Val(vD(UBound(vD)))
　　Num_Proc = dD
End Function

2 hits

▼

【56136】構成式から計算結果を求めるには 大学一年生 08/6/4(水) 10:22