エクセルで万単位の桁を

質問

エクセル2000で、A1セルに、25000と入力したら万単位で切り捨てて、A1セルに2となるようにするには、どうしたらよいのでしょう？

回答No.6

nishi6

マクロでよければ・・・・
ツール→マクロ→Visual Basic EditorでVBE画面に移り、表示→プロジェクトエクスプローラでプロジェクトエクスプローラ画面を出して、そこの「ThisWorkbook」をダブルクリックして、そのシートモジュールとして下記を貼り付けます。
Sheet1のセルA1に入力した時だけ自分を10000で割った商に変えます。Sheet1が別名だったらそのように下記を変更します。A1に25000を入力すれば、A1は2になるので、演算にも使えます。

たまに使う方法です。参考までに・・・・

'*** 自分を書き換える ***
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'複数セルを操作した時の対応
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then
Exit Sub
End If
'*** Sheet1のA1の時だけの例 ***
If Sh.Name = "Sheet1" And Target.Address = "$A$1" Then
'次の書き換えでまたイベントが起きるのを止める
Application.EnableEvents = False
'10000で割っている
Target = Int(Target / 10000)
'イベントが起きるように戻す
Application.EnableEvents = True
End If
End Sub