会員NOを入力するセルがあり、その日一日に来客した総数を入力セルを作っています。会員番号などに入力した時点で、その日の来客数が反映されるような計算式の作り方がわかりません。とても困っています。教えていただけないでしょうか?

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

A 回答 (3件)

つまり、A列に文字が入っている数を数えれば良いと思います。



A列に「データ」と名前を付ければ、G2に入れる計算式は、

=COUNTA(データ)
    • good
    • 0

たとえば、


=COUNTIF(A:A,A2)
と入力すると、a列にあるa2と同じ番号のセルの数を数えてくれます。
    • good
    • 0

会員No.と来客数の関係がよくわからないので、より具体的に教えていただけますでしょうか?


セルにどのような形式で入力し、数えるとか、来客数の一覧から参照するとかの処理方法により計算式が変わるんじゃないかと思います。

この回答への補足

来客した人がコンピューターを使うときに、Excelの表の中にその人の会員NO(表内のA列)、来店時間などを入力していきます。そして、また違う場所(たとえばG2)にその日一日に来店した総数を自動的に入力できるように、計算式をG2に入れておきたいのですが。。。これでわかるでしょうか?自分でやってみたらSUMIFを使えば何とかできるようなのですが、それ以上分かりません。

補足日時:2002/03/29 23:37
    • good
    • 0

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

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

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

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

Aベストアンサー

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

Q開始日を入力したセルと終了日を入力したセルがあり関数で開催日全ての日程

開始日を入力したセルと終了日を入力したセルがあり関数で開催日全ての日程をカンマ区切りでひとつのセルに表示させたいのです

A1 2010/9/8  B1 2010/9/10  C1  2010/9/8,2010/9/9,2010/9/10

のように表示させたくて
セルA1に開始日、セルB1に終了日、
セルC1に
=CONCATENATE(A1,",",A1+1,",",B1)
と入力したところ
「40429,40430,40431」と表示されてしまいました

セルの表示形式は「日付」です

日付の形式で表示させるにはどうしたらいいのでしょうか
また日程は3日だけでなく5日のものもあるので
もっといい方法があったら教えていただけると助かります

1000行以上あるので面倒くさいんです。助けてください

Aベストアンサー

間違い。
=CONCATENATE(TEXT(A1,"yyyy/m/d"),",",TEXT(A1+1,"yyyy/m/d"),",",TEXT(B1,"yyyy/m/d"))
ですね。

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任意のセルを検索窓にして文字(ひらがな)を入力すると既記入のセルを探しそのセルの横のセルに飛びたい

当方、エクセル2013 です。ほとんど初心者です。
表題のような事って出来るでしょうか?いちいちマウスを使うこと無く出来れば良いなと思っております。
画像で言いますとA1に「かけふ」といれるとD5に飛び、ここに数字を入れると又、勝手にカーソルがA1に戻る。って出来ないでしょうか?教えて下さい。

Aベストアンサー

こんばんは!
VBAでの操作になりますが、一例です。

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

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から//
Dim c As Range
If Intersect(Target, Union(Range("A1"), Range("D:D"))) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Column = 1 Then
If .Value <> "" Then
Set c = Range("C:C").Find(what:=.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(, 1).Select
Else
MsgBox "Not Found"
.Select
End If
End If
Else
If IsNumeric(.Value) Then
Range("A1").Select
Selection.ClearContents
Else
MsgBox "数値を入力してください"
.Select
End If
End If
End With
End Sub 'この行まで//

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

こんばんは!
VBAでの操作になりますが、一例です。

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

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から//
Dim c As Range
If Intersect(Target, Union(Range("A1"), Range("D:D"))) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
...続きを読む

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

おすすめ情報