Excel：それ自体を修正するカスタム関数？

Question

短い話ですが、私は自分のカスタム関数が関数の一部として数式項目（それを引き起こしたもの！）を補うようにしようとしています。ユーザーは公式にそれを追加していない場合は基本的にそのextraBitは、ユーザーフォームのListBoxで定義され

Private Function heythere(blah As String) 
    extraBit = "title" 
    ActiveCell.Formula = Replace(ActiveCell.Formula, ")", "," & """" & extraBit & """" & ")") 
End Function 

：ここでは、蒸留例です。多くのオプションがあり、エントリの最初の引数に基づいてListBoxに動的に読み込まれます。説明するのはちょっと難しいですが、extraBitが数式で提供されている場合は、ユーザーフォームが表示されず、結果が直接表示されることを意味します。だから私は、extraBitが定義された後でエントリを "修理"したいと思う。基本的に、上記の例では=heythere(a1)は=heythere(a1,"title")になります。

これは可能ですか？私はエントリを上書きするために別のプライベートサブを作成しようとしましたが、無駄です。任意の提案を事前に感謝...

---

編集：

Private Function heythere2(blah As String, Optional extraBit As String) 
    If extraBit = "" Then 
     extraBit = "title" 
     ActiveCell.Formula = Replace(ActiveCell.Formula, ")", "," & """" & extraBit & """" & ")") 
    End If 
End Function 

Answer 1

問題：動作するように意図された方法を明確にするためには、実際のUDFは、オプションの二引数で、より多くのこのようなものですあなたは数式で何をしようとしているのか分からず、戻り値は有効ではありません。これにより、エラーが発生していることが示されます。これがUDFの場合、セルが変更されるたびにコードを再実行するたびに無限ループに入ります。あなたのアプローチを再考してください。

Public Function heythere(blah As String, Optional extraBit As String = "") 
    On Error Resume Next 
    Dim formulaText As String 
    formulaText = ActiveCell.Formula 
    If extraBit = "" Then 
     extraBit = "title" 
    End If 
    formulaText = Replace(formulaText, ")", "," & Chr(34) & extraBit & Chr(34) & ")") 
    ActiveCell.Formula = formulaText 

    If Err.Number <> 0 Then 
     MsgBox Err.Description 
    End If 
End Function 

だから今、私たちは私たちのワークシート変更イベント

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
    If InStr(1, Target.Formula, ",") > 0 Then 

    Else 
     On Error Resume Next 
     Dim formulaText As String 
     formulaText = Target.Formula 

     formulaText = Replace(formulaText, ")", "," & Chr(34) & Target.Value & Chr(34) & ")") 
     Target.Formula = formulaText 

     If Err.Number <> 0 Then 
      MsgBox Err.Description 
     End If 
    End If 
End Sub 

式が更新されたビオラを、使用して式を更新し、あなたの式のビットを変更し、ワークシートの変更イベント

'Lets set the text of the cell to the value of the extrabit 
Public Function heythere(blah As String, Optional extraBit As String = "") As String 
    If extraBit = "" Then 
     extraBit = "title" 
    End If 
    heythere = extraBit 
End Function 

を使用することができます。 IMOこれは依然として悪いアプローチです。あなたがそれに取り組む前に、セルにどのフォーミュラがあるかをチェックする必要があります。