┌─┬──────┬──────┐
│  │     A      │     B      │
├─┼──────┼──────┤
│ 1│=IF(TRUE,"")│=A1*1       │
└─┴──────┴──────┘
上記のような数式の場合、「B1」セルが「#VALUE!」になってしまう。

かといって、下記の様にした場合、「B1」セルは「#VALUE!」にならない(「0」になる)が
「A1」セルには「0」が表示されてしまう。
┌─┬──────┬──────┐
│  │     A      │     B      │
├─┼──────┼──────┤
│ 1│=IF(TRUE,0) │=A1*1       │
└─┴──────┴──────┘

以下だと、「A1」セルは空欄で「B1」セルも「#VALUE!」にならない(「0」になる)
┌─┬──────┬──────┐
│  │     A      │     B      │
├─┼──────┼──────┤
│ 1│            │=A1*1       │
└─┴──────┴──────┘
これをIF文の結果として実現するにはどうすればよいか？


まず、「A1」は空欄ではあるが空文字「""」ではなくBLANKという状態である。
これはISBLANK()関数で識別することができるのだが
数式が入った時点でBLANKという状態ではなくなるので、ISBLANK()はFALSEになる。
「=IF(TRUE,BLANK定数)」みたいな感じに(BLANK()なども)、
BLANK状態とする(BLANK状態を偽装する)方法はないようだ。
→IF文が入力されていているのに未入力という自己矛盾があるから無理か？


従って他の方法での対応となる。

【案１】あきらめて「0」を表示する(もしくは設定で非表示にする)
┌─┬──────┬──────────────────┐
│  │     A      │                 B                  │
├─┼──────┼──────────────────┤
│ 1│=IF(TRUE,0) │=A1*1                               │
└─┴──────┴──────────────────┘
Excel2010の場合、(リボンメニュー「ファイル」中の)「オプション」を起動し
その中の「詳細設定」を表示し、「次のシートで作業するときの表示設定」における
「■ゼロ値のセルにゼロを表示する」のチェックボックスをはずせば
「0」の表示を消すことができる…が、他への影響が大きそうだ。

【案２】参照側で地道にIF文で対処する
┌─┬──────┬──────────────────┐
│  │     A      │                 B                  │
├─┼──────┼──────────────────┤
│ 1│=IF(TRUE,"")│=IF(A1="",0,A1)*1                   │
├─┼──────┼──────────────────┤
│ 1│=IF(TRUE,"")│=IF(ISNUMBER(A1),A1,0)*1            │
├─┼──────┼──────────────────┤
│ 1│=IF(TRUE,"")│=IF(CELL("type",A1)="v",A1,0)*1     │
├─┼──────┼──────────────────┤
│ 1│=IF(TRUE,"")│=IF(ISERR(A1*1),0*1,A1*1)           │
└─┴──────┴──────────────────┘

【案３】参照側でSUM()を使う
┌─┬──────┬──────────────────┐
│  │     A      │                 B                  │
├─┼──────┼──────────────────┤
│ 1│=IF(TRUE,"")│=SUM(A1)*1                          │
└─┴──────┴──────────────────┘
  SUM()は文字列を無視してくれるという特性を利用する。
  これは使えそう？！

┌──────────────────────────────────────┐
│Dim nowDate As Date: nowDate = Date                                         │
├──────────────────────────────────────┤
│月初日 = DateSerial(Year(nowDate), Month(nowDate), 1)                       │
├──────────────────────────────────────┤
│Const 期首月 As Long = 4                                                    │
│期首日 = IIf(Month(nowDate) < 期首月, _                                     │
│             DateSerial(Year(nowDate) - 1, 期首月, 1),                      │
│             DateSerial(Year(nowDate), 期首月, 1))                          │
├──────────────────────────────────────┤
│年初日 = DateSerial(Year(nowDate), 1, 1)                                    │
└──────────────────────────────────────┘

┌──────────────────────────────────────┐
│With シート                                                                 │
│    .図形.Top = .セル.Top                                                   │
│    .図形.Left = .セル.Left                                                 │
│End With                                                                    │
└──────────────────────────────────────┘
上記のように縦位置(.Top)と横位置(.Left)を合わせてあげればよい。

もう少し具体的に記述するなら以下のような感じ。
┌──────────────────────────────────────┐
│With ThisWorkbook.Worksheets("シート")                                      │
│    .Shapes("テキスト ボックス").Top = .Cells(y, x).Top                     │
│    .Shapes("テキスト ボックス").Left = .Cells(y, x).Left                   │
│End With                                                                    │
└──────────────────────────────────────┘

┌──────────────────────────────────────┐
│┌────┬────────┐  ┌────┬────────┐              │
││Trident │Microsoft(IE)   │→│EdgeHTML│Microsoft(Edge) │              │
│└────┴────────┘  └────┴────────┘              │
│┌────┬────────┐  ┌────┬────────┐              │
││Gecko   │Mozilla(Firefox)│→│Servo   │Mozilla(Firefox)│              │
│└────┴────────┘  └────┴────────┘              │
│┌────┐                                                                │
││KHTML   │                                                                │
│└────┘                                                                │
│  │  ┌────┬────────┐                                        │
│  └→│WebKit  │Apple(Safari)   │                                        │
│      └────┴────────┘                                        │
│        │  ┌────┬────────┐                                  │
│        └→│Blink   │Google(Chrome)  │                                  │
│            └────┴────────┘                                  │
│┌────┬───┐  ┌      ┐  ┌      ┐  ┌────┐                  │
││Presto  │Opera │→│WebKit│→│Blink │←│Vivaldi │                  │
│└────┴───┘  └      ┘  └      ┘  └────┘                  │
└──────────────────────────────────────┘

REPLACE()は検索文字に一致した部分を置換する関数だが
TRANSLATE()は検索文字のいずれかに一致した部分を置換してくれる関数だ。
┌──────────────────────────────────────┐
│TRANSLATE(列, '0123456789', ' ')                                            │
└──────────────────────────────────────┘
数値だけを空白に置換する場合には、以下のようにすればよい。

┌──────────────────────────────────────┐
│TRANSLATE(列, '0123456789', '')                                       →NULL│
└──────────────────────────────────────┘
でも、空文字に置換してしまうと、結果は(如何なる場合も)NULLになってしまう。
これは空文字をNULLと同一とみなすOracle特有の事情のようだ。

従って、一回適当な文字(ここでは「0」)に置換して統一した上で
REPLACE()でまとめて置換するのがよいようだ。
┌──────────────────────────────────────┐
│REPLACE(TRANSLATE(列, '0123456789', '0'), '0', '')                          │
└──────────────────────────────────────┘
REPLACE()の場合は、空文字に置換しても問題はない。

数字のみで構成されるかを確認する場合には、TRIM()を使って簡素化できる。
┌──────────────────────────────────────┐
│TRIM(TRANSLATE(列, '0123456789', ' '))                                      │
└──────────────────────────────────────┘
NULLだった場合(IS NULLが真の場合)、数字のみだった訳だ。
→置換して空欄(＝NULL)となった訳だから

┌─────────┬────────────────────────────┐
│Ctrl＋Pause       │→「コードの実行が中断されました。」                    │
├─────────┼────────────────────────────┤
│ESC(を押し続ける) │同上                                                    │
└─────────┴────────────────────────────┘

中断させないようにする方法もある。(冒頭で設定を変えてしまう)
┌──────────────────────────────────────┐
│Application.EnableCancelKey = xlDisabled       ' 既定「xlInterrupt」から変更│
└──────────────────────────────────────┘
但し、これをすると制御不能となってしまう(*1)ので、注意。
*1：タスク(プロセス)の終了で強制終了させる他なくなる。

┌──────────────────────────────────────┐
│Option Explicit                                                             │
│'***************************************************************************│
│'  クラス：ファイル出力                                                     │
│'***************************************************************************│
│Private m出力シート As Worksheet                                            │
│'===========================================================================│
│'  コンストラクタ                                                           │
│'===========================================================================│
│Private Sub Class_Initialize()                                              │
│End Sub                                                                     │
│'===========================================================================│
│'  メソッド：準コンストラクタ                                               │
│'===========================================================================│
│Public Sub 準コンストラクタ(ByVal 出力シート名 As String)                   │
│    Set m出力シート = ThisWorkbook.Worksheets(出力シート名)                 │
│End Sub                                                                     │
│'===========================================================================│
│'  デストラクタ                                                             │
│'===========================================================================│
│Private Sub Class_Terminate()                                               │
│End Sub                                                                     │
│'===========================================================================│
│'  実行：ファイル出力                                                       │
│'===========================================================================│
│Private Sub 実行()                                                          │
│    Dim 出力先 As Variant                                                   │
│    ' 出力先選択                                                            │
│    出力先 = 出力先選択()                                                   │
│    If 出力先 = "" Then                                                     │
│        Exit Sub                                                            │
│    End If                                                                  │
│    ' 複写                                                                  │
│    m出力シート.Copy                                                        │
│    ' 保存                                                                  │
│    Application.DisplayAlerts = False   ' 確認ダイアログ抑止(強制上書)      │
│    ActiveWorkbook.SaveAs Filename:=出力先, _                               │
│                          FileFormat:=XlFileFormat.xlOpenXMLWorkbook        │
│    Application.DisplayAlerts = True    ' 確認ダイアログ抑止解除            │
│    ActiveWorkbook.Close SaveChanges:=False                                 │
│End Sub                                                                     │
│'===========================================================================│
│'  内部メソッド：出力先選択                                                 │
│'===========================================================================│
│Private Function 出力先選択() As String                                     │
│    Dim メッセージ As String                                                │
│    Dim 出力先 As Variant                                                   │
│    Dim ファイル名 As String                                                │
│    ファイル名 = ファイル名編集(m出力シート.Name) & ".xlsx" ' 初期表示      │
│    Do                                                                      │
│        出力先 = Application.GetSaveAsFilename( _                           │
│            InitialFileName:=ファイル名, _                                  │
│            FileFilter:="Excelファイル(*.xlsx),*.xlsx" _                    │
│        )                                                                   │
│        ' キャンセル                                                        │
│        If 出力先 = False Then                                              │
│            MsgBox "キャンセルされました。", vbInformation, "処理の中止"    │
│            出力先選択 = ""                                                 │
│            Exit Function                                                   │
│        End If                                                              │
│        ' 新規追加                                                          │
│        If Dir(出力先) = "" Then                                            │
│            Exit Do                                                         │
│        End If                                                              │
│        ' 上書の確認                                                        │
│        ファイル名 = Dir(出力先)                                            │
│        メッセージ = ファイル名 & " は既に存在します。" & vbCrLf _          │
│                   & "上書きしますか？"                                     │
│        If MsgBox(メッセージ, vbYesNo + vbExclamation, "処理の確認") _      │
│                                                                = vbYes Then│
│            Exit Do                                                         │
│        End If                                                              │
│    Loop                                                                    │
│    出力先選択 = 出力先                                                     │
│End Function                                                                │
│'===========================================================================│
│'  内部メソッド：ファイル名編集  ファイル使用不可文字を置換                 │
│'===========================================================================│
│Private Function ファイル名編集(ByVal ファイル名 As String) As String       │
│    ファイル名 = Replace(ファイル名, "<", "(")                              │
│    ファイル名 = Replace(ファイル名, ">", ")")                              │
│    ファイル名編集 = ファイル名                                             │
│End Function                                                                │
│'***************************************************************************│
└──────────────────────────────────────┘
シートをファイル出力するクラスも作ってみた。

以下のようにして使う。
┌──────────────────────────────────────┐
│Dim objファイル出力 As New Classファイル出力                                │
│Call objファイル出力.準コンストラクタ("出力")  ' 任意のシート名を指定       │
│Call objファイル出力.実行()                                                 │
└──────────────────────────────────────┘

┌──────────────────────────────────────┐
│Option Explicit                                                             │
│'***************************************************************************│
│'  クラス：シート複写                                                       │
│'***************************************************************************│
│Private m入力シート As Worksheet                                            │
│'===========================================================================│
│'  コンストラクタ                                                           │
│'===========================================================================│
│Private Sub Class_Initialize()                                              │
│    Set m入力シート = ThisWorkbook.Worksheets("入力")  ' 任意のシート名を   │
│End Sub                                                                     │
│'===========================================================================│
│'  デストラクタ                                                             │
│'===========================================================================│
│Private Sub Class_Terminate()                                               │
│End Sub                                                                     │
│'===========================================================================│
│'  実行                                                                     │
│'===========================================================================│
│Public Sub 実行(ByVal シート名 As String)                                   │
│    Dim シート As Worksheet                                                 │
│    Application.ScreenUpdating = False  ' 作業過程非表示                    │
│    ' シート追加                                                            │
│    For Each シート In Worksheets                                           │
│        If シート.Name = シート名 Then                                      │
│            MsgBox "同一シート名が既に存在します。", vbCritical, "処理中止" │
│            Exit Sub                                                        │
│        End If                                                              │
│    Next シート                                                             │
│    Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = シート名     │
│    ' シート複写                                                            │
│    Call マクロ抜きシート複写(m入力シート, _                                │
│                              ThisWorkbook.Worksheets(シート名))            │
│    '                                                                       │
│    Application.GoTo m入力シート.Cells(1, 1)                                │
│    Application.ScreenUpdating = True   ' 作業過程非表示の解除              │
│End Sub                                                                     │
│'===========================================================================│
│'  マクロ抜きシート複写                                                     │
│'===========================================================================│
│Private Sub マクロ抜きシート複写(ByVal 入力シート As Worksheet, _           │
│                                 ByVal 出力シート As Worksheet)             │
│    Dim 表示倍率 As Long, 改頁 As Variant                                   │
│    ' コピー                                                                │
│    入力シート.Cells.Copy  ' コピー                                         │
│    With 出力シート.Cells(1, 1)                                             │
│        .PasteSpecial Paste:=xlValues   ' 値貼り付け                        │
│        .PasteSpecial Paste:=xlFormats  ' 書式貼り付け                      │
│        .Select                                                             │
│    End With                                                                │
│    ' 印刷設定の複写                                                        │
│    Call 印刷設定の複写(入力シート.PageSetup, _                             │
│                        出力シート.PageSetup)                               │
│    ' 改頁位置の複写                                                        │
│    For Each 改頁 In 入力シート.HPageBreaks                                 │
│        出力シート.HPageBreaks.Add 改頁.Location.Rows                       │
│    Next 改頁                                                               │
│    ' 表示倍率の複写                                                        │
│    入力シート.Select                                                       │
│    表示倍率 = ActiveWindow.Zoom                                            │
│    出力シート.Select                                                       │
│    ActiveWindow.Zoom = 表示倍率                                            │
│    ' クリップボードのクリア                                                │
│    Application.CutCopyMode = False                                         │
│    ' 上記のみではクリアできないものについては、                            │
│    ' 全セル選択から一セル選択に切り替える                                  │
│    ' →「図が大きすぎます。」エラー対策                                    │
│    入力シート.Cells(1, 1).Copy                                             │
│End Sub                                                                     │
│'===========================================================================│
│'  印刷設定の複写                                                           │
│'===========================================================================│
│Private Sub 印刷設定の複写(ByVal 入力 As Object, _                          │
│                           ByVal 出力 As Object)                            │
│    With 出力                                                               │
│        ' ヘッダ・フッタの複写                                              │
│        .LeftHeader = 入力.LeftHeader                                       │
│        .CenterHeader = 入力.CenterHeader                                   │
│        .RightHeader = 入力.RightHeader                                     │
│        .LeftFooter = 入力.LeftFooter                                       │
│        .CenterFooter = 入力.CenterFooter                                   │
│        .RightFooter = 入力.RightFooter                                     │
│        ' 印刷タイトルの複写                                                │
│        .PrintTitleRows = 入力.PrintTitleRows                               │
│        ' 印刷範囲の複写                                                    │
│        .PrintArea = 入力.PrintArea                                         │
│        .PaperSize = 入力.PaperSize                                         │
│        .Orientation = 入力.Orientation                                     │
│        .Zoom = 入力.Zoom                                                   │
│        .FitToPagesTall = 入力.FitToPagesTall                               │
│        .FitToPagesWide = 入力.FitToPagesWide                               │
│    End With                                                                │
│End Sub                                                                     │
│'***************************************************************************│
└──────────────────────────────────────┘
シートをマクロ抜きで複写するクラスを作ってみた。

以下のようにして使う。
┌──────────────────────────────────────┐
│Dim objシート複写 As New Classシート複写                                    │
│Call objシート複写.実行("出力")  ' 任意のシート名を指定                     │
└──────────────────────────────────────┘

ただ、印刷範囲あたりの処理はナイーヴ(Excelのバグ？)なので、
ボタン等があればおかしくなる可能性もあるので注意して使用のこと。

┌──────────────────────────────────────┐
│Dim i As Integer                                                            │
│Dim 図形名 As String, 上 As Double, 左 As Double, 縦 As Double, 横 As Double│
│With 入力シート                                                             │
│    For i = 1 To .Shapes.Count                                              │
│        With .Shapes(i)                                                     │
│            図形名 = .Name                                                  │
│            上 = .Top                                                       │
│            左 = .Left                                                      │
│            縦 = .Height                                                    │
│            横 = .Width                                                     │
│            .Copy                                                           │
│        End With                                                            │
│        With 出力シート                                                     │
│            .Select                                                         │
│            .Paste                                                          │
│            If VarType(Selection) = vbObject Then                           │
│                Selection.Name = 図形名  ' 日本語既定名は英語になるので注意 │
│            End If                                                          │
│            With .Shapes(図形名)                                            │
│                .Top = 上                                                   │
│                .Left = 左                                                  │
│                .Height = 縦                                                │
│                .Width = 横                                                 │
│            End With                                                        │
│            .Cells(1, 1).Select                                             │
│        End With                                                            │
│    Next i                                                                  │
│End With                                                                    │
└──────────────────────────────────────┘
コピーして名称を合わせて位置も合わせた。

AcitiveXコントロールの場合は、ペーストを選択(Selection)されない代わり
図形名は同じになるので、それ以外の場合のみ図形名を合わせる処理を行い
その後、図形名が同じという前提で、位置を合わせた。

なお、日本語既定名は実体は英語名なので、英語名としてコピーされてしまう。

そのオートシェイプを選択した状態で、画面左上の窓(名前ボックス)には
確かに「テキスト ボックス 1」と表示されているのだが、
ExcelVBAの名前取得では「Text Box 1」となってしまう件。

典型的な例が以下。
┌──────────────────────────────────────┐
│MsgBox シート.Shapes("テキスト ボックス 1").Name           '→「Text Box 1」│
└──────────────────────────────────────┘
確かに「テキスト ボックス 1」でオートシェイプを指定できているのにも関わらず
名前属性(.Name)を取得してみたら「Text Box 1」なのだ。

これは既定の場合にのみ起きる怪現象で、名前を変更すれば両者の乖離は解消する。

どうやら、既定値を気を利かして和訳表示したものの、
ExcelVBAと辻褄が合わなくなったことによるようだ。

この場合、名前属性(.Name)で「テキスト ボックス 1」の方を
取得する方法はないようなので、
気になるなら名前属性(.Name)を任意のものに変更するしかないようだ。

任意のものといっても思いつかないという場合には、自身を代入しなおせばよい。
┌──────────────────────────────────────┐
│With シート.Shapes("テキスト ボックス 1")                                   │
│    .Name = .Name                                                           │
│End With                                                                    │
└──────────────────────────────────────┘
すると、「Text Box 1」に名前ボックスの表示も統一される。

以後「テキスト ボックス 1」は使えないが………と思ったら、
以下は引き続き使えてしまった。
┌──────────────────────────────────────┐
│MsgBox シート.Shapes("テキスト ボックス 1").Name           '→「Text Box 1」│
└──────────────────────────────────────┘

ちなみに名前属性(.Name)を関係ないものに変更して実験してみた。
┌──────────────────────────────────────┐
│MsgBox シート.Shapes("テキスト ボックス 1").Name             '→変更した名前│
├──────────────────────────────────────┤
│MsgBox シート.Shapes("Text Box 1").Name                      '→エラー      │
└──────────────────────────────────────┘
つまり、英語側の既定値はまさに既定値で最初だけ有効(変名したそちらへ)なのだが
日本語側の既定値は半永久的に使える存在なのかもしれない。

ややこし過ぎる。