エクセルVBA ２つの行を入れ替えるマクロで、数式を反映したい

内訳明細書で行全体を移動させるために、2つの行を入れ替えるマクロを作りました。
そこで、マクロを実行すると選択行全体が下へ移動するようになっていますが、
マクロで入れ替えた行だけ、セル内の数式が値となって表示されてしまいます。

下記画像で言うと金額の数式が表示されずに値のみ表示される状態です。
実行前と同じ数式のままにすることは可能でしょうか？


Private Sub CommandButton2_Click() '下へ行を移動

Dim tgtRange_1 As Range
Dim tgtRange_2 As Range
Dim tgtValue_1 As Variant
Dim tgtValue_2 As Variant
Dim 選択行 As Long


選択行 = Selection.Row

' 現在選択されているセルの行をRangeオブジェクトに代入
Set tgtRange_1 = Rows(Selection.Row)


' 入れ替え行をオブジェクトに代入
Set tgtRange_2 = Rows(選択行 + 1)

' それぞれの行の値を記憶
　　 tgtValue_1 = tgtRange_1
　　tgtValue_2 = tgtRange_2

' それぞれの行の値を入れ替えてオブジェクトに代入
Application.ScreenUpdating = False
　　tgtRange_1.Value = tgtValue_2
　　 tgtRange_2.Value = tgtValue_1
Application.ScreenUpdating = True

' オブジェクトを破棄
Set UserSelectCell = Nothing
Set tgtRange_1 = Nothing
Set tgtRange_2 = Nothing

Selection.Offset(1, 0).Select '挿入先の行がアクティブになるのを元のレコードになるよう戻しています

End Sub

質問者からの補足コメント

• 

  Zincerさんへ
  作戦１で成功しました！
  案外簡単な事だったんですね。
  本当にありがとうございました。

    補足日時：2016/12/17 18:59

No.1 ベストアンサー 回答者： Zincer 回答日時： 2016/12/16 19:48

質問者の意には則していませんが、

＞' それぞれの行の値を記憶
＞　　 tgtValue_1 = tgtRange_1
＞　　tgtValue_2 = tgtRange_2
を
tgtValue_1 = tgtRange_1.Formula
tgtValue_2 = tgtRange_2.Formula
と「.Formula」プロパティーを付けると式が移動します。
ただし、このままですと下記の例のように式の対象は変更されませんので、もう一工夫必要なようです。

例
入れ替え前
A1:10、B1：20、C1:=A1＊B1
A2:30、B2：40、C2:=A2＊B2
入れ替え後
A1:30、B1：40、C1:=A2＊B2
A2:10、B2：20、C2:=A1＊B1


作戦１
「Selection.Rowをもちいて、対象となる式の行番号部分を書き換える」

作戦２
「行全体の選択」から「式の部分を除いたRangeオブジェクト」へ変更する

作戦３
作業用の行を設定して、「Copy」「Paste」メソッドで入れ替える

などへの変更が必要なようです。

以上、ご参考まで。

この回答へのお礼

さっそくの回答ありがとうございます。
.Formulaでいけたんですね。
それで、ご提示の作戦３を自力で頑張ってみようかなと思ってます。作戦１と２は私には難しそうです。しばらく考えてみます。ありがとうございます。

お礼日時：2016/12/17 18:13