Excel2000を利用しているのですが、セルに数字を入力すると以下のようになってしまいます。
例)"1"と入力するとセル内には"0.000001"と表示される
"1.0"と入力するとセル内には"1"と表示される
"0.1"と入力するとセル内には"0.1"と表示される
整数を入力する場合は特に小数点を入力しなくてもいいようにするには、どこの設定をどのように変更すればいいかご存知の方がいらっしゃれば教えてください。
ちなみに書式メニュー内のセルダイアログ内の書式設定は問題ありませんでした。
そして新規で作成したファイルでも症状は発生しています。
同じファイルをほかのPCで使って見た場合は症状は発生しません。

よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (5件)

ツール→オプション→編集タブで小数点位置を固定するにチェックが入っていませんか。

オフにすればなおるかも・・・・
    • good
    • 0
この回答へのお礼

アドバイスをありがとうございました
直りました!!
何かの操作で触ってしまったんでしょうね

本当にありがとうございました

お礼日時:2001/07/18 10:48

テンプレートが一番可能性があるような気がしますけど、


他の可能性も考えて見ました。
ほかのPCで使ってみた場合は、症状は発生しないということなので。

単語登録かかっちゃってません?
日本語入力モードオンにして、
1と入力した後、何回か、変換してみてください。
変換候補が、0.000001が、一番最初に来ているようでしたら、
それのせいだとおもいますよ。

もし、そうだったら、1を選びなおして確定してあげればいいだけです。
邪魔くさいようでしたら、単語登録は削除しておけばいいとおもいますよ。

また、そのほかの可能性も考えられますので、参考URLをご参照ください。

どうも、エクセルのせいというより、IMEのせいのような気がしないでもない・・・。

参考URL:http://www.microsoft.com/japan/support/kb/articl …
    • good
    • 0
この回答へのお礼

アドバイスをありがとうございます
N0.2のnishiさんから教えていただいた操作で解決できました
URLなどの参考情報をありがとうございました

お礼日時:2001/07/18 10:52

新規で作成したファイルでもということなので、テンプレートが設定されている


かも知れません。
Progam Files \ Microsoft Office \ Office \ XLStart
このフォルダにBookというファイルはありませんか?
もし、あればそのファイルを消してみてください。
    • good
    • 0
この回答へのお礼

アドバイスをありがとうございます
N0.2のnishiさんから教えていただいた操作で解決できました

ありがとうございました

お礼日時:2001/07/18 10:51

>例)"1"と入力するとセル内には"0.000001"と表示される


No.2のnishi6さんの回答でよいでしょう
ツール→オプション→編集タブで小数点位置を固定するにチェックが入っていませんか。オフにすればなおるかも・・・・

>"1.0"と入力するとセル内には"1"と表示される
メニューの「書式」「セル」「表示形式」タブをクリック、「数値」をクリック、「小数点以下の桁数」を1にする。「OK」をクリックです。
小数点の位置の上げ下げはアイコンの+.00 -.00をクリックして下さい。

>"0.1"と入力するとセル内には"0.1"と表示される
普通ですネ。

>整数を入力する場合は特に小数点を入力しなくてもいいようにするには、どこの設定をどのように変更すればいいかご存知の方がいらっしゃれば教えてください。
意味が解りません。{^^) 小数点を入れないと、数値の意味がないようですが?
    • good
    • 0
この回答へのお礼

アドバイスをありがとうございます
N0.2のnishiさんから教えていただいた操作で解決できました

ありがとうございました

お礼日時:2001/07/18 10:50

私は97ユーザなので自信がないのですが、これはエクセルの通常の「セルの書式」ではないでしょうか。


「1.0」と入力しても「1」となるのは、「セルの書式設定」の「表示形式」が「標準」のままになっているからです。ですから表示形式を「数値」にすればきちんと入力されます。
そしてセルがきちんと「数値」になっていても、「0.00001」のような数はその「数値」の中の設定で、「小数点以下の桁数」が何桁にもなっているからではないでしょうか。確認してみて下さい。
またはメニューバーにある「←.00」とか「.00→」のコマンドを押すとこの桁数が操作できます。
    • good
    • 0
この回答へのお礼

アドバイスをありがとうございました。
でも残念ながら上手くいきませんでした。
新規書類でも既存書類でも症状が発生するのは特定のPCだけなので、おそらくアプリケーションの全体に影響する設定を変更しなければ直りそうにありません。
アプリケーションは一度アンインストールしてその後再インストールをしたのですがそれでもどこにあるか分からない設定ファイルは残ったままだったので症状は改善できませんでした。

また、何かありましたらアドバイスをお願いします。

お礼日時:2001/07/17 16:18

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExcel マクロ VBAで未入力セルエラーのメッセージ表示を、指定のセル名で表示したい

Excelで、特定の未入力セルがあると、Excelを閉じられない、かつ保存できないようにマクロで設定しました。(過去の質問で似たようなものがあったので、コピペしました)

メッセージボックスに未入力セルがあることを表示させているのですが、そのセル名を指定した名前で表示させたいです。自分なりに調べてみましたが、なかなか見つからず、皆様からのアドバイスを頂きたいです。

例えば日付を入れるセル、B1が未入力の場合、
「B1」が未入力です。
ではなく、
「日付」が未入力です。
と表示させたいです。

現在、以下のような形でVBA画面に入力しています。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim k As Long
Dim str, buf As String
Dim myArray As Variant
myArray = Array("営業担当者名", "顧客名", "荷造運賃単価", "見積日", "確度") '←好みの数だけセル番地を格納する
For k = 0 To UBound(myArray)
If Worksheets("見積書兼注文通知書").Range(myArray(k)) = "" Then
str = WorksheetFunction.Substitute(Range(myArray(k)).Address, "$", "")
M = M + 1
buf = buf & str & ","
End If
Next k
If M > 0 Then
MsgBox "未入力の箇所があります。" & vbCrLf & Left(buf, Len(buf) - 1) & "セルが" & vbCrLf & "未入力です。"
Worksheets("見積書兼注文通知書").Activate
Cancel = True
End If
End Sub '

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'この行から
Dim k As Long
Dim str, buf As String
Dim myArray As Variant
myArray = Array("営業担当者名", "顧客名", "荷造運賃単価", "見積日", "確度") '←好みの数だけセル番地を格納する
For k = 0 To UBound(myArray)
If Worksheets("見積書兼注文通知書").Range(myArray(k)) = "" Then
str = WorksheetFunction.Substitute(Range(myArray(k)).Address, "$", "")
M = M + 1
buf = buf & str & ","
End If
Next k
If M > 0 Then
MsgBox "未入力の箇所があります。" & vbCrLf & Left(buf, Len(buf) - 1) & "セルが" & vbCrLf & "未入力です。"
Worksheets("見積書兼注文通知書").Activate
Cancel = True
End If
End Sub

以上。
どこに、どのような文言を入れると私の行いことが実現出来るか教えていただきたいです。
宜しくお願いいたします。

Excelで、特定の未入力セルがあると、Excelを閉じられない、かつ保存できないようにマクロで設定しました。(過去の質問で似たようなものがあったので、コピペしました)

メッセージボックスに未入力セルがあることを表示させているのですが、そのセル名を指定した名前で表示させたいです。自分なりに調べてみましたが、なかなか見つからず、皆様からのアドバイスを頂きたいです。

例えば日付を入れるセル、B1が未入力の場合、
「B1」が未入力です。
ではなく、
「日付」が未入力です。
と表示させたい...続きを読む

Aベストアンサー

str = WorksheetFunction.Substitute(Range(myArray(k)).Address, "$", "")

str = myArray(k)
でいかがでしょうか?

QExcel VBA セル内に設定されたテキストを書式ごとコピー(複数セル)

複数セルにまたがって書かれたテキストを結合して、
別のシートにコピーしようとしています。

単に結合&コピーならいいのですが、
セルごとに設定された書式を保持したままコピーする術が分かりません。
例)セル内に abcd"EFG" という文字があった場合、
  "EFG"の部分だけ太字&下線

複数セルの書式付きテキストを結合する場合、
記憶させる変数は何かしらのオブジェクト変数になるでしょうか。

そもそもこんなこと可能なんでしょうか。

Aベストアンサー

>そもそもこんなこと可能なんでしょうか。

可能だと言えば可能ですが、質問者さんはどんなイメージを持っているのでしょうか。たぶん結合する範囲を選択して、それで、ボタンを押して、連結した時に、色などの書式が反映されているということになるのでしょうか。しょせん、マクロ自体は、人のやることをコード化したものだと考えると、無理なことは無理なのです。

しかし、例えば、書式のみで成立する日付などは、テキスト化しないといけません。そういう所までを、是非とも、ご自身でも考えていただきたいと、個人的には思うのです。

もうここらへんまで来ると、Excelの仕様に関わってくるので、それはもう、私個人としては、Q&Aという意義がなくなってしまうと思っています。


以下は、一例として考えてみました。(フォントのプロパティをすべて入れてはいません)

これは、また、その後に、QATのボタンにするのが一般的かとは思います。出来上がったものをコピーにまでは入れられますが、手動でペーストにすることになります。結合した所を元に戻すには、元に戻すマクロが必要になります。


'//
Private Type FontForm
'色・書体・フォント・フォントサイズ・下線・取り消し線
iColor As Long
bBold As Boolean
sFontName As String
iFontSize As Single
bUnderline As Boolean
bStrike As Boolean
End Type
Sub formatMerge()
 Dim Rng As Range
 Dim mFormat() As FontForm
 Dim c As Range
 Dim i As Long, j As Long
 Dim mTxt
 If TypeName(Selection) <> "Range" Then Exit Sub
 Set Rng = Selection
 If Rng.Cells.Count = 1 Then Exit Sub
 If Rng.MergeCells Then
  Rng.MergeCells = False
  Exit Sub
 End If
 ReDim mFormat(Rng.Cells.Count - 1)
 ReDim mTxt(Rng.Cells.Count - 1)
 For Each c In Rng.Cells
  mTxt(i) = Trim(c.Text)
  With mFormat(i)
   .bBold = c.Font.Bold
   .iColor = c.Font.Color
   .iFontSize = c.Font.Size
  End With
  i = i + 1
 Next c
 Rng.ClearContents
 Rng.ClearFormats
 Rng.Merge
 With Rng
  .Cells(1).Value = Join(mTxt, "")
  .HorizontalAlignment = xlCenter
  .VerticalAlignment = xlVAlignTop
  .WrapText = False
  .Orientation = 0
  .AddIndent = False
  j = 1
  For i = 0 To UBound(mTxt)
   With .Characters(j, Len(mTxt(i))).Font
    .Color = mFormat(i).iColor
    .Size = mFormat(i).iFontSize
    .Bold = mFormat(i).bBold
   End With
   j = j + Len(mTxt(i))
  Next i
   Rng(1).MergeArea.Copy
 End With
End Sub

>そもそもこんなこと可能なんでしょうか。

可能だと言えば可能ですが、質問者さんはどんなイメージを持っているのでしょうか。たぶん結合する範囲を選択して、それで、ボタンを押して、連結した時に、色などの書式が反映されているということになるのでしょうか。しょせん、マクロ自体は、人のやることをコード化したものだと考えると、無理なことは無理なのです。

しかし、例えば、書式のみで成立する日付などは、テキスト化しないといけません。そういう所までを、是非とも、ご自身でも考えていただきたいと、...続きを読む

Q入力セルが空白の時 隣りと隣のセル(こちらも入力セル)を空白にできるかどうか?

こういったことできないでしょうか。

 A1  B2  C3
9:00  ~  10:00 と場合に

A1とC3に直接値を入力しています。

A1セルに値がはいらないとき B2のチルダも C3の値も 空白になってくれると
よいなと思うのですが 良い方法はありますでしょうか。

ご存知の方ご教示いただければ助かります。

Aベストアンサー

こんばんは!

>C3のセルのことを B2に入力した式で
>管理できないかと思っているのですが・・・

関数では無理だと思います。
VBAになりますが一例です。

画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1・C3セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
If Intersect(Target, Range("A1,C3")) Is Nothing Then Exit Sub
If Target.Count = 1 Then
With Target
If .Row = 1 Then
If .Value <> "" Then
If Range("C3") <> "" Then
Range("B2") = "~"
End If
Else
Range("B2,C3").ClearContents
End If
Else
If .Value <> "" Then
Range("B2") = "~"
Else
Range("B2").ClearContents
End If
End If
End With
End If
End Sub '//この行まで//

※ A1セルがC3セルより大きな値になった場合などの細かいエラー処理はしていません。

こんな感じをお望みなのでしょうか?m(_ _)m

こんばんは!

>C3のセルのことを B2に入力した式で
>管理できないかと思っているのですが・・・

関数では無理だと思います。
VBAになりますが一例です。

画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1・C3セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
If Intersect(Target, Range("A1,C3")) ...続きを読む

Qエクセル あるセルに文字を入力した後ボタン一つでそのセルを入力の状態ではなく只その同じセルを選択している状態にしたい

選択したセルに文字を入力するときF2キーで入力できるようになると思うのですが、その逆をやりたいのですが、ボタンひとつできる方法はありますか。入力して縦線が点滅しているのを、ただセルを選択した状態にしたいのです。
今はいったんenterかtabを押してから、矢印キーで再度そのセルに戻っているのですが、ボタンひとつでできる方法があると面倒でなくなると思うので。
具体的には入力した直後に、そのセルをコピーして別のセルに貼り付けたいのです。
ちょっと分かりづらくて申し訳ありませんが教えてください。

Aベストアンサー

CtrlキーとEnterを同時押しすればセル移動しませんよ。

Qあるセルに日付が入力してあり、他のセルにその日付を過ぎた日付を入力したり近づいた日付を入力した場合、コメントが

エクセル(97)の話ですが、

例えば、「J列」(J5:J65536)に「●●予定日」の
日付が書いてあったとして、「M列(M5:M65536)」には
予定日1~数ヶ月以上前の日付が書いてあったとします。。
そして、「M列」の日付は度々書き直し変動します。

「M列」に入力した日付が「J列の●●予定日」の
10日以内だったり、その「●●予定日」を過ぎた日付を
入力してしまった場合、自動的に

「●●予定日が近づいてきています」
「●●予定日○日前です」
「既に●●予定日を過ぎてます」
「●●予定日を○日過ぎています」など、

「J列の●●予定日」の各行のセル(日付)を参照して、「M列の同行の日付」に、注意を促すような
(常に表示の)コメントがつくようにはできますでしょうか?

Aベストアンサー

#2のmshr1962です。
すみません。中間のTEXT関数の所で閉じカッコが抜けていました。
=IF(J5<M5,TEXT(M5-J5,"予定日を0日過ぎています。"),IF(J5=M5,"予定日です",IF(J5>M5+7,TEXT(J5-M5,"予定日0日前です"),IF(J5>M5+30,"予定日が近づいてきています",""))))


このカテゴリの人気Q&Aランキング

おすすめ情報