OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

Excelの計算式の続き

  • すぐに回答を!
  • 質問No.244440
  • 閲覧数94
  • ありがとう数0
  • 気になる数0
  • 回答数3
  • コメント数0

お礼率 21% (11/51)

この前Excelの計算式を教えていただいたのですが、それをしたら、Countする列に文字と数字が一緒に入力するときがあります。そのときには、その文字と数字が一緒になったセルはカウントされません。たとえば、”N122”というように入力したときです。このセルもカウントされるようにする計算式はあるのでしょうか?もしあれば、その計算式を教えてください。
通報する
  • 回答数3
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.2
レベル13

ベストアンサー率 25% (323/1260)

□___A____|_B__|
1|会員番号|人数|
-+--------+----+
2|斉  藤| 2|
-+--------+----+
3|上 田| |
-+--------+----+

って具合な表(ちょっとずれてるかも知れませんが、雰囲気はOKですよね?)を作るとして、B2に入る数式を「=counta($A:$A)-1」にするのはどうですか?

あと、A列に氏名、B列に会員番号、C列に入会年月日、という具合に規則性のある集計表でしたら、ピボットテーブルが合目的的かも知れません。
-PR-
-PR-

その他の回答 (全2件)

  • 回答No.1
レベル13

ベストアンサー率 25% (323/1260)

こんにちわ。 どういう集計をしたいのか不明ですが、COUNTA関数であれば、数字だろうが文字列であろうが数字文字列混在であろうが、とにかく何らかの「データ」が入ったセルの数を全て集計しますので、大丈夫ではないでしょうか? ...続きを読む
こんにちわ。

どういう集計をしたいのか不明ですが、COUNTA関数であれば、数字だろうが文字列であろうが数字文字列混在であろうが、とにかく何らかの「データ」が入ったセルの数を全て集計しますので、大丈夫ではないでしょうか?
補足コメント
happyhiro

お礼率 21% (11/51)

ありがとうございます。そのようでした。でも1行目に会員ナンバーという刻目を入れています。COUNTAの範囲を指定するときにその1行目のセルをのけて2行目からの範囲指定にしなければいけないというわけなのですか?それか列番号を選択すればその1行目を削除して総数を自動的に入力できる方法はありませんか?
投稿日時 - 2002-03-31 14:21:30

  • 回答No.3
レベル7

ベストアンサー率 68% (11/16)

良かったら、下のものを試してみて下さい。 (長文です。すいません。) マクロです。 最初だけ少し手順が必要ですが その後はボタン一つです。ご協力下さい。 以下の手順でお願します。 「マクロの貼り付け」 「準備」 「実行」 「マクロの貼り付け」 1.新しいブックを開いて 2.Alt + F11 を押して VBE を起動して下さい。 3 ...続きを読む
良かったら、下のものを試してみて下さい。
(長文です。すいません。)

マクロです。
最初だけ少し手順が必要ですが
その後はボタン一つです。ご協力下さい。


以下の手順でお願します。

「マクロの貼り付け」
「準備」
「実行」



「マクロの貼り付け」
1.新しいブックを開いて
2.Alt + F11 を押して VBE を起動して下さい。
3.ツールバーの「挿入」-「標準モジュール」
を選んで下さい。
4.出てきた白紙に下のソースを貼りつけて下さい。
5.ツールバーの「ファイル」-「終了してエクセルに戻る」
を選択してエクセルに戻って下さい。



「準備」
ツールバーの
「ツール」-「マクロ」-「マクロ」を選んで
中から「準備」を選択して、実行して下さい。


これで準備完了です。




「実行」
会員番号を入力してから、登録ボタンを押して下さい。
「登録しました。」とメッセージが表示されて
入場者数が1つ増えます。



長くなるので細かい説明は省略します。
説明が必要な場合はお手数ですが連絡下さい。


詳しい内容を教えてもらえれば
ご希望に近いもの
作ります。
シートの保護などはどうされますか。
シートに直接入力よりも
専用の入力画面を用意してはどうでしょうか。
きれいに、安全にできると思います。
良かったらご相談下さい。




下を貼りつけて下さい。





Sub カウントアップ()
Cells(4, 4) = Cells(5, 4).Value
MsgBox Cells(5, 4).Value & "人目として登録されました。 " & Date & " " & Time
End Sub
Sub 準備()
Sheets.Add
'グリッド
ActiveWindow.DisplayGridlines = False
'間隔
Columns("A:A").ColumnWidth = 8.5
Columns("B:B").ColumnWidth = 4.13
Columns("C:C").ColumnWidth = 12.13
Columns("D:D").ColumnWidth = 27
Columns("E:E").ColumnWidth = 4
Rows("6:6").RowHeight = 21
Rows("7:7").RowHeight = 14.25
Rows("8:8").RowHeight = 38.25
Rows("9:9").RowHeight = 15
'罫線
Range("C2:D5").Select
Selection.Borders.LineStyle = xlContinuous
Selection.BorderAround xlContinuous, xlThick
Range("C8:D8").Select
Selection.Borders.LineStyle = xlContinuous
Selection.BorderAround xlContinuous, xlThick
'書式
Range("D2").NumberFormatLocal = "ggge""年""m""月""d""日"""
Range("D3").NumberFormatLocal = "AM/PM h:mm"
Range("D5").NumberFormatLocal = "#,##0 ""人目"""
'文字サイズ
Range("C8:D8").Select
Selection.Font.Name = "MS Pゴシック"
Selection.Font.Size = 16
'太字 中央中央
Range("C2:D5").Select
Selection.Font.Bold = True
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Range("C8:D8").Select
Selection.Font.Bold = True
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
'グレー
Range("C2:C5").Select
Selection.Interior.ColorIndex = 15
Range("C8").Select
Selection.Interior.ColorIndex = 15
'水色
Range("B7:E7,E8:E9,B8:B9,C9:D9").Select
Selection.Interior.ColorIndex = 34
'文字
Range("C2") = "日付"
Range("C3") = "現在の時刻"
Range("C5") = "来場者数"
Range("C8") = "会員番号"
Range("D2").FormulaR1C1 = "=NOW()"
Range("D3").FormulaR1C1 = "=NOW()"
Range("D4") = 999999
Range("D5").FormulaR1C1 = "=+R[-1]C+1"
Range("D14") = "↑上の登録ボタンを押すと"
Range("D15") = "「登録されました」とメッセージが出て"
Range("D16") = "来場者数が1つ増えます。"
'非表示
Rows("4:4").EntireRow.Hidden = True
'ボタン作成
Range("D10:D11").Select
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 159.75, 158.25, 165.75, 27). _
Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Shadow.Obscured = msoTrue
Selection.ShapeRange.Shadow.Type = msoShadow18

Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 11
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 45
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Fill.OneColorGradient msoGradientHorizontal, 2, 1#
Selection.Characters.Text = "登録ボタン"
With Selection.Characters(Start:=1, Length:=5).Font
.Name = "MS Pゴシック"
.FontStyle = "太字"
.Size = 16
.ColorIndex = 7
End With
Selection.HorizontalAlignment = xlCenter
Selection.OnAction = "カウントアップ"

Range("D8").Select
End Sub
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ