Excelを使用して外部ソースから情報を取得している場合、セル内にかなり奇妙な情報が含まれる可能性があります。たとえば、1,234.5-などの数値を含むセルがあるとします。これらはExcelではテキストセルとしてフォーマットされているため、計算には使用できません。

次のマクロは、選択した範囲のセルをチェックします。セルにテキストが含まれていて、そのテキストがマイナス記号で終わっている場合、マクロはマイナス記号をテキストの先頭に移動し、セルに戻します。その結果、セルはテキスト値から適切な数値に変換されます。

Sub ConvToNum()

Dim MyText As Variant     Dim MyRange As Range     Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For CellCount = 1 To MyRange.Cells.Count         MyText = MyRange.Cells(CellCount).Value         If VarType(MyText) = vbString Then             MyText = Trim(MyText)

If Right(MyText, 1) = "-" Then                 MyText = "-" & Left(MyText, Len(MyText) - 1)

MyRange.Cells(CellCount).Value = MyText             End If         End If     Next CellCount End Sub

注：

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

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

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

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

linkテキストを数値に変換する。