Office中国论坛/Access中国论坛

标题: 再次请求斑竹大人指点迷津！万分感谢 [打印本页]

作者: nymha 时间: 2005-2-28 22:15
标题: 再次请求斑竹大人指点迷津！万分感谢
[attach]9111[/attach]

作者: 方漠 时间: 2005-2-28 23:25
将以下代码COPY到你的文件中，运行即可。至于颜色，更改ColorIndex号码到你想要的颜色。Sub StockReconcillation()

Dim i, xz, Line As Integer

Dim PN As String

Line = 0

Range("A1").Select

PN = Left(Selection, 9)

ActiveCell.SpecialCells(xlLastCell).Select

xz = ActiveCell.Row

For i = 2 To xz + 1

Range("A" & i).Select

If PN = Left(Selection, 9) Then

Line = Line + 1

'MsgBox " Line is " & Line

Else

'MsgBox "Change PN " & i

PN = Left(Selection, 9)

If Line <> 0 Then

   Range("A" & i - 1 - Line & ":I" & i - 1).Select

   With Selection.Interior

      .ColorIndex = 43

      .Pattern = xlSolid

   End With

   Line = 0

End If

End If

Next





End Sub

作者: 情比金坚 时间: 2005-3-1 00:40
在F2列写=LEFT(A2,10)往下拖然后用条件格式：公式=COUNTIF($F$2

F$27,F2)>1

作者: 方漠 时间: 2005-3-1 01:46
呵呵！厉害厉害，果然够简单，又学到了一招.....害得我头晕乎乎的写了半天。

作者: nymha 时间: 2005-3-1 03:25
感谢版主的高招,您真是厉害!!!在下佩服得紧,谢谢啊!!!!也感谢方漠兄弟的热心肠,您也是个厉害角色!!拜谢!!!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)