A 回答 (6件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
左上をクリックして
全選択→コピー→特殊貼り付け(値のみ)
をマクロで記録すれば雛形は出来上がります。
ありがとうございます!
確かに記録を使って型を作るのが早いですね。
実際にやってみたのですが、何故か値貼り付けにならたず・・・
何が駄目だったのでしょうか。(少し書き換えたのですが、書き換え前も数式のままで・・・)
Sub 値貼付け()
'
' 値貼付け Macro
'
Worksheets.Select
ActiveSheet.Calculate
Range("A1").Select
Selection.Value = Selection.Value
Range("A1").Select
Sheets("1").Select
End Sub
No.2
- 回答日時:
横から失礼します
>どこが駄目なのでしょうか
ダメと言うより、ご質問の内容になっていないと思いますよ
Range("A1").Selectになっているのだから、A1セルでしか、Selection.Value = Selection.Valueは、実行されていません。
しかし、自動記録では、記録されないと思いますし、Selection.Value = Selection.Valueをシート全体で実行するのは、
いかがなものでしょう?この辺りは、検証してみてください。
自動記録をする場合、手順をあらかじめ検証する事が肝心だと思います。
期待される結果を出す為の処理手順は、いくつかの方法があります。大きく違うのは、
新しいブックを作るか否かです。
①開いてるブックで処理して最後に名前を付け、ファイル拡張子を変え保存する方法
②新しいブックを作成して、そのブックに既存ブックのシートを挿入なたはコピペする方法です。
繰り返しこの処理を行うのであれば、①はあまり適していないと思います。この辺も検証すると判りますので興味があれば行ってください。
あと>全部で8シート
これも、大きく分けて2通り
始めにCtrl+でシートを選択してグループとして処理するか、
ブックの1つずつシートを繰り返し処理で処理するかです
前者は、自動記録で記録できると思います。(グループ解除は記録されないかも)
後者は、For Each などで作る必要があります。
①で記録を行う場合、最後のファイル保存する前に記録しているVBEで上書き保存をしておきましょう。
せっかくの記録が消えてしまうかも、、
健闘を祈ります。
No.3
- 回答日時:
こんにちは
すでに解決済みなのかよくわかりませんが、一応、・・・
Sub Sample_11688018()
For Each s In Worksheets
s.UsedRange.Value = s.UsedRange.Value
Next s
End Sub
とかかな。
No.4
- 回答日時:
Sub Main ()
Cells.value = Cells.value
End Sub
です。
但し、
搭載リソース量次第で、
エラーが 出ますが、
構文構造は 此で、
合ってます。
もし、
リソースが 不足し、
実用に 耐えない場合は、
両Cells構文に セル範囲指摘を、
付加して、
アドレッシング領域を 限定してください。
此の際、
両セル指定領域サイズを たがえては、
いけません、
同じで なければ、
なりません。
さて、
VBで あるましい、
不必要に ループを、
回すのは 止めましょう。
そんな事をすれば、
オブジェクトタッチ数が 無駄なままに、
飛躍的に 増え、
無駄処理時間を 浪費しますよ。
此はですね、
VBAです、
VBでは ありません。
ループが 使えない、
シート関数プログラミングでも、
通用するように、
組み込みルーチンが、
しかも チューニングすら、
施されて 組み込まれています。
使わず、
処理時間を 浪費する、
手は なしでしょ?
No.5
- 回答日時:
失礼、
誤記を 認めました、
謝罪の上 訂正します。
現行、
両Cells構文に セル範囲指摘を、
付加して、
アドレッシング領域を 限定してください。
改訂後、
両Cells構文に セル範囲指定を、
付加して、
アドレッシング領域を 限定してください。
改訂点、
指摘→指定
以上。
済みませんでした。
No.6
- 回答日時:
又もや 失礼しました、
「Cells構文で セル範囲指定を、
してね、」
とは、
高難易度に 過ぎましたかね?
元より、
Range(セル範囲指定記述文字列).Value = Range(セル範囲指定記述文字列).Value
等でも 構いませんよ。
お探しの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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
フォルダ内ブックの数式を全て値に変換するマクロ?
Excel(エクセル)
-
エクセルで複数のシートをまとめて一度にコピーし、一度に値を貼り付けることができますか
その他(パソコン・スマホ・電化製品)
-
-
4
フォルダ内の全てのファイルに貼り付けを行うマクロを作りたい
Visual Basic(VBA)
-
5
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
6
マクロを複数シートに実行するには?
Excel(エクセル)
-
7
Excelで複数ブックの同一セルに同じ値を入力するにはどうすればよいですか?
Excel(エクセル)
-
8
[vba]マクロで値のみコピー貼り付け
Excel(エクセル)
-
9
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
10
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
11
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
エクセルでエラーが出て困っています。
Excel(エクセル)
-
14
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
15
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
-
16
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
17
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
18
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
19
リストと一致する値のセルを塗りつぶしたい。
その他(Microsoft Office)
-
20
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAが途中で止まります
-
VBA シートをコピーする際に Co...
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
ワイルドカード「*」を使うとう...
-
VBS Bookを閉じるコード
-
VBAで複数のブックを開かずに処...
-
エクセルのマクロについて教え...
-
VBA コードを実行すると画面が...
-
ADOで複数のBookから抽出
-
ExcelVBA:すでに開かれている...
-
複数のエクセルブックをひとつ...
-
VBA 実行時エラー 2147024893
-
ExcelのVBAです。フォルダ内の...
-
Excelファイルを開くとき、読み...
-
Excelブックがアクティブになっ...
-
vbaで他のブックに転記したい。...
-
【ExcelVBA】zip圧縮されたCSV...
-
エクセルのマクロについて教え...
-
Excelマクロ 該当する値の行番...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
別ブックをダイアログボックス...
-
【ExcelVBA】インデックスが有...
-
ワイルドカード「*」を使うとう...
-
【ExcelVBA】VBA実行でダイアロ...
-
ExcelのVBAです。フォルダ内の...
-
フォルダ内の全てのファイルに...
-
VBA コードを実行すると画面が...
-
VBA 別ブックからコピペしたい...
-
VBAで別ブックのシートを指定し...
-
VBS Bookを閉じるコード
-
vbaでvbaProjectのパスワード解...
-
【VBA】全シートの計算式を全て...
-
VBA シート名が一致した場合の...
-
【ExcelVBA】zip圧縮されたCSV...
-
複数のエクセルブックをひとつ...
-
VBSでExcelのオープン確認
-
VBAで別のブックにシートをコピ...
-
【Excel VBA】書き込み先ブック...
おすすめ情報
この式だと何故か値貼り付けになってくれません・・・・どこが駄目なのでしょうか
Sub 値貼付け()
'
' 値貼付け Macro
'
Worksheets.Select
ActiveSheet.Calculate
Range("A1").Select
Selection.Value = Selection.Value
Range("A1").Select
Sheets("1").Select
End Sub