『あらかじめ公式を打ち込んでおきたい』（ホクロ）

 教えてください

 超初心者です。セルに数値を打ち込む際にあらかじめ公式を打ち込んでおきたいのですが
 できないのでどなたかご教授ください。

 ちなみにセルに１０００を打ち込んだとしたら１０と表示されるようにしたいんです。
 セルに入力する際に/１００と公式で打ち込む方法を教えてください。お願いします

----
 数式なりを組み込みたいということなのですか?
 単に表示内容を100分の1にしたいということであれば、
 この学校のライブラリーをご覧下さい。

 ↓クリック!

http://www.excel.studio-kazu.jp/lib/e3g/e3g.html

 (EUREKA)
----

 数式を組み込む場合はどうすればよいのでしょうか？
　　　
----
 ん!
 入力した数値、たとえば1000はどうなるのでしょう?
 1000として活かしておかなければならないのではないでしょうか?
 それとも10にしてしまうの?
 (EUREKA)　　　　
----
たびたびすいません。入力する際に１０００と打ち込み、表示される際には１０になっているようにしたいんですぅ。だから1000は活かさなくても大丈夫かと思われます。お願いします
----
 つまり、強制的に10にしてしまう。
 1000円を10百円とするとするわけですね。

 方法は3つあります。

 1)最初にご紹介した「表示形式」を使う方法。最も簡単。
 2)1000と入力するセル配列を別につくり（つまり、入力用の行なり列を別に作り）
    表示したいセルには　=Nn/100 と関数を記入する。（Nとは入力列、nとは入力行）
 3)VBAを使う。ワークシートに直接書き込むのではなく、
              ワークシート上のセルを制御するプログラムを使う。

 3)を使いたい場合には、表題を「VBA:あらかじめ公式を〜」と替えてください。
 VBAの得意な先生方が教えてくれます。
 私では、まだ教えられるほどVBAをマスタしてませんので。

 (EUREKA)
----
 おはようございます。
 EUREKAさん、しばらくぶりでんなぁ。

 先生と呼ばれる腕前やおまへんのやけど、VBAっちゅうことなんで、こんなんどうで
 っか？
 
 Alt+F11でVBEを開く
 プロジェクトウィンドウのSheet1をダブルクリック
 真新しい画面に下のコードをコピペ
 Alt+Qでエクセルに戻る

 A1に任意の数字を打ち込んでみておくんなはれ。
 どうでっか？
 　　　ほな...（弥太郎）

 Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column <> 1 Or Target.Row <> 1 Then _
            Application.EnableEvents = True: Exit Sub
    Range("a1") = Target / 100
    Application.EnableEvents = True
 End Sub
----
 ツール、オプション、編集、小数点位置を固定するにチェックし、入力単位を２と
 しますと、10000と入力したものは、100とセルに入るように思います。　(LOOKUP)
----
 お〜、そうでした。LOOKUPさんのやりかたが正当かな。
 弥太郎さん、こんにちは。
 弥太郎さんかりなさんあたりがお手を差し伸べてくれると思って、
「VBA:〜」の標題替えをお勧めしたわけで....  　直接お出ましとは、
 えらく「Vの字センサー」を張り巡らしておりますね。

 ホクロさん、「あらかじめ公式を〜」というご希望通りにするには、VBAの方法しか
 ないでしょう。セルに直接関数を書き込んでも、そこに1000と入力したら関数が
 吹っ飛んでしまいますもの。

 (EUREKA)