ベストアンサー

Excelの計算式の続き

2002/03/31 11:50

この前Ｅｘｃｅｌの計算式を教えていただいたのですが、それをしたら、Ｃｏｕｎｔする列に文字と数字が一緒に入力するときがあります。そのときには、その文字と数字が一緒になったセルはカウントされません。たとえば、”Ｎ１２２”というように入力したときです。このセルもカウントされるようにする計算式はあるのでしょうか？もしあれば、その計算式を教えてください。

happyhiro
お礼率21% (11/51)

オフィス系ソフト
回答数3
ありがとう数0

みんなの回答 （3）
専門家の回答

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

ベストアンサー

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

2002/03/31 22:32 回答No.2

□___A____|_B__| 1|会員番号|人数| -+--------+----+ 2|斉　　藤| 2| -+--------+----+ 3|上田| | -+--------+----+ って具合な表（ちょっとずれてるかも知れませんが、雰囲気はOKですよね？）を作るとして、B2に入る数式を「=counta($A:$A)-1」にするのはどうですか？あと、A列に氏名、B列に会員番号、C列に入会年月日、という具合に規則性のある集計表でしたら、ピボットテーブルが合目的的かも知れません。

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

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

2002/03/31 23:50 回答No.3

良かったら、下のものを試してみて下さい。（長文です。すいません。）マクロです。最初だけ少し手順が必要ですがその後はボタン一つです。ご協力下さい。以下の手順でお願します。「マクロの貼り付け」「準備」「実行」「マクロの貼り付け」１．新しいブックを開いて２．Alt ＋ F11 を押して VBE を起動して下さい。３．ツールバーの「挿入」－「標準モジュール」を選んで下さい。４．出てきた白紙に下のソースを貼りつけて下さい。５．ツールバーの「ファイル」－「終了してエクセルに戻る」を選択してエクセルに戻って下さい。「準備」ツールバーの「ツール」－「マクロ」－「マクロ」を選んで中から「準備」を選択して、実行して下さい。これで準備完了です。「実行」会員番号を入力してから、登録ボタンを押して下さい。「登録しました。」とメッセージが表示されて入場者数が１つ増えます。長くなるので細かい説明は省略します。説明が必要な場合はお手数ですが連絡下さい。詳しい内容を教えてもらえればご希望に近いもの作ります。シートの保護などはどうされますか。シートに直接入力よりも専用の入力画面を用意してはどうでしょうか。きれいに、安全にできると思います。良かったらご相談下さい。下を貼りつけて下さい。 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 = "ＭＳＰゴシック" 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") = "来場者数が１つ増えます。" '非表示 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 = "ＭＳＰゴシック" .FontStyle = "太字" .Size = 16 .ColorIndex = 7 End With Selection.HorizontalAlignment = xlCenter Selection.OnAction = "カウントアップ" Range("D8").Select End Sub

ログインすると、全ての回答が全文表示されます。