JWW専用掲示板 [One Tree All Message]

JWW専用掲示板

ツリー一括表示
数値の１桁を四捨五入などに変更する外変.. /TT (10/02/27(Sat) 09:09) #40423
`├` Re[1]: 数値の１桁を四捨五入などに変更�.. /osaki (10/02/27(Sat) 14:35) #40424
`│└` Re[2]: 数値の１桁を四捨五入などに変更�.. /TT (10/02/27(Sat) 16:06) #40425
`│ ├` Re[3]: 数値の１桁を四捨五入などに変更�.. /Ｏ．Ｍ (10/02/27(Sat) 21:54) #40426
`│ │└` Re[4]: 数値の１桁を四捨五入などに変更�.. /TT (10/02/27(Sat) 23:11) #40428
`│ │ └` Re[5]: 数値の１桁を四捨五入などに変更�.. /Ｏ．Ｍ (10/02/28(Sun) 00:24) #40431
`│ │ └` Re[6]: 数値の１桁を四捨五入などに変更�.. /TT (10/02/28(Sun) 09:23) #40433
`│ │ └` Re[7]: 数値の１桁を四捨五入などに変更�.. /Ｏ．Ｍ (10/02/28(Sun) 12:09) #40435
`│ │ └` Re[8]: 数値の１桁を四捨五入などに変更�.. /TT (10/02/28(Sun) 21:21) #40436
`│ │ └` Re[9]: 数値の１桁を四捨五入などに変更�.. /Fu～ (10/03/01(Mon) 00:25) #40437
`│ │ ├` Re[10]: 数値の１桁を四捨五入などに変更.. /Ｏ．Ｍ (10/03/01(Mon) 01:40) #40438
`│ │ └` Re[10]: 数値の１桁を四捨五入などに変更.. /TT (10/03/01(Mon) 11:52) #40439
`│ └` Re[3]: 数値の１桁を四捨五入などに変更�.. /osaki (10/02/27(Sat) 22:45) #40427
`└` Re[1]: 数値の１桁を四捨五入などに変更�.. /ban (10/02/27(Sat) 23:18) #40430
`└` Re[2]: 数値の１桁を四捨五入などに変更�.. /Fu～ (10/02/28(Sun) 02:16) #40432
`└` Re[3]: 数値の１桁を四捨五入などに変更�.. /TT (10/02/28(Sun) 09:29) #40434
`└` Re[4]: 数値の１桁を四捨五入などに変更�.. /TT (10/02/27(Sat) 23:14) #40429

親記事　/ ▼[ 40424 ] ▼[ 40430 ]

■40423 / 親階層)

　数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ TT (9回)-(2010/02/27(Sat) 09:09:25)

2010/02/27(Sat) 09:18:30 編集(投稿者)
2010/02/27(Sat) 09:15:52 編集(投稿者)

こんにちは。
教えてください。

数値の１桁を四捨五入（切り上げ、切捨て）などに変更する外変はないででしょうか？
たとえば、寸法（文字）で1,988と出たものを1,990や、
1.23と出たものを1.20とかに自動変換できる外変はないでしょうか？

１番の希望は小数点2位を5単位の切り上げがほしいのですが、
こんなことは無理ですよね～
たとえば、1.23→1.25、1.26→1.30とかです。

よろしくお願いします。

[ □ Tree ] 返信/引用返信 [メール受信/ON] 削除キー/

▲[ 40423 ] / ▼[ 40425 ]

■40424 / 1階層)

　Re[1]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ osaki (1回)-(2010/02/27(Sat) 14:35:39)

寸法図形なのかどうかわからないのでまず寸法図形の場合について書きます。

実寸で書いてる寸法図形でしたら寸法線コマンド時に上部にでてくる
設定コマンドの項目で設定します。

寸法図形の寸法値を手入力などで書き換えてしまっている場合は注意が必要ですが、そうでないなら「寸法図形を複写・パラメトリック変形等で現寸法設定に変更」にチェックして図面を全選択して移動させると設定の数値に変わります。

寸法図形ではない数字を変更したい場合でしたら
AfSoftさんのp103_寸法値単位変換
http://p-cata.from.tv/jwwgapp/p103.html
はいかがでしょうか。
※ネットに接続できる環境に限り利用できます。

359×566 => 158×250

1267248939.png/36KB

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40424 ] / ▼[ 40426 ] ▼[ 40427 ]

■40425 / 2階層)

　Re[2]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ TT (10回)-(2010/02/27(Sat) 16:06:14)

2010/02/27(Sat) 16:07:10 編集(投稿者)

osakiさん、ありがとうございます。

寸法図形ではない数字です。
「p103_寸法値単位変換」をやってみました。
数値を変換した後、ｍやｍｍ、ｋｍの単位が入ります。
これを入らなようにする方法はあるのでしょうか？
（だだの数値のみ）

あと、
>１番の希望は小数点2位を5単位の切り上げがほしいのですが、
>こんなことは無理ですよね～
>たとえば、1.23→1.25、1.26→1.30とかです。

上記の変換は、やっぱり無理ですよね？

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40425 ] / ▼[ 40428 ]

■40426 / 3階層)

　Re[3]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ Ｏ．Ｍ (4回)-(2010/02/27(Sat) 21:54:36)

2010/03/01(Mon) 01:15:08 編集(投稿者)

※不適切発言削除しました、失礼しました。

Excelをお持ちのようでしたら外部変形作ってみたのでよろしかったろどうぞ。
※ものすごく動作が遅いです
※もともと作ってあったデータに機能追加したため余計なものがいっぱいあります。
Excel2003とExcel2007なら動くと思います（他は持ってないので分からないです）

http://ohayou-oyasumi.webdeki-bbs.com/ohayou-oyasumi_tree_p_128.html
をダウンロード＆解凍しパスに空白のない場所において外部変形から
(C:\Program Filesとかディスクトップなんかに置くとうまく動作しません）
Excel置換.batを起動し出てきたエクセル画面でMroundというボタンを押した後
画面右上赤い×ボタンでエクセルを閉じたら処理事項できるのではないかと
思います。
※処理できない場合はエクセルの分析ツールを有効にしてみてください。

エクセルＶＢＡを使っての処理ですので、
置換タブを右クリックし「コードの表示」で表示された画面の
Format(Application.MRound(.Cells(i, 2).Value, 0.05), "0.00")
の部分を変更すれば処理が変更できます。

関数
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/round.htm
表示形式
http://www.eurus.dti.ne.jp/~yoneyama/Excel/user_set.htm
をみるとコードが書き換えやすくなるのではないかと思います。

例１）
"0.00"で小数点以下2桁ですが、部分を"0.0"にしたら小数点以下１桁までの数値になります。
"#,##0.00"にすると桁区切りありの小数点以下２位までの数値になります。
※セルの表示形式の時に設定するのと同じように設定すればその表示形式になります。
Format(文字列, セルの表示形式)

例２）
MRound(.Cells(i, 2).Value, 0.05)
だと小数点第二位の5を境に切り上げ切り下げですが
MRound(.Cells(i, 2).Value, 0.5)
に変更すると小数点第一位の5の文字を境に切り上げ切り下げします。

例３）
MRound(.Cells(i, 2).Value, 0.05)
を
RoundUp((.Cells(i, 2).Value, 2)
にしたら小数点第二位で切り上げします。

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40426 ] / ▼[ 40431 ]

■40428 / 4階層)

　Re[4]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ TT (11回)-(2010/02/27(Sat) 23:11:01)

Ｏ．Ｍさん、ありがとうございます！！！

>置換タブを右クリックし「コードの表示」で表示された画面

すみません。これがどれにあたるのかわかりません。
ＶＢＡは、くわしくなくて・・・すみません。

828×523 => 250×157

gaihen.JPG/79KB

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40428 ] / ▼[ 40433 ]

■40431 / 5階層)

　Re[5]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ Ｏ．Ｍ (5回)-(2010/02/28(Sun) 00:24:30)

2010/02/28(Sun) 01:38:05 編集(投稿者)
2010/02/28(Sun) 01:00:25 編集(投稿者)
2010/02/28(Sun) 00:40:33 編集(投稿者)

画面一番下のエクセルのシートを選ぶ場所です。

因みに画面起動して出てきた

Private Sub Mround_Syori()
から
End Sub
までをコピーし

同じ画面の下の一番下に張り付けし張り付けたデータの
１．Mround_Syoriを好きな名前に変更（ひらがなや漢字も使えます）

２．「Private 」を削除
例）
Sub 指定数値で切り上げ桁区切りあり()

３．「Format(Application.MRound(.Cells(i, 2).Value, 0.05), "0.00")」を書き換える

３．「ファイル」→「終了してMicrosoft Excelに戻る」でエクセル画面に戻る

４．エクセル上のボタンを右クリック→「コピー」左クリック→どこでもいいのでセルを右クリック→「張り付け」でボタンを増やす
※エクセル2007なら画面上部の「挿入」→「図形」を押し好きな図形をエクセル上に張り付けてもＯＫです

５．張り付けた図形を右クリック→「マクロの登録」左クリック→Excel置換.xls!Sheet1.（１で付けた名前）を選択→「ＯＫ］

で作成した新しいコードを追加したボタンに登録できます。

６．コピーして作ったボタンの場合、ボタンを右クリック→ボタンを左クリックでボタンの名前を変更できる状態になります
※６は下記間違ってたので訂正しました。

※「Private 」を削除したのは５のでデータが選択できるようにするため。
Excel置換.xls!Sheet1.（１で付けた名前）の文字を手打ちしても登録できるのですが手打ちは間違いの元なので。
登録し終わったらコードに「Private 」をつけ直してもＯＫです。

※「Private 」がついていないとAltとF8ボタン同時押しで出てくる画面に表示されるその画面から実行もできます。
AltとF8ボタン同時押しで出てくる画面から実行するためのコードもエクセルに
くっつけてるので一緒に表示されると間違ってしまって邪魔かなと。
　文字の入ったセルを範囲選択してAltとF8ボタン押してコードをを選択して
実行したら文字変換するというものをエクセルに入れてます（置換表作成補助機能）

追記
説明下手なので解説サイトさんを見たほうが分かりやすいかもしれません
http://www.asahi-net.or.jp/~ef2o-inue/menu/menu04.html
http://excelvba.pc-users.net/

追記２
１．キーボードで「Alt」と「F11」を同時押し

２．１で出てきた画面上部の「表示」→「プロジェクトエクスプローラー」
　　もしくは
　　キーボードの「Ctrl」と「R」を同時押し

３．２で出てくるプロジェクト画面の「Sheet1(置換)」左ダブルクリックでもコードの入っている画面がだせます。

345×171 => 250×123

1267284270.png/13KB

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40431 ] / ▼[ 40435 ]

■40433 / 6階層)

　Re[6]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ TT (13回)-(2010/02/28(Sun) 09:23:20)

Ｏ．Ｍさん、ありがとうございます。

コード表示、できました。
コードはデフォルトのままで、ＯＫと思い置換えしましたが、
うまくいきません。どこかコードを変更しないいけないのでしょうか？

（画像の説明）

1.23→1.25 ＯＫ
1.23→1.25に置き換えたい（1.20に変換されている）
1.25→1.25 ＯＫ
1.27→1.30に置き換えたい（1.25に変換されている）
1.20→1.20 ＯＫ
1.30→1.30 ＯＫ

よろしくお願いします。

695×256 => 250×92

gaihen2.JPG/33KB

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40433 ] / ▼[ 40436 ]

■40435 / 7階層)

　Re[7]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ Ｏ．Ｍ (6回)-(2010/02/28(Sun) 12:09:42)

2010/02/28(Sun) 18:09:12 編集(投稿者)
2010/02/28(Sun) 14:35:08 編集(投稿者)

すみません、四捨五入に近い感じで指定数に近い数に丸めるのかと思ってました。
画像みると基準数で切り上げでしょうか？

基準数に切り上げでしたらCEILING関数になります。
コードはMROUNDの部分をCEILINGにかえればＯＫです。

内容説明上手くできないので2度目になりますが、
関数に関しては下記サイトが
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/round.htm
切り捨て・切り上げ・四捨五入・指定数に近い数に丸める
全部載ってますのでいろいろ試したいなら確認お勧めです。

表示形式に関しては
http://www.eurus.dti.ne.jp/~yoneyama/Excel/user_set.htm

をみるとコードが書き換えやすくなるのではないかと思います。

CEILINGとFLOORのボタン増やしたバージョンを作ってみました。
http://ohayou-oyasumi.webdeki-bbs.com/ohayou-oyasumi_tree_r_129.html

切り上げ数値変えたりとか関数を選択できたりとか場合分けパターン考えると
ユーザーフォーム（置換実行をおして出てくるような画面）作って
選択する形式にしたほうが分かりやすいんだろうとは思うんですが、
ちょっと大変そうなのでそこまでは対応してないです。

追記
Fu～さんがデータＵＰしてくださるようならそちらのほうがいいと思うので
こちらのデータは気にしなくてＯＫです。

追記２
しっかりとしたエラー処置するのは大変そうなのであまりエラー処理していませんが
http://ohayou-oyasumi.webdeki-bbs.com/ohayou-oyasumi_tree_r_130.html
でユーザーフォームから選択できるようにしました。

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40435 ] / ▼[ 40437 ]

■40436 / 8階層)

　Re[8]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ TT (15回)-(2010/02/28(Sun) 21:21:47)

Ｏ．Ｍさん、大変大変ありがとうございます。
プログラムの制作、丁寧な説明、ありがとうございます。

「CEILINGとFLOORのボタン増やしたバージョン」、「追記２のバージョン」、
２つとも機能しております。

また、Fu～さんのデータＵＰについての心使い、感謝します。

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40436 ] / ▼[ 40438 ] ▼[ 40439 ]

■40437 / 9階層)

　Re[9]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ Fu～ (2回)-(2010/03/01(Mon) 00:25:41)

TTさん、こんばんは

ついでなんで
動画説明付きで、ダウンロードできるようにしてみました

http://e-desune.net/jww/
２１：外部変形の紹介
J ：「小道具」内ピックアップ

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40437 ] / 返信無し

■40438 / 10階層)

　Re[10]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ Ｏ．Ｍ (7回)-(2010/03/01(Mon) 01:40:34)

ダウンロードさせていただきました。
使い方が分からず活用できない場合も多いので動画解説ありがたいです。

Windows Vista 32bit J_GARU導入
のＰＣで快適に機能しました。

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40437 ] / 返信無し

■40439 / 10階層)

　Re[10]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ TT (16回)-(2010/03/01(Mon) 11:52:05)

Fu～さんへ

ダウンロードさせて頂きました。
望み通りの外変です。
動画の説明も助かります。
ありがとうございました。

これですべて解決しました。

Ｏ.Ｍさん、Fu～さん、osakiさん、banさん、
親切に教えて頂き、本当にありがとうございました。

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40425 ] / 返信無し

■40427 / 3階層)

　Re[3]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ osaki (2回)-(2010/02/27(Sat) 22:45:50)

四捨五入できたってことだけで
単位付まで考えてませんでした。
失礼しました。

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40423 ] / ▼[ 40432 ]

■40430 / 1階層)

　Re[1]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ ban (1回)-(2010/02/27(Sat) 23:18:29)

> 数値の１桁を四捨五入（切り上げ、切捨て）などに変更する外変はないででしょうか？
> たとえば、寸法（文字）で1,988と出たものを1,990や、
> 1.23と出たものを1.20とかに自動変換できる外変はないでしょうか？
>
> １番の希望は小数点2位を5単位の切り上げがほしいのですが、
> こんなことは無理ですよね～
> たとえば、1.23→1.25、1.26→1.30とかです。
>
>
> よろしくお願いします。

以前、Cabaさんが『数値丸め.bat』という外部変形を公開していました。
現在はサイトが閉じられているようです。
今現在、何処かでダウンロード出来るかわかりませんが、
仕様は下記の通りでした。

この外部変形は小数点以下の桁を指定(0-6)し、（※小数点以下のみ）
丸め方を
1.四捨五入
2.切捨
3.切上
4.四捨五入[05] ※５単位に丸める
5.切捨[05]　※５単位に丸める
6.切上[05]　※５単位に丸める
の６種類の中から選択する事が出来るものでした。

以上、情報でした。

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40430 ] / ▼[ 40434 ]

■40432 / 2階層)

　Re[2]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ Fu～ (1回)-(2010/02/28(Sun) 02:16:45)

> > たとえば、1.23→1.25、1.26→1.30とかです。
>
> 以前、Cabaさんが『数値丸め.bat』という外部変形を公開していました。
> 現在はサイトが閉じられているようです。

小道具に入ってるものですね
ＰＣに入れてあったので試してみましたが、うまくいきました
ただし、小数点以下のみ、半角数字で、３桁区切りの「，」がないものだけみたいです

ドキュメントには
【転　　載】可
と、ありますが、これはダウンロードするようにしてもかまわないことですかね？
どこにもなければ、アップしておきますが、、、、、、、
需要ありますか？

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40432 ] / 返信無し

■40434 / 3階層)

　Re[3]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ TT (14回)-(2010/02/28(Sun) 09:29:07)

banさん、Fu～さん、ありがとうございます。

使ってみたいです。
ぜひ、アップしてほしいです。

よろしくお願いします。

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 40427 ] / 返信無し

■40429 / 4階層)

　Re[4]: 数値の１桁を四捨五入などに変更する外変はないでしょうか？

□投稿者/ TT (12回)-(2010/02/27(Sat) 23:14:53)

■No40427に返信(osakiさんの記事)
> 四捨五入できたってことだけで
> 単位付まで考えてませんでした。
> 失礼しました。

osakiさん

いえいえ、こういう外変もあることをしったことで、
いずれ使う可能性もあります。
ありがとうございます。

[ 親 40423 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

- Child Tree -