| 尾形さんこんにちは
フォームの定義で変わると思うので前提条件を
詳しく書くかサンプルを付けるのが良いと思います。
フォーム定義でポイント／ピクセルでフォームの
フォント名は「MS明朝」英文フォントも一緒です
基準サイズは「２０」一覧表オブジェクトです。
数値系のテキストオブジェクトはサイズは「継承」
自動のチェックはつけていません。
フォントもサイズも全て継承です。
表示行数は「０」で表示幅「104pt」高さ「20pt」
テキストオブジェクトの表示タブにある編集属性式
はテキストのソースのデータ型で設定した数値か
通貨かにより設定する式が変わります。
表示文字が位取りコンマ「，」や先頭付加文字で
変化するからです。
現実の表の表示文字から#str([])にするのか
"\"+#str([])にするのか以下の式の様にする
かを決め1桁増える毎にフォントサイズを変更
するのがいいと思います。
最初は通貨文字列より数値で定義して千兆円
までしか入力や表示ができないのでその範囲で
設定後に通貨文字列に変更すると22桁が最大に
なると思います。
#計算(
#代入(&秒
,#桁数(#通貨文字列([借方金額],"\")))
,#cond(&秒<11
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'継承'"
,&秒<12
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'指定ﾌｫﾝﾄｻｲｽﾞ'ﾌｫﾝﾄｻｲｽﾞ'18'"
,/* 1行 */&秒<13
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'指定ﾌｫﾝﾄｻｲｽﾞ'ﾌｫﾝﾄｻｲｽﾞ'16.6'"
,&秒<14
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'指定ﾌｫﾝﾄｻｲｽﾞ'ﾌｫﾝﾄｻｲｽﾞ'15.7'"
,/* 2行 */&秒<15
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'指定ﾌｫﾝﾄｻｲｽﾞ'ﾌｫﾝﾄｻｲｽﾞ'14.5'"
,/* 3行 */&秒<16
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'指定ﾌｫﾝﾄｻｲｽﾞ'ﾌｫﾝﾄｻｲｽﾞ'13.9'"
,/* 4行 */&秒<17
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'指定ﾌｫﾝﾄｻｲｽﾞ'ﾌｫﾝﾄｻｲｽﾞ'12.9'"
,&秒<18
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'指定ﾌｫﾝﾄｻｲｽﾞ'ﾌｫﾝﾄｻｲｽﾞ'11.7'"
,/* 5行 */&秒<19
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'指定ﾌｫﾝﾄｻｲｽﾞ'ﾌｫﾝﾄｻｲｽﾞ'11'"
,/* 6行 */&秒<20
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'指定ﾌｫﾝﾄｻｲｽﾞ'ﾌｫﾝﾄｻｲｽﾞ'10.9'"
,/* 7行 */&秒<21
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'指定ﾌｫﾝﾄｻｲｽﾞ'ﾌｫﾝﾄｻｲｽﾞ'10'"
,&秒<22
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'指定ﾌｫﾝﾄｻｲｽﾞ'ﾌｫﾝﾄｻｲｽﾞ'8.5'"
,/* 8行 */&秒<23
,"ﾌｫﾝﾄｻｲｽﾞﾓｰﾄﾞ'指定ﾌｫﾝﾄｻｲｽﾞ'ﾌｫﾝﾄｻｲｽﾞ'9'"))
|
