式を持つセルに値を追加するExcelマクロ

Question

式を持つ既存のセルに値（たとえば10）を追加するマクロを設定しようとしています。私はセルに式を維持したいと思います。ここで

は、私がこれまで何をやったかである：これは私のために働いていない

Sub addvalue 
'Keyboard Shortcut: Ctrl+Shift+A 

ActiveCell.Formula = ActiveCell.Formula + 10 

End Sub 

。これは、セルが単なる数値ではなく、調整しようとしているセルが数式である場合には機能しません。

調整しようとしているセルに=A1 + 4が含まれていて、このマクロを実行している場合は、マクロ実行後に=A1 + 14にしたいと思います。

Answer 1

数式自体を変更するには問題があります。しかし、あなたが最後に+10を追加するとして=A1 + 4 + 10を取得することができます：

ActiveCell.Formula = ActiveCell.Formula & "+ 10" 

問題がActiveCell.Formulaが文字列を返し、あなたは文字列に番号を追加することはできませんということです。文字列と新しい部分を連結する必要があります。

---

編集それが連結するのではなく、値を変更するよう

はそれを作るために：これはすべてのケースではなく、それがない簡単な式のために動作しない場合があります

Sub addvalue() 
'Keyboard Shortcut: Ctrl+Shift+A 
Dim strsplit() As String 
Dim i As Long 
Dim dn As Boolean 


dn = False 

strsplit = Split(Mid(ActiveCell.Formula, 2), "+") 
For i = LBound(strsplit) To UBound(strsplit) 

    If IsNumeric(strsplit(i)) Then 
     strsplit(i) = CDbl(strsplit(i)) + 10 
     dn = True 
     Exit For 
    End If 
Next i 

ActiveCell.Formula = "=" & Join(strsplit, "+") & IIf(dn, "", "+ 10") 

End Sub 

。