質問をすることでしか得られない、回答やアドバイスがある。

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

新規登録して質問してみよう
ただいま回答率
85.35%
VBA

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

Q&A

解決済

1回答

838閲覧

vbaを用いた入出力

退会済みユーザー

退会済みユーザー

総合スコア0

VBA

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

0グッド

0クリップ

投稿2020/05/19 04:47

編集2020/05/20 00:41

Sheet2のa、bのデータを上から順にSheet1に代入し、結果x、y、zを別のSheet3に出力したいです。
計算はできたのですがSheet3に出力が上手くいきません。

Sub Kamera() Sheets("Sheet2").Select Dim u As Integer Dim v As Integer Dim i As Integer For i = 2 To 342 Sheets("Sheet2").Select u = Range("A" & i).Value Debug.Print (u) v = Range("B" & i).Value Debug.Print (v) Sheets("Sheet1").Range("C23") = u Sheets("Sheet1").Range("C24") = v Sheets("Sheet1").Range("B40:B42").Copy Sheets("Sheet3").Range("Ai:Ci") Next i End Sub

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

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

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

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

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

YT0014

2020/05/19 04:51

「vbaを用いて、一回一回のデータはできる」のならば、そのコードを記載されるほうが良いでしょう。
meg_

2020/05/19 05:01

コードを掲載してください。 連続処理についてはFor文を使えば良いかと思いますが。
meg_

2020/05/19 08:25

質問は編集できますので、コードは質問に追記してください。(「コードの挿入」で記入してください) エラーについても具体的にどんなエラーがどこで出たのかを質問に追記してください。
meg_

2020/05/19 08:46

式とはどんな式でしょうか?
meg_

2020/05/19 13:05

「Sheet1のa、bのデータを上から順にSheet2のC23,24に代入」と言っていますが、Sheets("Sheet2").Select u = Range("A2").Value v = Range("B2").Value Sheets("Sheet1").Range("C23") = u Sheets("Sheet1").Range("C24") = v コード中ではシート2のA2、B2をコピーして、シート1のC23、C24に入力しています。 文とコードで逆になっていますが大丈夫ですか?
退会済みユーザー

退会済みユーザー

2020/05/19 13:10 編集

すみません、文が間違っていました。
meg_

2020/05/19 13:11

質問を編集されましたが、計算式のエラーの件は解決されたのでしょうか? 再度言いますが、インデントがないとコードが読めないので、コードは「コードの挿入」で記入してください。
YT0014

2020/05/19 16:16

最後のCopyがうまくいかないのは、対象範囲の形が違うからだと思います。 1行3列から3行1列を指定していますので。 ただ、同じセルに出力するので、最後の結果以外は、見えないと思うのですが、それで良いのですか?
退会済みユーザー

退会済みユーザー

2020/05/19 22:02

全ての結果を出したいんですけど、うまくいかないんです。どうすればいいですかね
YT0014

2020/05/20 02:00

解決お疲れ様でした。 まず、今の、最後しか表示されない、というのがどういう事か、考えてみてください。 コードで言うなら i の値の変化と、結果欄の変化でしょうか。 それがわかれば、「どういう結果欄にするべきか」、がわかり、どうすれば良いか、もわかると思います。 まずは、しばらく、考えてみてください。
guest

回答1

0

ベストアンサー

Sub Kamera() Sheets("Sheet2").Select Dim u As Integer Dim v As Integer Dim i As Integer Dim x As Single Dim y As Single Dim z As Single For i = 2 To 342 Sheets("Sheet2").Select u = Range("A" & i).Value Debug.Print (u) v = Range("B" & i).Value Debug.Print (v) Sheets("Sheet1").Range("C23") = u Sheets("Sheet1").Range("C24") = v Sheets("Sheet1").Select x = Range("B40").Value Debug.Print (x) y = Range("B41").Value Debug.Print (y) z = Range("B42").Value Debug.Print (z) Sheets("Sheet3").Cells(i, 1) = x Sheets("Sheet3").Cells(i, 2) = y Sheets("Sheet3").Cells(i, 3) = z Next i End Sub

投稿2020/05/20 00:42

退会済みユーザー

退会済みユーザー

総合スコア0

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

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.35%

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

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

質問する

関連した質問