エクセルで数字を入力した時、数字の前に一定の文字を表示させたい

解決済

質問者：rosily
質問日時：2002/06/20 12:53
回答数：4件

　エクセル2000です。たとえば、一つのセルに
　
　123456

と六桁の数字を入力しただけで、数字の前に　SAと表示され

　SA123456

となるようにしたいのです。数字は六桁で、数値は変わっていきますが、数字の前のSAという文字は、変わらず一定にしたいのです。どのような、数式にしたら良いでしょうか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： kame-tamago
回答日時：2002/06/20 13:05

私なら、数式ではなくて、セルの書式設定で行います。

セルで右クリックし「セルの書式設定画面」がでたら表示形式のところで
ユーザー定義を選びます。

Ｇ／標準と右側にでているところで、Ｇの前に"SA"と入力します。
この書式にしておけば数字を入れればその前にＳＡがつきますよ。
""は間に文字をいれたりして、時々関数でも使うので便利ですね。

- 4
- 件

通報する

この回答へのお礼

ありがとうございます。数式より簡単ですね。

通報する

お礼日時：2002/06/21 12:37

No.4

回答者： nishi6
回答日時：2002/06/20 14:01

入力したセルそのものを書き換えるなら関数ではできませんね。

●見た目でいいなら、書式設定で可能です。

●別セルをつかっていいなら、A1に数値がある例で、別セルに
　　="SA"&RIGHT("000000"&A1,6) または =TEXT("SA000000",A1)
　として、これを、形式を選択して貼り付け→値で書き換えます。

●別セルを使わず、入力と同時に『SAxxxxxx』にしたいなら、マクロしかないでしょう。
　下記は、Sheet1のA1:B20の範囲の変更について書き換える例です。範囲は書き換えて下さい。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、表示→プロジェクトエクスプローラでプロジェクトエクスプローラを表示し、Sheet1をダブルクリック。
出てきたコードウインドウに下記コードをコピーして貼りつけます。

ここから
↓
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　Dim rg As Range 'セル

　　'エラー対応。イベントが発生するようにして終わる。
　　On Error GoTo ErrorHandler

　　'セルを書き換えるので再度イベントが発生しないようにする
　　Application.EnableEvents = False

　　'複数範囲を処理した時は個別に処理する
　　For Each rg In Target
　　　　'A1:B20の範囲の変更について書き換える例
　　　　If Not Intersect(rg, Range("A1:B20")) Is Nothing Then
　　　　　　If rg <> "" And IsNumeric(rg) Then
　　　　　　　　'数値入力ならば、６桁数値の先頭に『SA』を付ける
　　　　　　　　rg = "SA" & Right("000000" & rg, 6)
　　　　　　End If
　　　　End If
　　Next

　　Application.EnableEvents = True
　　Exit Sub

ErrorHandler:
　　Application.EnableEvents = True
End Sub

- 4
- 件

通報する

この回答へのお礼

ありがとうございます。マクロは、まだ勉強中なのでとても参考になりました。

通報する

お礼日時：2002/06/21 12:42

No.3

回答者： tanukiti
回答日時：2002/06/20 13:07

はじめまして。

tanukitiと申します。

それでしたら、数式でなくても出来ると思います。
表示させたいセルを右クリック－[セルの書式設定]で、
[表示形式]タグ内のユーザー定義を選択。
テキスト内に"SA"000000と入力して、OKボタンを押下します。

上記の操作で、表示形式を設定したセルに６桁の数字を入力すれば、
SAXXXXXXと表示されるようになります。

参考にしていただけたら幸いです。