- ©«¤l
- 463
- ¥DÃD
- 116
- ºëµØ
- 0
- ¿n¤À
- 580
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2017-11-13
|
¦^´_ 2# register313
«e½ú!!«D±`ÁÂÁ§A..!³o¬OÀɮצ۰ʤƪºµ{§Ç¤§¤@,¥Î¤â°Ê¤è¦¡¨Óªí¥Ü
«e½ú!·íµM¤ñ¸ûÃø¥H²z¸Ñ,µ{¦¡¤w§ä¨ì¨S¿ìªk¹ï©óExecl
ªº»{ª¾¦³,¥u¯à¥Î¦p¦¹²Â©åªº¤è¦¡ªí²{½Ð¤Å¨£¯º
ªþÀɽЧA¬Ý¬Ý
Sub §ä³Ì«á¤@µ§()
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn + [A9]
[B6] = "=IF(A8=0,0,A8*15-15)": [B6] = [B6]: [B8] = [A8]: [A12:B12] = 0 '¦¹¦æ¬°©w¦ìÀx¦s®æ
Set a = [A8]
Set c = [C1:IV1].Find(a, , , 1)
If Not c Is Nothing Then c.Select
ActiveCell.Offset(0, 4).Font.ColorIndex = 10
ActiveCell.Offset(0, 4).Font.Size = 9
ActiveCell.Offset(0, 5).Font.ColorIndex = 30
ActiveCell.Offset(0, 5).Font.Size = 9
ActiveCell.Offset(0, 6).Font.ColorIndex = 46
ActiveCell.Offset(0, 6).Font.Size = 9
ActiveCell.Offset(0, 8).Font.ColorIndex = 5
ActiveCell.Offset(0, 8).Font.Size = 9
c.Offset(0, 8).Select
[A10] = ActiveCell
Set c = [B21:B520].Find([A10], , , 1)
If Not c Is Nothing Then c.Select
If Not c Is Nothing Then [B10] = ActiveCell
If [B10] <> "" Then [A10:B10] = "": Calculate: Exit Sub
If [B10] = "" Then [B520].End(xlUp)(2, 1) = ActiveCell
[A10:B10] = "": Calculate '¦¹¦æ¬°¸É§UÀx¦s®æ
[B7] = 0: Calculate
End Sub
¥i§_À°¤p§Ì²¤Æ³o¨âÓµ{¦¡¶Ü?
Sub yy()
If [F9] <> "" Then [F10] = "=F7/F3"
If [H9] <> "" Then [H10] = "=H7/H3"
If [J9] <> "" Then [J10] = "=J7/J3"
If [L9] <> "" Then [L10] = "=L7/L3"
If [N9] <> "" Then [N10] = "=N7/N3"
If [P9] <> "" Then [P10] = "=P7/P3"
If [R9] <> "" Then [R10] = "=R7/R3"
If [T9] <> "" Then [T10] = "=T7/T3"
If [V9] <> "" Then [V10] = "=V7/V3"
If [X9] <> "" Then [X10] = "=X7/X3"
If [Z9] <> "" Then [Z10] = "=Z7/Z3"
End Sub
Sub ®æ¦¡¤Æ()
[M3:M152].Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=I$1=""p®§"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16744448
.TintAndShade = 0
End With
[I3:I152].Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=I$1=""p®§"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -65281
.TintAndShade = 0
End With
[H3:H152].Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=I$1=""p®§"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -65536
.TintAndShade = 0
End With
Application.CutCopyMode = False
End Sub
¤£¦n·N«ä¨¯WÅo!ÁÂÁ¦A¤T!! |
|