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と関連する良く見られている質問

Q簡単に小数点以下3桁までの液密度を求めたい

よろしくお願いします。液体の密度を簡便な方法で短時間に求める方法を教えてください。飲むヨーグルトのような液体で密度は0.68程度
です。今やっている方法は、1000CCのメスシリンダーにサンプリングして電子天秤で重量を測定し、サンプル重量/1000で求めています。ただ、粘性があってガラスにこびりつきますので測定した後のメスシリンダーの掃除が大変です。2000CCのガラスビーカーも使って見ましたが、いずれにしても測定後の掃除が必要です。サンプル量が少ないと誤差が多いので1.5Lから3L程度までを考えています。
ペットボトルも使って見ましたが結構精度はあるようです。
測定したら容器はポイ捨てできれば最高です。

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)
でいかがでしょうか?

Q数値を小数点二桁にしたい

セルに小数点十桁くらい入っているのですが、
表示を小数点二桁にしています。
表示ではなくて、実際の値を小数点二桁に
置き換えたいのですが、簡単に置き換える方法は
ありますか?

Aベストアンサー

>表示を小数点二桁にしています

この状態で。

ご利用のエクセルのバージョンがご相談に書かれていませんが、エクセルのオプション(たとえばエクセル2007以降では「詳細設定」)で「表示桁数で計算する」のチェックを一度入れてOKすると、実際の数字が小数点2ケタに置き換わります。

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大量な小数点について

今回自作で、簡単なベンチマークテストをするために
何千という円周率を求めるプログラムをC言語で作成しようと思っています。
円周率を求めるプログラムは、簡単なストーマーの公式を用いて行おうと思っています。アルゴリズムは理解できているのですが、大量の小数点をC言語でどのように表現しようか考えているとこですが、思いつきません。
どなたか、何千という小数点を扱う方法の伝授をお願いします。

Aベストアンサー

FMT
で検索するとπの計算ソフトが見つかります。
下のURLには何千と言う桁数の計算方法が書いてあります。
また、
RSAの本で橋本晋之介さんの書かれた本にも
多倍長整数の計算のサンプルがあります。
他にも多倍長の数値の計算を説明した本はあります。
あとは、検索して本を買って下さい。

参考URL:http://www.dept.edu.waseda.ac.jp/math/ushiro/ushiro/program/pi.htm

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小数点以下

簡単なコトだと思うのですが・・・
『小数点以下3位未満の端数は、切り捨てる』とは
0.12345の場合、どうなるのですか?

『小数点以下3位以下の端数は、切り捨てる』とは
0.12345の場合、どうなるのですか?

申し訳ありませんがよろしくお願いします。

Aベストアンサー

『小数点以下3位未満の端数は、切り捨てる』とは
0.12345の場合、どうなるのですか?

「未満」は小数点以下第3位を含まない、つまり第4位を切り捨てます。
ですから、
0.123です。


『小数点以下3位以下の端数は、切り捨てる』とは
0.12345の場合、どうなるのですか?

「以下」は小数点以下第3位を含む、つまり第3位を切り捨てます。
ですから、
0.12です。

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

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

Aベストアンサー

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

Qエクセル2007で平均値を小数点以下第一位にする方法を教えてください。

いつもお世話になります。
先日エクセルを2007にしました。
平均値を出したのですが、小数点以下第4位まで表示されました。
これを小数点以下第一位までの表示にしたいのですが、
どうしたらいいですか?
以前はボタンひとつで簡単にできたのに…(泣)
ご存知のかた教えてください。
どうぞよろしくお願いします。

Aベストアンサー

そのボタンは「ホ-ム」タブの「数値」グループにある「小数点以下の・・・」ボタンのことではないでしょうか。

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ランキング