Numbersで最前面の書類のすべてのシート上の表の行数を合計

Numbersの最前面の書類で、全シート上のすべての表の行数を合計して返すAppleScriptです。

大量のシートを持つ書類上のすべての表の行数をカウントします。それぞれの表からは、ヘッダー行の分はカウントしていません。

Numbersは、Pagesのように「表示範囲にないページ上のオブジェクトからの情報取得ができない（その割に指定ページを表示状態にするための機能もない）」といった動作はしないので、カウント対象のシートをいちいち表示状態にして切り替えるという必要はありません。

AppleScript名：全シート上のtableの行数を合計.scpt

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/04/05
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

set totalC to 0

tell application "Numbers"
　　tell front document
　　　　set nList to name of every sheet
　　　　repeat with i in nList
　　　　　　set j to contents of i
　　　　　　
　　　　　　tell sheet j
　　　　　　　　set tCount to count every table
　　　　　　　　
　　　　　　　　repeat with ii from 1 to tCount
　　　　　　　　　　tell table ii
　　　　　　　　　　　　set hCnt to header row count
　　　　　　　　　　　　
　　　　　　　　　　　　set tmpCount to count every row
　　　　　　　　　　　　set totalC to totalC + tmpCount – hCnt
　　　　　　　　　　end tell
　　　　　　　　end repeat
　　　　　　end tell
　　　　　　
　　　　end repeat
　　end tell
end tell