ワークシートのセルに格納されている値を調整する必要がある場合があります。ほとんどの場合、Paste Specialが提供するツールは、法案にうまく適合します。たとえば、ExcelTips.

の他の号で説明されているように、[形式を選択して貼り付け]を使用して、セルの範囲内の値を乗算または除算できます。ただし、Paste Specialを使用することには欠点があります。実際の値が変更されるため、発生したくない場合があります。どうして？値を調整してから4か月後、何をしたか、または開始値が何であったかを正確に覚えていない可能性があります。

このため、値を、調整で何が行われたかを示す数式に置き換える方が望ましい場合があります。たとえば、セルB3の値が100で、それを10％増やしたいとします。 Paste Specialを使用すると、簡単に110に変更できますが、代わりに値を式= 100 * 1.1に置き換えることもできます。このような公式があれば、4か月後の開始値や、それに対して何をしたかについて疑問の余地はありません。

数式で値を調整する唯一の方法は、次のようなマクロを使用することです。

Sub Adjust()

Dim c As Range     Dim sForm As String     Dim sMod As String          Set Target = ActiveSheet.Range(ActiveWindow.Selection.Address)

sMod = InputBox("Formula to add?")

If sMod > "" Then         For Each c in Selection             If c.HasFormula Then                 sForm = c.Formula                 sForm = "=(" & Mid(sForm, 2, 500) & ")"

sForm = sForm & sMod                 c.Formula = sForm             Else                 c.Formula = "=" & c.Value & sMod             End If         Next c     End If End Sub

このマクロを使用するには、調整するセルを選択して実行します。

セルに追加する数式を求められます。例として、セルに1.1を掛けたい場合は、1.1（アスタリスクの掛け算記号の後に1.1が続く）を入力します。次に、マクロは選択された各セルをステップスルーし、調整を行います。セルに数式が含まれている場合、数式は指定したとおりに調整されます。セルに他のものが含まれている場合は、調整を含む数式に変換されます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2592）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link数式を使用した値の調整。