会社でエクセルファイルを私が開くと日付の表示がおかしくなります。(他の人は問題ないです)

具体的には、平成○年○月○日という表示されるよう設定されファイル作成されているはずが、
私が開くと○月○日平成○○年と表示されます。

このようなファイルが一つではありませんので、私のPCでの「エクセル」の設定がおかしいのかと。

勿論、毎度毎度、気が付く度に手作業で直せますが、根本的にリセットしたいです。
気が付かないで印刷し取引先に送ったら注意を受けてしまいました。

原因・修正にお心当たりの方、ご教示の程宜しくお願い致します。

A 回答 (2件)

    • good
    • 1
この回答へのお礼

上のURLのやり方がビンゴでした。
「コントロールパネル」の"地域と言語"がいつの間にか変わっていました。
ありがとうございます。助かりました!

お礼日時:2017/07/12 17:24

つまり複数人は同じブックを参照・書き込みができる「共有ブック」となってる訳です。



システム管理してる人に言って直してもらってください。
実際にあなたのpcでの表示を見て貰えれば解ります。


「共有ブック」にしていると、複数人のユーザ設定ビューが作られ、あなたの名前でもユーザ設定ビューが作られている筈です。

一旦、ユーザ設定ビューを削除し、再度「共有ブック」指定するとかします。
    • good
    • 0
この回答へのお礼

アドバイスありがとうございました!

お礼日時:2017/07/12 17:24

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

このQ&Aを見た人はこんなQ&Aも見ています

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

Q西暦をS〇〇年〇月〇日へ

1964/11/10と入力していましてこれを
S39年11月10日と表示したいのですがどうすればいいのか教えて下さい。

Aベストアンサー

セルの書式設定でユーザ定義を加えれば、
お望みどおりの表示形式が作成できます。

QExcelの日付表示がPCによって違う

Excelの「セルの書式設定」で、「ユーザー定義」で「dd-mmm-yy」を選んでいます。

このファイルをサーバ上に置いて、みんなで共有して使っているのですが、
あるPCからは、「01-Sep-06」と表示され、他のPCからは「01-9-06」と表示されます。
なぜか、月の所が違く表示されます。

どのPCからみても、セルの書式設定は「dd-mmm-yy」になっているのですが。。。

どなたか、何か分かりましたら、ご教授ください。

PC:Windows XP SP1
Excel:EXcel 2002 SP3
全員同じ環境です。

Aベストアンサー

あまり自信はありませんがWindowsの設定の違いではないでしょうか?
コントロールパネルの地域と言語のオプションを開いてみてください。
地域オプションタブの日本語の右にカスタマイズというボタンがあると思います。
それを押してさらに時刻のタブを選んだ先の画面が各端末で違うような気がするのですが…。
見当違いでしたらごめんなさい。

Q入力文字を逆さに

写真のようにA1~A4の入力文字をA5~A8に逆さにして入力する方法を教えてください。
エクセル2010と2013を使用しています。
よろしくお願いいたします。

Aベストアンサー

こんなのはどうでしょうか。
「セルの書式設定」-「配置」で、文字列の方向を90度、および、-90度にします。

ちなみに、F1~I1は、A1~D1を数式で参照します。参照順番はお好きなように変更してください。
さらに云うなら、品名や生産日?の一覧を別途作成して、画像の印刷用シートは、それを参照するようにした方が、入力も楽ですね。

Qエクセルで特定の数字だけ勝手に変換されてしまいます

エクセル2010で48,609.793と入力するのですが
入力後のセルを見てみると48,609.792999999と
勝手に変換されてしまいます。
48,609.792や48,609.794ではそのままなのですが
なぜなのでしょうか?
計算上で入力した数値を使用したく困っています。

Aベストアンサー

10進数をコンピュータ内部では2進数の形で保持することによる誤差だそうです。
なるべくこの誤差が出ないようにExcelは工夫されているそうですが、
特定の数字を入力すると「99999…」が現れるのだとか。
この質問を見て調べるまで全然知りませんでした。
https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_excel-mso_other/excel/bbaaa7f0-5e73-4d7c-aa05-6709a3357d26
https://support.microsoft.com/ja-jp/help/813530

計算式には数字を丸める関数を入れると対処できると思います。
ROUNDやROUNDUP関数で引数を3にしてみてください。
http://kokoro.kir.jp/excel/round.html

Qエクセルで三つの条件での参照する方法。 お世話様です。 コード 項目 7月 8月 9月 10月 11

エクセルで三つの条件での参照する方法。
お世話様です。

コード 項目 7月 8月 9月 10月 11月 12月
1234 野菜 8 11
9876 肉類 5 4
小計 5 8 11 4
2345 魚類 12 8
3456 麺類 1 6
小計 1 6
合計

このようなデータがあります。
コードは1000くらいあります。
小計も100くらいあります。

別シートにこれよりも項目が多い表があります。
この表に上記データを反映させたいです。

作業列を作りコードと項目を&で合体させ
ます。
それを検索値とし、別シートの7月の列にvlookup関数にします。
コードの列をフィルタ掛けし小計、合計を非表示にします。
貼り付け。

これを月別に貼り付けしようと思います。
他に効率良い方法ありますか?
言葉足らずな点は補足します。
よろしくお願いいたします。

エクセルで三つの条件での参照する方法。
お世話様です。

コード 項目 7月 8月 9月 10月 11月 12月
1234 野菜 8 11
9876 肉類 5 4
小計 5 8 11 4
2345 魚類 12 8
3456 麺類 1 6
小計 1 6
合計

このようなデータがあります。
コードは1000くらいあります。
小計も100くらいあります。

別シートにこれよりも項目が多い表があります。
この表...続きを読む

Aベストアンサー

素朴な確認をば。
小計行の数値 5、8、11、4 はどのセルとどのセルとの小計になっているの?
「あれは、単に書いたまでで、実はデタラメ!」なんて言わないでネ。回答者は真剣なので。

Qエクセルの使い方ってどこで習いましたか?

学校では習いませんよね?

Aベストアンサー

私も独学です。
解らないのはネット検索で結構見つかりますので助かっています。(笑)

Qエクセル 日付けと曜日

病院なんかで お薬をもらってまた次回 来院するのですが、たとえば、一週間単位で次回も主治医のいる火曜日にという特定の曜日にしたい場合、14日分、28日分、56日分などとするのはいいのですが、19日分などとしてお薬なくなったから来ましたとして曜日が合わない場合困ります。19日の前の直近の火曜日はいつの日日(ひにち)かをエクセルで表すのにはどうすればいいのでしょうか。

Aベストアンサー

コメントいただいた内容を反映して修正しました。

[B1]に受診日を入力します。

[B2]に処方された薬の日数を入力します。

[B3]は薬がなくなる日を計算します。式は以下の通り
=B1+B2

[B4]は薬が無くなる前の火曜日に当たる日を計算します。
=B3-WEEKDAY(B3)+WEEKDAY(B1)+IF(WEEKDAY(B3)<WEEKDAY(B1),-7,0)

日付の右に曜日を表示しています。
[C1]
=B1
と式を入れ、
C1セルで、右クリック→ セルの書式設定 → 表示形式
右にあるユーザ書式のところに「aaa」と入力してok
これで曜日が表示されます。
C1セルをC3、C4セルにコピー貼り付けすると、
薬のなくなる日、次回受診日の曜日も表示されます。

次回受診日について、
たとえば【7/13に14日分処方】されると、きっちり2週間後の【7/27】という結果になりますが、
きっちりなくなる日ではなく余裕を持って1週間前【7/20】にしたい場合は、
[B4]
=B3-WEEKDAY(B3)+WEEKDAY(B1)+IF(WEEKDAY(B3)<WEEKDAY(B1)+1,-7,0)
と、式の最後の方に「+1」を加えてください。
画像にある2行目の式で、後ろのほうの赤い字の部分です。
(画像がぼやけてますが、場所は確認できますよね?)

お試しください。

コメントいただいた内容を反映して修正しました。

[B1]に受診日を入力します。

[B2]に処方された薬の日数を入力します。

[B3]は薬がなくなる日を計算します。式は以下の通り
=B1+B2

[B4]は薬が無くなる前の火曜日に当たる日を計算します。
=B3-WEEKDAY(B3)+WEEKDAY(B1)+IF(WEEKDAY(B3)<WEEKDAY(B1),-7,0)

日付の右に曜日を表示しています。
[C1]
=B1
と式を入れ、
C1セルで、右クリック→ セルの書式設定 → 表示形式
右にあるユーザ書式のところに「aaa」と入力してok
これで曜日が表示されます。
C1セルを...続きを読む

QExcelの関数で名前に対応する日付を抜き出すには(画像追加しました)

こんにちは、すこし困っています。
Excelで図のような表を作成しています。
H2,I2,J2(場合によってはK2,L2~)に
左の表から山本さんが記載されている日付を黄色のように自動で抜き出したいのですが
そのような関数はありますでしょうか?
よろしければアドバイスをいただければ嬉しいです。

Aベストアンサー

No.2です。

>列の名前を消しますとHIJ列が1900年1月0日になります。

空白セル=「0」となりますので、そのシリアル値が表示されてしまいます。
少しだけエラー処理を加えます。

H2セルの数式(前回同様、配列数式です)を
=IF($G2="","",IFERROR(INDEX($A$1:$A$100,SMALL(IF($C$1:$E$100=$G2,ROW($A$1:$A$100)),COLUMN(A1))),""))

としてみてください。m(_ _)m

QVBAか関数でできるのでしょうか?

いつもこちらで皆さんに助けていただいてます。昨日質問しましたが画像が張り付けられていなかったので再度質問です。

”仕入表”タブに入力されたデータが横並びのデータです。
例えば、商品コード/品名/価格/色/入荷数 の並び順で、入力されています。一つの品番に対して色数は1から10個あり、色/入荷数/色/入荷数という風に構成されてます。

そこでこちらでお世話になり、仕入表に入力したデータを縦並びに色別で”在庫表”タブに表を作れるようなVBAを教えていただきました。

画像の仕入表は上の表で、下の表が在庫表に転記されたときの例です。
因みにその時のVBAはこちらです。


Sub Sample4() '//この行から
Dim i As Long, j As Long, cnt As Long, lastRow As Long, wS As Worksheet
Application.Calculation = xlCalculationManual
Set wS = Worksheets("仕入表")
With Worksheets("在庫表")
'//E列で「在庫表」Sheetの最終行取得★
lastRow = .Cells(Rows.Count, "E").End(xlUp).Row
'//「在庫表」SheetにデータがあればD列2行目~I列最終行データを一旦消去
If lastRow > 1 Then
.Range(.Cells(2, "D"), .Cells(lastRow, "I")).ClearContents
End If
cnt = 1
For i = 3 To wS.Cells(Rows.Count, "A").End(xlUp).Row '//「仕入表」Sheetの3行目~A列最終行まで
For j = 5 To wS.Cells(i, Columns.Count).End(xlToLeft).Column Step 2 '//E列~i行最終列まで2行毎★
If wS.Cells(i, j) <> 0 Then '//画像で「0」が表示されているので「0」以外を追加★
cnt = cnt + 1
'//最初のデータ行のみ「仕入表」Sheetの日付をD列に表示★
If j = 5 Then
.Cells(cnt, "D") = wS.Cells(i, "A")
End If
.Cells(cnt, "E") = wS.Cells(i, "B") '//B列に「コード」を表示
.Cells(cnt, "F") = wS.Cells(i, "C") '//F列に「商品名」を表示
.Cells(cnt, "G") = wS.Cells(i, "D") '//G列に「下代」を表示
.Cells(cnt, "H") = wS.Cells(i, j) '//H列に「色」を表示
.Cells(cnt, "I") = wS.Cells(i, j + 1) '//I列に「数」を表示
End If
Next j
Next i
'//最後にD列の表示形式(日付)を「在庫表」SheetのA3セルの書式に設定★
.Range("D1", Cells(Rows.Count, 4).End(xlUp)).NumberFormatLocal = wS.Range("A3").NumberFormatLocal
End With
Application.Calculation = xlCalculationAutomatic
End Sub '//この行まで


そこで、また新たにもしできるなら教えていただきたいことが出てきました。
仕入表タブのC列に出荷した商品が出たら「出荷済」と入力していますが(画像ではA列から埋まってますが実際はA~Cは空白にしてます)、”出荷済”にしたときに在庫表タブの同じ品番の商品すべて(日付~すべての色の個数まで)を黄色の色付けにすることはできますか?
もしできるとすごく楽になるのですが・・・
それではよろしくお願いします。

いつもこちらで皆さんに助けていただいてます。昨日質問しましたが画像が張り付けられていなかったので再度質問です。

”仕入表”タブに入力されたデータが横並びのデータです。
例えば、商品コード/品名/価格/色/入荷数 の並び順で、入力されています。一つの品番に対して色数は1から10個あり、色/入荷数/色/入荷数という風に構成されてます。

そこでこちらでお世話になり、仕入表に入力したデータを縦並びに色別で”在庫表”タブに表を作れるようなVBAを教えていただきました。

画像の仕入表は上の表で...続きを読む

Aベストアンサー

No6です。
以下の箇所を修正しました。前回のマクロをこれで入れ替えてください。
1)エラー13で型が一致しません。・・・この対策
色の箇所が0以外なら処理しているのを、空白以外なら処理するようにしました。
2)今更ですが黄色の色付けを日付の列だけにすることは可能でしょうか。
日付の列だけ黄色にしました。
-------------------------------------------------------
Sub Sample4() '//この行から
Dim i As Long, j As Long, cnt As Long, lastRow As Long, wS As Worksheet
Dim wns As Worksheet
Application.Calculation = xlCalculationManual
Set wS = Worksheets("仕入表")
Set wns = Worksheets("納品仕訳")
Worksheets("在庫表").Activate '追加
With Worksheets("在庫表")
'//E列で「在庫表」Sheetの最終行取得★
lastRow = .Cells(Rows.Count, "E").End(xlUp).Row
'//「在庫表」SheetにデータがあればD列2行目~I列最終行データを一旦消去
If lastRow > 1 Then
.Range(.Cells(2, "D"), .Cells(lastRow, "I")).ClearContents
.Range(.Cells(2, "D"), .Cells(lastRow, "I")).Interior.Pattern = xlNone
End If
cnt = 1
For i = 3 To wS.Cells(Rows.Count, "A").End(xlUp).Row '//「仕入表」Sheetの3行目~A列最終行まで
For j = 5 To wS.Cells(i, Columns.Count).End(xlToLeft).Column Step 2 '//E列~i行最終列まで2行毎★
If wS.Cells(i, j) <> "" Then '//画像で「0」が表示されているので「0」以外を追加★ '修正
cnt = cnt + 1
'//最初のデータ行のみ「仕入表」Sheetの日付をD列に表示★
If j = 5 Then
.Cells(cnt, "D") = wS.Cells(i, "A")
End If
.Cells(cnt, "E") = wS.Cells(i, "B") '//B列に「コード」を表示
.Cells(cnt, "F") = wS.Cells(i, "C") '//F列に「商品名」を表示
.Cells(cnt, "G") = wS.Cells(i, "D") '//G列に「下代」を表示
.Cells(cnt, "H") = wS.Cells(i, j) '//H列に「色」を表示
.Cells(cnt, "I") = wS.Cells(i, j + 1) '//I列に「数」を表示
If wns.Cells(i + 2, "C").Value = "出荷済" Then
.Range("D" & cnt).Interior.Color = 65535 '修正
End If
End If
Next j
Next i
'//最後にD列の表示形式(日付)を「在庫表」SheetのA3セルの書式に設定★
.Range("D1", Cells(Rows.Count, 4).End(xlUp)).NumberFormatLocal = wS.Range("A3").NumberFormatLocal
End With
Application.Calculation = xlCalculationAutomatic
End Sub '//この行まで
-------------------------------------

No6です。
以下の箇所を修正しました。前回のマクロをこれで入れ替えてください。
1)エラー13で型が一致しません。・・・この対策
色の箇所が0以外なら処理しているのを、空白以外なら処理するようにしました。
2)今更ですが黄色の色付けを日付の列だけにすることは可能でしょうか。
日付の列だけ黄色にしました。
-------------------------------------------------------
Sub Sample4() '//この行から
Dim i As Long, j As Long, cnt As Long, lastRow As Long, wS As Worksheet
Dim wns As Works...続きを読む

Qエクセルでの行の削除

エクセルである特定の文字 例えば A列で ”中止”となっていれば その行を一気に削除して上詰めにする方法はございますでしょうか?

Aベストアンサー

A列で並べ替えて、”中止”となっている行を「まとめて選択」したうえで行削除。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング