エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150220111053]]: #score: 9211; @digest: aaa8aa8e19c58ed20fa027fc60602a23; @id: 67317; @mdate: 2015-02-22T23:35:45Z; @size: 5916; @type: text/plain; #keywords: 人() (25088), rngtoproc (21144), countlarge (6214), 四捨 (5825), 択セ (5239), 捨五 (5033), 五入 (4928), 百万 (3806), を四 (3429), val (3241), calculation (3019), xlcalculationmanual (2765), 様早 (2500), 列指 (2454), screenupdating (2156), 示書 (2073), 太様 (1955), 飛び (1935), 2015 (1750), 択範 (1668), び飛 (1640), 万行 (1568), selection (1525), 個人 (1518), application (1517), nn (1443), とら (1412), 金) (1326), 半平 (1221), 平太 (1191), worksheetfunction (1144), 選択 (859); 『選択したセルを四捨五入する』（とらねこ）
選択したセルを小数点第二位で四捨五入するようにしたのですが動作完了までに時間がかかります。いろいろなブックで使いたいので個人用マクロブックに記入していますユーザーフォームをモードレスにしてボタンを設置していますブックにはたくさんの関数が入っていますまた関数式のセルをそのまま四捨五入しようとすることもあります実行中に画面が白くなったりして最悪止まってしまうこともあります Sub 選択セルを四捨五入する_個人() Application.ScreenUpdating = False Dim CL For Each CL In Selection If CL <> "" Then CL.Value = WorksheetFunction.Round(CL, 2) Next Application.ScreenUpdating = True End Sub 現在は上記のコードを使っています何か方法がありましたら教えていただけないでしょうか＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- 通常、どれくらい広い範囲を指定するのですか?（セルの数）列指定とかはするんですか?(それだと、相当広い範囲となりますけど）＞また関数式のセルをそのまま四捨五入しようとすることもあります ↑ これは、関数式のセルには手を入れたくない、と云う趣旨ですか? （半平太） 2015/02/20(金) 11:31 ---- 選択範囲に数式があった場合は問題ないのでしょうか。表示書式での対応ではなく、値を変える必要が有りますか? Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 処理 Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = False としてどうでしょうか。 Sub 選択セルの書式設定をする_個人() Selection.NumberFormatLocal = "0.00" End Sub だけでも良いような気がしますが。 （Mook） 2015/02/20(金) 11:37 ---- 半平太様早速のご回答ありがとうございます多いのは35x6の範囲ですがそれより多くなることも少なくなることもあります基本的に列指定はしません関数式のセルは表示されている数値を四捨五入して大丈夫です関数式は残らなくてOKです（とらねこ） 2015/02/20(金) 11:38 ---- Mook様早速のご回答ありがとうございます関数式のセルは表示されている数値を四捨五入して大丈夫です関数式は残らなくてOKです表示書式での対応ではなく… とのことですが他のセルで関数による計算、判定をしていて計算結果が合わなくなることがあったので数値を変更していますまた関数式のあるセルを数値に直したいのは参照していた数値と関数を連動させたくないからです Application.Calculation = xlCalculationManual 試してみたのですが実行速度に変化はないようです（とらねこ） 2015/02/20(金) 11:52 ---- 最初の質問に書き忘れてしまったのですがブックには画像もありリンクさせているのは動作が遅いことと関係ないでしょうか? （とらねこ） 2015/02/20(金) 11:54 ---- もしシートにイベントマクロがあるなら、 Application.EnableEvents = False 処理 Application.EnableEvents = True も追加で。 （Mook） 2015/02/20(金) 12:10 ---- Mook様シートイベントにマクロはありません。（とらねこ） 2015/02/20(金) 12:47 ---- 取りあえず、以下でやってみてください。セル範囲は、連続した矩形で。（つまり、飛び飛びは無し） Sub 選択セルを四捨五入する_個人() Dim Val Dim NN As Long, MM As Long If Selection.CountLarge > 1000 Then MsgBox "範囲が広すぎます" Exit Sub End If Application.ScreenUpdating = False Val = Selection.Value For NN = 1 To UBound(Val) For MM = 1 To UBound(Val, 2) If Val(NN, MM) <> "" Then Val(NN, MM) = WorksheetFunction.Round(Val(NN, MM), 2) End If Next MM Next NN Selection.Value = Val Application.ScreenUpdating = True End Sub （半平太） 2015/02/20(金) 15:53 ---- 半平太様早速試してみました問題なく動きますしかも早い!!一瞬で終わったので動いてないのかと思ったくらいです(笑有難うございます If Selection.CountLarge > 1000 Then MsgBox "範囲が広すぎます" Exit Sub End If この部分は1000もセルを選択しないので削除させていただいてもいいでしょうか厚かましいのですがセルの選択範囲を飛び飛びでも使えるようには出来ないでしょうかもし不可能なら選択セルが飛び飛びの場合は実行しないように(マクロが止まらないように)出来ますでしょうか（とらねこ） 2015/02/20(金) 16:38 ---- ＞この部分は1000もセルを選択しないので削除させていただいてもいいでしょうかそちらの自己責任で判断してください。一般論は「人間は間違いを犯す動物」です。百万行の処理に入り込まないことを祈ります。＞セルの選択範囲を飛び飛びでも使えるようにこれで(↓) テストしてみてください。 Sub 選択セルを四捨五入する_個人() Dim Val, rngToProc As Range Dim NN As Long, MM As Long If Selection.Cells.CountLarge > 1000 Then MsgBox "範囲が広すぎます" Exit Sub End If Application.ScreenUpdating = False For Each rngToProc In Selection.Areas Val = rngToProc.Value If rngToProc.Cells.Count = 1 Then Val = WorksheetFunction.Round(Val, 2) rngToProc.Value = Val Else For NN = 1 To UBound(Val) For MM = 1 To UBound(Val, 2) If Val(NN, MM) <> "" Then Val(NN, MM) = WorksheetFunction.Round(Val(NN, MM), 2) End If Next MM Next NN rngToProc.Value = Val End If Next Application.ScreenUpdating = True End Sub （半平太） 2015/02/20(金) 17:16 ---- 半平太様百万行の処理に入り込まないことを祈ります。そうですね間違えてクリックしてしまうことがあったら大変なので残しておくことにします新たに作っていただき有難うございます今すぐに確認出来ないので確認が出来次第改めて書き込みにきますとても助かりました有難うございました（とらねこ） 2015/02/20(金) 20:10 ---- 半平太様確認できました完璧ですやりたいことすべてが出来ました! 本当に感謝です有難うございました（とらねこ） 2015/02/23(月) 08:35 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201502/20150220111053.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ