Excelで1年1月1900日より前の年齢を計算する方法は?
Excelでは、1年1月1900日より前の日付を正しく入力および計算できません。 1年1月1900日より前に生まれて死亡した人の年齢を計算する場合、通常、Excelでは正しい計算が得られません。 しかし、この記事では、Excelで1年1月1900日より前の年齢を計算するのに役立つトリックがあります。
Kutools forExcelで誕生日ごとの年齢を計算する
VBAを使用して1年1月1900日より前の年齢を計算する
これは、1年1月1900日より前の年齢をすばやく計算するのに役立つVBAコードです。
1.空白のセルを選択してその人の誕生日を入力し、次に別のセルを選択して今日の日付を入力するか、必要に応じて人が死亡した日付を入力します。 スクリーンショットを参照してください:
2.次にを押します Altキー+ F11 有効にするキー アプリケーション向け Microsoft Visual Basic 窓。
3。 クリック インセット > モジュール、VBAの下を新しいものに貼り付けます モジュール 窓。
VBA:1年1月1900日より前の年齢を計算する
Public Function AgeFunc(SDate As Variant, EDate As Variant) As Long
'UpdatebyExtendOffice20160429
Dim xSMonth As Integer
Dim xSDay As Integer
Dim xSYear As Integer
Dim xEMonth As Integer
Dim xEDay As Integer
Dim xEYear As Integer
Dim xAge As Integer
If Not GetDate(SDate, xSYear, xSMonth, xSDay) Then
AgeFunc = "Invalid Date"
Exit Function
End If
If Not GetDate(EDate, xEYear, xEMonth, xEDay) Then
AgeFunc = "Invalid Date"
Exit Function
End If
xAge = xEYear - xSYear
If xSMonth > xEMonth Then
xAge = xAge - 1
ElseIf xSMonth = xEMonth Then
If xSDay > xEDay Then xAge = xAge - 1
End If
If xAge < 0 Then
AgeFunc = "Invalid Date"
Else
AgeFunc = xAge
End If
End Function
Private Function GetDate(ByVal DateStr As String, Y As Integer, M As Integer, D As Integer) As Boolean
Dim I As Long
Dim K As Long
Y = 0
M = 0
D = 0
GetDate = True
On Error Resume Next
I = InStr(1, DateStr, "/")
M = CLng(Left(DateStr, I - 1))
D = CLng(Mid(DateStr, I + 1, InStr(I + 1, DateStr, "/") - I - 1))
Y = CLng(Right(DateStr, Len(DateStr) - InStrRev(DateStr, "/")))
If M < 1 Or M > 12 Or D < 1 Or D > 31 Or Y < 1 Then
GetDate = False
End If
End Function
4.空白のセルを選択します。これがC2で、この数式を入力します = AgeFunc(A2、B2) (A2は誕生日、B2は終了日です)、を押します 入力します キーを押して年齢を取得し、自動入力ハンドルを必要なセルの上にドラッグします。 スクリーンショットを参照してください:
注: このVBAは、6年23月1845日など、mm / dd / yyyyの形式の日付を持つ年齢のみを計算できます。
Kutools forExcelで誕生日ごとの年齢を計算する
誕生日が通常1年1月1900日以降の場合は、申請できます Kutools for Excelさん 日付と時刻のヘルパー 与えられた誕生日までに年齢をすばやく計算できるユーティリティ。
Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 |
後 無料インストール Kutools for Excel、以下のようにしてください:
1.年齢を出力する空白のセルを選択し、をクリックします クツール > フォーミュラヘルパー > 日付と時刻のヘルパー。 スクリーンショットを参照してください:
2.次に、 日付と時刻のヘルパー ダイアログで、年齢オプションをチェックし、に基づいて年齢を計算する誕生日を選択します 日付 誕生の テキストボックス、デフォルト、セルは絶対参照として選択されます。相対参照に変更してから、チェックすることができます。 今日 オプションを選択し、ドロップダウンリストに表示する結果タイプをXNUMXつ選択します。 出力結果タイプ。 スクリーンショットを参照してください:
3。 クリック Ok この式を適用すると、年齢が表示されていることがわかります。 また、必要に応じて、オートフィルハンドルをこの数式が必要なセルの上にドラッグできます。 スクリーンショットを参照してください:
最高のオフィス生産性向上ツール
🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する、...) | 50+ チャート 種類 (ガントチャート、...) | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...) | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...) | 12 変換 ツール (数字から言葉へ, 通貨の換算、...) | 7 マージ&スプリット ツール (高度な結合行, 分割セル、...) | ... もっと |
Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!