ベストアンサー Excel VBAで値貼り付けのプログラムを教えて 2022/04/06 17:41 Excel VBAで値貼り付けのプログラムを教えてください。 みんなの回答 （1） 専門家の回答 質問者が選んだベストアンサー ベストアンサー imogasi ベストアンサー率27% (4737/17070) 2022/04/06 20:27 回答No.1 「形式を選択して貼り付け」の種類は、操作画面でわかるように、相当多くのバリエーションがあります。 どういうパラメーターやコードになるかは、マクロの記録を取って、調べるのがよいと思います。Transpose＝True など。 ＞値貼り付け 質問者が、どれ（どの操作に当たるか）を言っているか、よく判らないせいもあります。 マクロの記録を終了して、 開発ーマクロの記録ーマクローMacro1など選択ー編集、で自動で作成されたコードが出てきます。 Selection.Copy Selection.PasteSpecial のあとの続きに色々出てきます。 マクロの記録のお役立てのケースは、色々バリエーションのある場合のパラメーターなどを、覚えてられないとき、コード的にどうなるか、調べることに使えることが、使い道の１つです。 質問者 お礼 2022/04/07 08:03 ありがとうございます^_^ 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ パソコン・スマートフォンソフトウェアExcel（エクセル） 関連するQ&A エクセル VBA パワーポイントに値を貼り付けしたい エクセルのVBAで、エクセルのあるセルの値を、 パワーポイントにテキストとして貼り付けしたいのですが どのように記述すればよいでしょうか。 よろしくお願い致します。 Excel VBA: ピボットテーブルの値貼り付け タイトルのとおりなのですが、ピボットテーブルを含むシートを新しいシートとして値貼り付けするようなVBAはどう書けばよいのでしょうか・・・？ ご教授下さい。 エクセルVBAで値の貼り付けができない 色々調べたのですが、出来ない理由が見つけられません。よろしくお願い致します。 計算式の入っているセルをマクロで貼り付けしようと思っているのですが、 貼り付ける際、値の貼り付けにしたいのです。 下記の通りすると計算式のまま貼り付けされてしまいます。 どなたか教えて下さい。お願い致します。 Selection.Copy wsKei.Select wsKei.Range("A" & intLinekeistr & ":A" & intLinekei - 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False エクセルは、２００７ PCはvistaです。 携帯料金を賢く見直す！格安SIMと端末選びのポイントは？ OKWAVE コラム エクセルの「値の貼り付け」ボタンについて こんにちは いつもお世話になっています。 エクセルのテキスト形式での貼り付けについて教えてください。 ツールバーに「値の貼り付け」のボタンを作ってあります。エクセルで文字列が入ったセルをコピーして、別のセル上で「値の貼り付け」ボタンを押すと正常に効きます。 しかし、たとえばIEで文字列をコピーしてエクセル上で「値の貼り付け」ボタンを押しても何も反応がありません。編集-「形式を選択して貼り付け」でテキスト形式を選ぶと正常にテキスト形式で貼り付けされます。 HTMLデータではボタンが効かないということなのでしょうか。それとも、固有のトラブルでしょうか。原因、対策を教えてください。 値の貼り付けをするVBA セルA1をコピーして、セルA2に値の貼り付けをするVBAを作っています。 下記のように記述しているのですが、 セルA2に値の貼り付けをするときに小数点第3ケタ目以下はデータを捨てることは出来ますでしょうか? セルの設定で小数点2桁目まで表示するのではなくて、セルに入力するデータを小数点2桁の数字にしたいです。 range("A1").Copy Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False VBA 値のみ貼り付け ＶＢＡで質問です。 選択したセルへ他のセルをコピーして値のみを貼り付けしたいのですが、うまくできません。 貼り付け先のセルはその都度異なります。貼り付ける値は特定されたセルでその都度変わることはありません。 ＜例＞ A1の商品名は固定。ボタンを設けマクロを登録します。 A B C D 1 商品あああ 2 3 4 ボタンを押すと選択したセルにA1の商品名が貼り付けされるようにしたい。 貼り付け先がＡ３と特定されている場合は以下の式でできますが、 選択するセルがその都度異なる場合はどうしたら良いのでしょうか？ Range("A1").Copy Range("A3").PasteSpecial Paste:=xlValues いい方法があれば教えてください。 値の貼り付け エクセル2010で[値の貼り付け]をキーボードだけを使って素早く行いたいのですが、 良い方法はありますでしょうか? Excelの値貼り付けのショートカットキー Excelのデータを他のExcelファイルに貼り付ける際に、値貼り付けをよく使うのですが、簡単なショートカットキーがあれば教えていただきたいのですが。 VBAのテキスト貼り付けするプログラム VBAについて質問です。 テキスト貼り付けするプログラムをショートカットとして登録したいです。 今までは、以下のコードを割り当てていましたが、問題が発生しました。 Selection.PasteAndFormat (wdFormatPlainText) まず、Boldの文字を上記のコードで貼り付けると、Boldを保ったまま貼り付けられます。Boldもクリアして貼り付けたいです。また、クリップボードになにも値が入っていない場合に、上記のコードを流すとエラーが発生します。 これらの問題を解決したコードを教えていただけませんでしょうか？ よろしくお願いします。 【エクセル】特定のシートで、値貼り付けしか出来なくしたい。 【エクセル】特定のシートで、値貼り付けしか出来なくしたい。 いつもお世話になります。 エクセルの帳票上で、セルの情報をコピーした後に、別のセルに 「右クリック→貼り付け」した時や、Ctrl＋Vキーで貼り付けした 時に、強制的に値貼り付けのみにすることは可能でしょうか？ Excel の 「形式を選択して貼り付け」、デフォルトで 「値」 に設定可能？ Excel 2000 を使ってます。 ボーダーや背景色のあるセルをコピーする時、 値だけを取り出すために 「形式を選択して貼り付け」 から 「値」 を選択してるのですが、「すべて」 の代わりに 「値」 をデフォルトに設定することは可能でしょうか？ また、オプションの設定などで コピーした時に「値」 だけを 取り出すことは可能ですか？ あるいは VBA を使った場合はどうでしょう？？ エクセル2007 値の貼り付けができない ショートカットキーで値のみ貼り付けを設定しています。 WEBのリンク付きテキストをコピーしてセルに貼付けようとしたら、 ショートカットのアイコンがグレー表示で使えません。 altを押し、ショートカットコマンドの割り当てを調べて実行したのですが、値のみ貼り付けができません。 セルを右クリックして、形式を選択して貼り付けからテキストを 選択すると貼り付けできるのですが。。。 WEBのテキストにリンクがついているので、テキストだけ貼り付けたいのですが、ショートカットの値のみ貼り付けは使えないのでしょうか？ ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策 OKWAVE コラム Excel VBA - 数式のコピーと値貼り付け A～Cを使った表があり、AとBには値が入力されています。 C2に"=A2+B2"と入力し、その式を、A列の最終行と同じ行までコピーし、C2からCの最終行までの範囲をコピーして同じ範囲に値貼り付けするにはどういうVBAを書けばいいでしょうか。 宜しくお願い致します。 エクセルVBAの値貼り付けについて いつもお世話になっております。 エクセルVBAについての質問ですが 以下のコードを使用するとどうしても元の書式の貼り付けになってします。 値（テキスト）貼り付けを実行したいのですがどこのコードをどのように変えればいいか教えてください。 ------------------------------------------------------------------------------------------- Sub IE_Open_Copy() Dim objIE As Object Const OLECMDID_SELECTALL = 17 Const OLECMDID_COPY = 12 Const OLECMDEXECOPT_DODEFAULT = 0 Const URL As String = "https://okwave.jp/question/" Set objIE = CreateObject("InternetExplorer.Application") With objIE .Visible = True .Navigate URL Do While .Busy DoEvents Loop Do Until .ReadyState = 4 DoEvents Loop .ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT .ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT Application.Wait Now() + TimeValue("00:00:05") .Quit End With AppActivate Application.Caption, True Range("A1").Select Application.Wait Now() + TimeValue("00:00:05") Application.SendKeys "^v" Set objIE = Nothing End Sub --------------------------------------------------------------------------------------------- エクセルで貼付けの際、常に「値の貼付け」を使いたい 皆様 宜しくお願い致します。 エクセルにてコピペを行う際「値の貼付け」をする事が多く、現在は形式を指定して選択から「値の貼付け」を選んでいます。 これを出来れば、ショートカットを使い、ワンアクションで行う事は出来ないのでしょうか？ ctrl＋vのショートカットを使えれば尚、良いですね。 どなたかご教示頂ければ幸いです。 宜しくお願い致します。 Excelに埋め込んだVBAのプログラムが消えた。 Excelに埋め込んだVBAのプログラムが消えてしまいました。 何か復旧する方法はありませんでしょうか? 心当たりは何もないのですが、原因はありますでしょうか? Excelの値貼り付けについて Excelの値貼り付けについて A列 B列 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 A列・B列の1～1000行にランダムに数字が入力されており、A列の値を残したままB列の数字をA列に追加したいです。 同じ行でA・Bどちらにも数値が入力されていることはありません、かならずどちらか一方です。 関数を使わないと出来ないでしょうか？ 検索してみましたが、見つからないためどうか宜しくお願い致します。 Excel. Vba Vbaでセルの値だけコピーしたいのですが可能でしょうか？ 数式を埋め込んだセルに、数値が入力されたセルを形式を値だけ貼り付けにして貼り付けても数式が消えてしまって値だけ入ってます。 数式は消さず、値だけコピーというのはvbaで実現可能でしょうか？ EXCEL VBA 行の値を累計したいのですが・・ VBA初心者です。 VBAでEXCELの行の値を累計したいのですが、プログラムの仕方がわかりません。 どなたかわかる方教えてください。 A B C D E ・・・・ 1 1000 3000 2000 4000 3000 2 2000 5000 1000 3000 2000 3 4000 2000 3000 1000 5000 : 実行結果 A B C D E ・・・・ 1 1000 4000 6000 10000 13000 2 2000 7000 8000 11000 13000 ←行の値の累計 3 4000 6000 9000 10000 15000 : 行と列はたくさんあって、最後のセルまで累計する方法を教えていただけるとありがたいです。 どうぞよろしくお願いします。m(_ _)m VBA初心者です。値を貼り付け について質問です。 ＶＢＡ初心者です。 値を貼り付け について教えてください。 Sub test() With Workbooks("A.xls").Worksheets("sheet1") .Range("A1").Copy Workbooks("Bxls").Worksheets("sheet1").Range("B2") .Range("A2").Copy Workbooks("B.xls").Worksheets("sheet1").Range("B4") End With End Sub コピーする方に計算式が入っているので 値を貼り付け したいのですが、どうすればいいのでしょうか？ PasteSpecial Paste:=xlPasteValues を使ったらよいというところまではわかったのですが・・・。 教えてください！よろしくお願いします！ 注目のQ&A 「You」や「I」が入った曲といえば？ Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市（長野県）在住でスキーやスノボをする方の用具 カテゴリ パソコン・スマートフォン ソフトウェア Excel（エクセル）Word（ワード）PowerPoint（パワーポイント）Access（アクセス）その他MS Office製品オフィス系ソフトPhotoshop（フォトショップ）Illustrator（イラストレーター）その他Adobe製品画像・動画・音楽編集ホームページ作成ソフト筆まめ・はがき作成フリーウェア・フリーソフトその他(ソフトウェア) カテゴリ一覧を見る OKWAVE コラム 突然のトラブル？プリンター・メール・LINE編 携帯料金を賢く見直す！格安SIMと端末選びのポイントは？ 友達って必要？友情って何だろう 大震災時の現実とは？私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ！負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる！ OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
ありがとうございます^_^