大量の勤務時間集計を楽にしたいので宜しくお願い致します。

例えば・・・
セルA1に ”830”を入力してこれを8時30分と認識させる方法

入力するデータの数が余りにも多すぎて 8と30の間に”:”を入力することをさけ10keyだけで入力するようにしたいのですが、どなたか教えて下さい。

A 回答 (4件)

ちょっと、「ニュアンスがちがうかな~」とおもいつつ・・・・



これ

=TIME(INT(A1/100),MOD(A1,100),0)

ではだめ?

この回答への補足

ykkw2001さん!ありがとうございます。すっごく急いでいたんでこんなに早く回答いただいて助かります。
おっけー!です!!!!! 思った通りの結果が出ました

が・・・今 「AM」「PM」の表示になっているのを24時間表示にしたいのですがどうしたら良いでしょうか?贅沢いってすみません!

よろしくお願い致します。

補足日時:2001/09/04 15:36
    • good
    • 0

補足の部分について


式の入っているセルを選択して右クリック。セルの書式設定を選択。
表示形式のタブを選択すると
右は「時刻」、左は「1:30 PM」になっていると思いますので、左を「13:30」にすればOKです。
    • good
    • 0
この回答へのお礼

HitomiKuroseさん!ありがとうございました。
うまくいきました。ありがとうございました。

お礼日時:2001/09/04 16:32

テンキーだけで入力ということなら、


「ツール」-「オートコレクト」で
「.」を「:」に修正するように設定しておく方法もあります。

8.30と入力すれば、8:30となります。

アクションが増えますが、とりあえずテンキーだけで出来ます。

作業が終わったら、オートコレクトの設定を削除します。
    • good
    • 0
この回答へのお礼

telescopeさん!ありがとうございます。
すごくいい案ですね!参考にさせていただきます。ありがとうございました。

お礼日時:2001/09/04 16:30

「置換」機能を使ってみてはいかがでしょう?



例えば、:の代わりに *を入力します。
すべて入力したあとで、メニューバーの「編集」から「置換」を実行します。
検索する文字列を「*」
置換する文字列を「:」
に設定し、「すべて置換」すればOKです。
入力は楽になると思います。

一度試してみてください♪
    • good
    • 0
この回答へのお礼

mimi1540さん!ありがとうございます。
「置換」もいい案ですが、ちょっとだけめんどうです。私のわがままですかね・・・
でも、参考になりました。ありがとうございました。

お礼日時:2001/09/04 16:27

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

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

Q例えば、8月1日~8月31日の“~”中にある日(8月15日など)を抽出したいです!

エクセル2003を使っています。

一つのセルに、『8月1日~8月31日』などと入力しています。
オートフィルターを設定しておいて、オプションの中で、例えば“8月15日/を含む”にした場合に、
先程の『8月1日~8月31日』の行が表示されるようにしたいです。
オートフィルターでできますか?オートフィルターでできないなら、どのようにすればできるでしょうか?

どうぞよろしくお願いします。

Aベストアンサー

#3です。

>切り出した後に、B2からC2間に含まれる日付を検索できるやり方はありますか?
>もちろんオートフィルターは使えないと思いますが・・・。

前の回答に書いていますが(#2さんも書いていらっしゃいますが)、開始日と終了日の隣のセルに求める日付が含まれているかどうかを判別する式を立てて、その列でオートフィルタをかける方法ではいけませんか。

#3で書いたことをもう少し詳しく書くと、
1)ワークシート上(例えばD1)に基準となる日付の入力欄を作る。
2)D2に=IF(AND(B2<=D$1,C2>=D$1),"○","")と入力して、以下適当な範囲まで(例えばD30まで)コピー。

以上で、D1に入力した日付に応じて、それが開始日と終了日の間に含まれる場合に○印が入るようになります。あとは、

3)D1:D30を範囲選択して、データ→フィルタ→オートフィルタ。

とすると、もしD2:D30の範囲に○印があれば、ドロップダウンリストの中に「○」と出てきますので、それを選択すると○印がある列だけが抽出されると思います。

もしおっしゃっていることを取り違えているようでしたら申し訳ありません。

#3です。

>切り出した後に、B2からC2間に含まれる日付を検索できるやり方はありますか?
>もちろんオートフィルターは使えないと思いますが・・・。

前の回答に書いていますが(#2さんも書いていらっしゃいますが)、開始日と終了日の隣のセルに求める日付が含まれているかどうかを判別する式を立てて、その列でオートフィルタをかける方法ではいけませんか。

#3で書いたことをもう少し詳しく書くと、
1)ワークシート上(例えばD1)に基準となる日付の入力欄を作る。
2)D2に=IF(AND(B2<=D$1...続きを読む

Qエクセルで30:15.08を「30」「15」「08」にしたいけど「30」「15」「8」になる

マラソンなどのタイムを編集しています。
計測終了後にテキストファイル上で「30:15.80」(30分15秒80)となっているものをエクセル上で、

A1のセルに「30」
B1のセルに「15」
C1のセルに「80」

というように表示したいのですが、何もしない状態だとC1のセルが「8」とだけしか表示されません。

そこで、書式→セル→ユーザー定義→種類で表示形式を「00」に変更すると「08」になってしまいタイムが変わってしまいます。本来は「80」となってほしいのです。

このような場合はどのように設定すればいいのでしょうか?
ご教授お願い致します。

Aベストアンサー

もう一度整理して質問した方がいいですよ。

>正しくは表題通りの「08」にしたいです。
>「08」になってしまいタイムが変わってしまいます。
矛盾です。

>C1のセルに「80」
>何もしない状態だとC1のセルが「8」とだけしか表示されません。
80と打ち込んで8としか表示しないのはあり得ないと思います。

落ち着いて現状とやりたいことを説明してください。

Q(続)エクセルでVBAを使い、時間入力10:30:45(10時30分45秒)の:コロン省略したい。

始業と終業の時間を入力し勤務時間を計算しております。
時間は時:分:秒まで入力します。
例えば始業時間はA1に8:30:25 、終業時間はB1に17:00:45と入れております。
コロン(:)を省略できるととても楽になります。8:30:25は83025と入力、17:00:45は170045と入力して、
表示にはコロンが入り、セルの書式としては時刻と認識し時間差を(時間:分:秒)と計算出来ればありがたいです。
よろしくお願い致します。

VBAを使った(時間:分)のコロンを入力しないで、かつ表示にはコロンが入り、セルの書式としては時刻と認識し時間計算が出来る例は検索できました。
下記です。 t****さんありがとうございました。
ですがそれを秒まで拡大し(時間:分:秒)に対応できるVBAに変更できず困っております。
何卒よろしくお願い致します。

-----------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Range("A:B")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Value <> "" Then
If IsNumeric(.Value) Then
If .Value < 2400 And .Value Mod 100 < 60 Then
Application.EnableEvents = False
.Value = TimeSerial(Int(.Value / 100), .Value Mod 100, 0)
.NumberFormatLocal = "h:mm"
Application.EnableEvents = True
Else
MsgBox "入力値が不正です"
.Select
.ClearContents
End If
End If
End If
End With
End Sub 'この行まで
-----------------------------------------------------------------------------

始業と終業の時間を入力し勤務時間を計算しております。
時間は時:分:秒まで入力します。
例えば始業時間はA1に8:30:25 、終業時間はB1に17:00:45と入れております。
コロン(:)を省略できるととても楽になります。8:30:25は83025と入力、17:00:45は170045と入力して、
表示にはコロンが入り、セルの書式としては時刻と認識し時間差を(時間:分:秒)と計算出来ればありがたいです。
よろしくお願い致します。

VBAを使った(時間:分)のコロンを入力しないで、かつ表示にはコロンが入り、セ...続きを読む

Aベストアンサー

変換ロジックを関数化して実装してみました。
「8:30:25」「83025」どちらの入力でも対応できているはずです。
ちなみに、2未満を入力すると日とみなし、2以上を入力すると秒とみなして表示されます(この辺はやってみて下さい)。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Range("A:B")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Value <> "" Then
Application.EnableEvents = False
.Value = MyTimeValue(.Value)
If .Value = "" Then
MsgBox "入力値が不正です"
.Select
Else
.NumberFormatLocal = "[h]:mm:ss"
End If
Application.EnableEvents = True
End If
End With
End Sub 'この行まで

Function MyTimeValue(MyTime As Variant) As Variant
Dim t As Variant
Dim d As Variant
If IsNumeric(MyTime) And MyTime < 2 Then
MyTimeValue = MyTime
Exit Function
End If
On Error GoTo Fin
t = Split(Format(MyTime, "000:00:00"), ":")
d = Int(t(0) / 24)
t(0) = t(0) Mod 24
MyTimeValue = d + TimeSerial(t(0), t(1), t(2))
Fin:
End Function

変換ロジックを関数化して実装してみました。
「8:30:25」「83025」どちらの入力でも対応できているはずです。
ちなみに、2未満を入力すると日とみなし、2以上を入力すると秒とみなして表示されます(この辺はやってみて下さい)。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Range("A:B")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Value <> "" Then
Application.EnableEvents = False
.Value = ...続きを読む

Q入力値で検索KEYを検索して検索結果を取得する方法

どなたかご存じでしたらご回答よろしくお願いします。

●質問
 下記のようなエクセルシートに、【入力値】、【取得値】、【検索KEY】、【変換値】があります。
 【入力値】に1~9迄の数字を入力すると、その値で【検索KEY】を検索して【変換値】の値
 を【取得値】に返すようにしたい。


●エクセルシート   
入力値  取得値  検索KEY  変換値   
  1      6     0      5
  5      0     1      6
  0      5     2      7
  2      7     3      8
  3      8     4      9
  9      4     5      0
   :      :     6      1
   :      :     7      2
               8      3
                9      4
      
●注意事項
  ・エクセルは2010です。

以上、ご回答よろしくお願いします。     

どなたかご存じでしたらご回答よろしくお願いします。

●質問
 下記のようなエクセルシートに、【入力値】、【取得値】、【検索KEY】、【変換値】があります。
 【入力値】に1~9迄の数字を入力すると、その値で【検索KEY】を検索して【変換値】の値
 を【取得値】に返すようにしたい。


●エクセルシート   
入力値  取得値  検索KEY  変換値   
  1      6     0      5
  5      0     1      6
  0      5     2    ...続きを読む

Aベストアンサー

ご希望の表示を行うにはVLOOKUP関数を利用します。
B2セルに以下の式を入力して下方向にオートフィルしてください。

=VLOOKUP(A2,C:D,2)

Qセルの入力を半角数字8桁のみ入力したい

セルに入力制限をかけるために
入力規則の設定から
ユーザー設定を選択、
数式を  =EXACT(UPPER(A1),A1)
(A1セルに設定する場合)
と入力しています。
これにより文字の入力は防げましたが
/や?などの記号は入力できてしまいます。
このような記号の入力を同時に防ぐことは出来るでしょうか?

また、桁数は8桁のみの入力なのですが、
関数で【LENS】というのを使用すればよいみたいなのですが、
使い方がよくわかりません。

あわせてご教授いただければうれしいです。

Aベストアンサー

◆これでいいと思います
=AND(ISNUMBER(A1),LEN(A1)=8)


人気Q&Aランキング

おすすめ情報