スキルアップ・問題解決なら、モーグにおまかせ！

お世話になります。
 
シート2にコントロールのTextBoxを配置して数字を入力するようにしています。このコントロールはシート1のA1にリンクしてして、B1は「=A1/2」の計算式が入っているのですが、TextBoxの値を消去するとB1は「#VALUE」となってしまいます。
A1を選択してDeleteすればB1は「0」となるのですが、A1は非表示にしているので直接触ることができなくて困っています。解決策あるでしょうか？

B1
=IFERROR(A1/2,"")　　　　

代案
 
B1に
=SUM(A1)/2

やはり直接空白にすることはできないんですね。
仕様ですかね。

B1
=IFERROR(A1/2,"")　　""...長さ0の文字列
↑B1の「見た目だけを空白」にする式ですが、これではだめなのでしょうか。

引用:
直接空白にすることはできない

基本：テキストボックスのデータ型は文字列です。
従って、目視的に「空白」は、空白文字列となります。
    
一方、セルのデータ型のデフォルトは、表示形式：「標準」です。
標準というのは、スタンダードという意味ではなく、
Excelにお任せ・・・・Variant（何にでも対応できる）です。
つまり、Excelが入力データを解析して、データ型をきめていることになります。
セルに「空白」を入れる場合は、ＶＢＡで対応することになります。
  
見た目「空白」には、２種類あります。
(1)「空白」・・・・「正しい空白」と表現不要です。
(2)「空白文字列」・・長さ０の文字列です。
※数式では、「空白」を返すことはできません。
  
※[Delete]は、メソッドの１つです。
　数式（関数）では、メソッドを扱えません。
 

追伸
 
SUM関数には、対象セルの値が数値でない場合、「０」と見做す仕様になっています。

tako552101 さんの引用:
シート2にコントロールのTextBoxを配置して数字を入力するようにしています。このコントロールはシート1のA1にリンクしてして、B1は「=A1/2」の計算式が入っているのですが、TextBoxの値を消去するとB1は「#VALUE」となってしまいます。

Suzuさん、ActiceX のテキストボックスでも
プロパティのLinkedCellをA1にすれば双方向で代入できますよ。

んなっとさん
 
LinkedCell ありがとうございます。 気づけませんでした。
 
 
------------------------------------------------------------------------
双方向リンクなのですね。
セル側のプロパティーでは ActiveX オブジェクトとのリンクを示す様なものが無いので
内部的に
　テキストボックスの値が変わったら セルに値を代入
　セルの値変わったら テキストボックスに代入
を行っているっぽいですね。
 
セルの値が変更された時に
 Worksheet_Change の Targetのアドレスを 判定し特定のセルの値の Chage検知させますが
その代わりに使えるかもですね。
余談でした

みなさん、ありがとうございます。
 
コントロールのTextBoxでLinkedCellにしています。
便宜上B1としましたが、他にもA1を参照しているセルが複数あって、全て直すのも手間ですし、「#VALUE」のままだと、後のコード実行時に影響が出るので、TextBox消去でA1が空白になってくれればいいたけなんですが…
気づいてしまった以上、かかわるセルはエラー処理せざるをえないですね。

ちなみに「TextBoxを消去したら、リンク先のA1セルを空白にする」はマクロで実現可能でしょうか。

TextBoxのイベントを使ってこんな感じで処理すると思うのですが、
  
  Dim v
  Dim Rng As Range
  Application.EnableEvents = False
  With TextBox1
    If Len(.Value) = 0 Then
      v = Split(.LinkedCell, "!")
      If UBound(v) > 0 Then
        Set Rng = Worksheets(v(0)).Range(v(1))
      Else
        Set Rng = Range(v(0))
      End If
      Rng.ClearContents
    End If
  End With
  Application.EnableEvents = True
  
LostFocusだと一瞬#VALUEが見えてしまいますね。Changeイベントでいいかもしれません。

キーボードイベントを使った例を紹介します。
 
[Enter]キーを押した時点で、イベントが実行されます。
 

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim shtName As String, CellName As String
    If KeyCode = vbKeyReturn Then
        With TextBox1
            If InStr(.LinkedCell, "!") > 0 Then
                shtName = Left(.LinkedCell, InStr(.LinkedCell, "!") - 1)
                CellName = Mid(.LinkedCell, InStr(.LinkedCell, "!") + 1)
            Else
                shtName = .Parent.Name
                CellName = .LinkedCell
            End If
            If .Text = "" Then
                Sheets(shtName).Range(CellName).ClearContents
            Else
                Sheets(shtName).Range(CellName).Value = .Text
            End If
        End With
    End If
End Sub

みなさん、ありがとうございます。
検証してみます。取り急ぎお礼まで。

解決済み忘れました