エクセルVBAについてお尋ね致します。数式が入力されたセルを異なるセル

質問

エクセルVBAについてお尋ね致します。数式が入力されたセルを異なるセルの条件によって「値」のみ残す方法を模索しております。

使用する列および行の例
列＝A、B　
行＝5～10、15～20、25～30（A列、B列共通）

上記対象セルの内訳
A列(参照セル）＝数値　※空欄の場合もあります
B列(変更セル）＝数式（Aセル数値 * ○○％）
※B1セルの例：=IF(A1="","",A1*10%)　のような数式が記入されております。

（例）

Private Sub CommandButton1_Click()

’参照セルの指定
（"A5:A10","A15:A20","A25:A30")
のようなコード***
※現在はAセルの範囲としておりますが、後に変更の可能性を有しますので範囲指定が可能な形式を望みます。

’変更セルの指定
セル指定のコード***
※現在はBセルとしておりますが、これも後に変更の可能性を有しますのでA・B・Cのような入力（もしくはA=1、B=2、C=3）による指定可能な形式を望みます。

’参照セル（Aセル）に数値が入力されている場合、数式から得られた変更セル（Bセル）の値を”値のみ”で残す。
実行コード***
※参照セル（Aセル）が空欄の場合は変更を望まないので、変更セル（Bセル）は何も致しません。（数式のまま残す）

End Sub

このようなマクロを望んでおります。

イメージとしては数値がAセルに入力されていた際に同じ行のBセルにおいて右クリックコマンド内〔コピー〕 → 〔形式を選択して貼り付け〕 → 〔値〕の貼り付けを行うことをご想像下さい。

列や行の変更が予想されるので変更が可能なことを望んでおりますが、結果が伴えば他の体裁は気に致しません。

お手数ですがご教授宜しくお願い致します。

以上

回答No.3

nda23 · ベストアンサー

計算する条件を言葉で考えるようにしましょう。
(1)入力がある→空欄ではない
(2)"計算済み"ではない
両方を満足すれば良いわけです。

　　　　If 値 <> "" Then
　　　　　　　　↓
　　　　If 値 <> "" And 値 <> "計算済み" Then

回答No.2

hige_082

条件を後から出すのはやめようね

Sub test()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If IsNumeric(Cells(i, 1).Value) And Cells(i, 1).Value <> "" Then
Cells(i, 2).Value = Cells(i, 2).Value
Cells(i, 1).Value = "計算済み"
End If
Next i
End Sub

参考まで

補足

＞条件を後から出すのはやめようね

大変申し訳ございませんでした。
以後気を付けます。

早速試してみました。
希望の動作が得られておりますが、列中の一部の範囲行を対象としておりますので、
質問本文中のような　5～10、15～20、25～30（A列、B列共通）のように行範囲の指定
を行うことは出来ないでしょうか？

恐れ入りますがご回答宜しくお願い致します。

回答No.1

nda23

こんな感じでしょうか

Sub サンプル()
Const 参照列 As Long = 1 'A列のこと
Const 変更列 As Long = 2 'B列のこと
Dim シート As Worksheet
Dim 最終行 As Long
Dim 行 As Long
Dim 値

Set シート = ThisWorkbook.Worksheets(1)
最終行 = シート.Cells.SpecialCells(xlLastCell).Row
For 行 = 1 To 最終行
　　　　値 = シート.Cells(行, 参照列).Value
　　　　If 値 <> "" Then
　　　　　　　　シート.Cells(行, 変更列).Formula = "" '★数式を消す
　　　　　　　　シート.Cells(行, 変更列).Value = 値 * 0.1 '★数式と同じ計算
　　　　End If
Next
End Sub

補足

ご回答いただき、ありがとうございます。
ご教授いただきましたコードを入力し、早速試してみました。
望む動作は得られ、何ら問題ないと思われたのですが、nda23様の作成コードの後に別のコードを作成しており、A列の入力数値がマクロ実行後に全て”計算済み”という言葉になるよう改変しております。
ですので、２回目以降のマクロ実行時には、B列の対象セルも”計算済み”となってしまうので、可能であればA列に”計算済み”の記述があった際は空欄と同じ扱いとして除外するコードをご教授いただけると大変助かります。
お手数をお掛け致しまして恐縮ですが、宜しくお願い致します。