🎄teratailクリスマスプレゼントキャンペーン2024🎄』開催中!

\teratail特別グッズやAmazonギフトカード最大2,000円分が当たる!/

詳細はこちら
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

1回答

1132閲覧

エクセル VBAでsheet1の値をsheet2に代入したい。

退会済みユーザー

退会済みユーザー

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2020/12/08 01:31

編集2020/12/08 01:34

前提・実現したいこと

エクセル VBAで画像のsheet1のC000...=...という値が入っている行の=より右の値6個をsheet2のX、Y、Z、W、P、Rの順(sheet1でいう一番左の値をXに代入)に単位は残して、数字の部分だけ入れ替えたいです。どのようなプログラムを作ったらよいでしょうか?

*sheet1のC000...=...が入っている行の数とsheet2 の "イチ[n]{" から はじまって "};" で終わるブロックの数は常に対応しています。

*sheet2 の "イチ[n]{" からはじまって "};" で終わるブロックの行は常に9行です。

*右の値6個というのは、画像で言うとC00036なら2017.664、249.464、-151.063、144.42、84.6、-135.65の6個の値です。

*A5をA7のX、B5をB7のY、C5をC7のZ、D5をD7のW、E5をE7のP、F5をF7のR、A7をA16のX、B7をB16のY、C7をC16のZというようにsheet2の上の行のブロックから順に代入するという意味です。

*sheet2(転記先)のX、Y、Z、W、P、Rに入っている数値は、画像の通り、小数点が必ず入っています。
また、場合によっては数値の前にマイナスがついているものもあります。

*sheet2(転記先)のX、Y、Z、W、P、Rに入っている数値、単位の前にスペースが空いています。
数値の前は、すべてスペース2つ空いてます。
単位の前は、mmは2つdegは1つスペースが空いています。

*画像では、ともに3個ずつ出てきていますが、本番では、sheet1のC000...=...が入っている行の数とsheet2 の "イチ[n]{" からはじまって "};" で終わるブロックの数が100個くらいあると想定して教えてほしいです。

宜しくお願いします。

イメージ説明

試したこと

すみません、まだ何も試していません。
VBA初心者で困っています。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

coco_bauer

2020/12/08 01:44

「A5をA7のX」というのは、どういう意味ですか? A5、A7はそれぞれセルを指すものと思われますが、それとXとはどう関係するのでしょうか? 「sheet2のX、Y、Z、W、P、Rの順」と書かれていますが、質問の画像ではsheet2のAからF列までしか表示されていません。 何がしたいのかを具体的な例を交えて、詳しく説明することをお勧めします。現状の質問は、理解不能ですので。
meg_

2020/12/08 02:14

> VBA初心者で困っています。 何を学習されてどこまでコーディング出来るのでしょうか? 現状では丸投げですよね?
退会済みユーザー

退会済みユーザー

2020/12/08 02:23 編集

すみません、説明が分かりずらかったです。 >「A5をA7のX」というのは、どういう意味ですか? A5というのはsheet1のA5のことでA7はsheet2のA7という意味です。Xは画像で言うとsheet2のA7にあるX=47.817mmのことです。同様にB5というのはsheet1のB5のことでB7はsheet2のB7という意味です。Yは画像で言うとsheet2のB7にあるY=754.697mmのことです。 具体例としますと、画像のC00036の=より右の値2017.664をsheet2のX=47.817mmに単位は残して数値だけを代入したいです。つまり、X=2017.664mmにしたいです。 同様に249.464をY=754.697mmへ、-151.063をZ=243.783mmへ、144.42をW=-95.08degへ、84.6をP=89.64degへ、-135.65をR=-98.18degへということです。これをC000...=...が入っている行の数とsheet2 の "イチ[n]{" から はじまって "};" で終わるブロックの数だけ繰り返したいです。 X=、Y=、Z=、W=、P=、R=このように書けばよかったですね
退会済みユーザー

退会済みユーザー

2020/12/08 02:31 編集

丸投げですよね。申し訳ありません。 とりあえず、sheet1の検索した値を選択して、sheet2の検索した値に代入というものをやってみたのですが、なかなかうまくできませんでした。
guest

回答1

0

Excelのシートの設計をやりなおすべきだと思います。

「A5をA7のX」というのは、sheet2のA7セルが "X = "で始まる文字列であることを事前に承知していなければ意味が判りません。

今の設計はsheet2のすべてのセルの内容を頭の中で記憶・整理できている事を前提にしているのだと思います。
そのように人間の記憶と情報整理能力に依存していたのでは、担当者が変わった際などに容易に破綻しますよ。

投稿2020/12/08 03:04

coco_bauer

総合スコア6915

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問