一例ですが、
1.セルに“a”と直接入力し『変換キー』
3.Escキーを3回押すと強制終了(たまにブルーバック)
4.再起動・・・(-_-;)

会社の他のPCでも確認できました。WIN2000もです。
皆さんはどうですか?
実は有名なバグ?ただの勘違い?
オフィスアップデートに対処法とか載ってますでしょうか?
既出だったらごめんなさい。

環境:NEC LaVieC(ペン3,メモリ256M),win98se,office2000,IME2000

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

A 回答 (2件)

私のは強制終了しませんけどね・・。



MicrosoftからOffice2000のSR-1,SP-2が追加されていますが、VerUpなさいましたか。

ちなみに私のは FMV-Desktop PEN3 128MB WinMe Office SR-1 ですが・・。

参考URL:http://officeupdate.microsoft.com/japan/?FinishU …

この回答への補足

一通りアップデートしてみました。(全部で80M位かな・・・^^;)
不具合もなくなったようです。ありがとうございました。

補足日時:2001/05/24 23:06
    • good
    • 0
この回答へのお礼

すばやいご返答ありがとうございます。
仕事が忙しいので、頃合を見つけて試してみます。

お礼日時:2001/05/22 09:02

Excelのバグではなく、yu-ji3さんのパソコンの中のファイルが壊れているせいだと思います。



Office2000のCDの\PFILES\MSOFFICE\OFFICE\OFFCLN9.EXE
を実行して、Officeを完全に削除してから再インストールすると直るかもしれないです。
一度お試しください。

もしくは、より小さい確率ですが、キーボードのドライバが壊れているとか、IMEが壊れているとかも考えられますね。
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。

お礼日時:2001/05/22 09:07

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

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

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

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

Qエクセル プルダウンの作り方

お世話になります。
エクセルでプルダウンの作り方を教えていただけませんでしょうか?
住所を▼のボタンでクリックしたら【北海道,青森,秋田,岩手・・・】などの選択ができるようにしたいのです。
宜しくお願いします。

Aベストアンサー

メニューから「データ」、「入力規則」、「設定」で「入力値の種類」を「リスト」を選択します。
そうすると「元の値」という表示がでますので、そこで前もって作っておいたリストの範囲を指定します。
多くないのでしたら、そのままそこにカンマで区切って入力しても出来ます。

Qvba:特定のセルに入力したと同時に隣のセルの値を特定のセルの下の行に自動入力したい

testシートのD列(D2以下)に値が入力されるとC列に計算式A列*B列が入っておりその答えが入力されます。
同時に、D列に値を入力するとC列に入力される値をその下の行のB列に自動反映させたいのです。

例D2=10.5  C2=10(A2)*5(B2) B3=C2の答えの50

教えていただきましたら幸いです。
よろしくお願いいたします。

Aベストアンサー

こんにちは!

すでに回答は出ていますので、参考程度で・・・
シートモジュールです。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D:D")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Row > 1 Then
If .Value <> "" Then
.Offset(1, -2) = .Offset(, -1)
Else
.Offset(1, -2).ClearContents
End If
End If
End With
End Sub

こんな感じではどうでしょうか?m(_ _)m

Q(Excel)エクセルのバージョンごとの使用可能関数リストがあるサイト

(Excel)エクセルのバージョンごとの使用可能関数リストがあるサイト

Excel2007でIFERROR関数などを使っていました
しかし、以前のExcelバージョンだと使えないようです。
そこで、どの関数がどのExcelバージョンから使用可能か?
というリストのようなものを掲載しているサイトはありますか?

Aベストアンサー

下記ページで2007で追加された関数が解ります。

Excel(エクセル)基本講座:Excel(エクセル)関数一覧表
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/itiran.html

Qvba:特定のセルに入力したと同時に隣のセルの値を特定のセルの下の行に自動入力したい_No.2

先ほど、testシートのD列(D2以下)に値が入力されるとC列に計算式A列*B列が入っておりその答えが入力されます。
同時に、D列に値を入力するとC列に入力される値をその下の行のB列に自動反映させたいのです。

例D2=10.5  C2=10(A2)*5(B2) B3=C2の答えの50

の質問をさせていただきまして、以下の回答をいただいたのですが、すいません。
C2の値が変更になった場合に自動でB3の数字も変更したいのですが、今のままだとD2を入力しなおしてEnter押さないと変わってくれません。
もう一度教えてくださいませ。
宜しくお願いいたします。


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D:D")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Row > 1 Then
If .Value <> "" Then
.Offset(1, -2) = .Offset(, -1)
Else
.Offset(1, -2).ClearContents
End If
End If
End With
End Sub

先ほど、testシートのD列(D2以下)に値が入力されるとC列に計算式A列*B列が入っておりその答えが入力されます。
同時に、D列に値を入力するとC列に入力される値をその下の行のB列に自動反映させたいのです。

例D2=10.5  C2=10(A2)*5(B2) B3=C2の答えの50

の質問をさせていただきまして、以下の回答をいただいたのですが、すいません。
C2の値が変更になった場合に自動でB3の数字も変更したいのですが、今のままだとD2を入力しなおしてEnter押さないと変わってくれません。
もう一度教えてくだ...続きを読む

Aベストアンサー

こんばんは!

C列には数式が入っているのですよね?
結局A・B・D列のデータ変更があればマクロが実行されれば良い!という解釈です。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A,B:B,D:D")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
Application.EnableEvents = False
If .Column = 4 Then
.Offset(1, -2) = .Offset(, -1)
ElseIf .Value <> "" Then
Cells(.Row + 1, "B") = Cells(.Row, "C")
End If
Application.EnableEvents = True
End With
End Sub

としたらどうなりますか?m(_ _)m

こんばんは!

C列には数式が入っているのですよね?
結局A・B・D列のデータ変更があればマクロが実行されれば良い!という解釈です。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A,B:B,D:D")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
Application.EnableEvents = False
If .Column = 4 Then
.Offset(1, -2) = .Offset(, -1)
ElseIf .Value <> "" Then
Cells(.Ro...続きを読む

Qエクセルについてお聞きします。数字0は表示しない設定にしたいのですが、

エクセルについてお聞きします。数字0は表示しない設定にしたいのですが、可能でしょうか?

Aベストアンサー

シート全体を0非表示にするなら、「ツール」「オプション」「表示」の
「ゼロ値」のチェックをはずす。

個々のセルの0を非表示にするなら、「セルの書式設定」の「ユーザー定義」で
種類のボックスに # と入力するなどの方法があります。

QEXCEL【ある特定のセルに必ず全角入力したい】

EXCELで、ある特定のセルに必ず全角入力したいのですが、どうすればよいのでしょうか。入力規則に「日本語」の設定がありましたが、「オン」にすると「日本語」入力モードになるのですが、数字などは、半角の数字になったりします。必ず全角にしたいのですが、どうしたらよいのでしょうか。マクロを使って変換しても構いません。なにか良い方法があったら教えてください。

Aベストアンサー

こんにちは。maruru01です。

ワークシート関数なら、JIS関数を、
マクロ(VBA)なら、StrConv関数を使用します。
詳細はヘルプを参照して下さい。

Qエクセルの0の表示、非表示に関する質問です。

エクセルで0の表示又は非表示にする設定は昔のエクセルだとセルの書式設定で簡単に出来たと思うのですが、最新のエクセルでは出来ません。やり方を教えて下さい。

Aベストアンサー

こんにちは!

いくつかのやり方がありますが、昔から変わっていないと思います。
Excel2010以降のバージョンをお使いの場合
(Excel2007も似たような感じですが、表示が少し異なります)

① メニュー → ファイル → オプション → 詳細設定 → 「次にシートで作業するときの表示設定 → ゼロ値のセルにゼロを表示する のチェックを外してOK

② 「0」を表示させたくないセルを範囲指定 → 右クリック → セルの書式設定 → 「表示形式」タブの「ユーザー定義」で
0;;
としてOK

※ ①の場合はSheet全体が対象となります。m(_ _)m

QExcelのVBAで、特定のセルを入力しないとファイルを保存できない設定で、その上書日時を別のセルに入力(但し条件有)

知恵袋にも質問しましたが、明日朝までに回答を頂けるか不安で、こちらにも質問します。

ExcelのVBAで、特定のセル(A1,B5,C10等)を入力しないとファイルを保存できない設定で、
(1)全て入力してたら、閉じる時に普段どおり、『「保存しますか?」の質問に「はい」「いいえ」「キャンセル」』のメッセージボックスが出るように
(2)入力してなかったら、閉じる時に『「未入力ですので、保存できません」』の質問に「保存しません」「キャンセル」』のメッセージボックスが出るように。
(3)また、作成者がそこを空白のまま保存できないので、作成者については、その制限がかからない方法
を下記のコードで教えていただきました。
その下記のコードに(4)上書可能で、上書きする時に特定のセル(D12)にその時の日を入力したいのですが、その日には条件があって、16:00より前ならその日、16:00以降なら翌日に入力されるように下記に付け加えたいのですが、どうすれば良いのでしょうか?

ブックモジュール[ThisWokbook]に
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName = ThisWorkbook.BuiltinDocumentProperties("Author") Then Exit Sub '許可するユーザー名
Dim myRng As Range
Dim myStr As String
With Worksheets("Sheet1")
Set myRng = Union(.Range("A1"), .Range("B5"), .Range("C10"))
End With
If WorksheetFunction.CountA(myRng) < 3 Then
Cancel = True
myStr = "未入力セルがあります" & vbCrLf & _
"[OK....保存しないで終了]" & vbCrLf & _
"[キャンセル..編集に戻る]"
If MsgBox(myStr, vbOKCancel) = vbOK Then
ThisWorkbook.Close False
End If
End If
End Sub

知恵袋にも質問しましたが、明日朝までに回答を頂けるか不安で、こちらにも質問します。

ExcelのVBAで、特定のセル(A1,B5,C10等)を入力しないとファイルを保存できない設定で、
(1)全て入力してたら、閉じる時に普段どおり、『「保存しますか?」の質問に「はい」「いいえ」「キャンセル」』のメッセージボックスが出るように
(2)入力してなかったら、閉じる時に『「未入力ですので、保存できません」』の質問に「保存しません」「キャンセル」』のメッセージボックスが出るように。
(3)また、作成者がそ...続きを読む

Aベストアンサー

With Range("D12")
.Value = IIf(Format(Now, "hh:mm") <= "16:00", Date, Date + 1)
End With

ご参考程度に。

Qエクセルで、3Dのドーナツグラフの作成方法を教えてください

 ある雑誌の中で、ドーナツ(真中に丸い空白)の3Dグラフを見ました。
 同じように、エクセル2002でドーナツの3Dグラフの作成をする事は可能でしょうか? もし可能であれば、作成方法を教えてください。
 どうぞ宜しくお願い致します。 

Aベストアンサー

ドーナツグラフの書式で「影つき」を選ぶと微妙に…(^^;

3D円グラフのように斜め上から見たような図だったのでしょうか?

Qexcel2000で特定セルから空セルの前までの行数を数えたい

セルA7から下へ向かってデータが入っています。その数をセルA1に入れたいと思い、

  「 Cells(1, 1) = Range("a7", Range("a7").End(xlDown)).Rows.Count 」

こんなマクロを書きました。出展は
 「 http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200611/06110262.txt 」です。


ここで、下記のようなデータを入れて試してみました。()内が期待する値で、[]内が実際の値です。


       <テスト1> <テスト2> <テスト3> <テスト4> <テスト5>
セルA7           あああ    あああ           あああ 
セルA8                  いいい    いいい    いいい 
セルA9                         ううう        
セルA10                                   
セルA11                               おおお
-----------------------------------------
期待する値     0      1      2      0      2
実際の値  65530  65530      2      2      2


と、このように期待する値が得られません。何が間違っているのでしょうか。
丸1日考えているのですが原因が分かりません。よろしくお願いします。
(文字幅がおかしくて見にくいと思いますがよろしくお願いします)

セルA7から下へ向かってデータが入っています。その数をセルA1に入れたいと思い、

  「 Cells(1, 1) = Range("a7", Range("a7").End(xlDown)).Rows.Count 」

こんなマクロを書きました。出展は
 「 http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200611/06110262.txt 」です。


ここで、下記のようなデータを入れて試してみました。()内が期待する値で、[]内が実際の値です。


       <テスト1> <テスト2> <テスト3> <テスト4> <テスト5>
...続きを読む

Aベストアンサー

こんにちは。

正しいとか間違っているというよりも、「期待する値」に、特別な法則を持っている、と思います。

Cells(1, 1) = Range("a7", Range("a7").End(xlDown)).Rows.Count
End プロパティは、値のあるセルを下に向かって探せ、ということです。だから、A7 から、その下を最後まで探して、その行数を出せ、ということでは、意味が違いますね。

質問者さんの直感なのでしょうか、「期待する値」の求め方は、関数タイプですね。「最初の空白行を探せ」ということですね。

関数なら、こうなります。

=MATCH(TRUE,INDEX(ISBLANK(A7:A100),,),0)-1

7行目より手前か、引数の範囲の外に数式を置いてください。循環参照になります。
もちろん、この数式をマクロに代入しても構いませんが、少し工夫が必要です。

以下のマクロと比較すると、上記の数式に軍配が上がりそうですね。Excelのワークシートはマクロよりも難しいですね。

'------------------------------------

Sub Test1()
  Dim i As Integer
  Dim ret As Long
  Const col As Integer = 5
  '書き出す行...15 行目
  Cells(15, col).Resize(, 5).ClearContents
  For i = 1 To col
    ret = spBlankRow(Cells(7, i)) '7行目から
    Cells(15, i).Value = ret - 7
  Next
End Sub
Function spBlankRow(rng As Range) As Long
Dim r As Range
  On Error Resume Next
  Set r = Range(rng, Cells(Rows.Count, rng.Column)).SpecialCells(xlCellTypeBlanks)
  On Error GoTo 0
  spBlankRow = r.Cells.Cells(1).Row
End Function


ちょっと言い訳:
最初、ユーザー定義関数だけで作ろうと思いましたが、SpecialCells で範囲を認識させるには、コマンドに命令を与える信号が必要ですが、ユーザー定義だけでは、そのコマンドに命令が与えられないので、プロシージャ型になっています。

こんにちは。

正しいとか間違っているというよりも、「期待する値」に、特別な法則を持っている、と思います。

Cells(1, 1) = Range("a7", Range("a7").End(xlDown)).Rows.Count
End プロパティは、値のあるセルを下に向かって探せ、ということです。だから、A7 から、その下を最後まで探して、その行数を出せ、ということでは、意味が違いますね。

質問者さんの直感なのでしょうか、「期待する値」の求め方は、関数タイプですね。「最初の空白行を探せ」ということですね。

関数なら、こうなります...続きを読む


人気Q&Aランキング