iWork総合スレッド 8【Keynote/Numbers/Pages】

iWork総合スレッド 8【Keynote/Numbers/Pages】at MAC

iWork総合スレッド 8【Keynote/Numbers/Pages】 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

746:名称未設定
 23/05/23 00:58:32.83 x2hXFsOz0.net
set TheUnits to {{"TB", 1.0E+12}, {"GB", 1.0E+9}, {"MB", 1.0E+6}, {"KB", 1000}, {"byte", 0}} 
set AfterDecimalPoint to 0 
set AfterDecimalPointMagic to (10 ^ AfterDecimalPoint) as integer 
tell application "Numbers" 
repeat with theTable in tables of active sheet of front document 
set selectionRange to selection range of theTable 
if selectionRange is not missing value then 
repeat with theCell in cells of selectionRange 
try 
set theValue to value of theCell 
repeat with theUnit in TheUnits 
set baseValue to second item of theUnit 
if theValue is greater than or equal to baseValue then 
if baseValue is 0 then set baseValue to 1 
set theValue to (theValue / (baseValue / AfterDecimalPointMagic)) as integer 
if AfterDecimalPointMagic is not 1 then set theValue to theValue / AfterDecimalPointMagic 
set value of theCell to "" & theValue & first item of theUnit 
exit repeat 
end if 
end repeat 
end try 
end repeat 
set selection range of theTable to selectionRange 
exit repeat 
end if 
end repeat 
end tell

次ページ