Results of 1 - 1 of about 37701 for IF (0.007 sec.)
- [[20100304132347]]
- #score: 1591
- @digest: 9ca3a8d27a196cf14b4a1a1a5266c736
- @id: 48118
- @mdate: 2010-03-07T01:20:41Z
- @size: 4556
- @type: text/plain
- #keywords: txtcalc (21003), mch (9586), sqr (9115), superscript (8605), 記&# (7323), 乗計 (7055), 9398 (7005), 急!! (6466), data (6244), pattern (5789), replace (4926), 上分 (3606), ×( (3351), execute (2989), adrs (2528), firstindex (2101), ・感 (2085), アホ (2071), 事頂 (2042), 上付 (2006), power (1807), characters (1623), 至急 (1566), flag (1533), ・ア (1201), evaluate (1094), 乗算 (970), vbnarrow (817), 前も (797), test (753), 算子 (745), then (716)
- 『【至急!!】累乗計算』（みい）
助けて下さい! 下記Ⓐの式をexcelで入力するにはどうしたら良いでしょうか? Ⓐ0.04×(1+0.04)^30/(1+0.04)^30-1 =0.0578・・・答え セルに「0.0578」と答えが入るようにⒶを入力したいです。 自分なりに調べたら「power関数」を使うようですが・・ これ以上分かりません。 excelかなり初心者です・・アホな質問をしているとは思いますが 宜しくお願いします。 ---- 括弧が抜けているのかな =0.04*(1+0.04)^30/((1+0.04)^30-1) ---- 衝突したけど名前も書かない人は無視して。 そもそも答えを「0.0578」とするのには 0.04×(1+0.04)^30/((1+0.04)^30-1) にしないとだめでは? また、べき乗は関数だとたしかにPOWER関数ですが演算子では「^」でOKです。 あとは乗算（×）には「*」を使って下さい。 ---- 出来ました! こんなに早くお返事頂けるとは・・感動です! 今回はPOWER関数ではなかったのですね。 助かりました!本当にありがとうございました!! 名前も書かない人は無視して。 ---- 解決済みですが、こんな関数もありまっせぇ。 0.04×(1+0.04)^30/((1+0.04)^30-1) とか上付き文字のべき乗とか、√で書かれた式も計算されます。 =txtcalc(A1)等と入力します。 （弥太郎） '-------------- Function txtcalc(adrs As Range) As Double Dim data As String, d_1 As String, Cnt As Integer Dim i As Integer, flag As Boolean, mch, d_2 As String data = Replace(Replace(Replace(Replace(Replace(Replace(StrConv(adrs, vbNarrow), "÷", "/"), _ "×", "*"), "{", "("), "}", ")"), "[", "("), "]", ")") If data = "" Then txtcalc = 0: Exit Function With CreateObject("vbscript.regexp") .Global = True If adrs Like "*" & adrs.Font.Superscript & "*" Then Do While i < Len(adrs) i = i + 1 If adrs.Characters(i, 1).Font.Superscript Then d_1 = d_1 & "^" If adrs.Characters(i + 1, 1).Font.Superscript Then flag = True End If If flag Then d_1 = d_1 & Mid$(data, i, 2) i = i + 1 flag = False Else d_1 = d_1 & Mid$(data, i, 1) End If Loop data = d_1 d_1 = "" End If data = Replace(data, "√", "Sqr") .Pattern = "¥d+¥(" If .test(data) Then data = Replace(data, "(", "*(") .Pattern = "¥)¥d" If .test(data) Then data = Replace(data, ")", ")*") .Pattern = "¥)¥(" If .test(data) Then data = Replace(data, ")(", ")*(") .Pattern = "(¥+|¥-|¥/)(¥*)" If .test(data) Then data = .Replace(data, "$1") .Pattern = "(¥*)(¥+|¥-|¥/|¥))" If .test(data) Then data = .Replace(data, "$2") If data Like "*Sqr*" Then .Pattern = "(¥d+|¥))Sqr" If .test(data) Then For Each mch In .Execute(data) data = Replace(data, mch, Split(mch, "S")(0) & "*" & "Sqr") Next End If .Pattern = "Sqr¥d+" If .test(data) Then For Each mch In .Execute(data) data = Replace(data, mch, Sqr(Split(mch, "r")(1))) Next End If .Pattern = "Sqr¥(" If .test(data) Then d_2 = data For Each mch In .Execute(data) Cnt = 1 For i = mch.firstindex + 5 To Len(d_2) If Mid(d_2, i, 1) = "(" Then Cnt = Cnt + 1 ElseIf Mid(d_2, i, 1) = ")" Then Cnt = Cnt - 1 If Cnt = 0 Then Exit For End If d_1 = d_1 & Mid(d_2, i, 1) Next i data = Replace(data, "Sqr(" & d_1 & ")", Sqr(Evaluate(d_1))) d_1 = "" Next End If End If .Pattern = "¥D" If .test(data) Then For Each mch In .Execute(data) .Pattern = "(¥*|¥/|¥+|-|¥)|¥(|¥.|¥^|%)" If Not .test(mch) Then data = Replace(data, mch, "") End If Next mch .Pattern = "^¥*|¥*$" If .test(data) Then data = .Replace(data, "") txtcalc = Evaluate(data) Else txtcalc = data End If End With End Function... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201003/20100304132347.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97065 documents and 608342 words.
訪問者：