Excel VBA質問スレ Part10

14 名前：デフォルトの名無しさん mailto:sage [2009/02/25(水) 06:02:29 ] ある列に下と同じ文字があればそのセルの下にあるラインの消去を行う。 また、ある列に上の値と同じ文字があれば行の高さを８０とする ある列に下と同じ文字があればそのセルの下にあるラインの消去を行う。 また、ある列に上の値と同じ文字があれば行の高さを８０とする プログラムを作ったが動きません。 どこが間違っているのか、だれか教えてください。 For N = 1 To LastRaw 'LastRaw は最終行 If WorkSheets("OutPut").cells(N,12).value = WorkSheets("OutPut").Cells(N+1,12).value Then WorkSheets("OutPut").Cells(N,12).xlEdgeBottom = False ElseIf WorkSheets("OutPut").cells(N,12).Value <> WorkSheets("OutPut").cells(N+1,12).value And WorkSheets("OutPut").Cells(N,12).value <> WorkSheets("OutPut").Sells(N-1,12).value Then Rows("N:N").Select Selection.RowHeight = 80 End If Next エクセル　2003　ＸＰ　です。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef