Excel VBA質問箱 IV

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

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


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

10244 / 76807

←次へ　｜　前へ→


	【72114】Re:ステートメントを教えてください

ドカ - 12/5/30(水) 17:29 -


	引用なし

	パスワード

▼本山中さん　こんにちは

他人のコードを読むのは大変なので、本山中さんのコードをいじってみました。

本山中さんのコードを少し直すと、赤色にすること以外は、ほとんど出来ているのですね。
ただ、ここから先が、ちょっと難しいですね。

Sub 削除する()
　 Dim lastgyou As Integer
　 Dim i As Integer
　 Dim j As Integer
　 Dim atai As Integer
　 Dim zr As Integer
　 lastgyou = Cells(Rows.Count, 1).End(xlUp).Row
　 For i = 2 To lastgyou - 1
　　 'atai = Cells(i, 2).Value
　　　 For j = i + 1 To lastgyou
　　　 Debug.Print j, i
　　　　 If Cells(i, 2).Value = Cells(j, 2).Value Then
　　　　
　　　　　 If Cells(i, 8).Value > Cells(j, 8).Value Then
　　　　　　 Rows(i).Delete
　　　　　　 'Rows(j).Cut
　　　　　　 'Rows(i + 1).Insert Shift:=xlDown
　　　　　 End If
　　　　　
　　　　　 zr = Cells(i + 1, 8).Value - Cells(i, 8).Value
　　　　　　　　If zr > 0 Then
　　　　　　　　　Rows(i + 1).Font.ColorIndex = 3
　　　　　　　　End If
　　　　　 i = i + 1
　　　　　End If
　　　
　　　 Next j
　 Next i
End Sub

2 hits

▼

【72108】ステートメントを教えてください 本山中 12/5/30(水) 10:29