エクセル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セルにおいて右クリックコマンド内〔コピー〕 → 〔形式を選択して貼り付け〕 → 〔値〕の貼り付けを行うことをご想像下さい。
列や行の変更が予想されるので変更が可能なことを望んでおりますが、結果が伴えば他の体裁は気に致しません。
お手数ですがご教授宜しくお願い致します。
以上