Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10610 / 76807

←次へ　｜　前へ→


	【71743】Re:引き算し、一方を削除して、赤く染める

隼 - 12/4/5(木) 10:17 -


	引用なし

	パスワード

▼ドカさん：
回答に感謝いたします。

>▼隼さん
>
>単純なミスだけ、直してみました。
>
>Sub 引き算()
>　
>　　Dim lastgyou As Integer
>　　Dim i　　　　As Integer
>　　Dim j　　　　As Integer
>　　Dim atai　　 As Integer
>　
>　　Sheets("Sheet1").Select
>　　ActiveSheet.Range("A1").End(xlDown).Select
>　　lastgyou = ActiveCell.Row
>　　For i = 1 To lastgyou - 1
>　　atai = ActiveSheet.Cells(i, 1).Value
>　　　For j = i + 1 To lastgyou
>　　　　If atai = ActiveSheet.Cells(j, 1).Value Then
>　　　　　 Range("C" & i) = Range("B" & i) - Range("B" & j)
>　　　　　　　If Range("C" & i) < 0 Then
>　　　　　　　　 Range("A" & i).Interior.ColorIndex = 3
>　　　　　　　　 Range("A" & j, "B" & j).Delete
>　　　　　　　End If
>　　　　 End If
>　　　 Next
>　　 Next
>End Sub

4 hits

▼

【71729】引き算し、一方を削除して、赤く染める 隼 12/4/3(火) 13:54