![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
A 回答 (6件)
- 最新から表示
- 回答順に表示
No.6
- 回答日時:
又もや 失礼しました、
「Cells構文で セル範囲指定を、
してね、」
とは、
高難易度に 過ぎましたかね?
元より、
Range(セル範囲指定記述文字列).Value = Range(セル範囲指定記述文字列).Value
等でも 構いませんよ。
No.5
- 回答日時:
失礼、
誤記を 認めました、
謝罪の上 訂正します。
現行、
両Cells構文に セル範囲指摘を、
付加して、
アドレッシング領域を 限定してください。
改訂後、
両Cells構文に セル範囲指定を、
付加して、
アドレッシング領域を 限定してください。
改訂点、
指摘→指定
以上。
済みませんでした。
No.4
- 回答日時:
Sub Main ()
Cells.value = Cells.value
End Sub
です。
但し、
搭載リソース量次第で、
エラーが 出ますが、
構文構造は 此で、
合ってます。
もし、
リソースが 不足し、
実用に 耐えない場合は、
両Cells構文に セル範囲指摘を、
付加して、
アドレッシング領域を 限定してください。
此の際、
両セル指定領域サイズを たがえては、
いけません、
同じで なければ、
なりません。
さて、
VBで あるましい、
不必要に ループを、
回すのは 止めましょう。
そんな事をすれば、
オブジェクトタッチ数が 無駄なままに、
飛躍的に 増え、
無駄処理時間を 浪費しますよ。
此はですね、
VBAです、
VBでは ありません。
ループが 使えない、
シート関数プログラミングでも、
通用するように、
組み込みルーチンが、
しかも チューニングすら、
施されて 組み込まれています。
使わず、
処理時間を 浪費する、
手は なしでしょ?
No.3
- 回答日時:
こんにちは
すでに解決済みなのかよくわかりませんが、一応、・・・
Sub Sample_11688018()
For Each s In Worksheets
s.UsedRange.Value = s.UsedRange.Value
Next s
End Sub
とかかな。
No.2
- 回答日時:
横から失礼します
>どこが駄目なのでしょうか
ダメと言うより、ご質問の内容になっていないと思いますよ
Range("A1").Selectになっているのだから、A1セルでしか、Selection.Value = Selection.Valueは、実行されていません。
しかし、自動記録では、記録されないと思いますし、Selection.Value = Selection.Valueをシート全体で実行するのは、
いかがなものでしょう?この辺りは、検証してみてください。
自動記録をする場合、手順をあらかじめ検証する事が肝心だと思います。
期待される結果を出す為の処理手順は、いくつかの方法があります。大きく違うのは、
新しいブックを作るか否かです。
①開いてるブックで処理して最後に名前を付け、ファイル拡張子を変え保存する方法
②新しいブックを作成して、そのブックに既存ブックのシートを挿入なたはコピペする方法です。
繰り返しこの処理を行うのであれば、①はあまり適していないと思います。この辺も検証すると判りますので興味があれば行ってください。
あと>全部で8シート
これも、大きく分けて2通り
始めにCtrl+でシートを選択してグループとして処理するか、
ブックの1つずつシートを繰り返し処理で処理するかです
前者は、自動記録で記録できると思います。(グループ解除は記録されないかも)
後者は、For Each などで作る必要があります。
①で記録を行う場合、最後のファイル保存する前に記録しているVBEで上書き保存をしておきましょう。
せっかくの記録が消えてしまうかも、、
健闘を祈ります。
No.1
- 回答日時:
左上をクリックして
全選択→コピー→特殊貼り付け(値のみ)
をマクロで記録すれば雛形は出来上がります。
ありがとうございます!
確かに記録を使って型を作るのが早いですね。
実際にやってみたのですが、何故か値貼り付けにならたず・・・
何が駄目だったのでしょうか。(少し書き換えたのですが、書き換え前も数式のままで・・・)
Sub 値貼付け()
'
' 値貼付け Macro
'
Worksheets.Select
ActiveSheet.Calculate
Range("A1").Select
Selection.Value = Selection.Value
Range("A1").Select
Sheets("1").Select
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Excel(エクセル) 前の(左隣の)シートを連続参照するように、あとから変更したい 1 2023/02/22 00:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
フォルダ内ブックの数式を全て値に変換するマクロ?
Excel(エクセル)
-
エクセルで複数のシートをまとめて一度にコピーし、一度に値を貼り付けることができますか
その他(パソコン・スマホ・電化製品)
-
-
4
フォルダ内の全てのファイルに貼り付けを行うマクロを作りたい
Visual Basic(VBA)
-
5
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
9
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
10
[vba]マクロで値のみコピー貼り付け
Excel(エクセル)
-
11
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
12
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
13
エクセルでエラーが出て困っています。
Excel(エクセル)
-
14
Excel リンクさせずに値だけを新しいファイルに保存したい
Excel(エクセル)
-
15
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
16
作ったマクロを複数のシートで実行できるようにしたい。
Excel(エクセル)
-
17
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
18
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
19
エクセルで複数のシートのクリアをしたいです
Excel(エクセル)
-
20
Excelで複数ブックの同一セルに同じ値を入力するにはどうすればよいですか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
VBA シートをコピーする際に Co...
-
Excelのマクロについて教えてく...
-
エクセルVBAが途中で止まります
-
VBA 別ブックからコピペしたい...
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBA コードを実行すると画面が...
-
【マクロ】アクティブセルにブ...
-
VBAで別ブックのシートを指定し...
-
エクセルのマクロを使ってメー...
-
vbaでvbaProjectのパスワード解...
-
VBA シート名が一致した場合の...
-
エクセルマクロで、他ブックか...
-
Excelのマクロについて教えてく...
-
【マクロ】違うフォルダにある...
-
エクセルマクロで任意のファイ...
-
【Excel VBA】書き込み先ブック...
-
2つ目のコンボボックスが動作...
-
Excelのマクロについて教えてく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
(マクロ)データをAブックからB...
-
VBS Bookを閉じるコード
-
VBA 別ブックからコピペしたい...
-
VBA 複数のエクセルから一つの...
-
VBA シート名が一致した場合の...
-
【ExcelVBA】インデックスが有...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
vbaでvbaProjectのパスワード解...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA コードを実行すると画面が...
-
【VBA】全シートの計算式を全て...
-
複数のエクセルブックをひとつ...
-
VBA 実行時エラー 2147024893
-
ExcelのVBAです。フォルダ内の...
おすすめ情報
この式だと何故か値貼り付けになってくれません・・・・どこが駄目なのでしょうか
Sub 値貼付け()
'
' 値貼付け Macro
'
Worksheets.Select
ActiveSheet.Calculate
Range("A1").Select
Selection.Value = Selection.Value
Range("A1").Select
Sheets("1").Select
End Sub