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

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

詳細はこちら
VBA

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

Q&A

解決済

1回答

394閲覧

赤い色のついたセルに他の列にある数字を持ってくる作業。

turnstar

総合スコア3

VBA

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

0グッド

0クリップ

投稿2021/02/16 13:51

Bの列のセルが赤く塗られてたら、そこにF列の2行目から送料が入っているので(700円、1200円、600円・・・と1行ずつ送料が違う)最初の赤いセルには2行目の送料、2個目の赤いセルには3行目の送料、3個目の赤いセルには4行目の送料と入れていきたいです。F列の送料が0になったら作業を終わりたいです。

下記考えてみましたが、エラーでした。

Sub 送料()

Dim i As Long, b As Long

For i = 2 To 100 Step 1
For b = 2 To 10 step 1

If Sheets("Sheet1").Cells(i, 2).Interior.Color = 255 Then

Sheets("Sheet1").Cells(i, 2) = Sheets("Sheet1").Cells(b, 6) b = b + 1 If Cells(b, 6) = "0" Then Exit Sub End If

End If
a = a + 1
Next
Next

End Sub

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

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

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

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

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

guest

回答1

0

ベストアンサー

こんな感じでしょうか。

VBA

1Sub 送料() 2 Dim i As Long, b As Long 3 b = 2 4 For i = 2 To 100 Step 1 5 If Sheets("Sheet1").Cells(i, 2).Interior.Color = 255 Then 6 Sheets("Sheet1").Cells(i, 2).Value = Sheets("Sheet1").Cells(b, 6).Value 7 b = b + 1 8 If Sheets("Sheet1").Cells(b, 6).Value = 0 Then 9 Exit Sub 10 End If 11 End If 12 Next 13End Sub 14

投稿2021/02/16 14:00

jinoji

総合スコア4592

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

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

turnstar

2021/02/16 14:03

秒でできました。 すんげー!
turnstar

2021/02/16 14:04

ありがとうございました。ありがとうオリゴ糖。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.36%

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

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

質問する

関連した質問