![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.3ベストアンサー
- 回答日時:
こんにちは。
With セル範囲
.Formula = "=~式の中身は省略"
.Value = .Value '←これ
End With
OkWaveとの分離前に、こういうのを好んで書く人がいましたね。
ループとどちらが速いか、複雑なものでは、こちらの方が速いかもしれません。これは、一種の裏ワザなのです。
#1の方が、mougでの紹介をしていますが、ちょっと違うというか足らないです。(私が、このテクニックを、代弁するというのもおかしな話しなのですが、私も使わないというわけではありません。ただ、あまり格好のよいテクニックでもありません。)
>Range("A1:C3").Formula="=~" '←ここに複雑な数式を置きます。
>Range("A1:C3").Value=Range("A1:C3").Value
複雑な計算を、Excelのスプレッドシート側にまかせてしまい、後は、その数式が揮発性だったり、そのために重く重くなるのを防ぐために、値貼り付けにしてしまう、という目論見なのです。マクロで、その数式の役割をさせるよりも、実際の数式のほうが楽だからということもあります。例えば、配列数式などが使われたりします。
「Range("A1:C3").Value」の右辺の値を変数で受けて、中身を調べれば分かりますが、配列の中は、数式ではなく、数値または文字列として、格納されています。Rangeオブジェクトにして初めて、数式を格納できるわけです。そして、右辺の値は、2次元配列になって、同じ構造を持つ左辺の範囲に出力されるというわけです。
No.6
- 回答日時:
High_Score様へ
そんなに、お怒りにならないでください。
私は、思ってもみない反応で、大変に驚いています。
>今回の回答の主旨は「.Value=.Valueの方が速いから使うべき」に見えます。
私は、リンク先も読んでいませんし、補足内容で書かれたことは、まったくの誤解です。それに、リンク先とは、まったく関係がありません。今回、初めて読ませていただきました。
High_Score様は、OkWave 分離前からいらっしゃっていたわけですよね。
ある方は、12~3年前に、私が、VBAとしての掲示板デビューの時にいた掲示板でも書いていた人で、相変わらず、OkWaveでも、同じ回答パターンを続けていました。ある意味では、私のVBAの先輩にあたるのですが、残念ながら、その頃と差がありません。その方がよく使うテクニックという印象が強かったのです。
その方の代弁をするつもりではないけれど、ということから書きました。
私のつたない内容で、大変に誤解を与えて申し訳なかったと思います。
>それを省略しない方が良いと言うのは理解に苦しみます。
何を省略したかというと、実際の場で、私などが、どのように使うか、使っているかということです。High_Score様が、どのようなコードで使うか、また、どういうコードについて今回書いているか、についてよりも、私自身が、よく知っているスタイルでお話させていただいております。
そこに違いがあるのかどうかは、正直なところ、あまり重要視していません。いえ、同じだろうと思っているからです。それが違うとしてても、パターン自体が同じなのですが、あまり大きな違いとは思いません。
With ステートメントで、.Value にすること自体に何も問題ありません。
また、一旦計算されたものは、.Value = .Valueで、値貼り付けにはなるのですが、その範囲は、2次元配列でValue値を受け渡しするものです。
この書き方は、Microsoft が提唱する、VBAの「最適化(オプティマイズ)」に適合するものです。
以下が実際に使うコードのパターンです。最初から、こう書けばよかったと思って、訂正回答をしたのです。つまり、一列や一行で用いることがほとんどだということです。もちろん、以下のようなテクニックをご存知でしたら、私の回答の内容は無視しても構いません。
'//
Sub MacroTest2()
With Range("A1:A10000")
.FormulaLocal = "=ROW(RC[1])" '←ふつうはR1C1型にします。
.Value = .Value '2次元配列による値貼り付け
End With
End Sub
'///
私がその後で書いた内容は、VBAにはVBAの基本的な構文でも良いということです。
#8966682の#2のの内容にも、通じるところです。
時に、こうした関数を組み合わせたコードは、奇をてらったように見えるし、現実には、難しい部分を含んでいることもあります。
ひいては、Office Tanakaの田中亨氏のように、スピードが速いから、これが良いというような方向にもっていこうというつもりは、私はさらさらないのです。
私の書いている趣旨は、分かっていただけないでしょうか?
ありがとうございます。
リンク先は別だったようですね。特に怒ってるわけではありません。こちらこそ誤解させてしまい申し訳ありません。
No.5
- 回答日時:
#3の回答者です。
うっかり忘れていました。やはり、省略しないで書いた方がよかったのでした。
もちろん、私の書いたことが理解できなかったら、そのままにしておいてください。たいした話ではありません。
>Range("A1:C3").Formula="=~"
>Range("A1:C3").Value=Range("A1:C3").Value
たぶん、ネットに出ていたのは、そういうスタイルではないはずです。
こんな例をあげます。
A列の1行目から、1万行目まで、1からインクリメンタルな数字(1,2,3,...)と入れる場合は、
一般的には、For i =1 To 10000 ~ Next としますが、それを以下のような裏ワザを使うことができます。
'//
Sub MacroTest1()
'8970395
Dim i as Long
For i = 1 To 10000
Cells(i, 1).Value = i
Next i
End Sub
Sub MacroTest2()
With Range("A1:A10000")
.FormulaLocal = "=ROW(RC[1])"
.Value = .Value
End With
End Sub
'///
5回の平均タイム(Win32 APIの'timeGetTime'を利用)で、必ず、マクロ実行前にセルの範囲は、Clear を施しました。結果
MacroTest1: 296.8 ms
MacroTest2: 41.6 ms
このようなスピードの差が出ます。数式は、別に、R1C1方式で書く必要はないのですが、そちらの方が分かりやすいからです。同じ式で貼り付けるという認識ができるからです。もちろん、それなら、配列などを利用して、
'//
Sub MacroTest3()
Dim i As Long
Dim a(1 To 10000, 0) As Long
For i = 1 To 10000
a(i, 0) = i
Next i
Range("A1:A10000").Value = a()
End Sub
'///
こんなこともできますが、ここまでするべきかどうかは人の好き好きです。
MacroTest3: 15.75 ms
あまり奇をてらったコーディングや個々のスピードを速めたものというものは、掲示板などの回答に多用すると、バカの一つ覚えになりかねないので、ほどほどにすべきかと思っています。別に特定の誰それを批判するとかではありませんが、全体的な技術は低いのに、それだけが特化してしまうと、そう見えるということです。全体のバランスとかの効率の方が大事なのかと思います。
No.4
- 回答日時:
No.2 です。
>大変申し訳ありませんが、9で力尽きました。早過ぎ?
VBA でも Excel でも Word でも何でもそうですが、基本的にコンピュータは、コピペを多用してください。No.2 の回答文からコピーしてもいいし、ウィンドウに質問者さんがタイプした記入済みの文字をコピーしても構いません。コンピュータがこの世にもたらした最大の利益の一つは、コピーが容易になったことです。ショートカットキーの場合は、コピーは Ctrl+C、ペーストは Ctrl+V です。もちろん右クリックでもいいです。
パソコンが上手になるコツは、とにかく自分でいじり回すことです。
>まずは何のための操作なのか教えて下さい。
4. のところに書いた「Debug.Print」というのは、イミディエイトウィンドウ内に、指定の値を表示させるメソッドです。
だから Enter の押下とともに、ずらずらと書いている各種の Value、Formula プロパティがウィンドウ内に表示されます。セルの状態や操作の方法によって、両プロパティがどのように変化するのか、見て取れるわけです。
29. では「=B1」という 3 文字が表示されるはずです。32. では 29. と同じセルの同じプロパティですが、B1 セルに記入されている値が表示されるはずです。つまり 30. において、A8 が値複写されていたということです。
No.2
- 回答日時:
>セル範囲の関数式formulaでなくvalueを同一セルに代入した場合、formulaは変わらないから計算値も変わらず、結果として変わらないと思うのですが、そうではないのでしょうか?
それは事実と異なります。マクロの話題ではありますが、Excel の機能に関する基礎知識の問題とも言えます。次のとおり操作し、実験してみてください。
1. A1 セルに =b1 を、B1 に好きな数値や文字列を記入。
2. ワークシートのカーソルを A2 に置く。
3. 続けて VBE 表示メニューから表示されるイミディエイトウィンドウに、selection.value = range("a1").valueと記入し、イミディエイトウィンドウの同じ行内にカーソルがある状態で、キーボードで Enter。
4. 続けてイミディエイトウィンドウの次の行に、?selection.valueと記入し、同様に Enter。
※「?」は、「Debug.Print 」と書いたのと同じ働きをします。
5. 続けてイミディエイトウィンドウの次の行に、?selection.formulaと記入し、同様に Enter。
6. ワークシートのカーソルを A3 に置く。
7. 続けてイミディエイトウィンドウの次の行に、selection.formula = range("a1").valueと記入し、同様に Enter。
8. 続けてイミディエイトウィンドウにある?selection.valueの行にカーソルを置き、Enter。
9. 続けてイミディエイトウィンドウにある?selection.formulaの行にカーソルを置き、Enter。
10. ワークシートのカーソルを A4 に置く。
11. 続けてイミディエイトウィンドウの次の行に、selection.value = range("a1").formulaと記入し、同様に Enter。
12. 続けてイミディエイトウィンドウにある?selection.valueの行にカーソルを置き、Enter。
13. 続けてイミディエイトウィンドウにある?selection.formulaの行にカーソルを置き、Enter。
14. ワークシートのカーソルを A5 に置く。
15. 続けてイミディエイトウィンドウの次の行に、selection.value = "b1"と記入し、同様に Enter。
16. 続けてイミディエイトウィンドウにある?selection.valueの行にカーソルを置き、Enter。
17. 続けてイミディエイトウィンドウにある?selection.formulaの行にカーソルを置き、Enter。
18. ワークシートのカーソルを A6 に置く。
19. 続けてイミディエイトウィンドウの次の行に、selection.value = "=b1"と記入し、同様に Enter。
20. 続けてイミディエイトウィンドウにある?selection.valueの行にカーソルを置き、Enter。
21. 続けてイミディエイトウィンドウにある?selection.formulaの行にカーソルを置き、Enter。
22. ワークシートのカーソルを A7 に置く。
23. 続けてイミディエイトウィンドウの次の行に、selection.formula = "b1"と記入し、同様に Enter。
24. 続けてイミディエイトウィンドウにある?selection.valueの行にカーソルを置き、Enter。
25. 続けてイミディエイトウィンドウにある?selection.formulaの行にカーソルを置き、Enter。
26. ワークシートのカーソルを A8 に置く。
27. 続けてイミディエイトウィンドウの次の行に、selection.formula = "=b1"と記入し、同様に Enter。
28. 続けてイミディエイトウィンドウにある?selection.valueの行にカーソルを置き、Enter。
29. 続けてイミディエイトウィンドウにある?selection.formulaの行にカーソルを置き、Enter。
30. 続けてイミディエイトウィンドウの次の行に、selection.value = selection.valueと記入し、同様に Enter。
31. 続けてイミディエイトウィンドウにある?selection.valueの行にカーソルを置き、Enter。
32. 続けてイミディエイトウィンドウにある?selection.formulaの行にカーソルを置き、Enter。
No.1
- 回答日時:
.PasteSpecial Paste:=xlPasteValues
という意味です。
形式を選択して貼り付けの「値のみ」にあたります。
http://www.moug.net/tech/exvba/0050145.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
VBA 複数の行を高速で削除する方法
その他(プログラミング・Web制作)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
VBAで文字列を数値に変換したい
Excel(エクセル)
-
-
4
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
7
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
8
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
9
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
10
別のシートから値を取得するとき
Visual Basic(VBA)
-
11
VBAを何回も作り直して、容量が増えた
Excel(エクセル)
-
12
特定のシートのみ再計算させない方法は?
Excel(エクセル)
-
13
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
14
ExcelVBAで、数式を含むセルを値貼り付けしたセルをCountAで取得すると空白と認識されない
Excel(エクセル)
-
15
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
16
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
17
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
18
エクセルVBA 数式の中に、変数で定義したシート名を入力するには
Excel(エクセル)
-
19
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
20
Excelの空文字セルの削除方法を教えてください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「アイテムは収集されました」...
-
エクセルで作った新しいウイン...
-
ExcelのBOOKが消えた!
-
Excelの上下を固定したい
-
検索の画面がでなくなってしま...
-
VBA .Value=.Value ?
-
【VB2008】 マウス操作の一時的...
-
OutlookでRSSフィードやメモの...
-
Windows10 名前をつけて保存で...
-
クリスタルレポートからPDFを作...
-
SendMessage関数がうまく動作し...
-
UNLHA.DLLの使い方
-
コンボボックスのリストに水平...
-
ウィンドウ生成時にアクセス違...
-
他のアプリケーションの終了処理
-
EXCELの最前面設定解除について
-
Console.WriteLine で表示されない
-
Alt+P,Alt+NをPostmessageで送...
-
[VBA] UserForm を Excel の W...
-
WM_PAINT 処理が完了したタイミ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで作った新しいウイン...
-
「アイテムは収集されました」...
-
ゲームでは結局どっちが良いの?
-
検索の画面がでなくなってしま...
-
勝手にウィンドウが開いて止ま...
-
ラジオボタンの初期指定
-
VBA .Value=.Value ?
-
他のアプリケーションの終了処理
-
Excelの上下を固定したい
-
Vba LongPtrについて教えてくだ...
-
[VBA] UserForm を Excel の W...
-
作成したウインドウのサイズを...
-
「&HFFFF」「&H1A」とは?
-
Alt+P,Alt+NをPostmessageで送...
-
EnumChildWindowsの使い方(VBA)
-
MFC ダイアログ上のID取得につ...
-
ダイアログをスクロールさせるには
-
ExcelVBAでAPIを使って外部ウイ...
-
ExcelのBOOKが消えた!
-
Console.WriteLine で表示されない
おすすめ情報
ありがとうございます。
セル範囲の関数式formulaでなくvalueを同一セルに代入した場合、formulaは変わらないから計算値も変わらず、結果として変わらないと思うのですが、そうではないのでしょうか?
再度ありがとうございます。
スピードの話をするということは、参照元を読まれた様ですね。
https://oshiete.goo.ne.jp/qa/8966682.html
No1
質問文のセル範囲は、私が勝手に決めたものです。あくまで例に過ぎませんので。
ただ、今回の回答の主旨は「.Value=.Valueの方が速いから使うべき」に見えます。条件が同じでないので比較出来ませんが。それを省略しない方が良いと言うのは理解に苦しみます。