和暦ã®ã¿ã§å¹´é½¢ã‚’計算ã™ã‚‹æ–¹æ³• - 日本ä¸è¿‘世å²å²æ–™è¬›èªã§å¯ã‚’ã¨ã‚ã†å¤–見 ãªãŠå¹´é½¢æ¬„ã¯ã™ã¹ã¦ =ABS(ROW()-COLUMN())+1 ã§ã™ã€‚ VBAコードを除ã„ãŸé››å½¢ã¯ã“ã¡ã‚‰ã‹ã‚‰ã©ã†ãžã€‚ 和暦年齢.xlsx - Google ドライブ コード Private Sub Commandbutton1_Click() Dim Row As Long, column As Long Dim 出生年 As String, 当該年 As String, æ•°ãˆå¹´ As Variant 出生年 = Range("I2").Value 当該年 = Range("I3").Value On Error Resume Next Row = WorksheetFunction.XMatch(出生年, Range("E7:E186"), 1) column = WorksheetFunction.XMatch(当該年, Range("G5:GD5"), 1) æ•°ãˆå¹´ = Wo
{{#tags}}- {{label}}
{{/tags}}