ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¿ë§Oµ{¦¡

¿ë§Oµ{¦¡

¦U¦ì«e½ú§A­Ì¦n!
                 «e½ú!!°ÝÃD¦pªþÀÉ»¡©ú
                 Sub §ä³Ì«á¤@µ§()
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn + [A9]
    [B8] = [A8]: [B6] = 495: [A12:B12] = 0
    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
    [B65536].End(xlUp)(2, 1) = ActiveCell
    [B7] = 0: Calculate
End Sub
                ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

LeoV59.rar (18.61 KB)

¦^´_ 1# myleoyes

¤£¬O«Ü©ú¥Õ§A­nªº§¹¾ã¥\¯à,¸Õ¸Õ¬Ý
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.   If Target.Address(0, 0) = "A9" And [B28] = "" Then
  3.      §ä³Ì«á¤@µ§
  4.   End If
  5. End Sub
½Æ»s¥N½X
  1. Sub §ä³Ì«á¤@µ§()
  2.     ActiveWindow.ScrollColumn = 1
  3.     ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn + [A9]
  4.     [B8] = [A8]: [B6] = 495: [A12:B12] = 0
  5.     Set a = [A8]
  6.     Set c = [C1:IV1].Find(a, , , 1)
  7.     If Not c Is Nothing Then c.Select
  8.     ActiveCell.Offset(0, 4).Font.ColorIndex = 10
  9.     ActiveCell.Offset(0, 4).Font.Size = 9
  10.     ActiveCell.Offset(0, 5).Font.ColorIndex = 30
  11.     ActiveCell.Offset(0, 5).Font.Size = 9
  12.     ActiveCell.Offset(0, 6).Font.ColorIndex = 46
  13.     ActiveCell.Offset(0, 6).Font.Size = 9
  14.     ActiveCell.Offset(0, 8).Font.ColorIndex = 5
  15.     ActiveCell.Offset(0, 8).Font.Size = 9
  16.     c.Offset(0, 8).Select
  17.     [B28] = ActiveCell
  18.     [B7] = 0: Calculate
  19. End Sub
½Æ»s¥N½X

TOP

¦^´_ 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!!

LeoV59-1.rar (19.59 KB)

TOP

¦^´_ 3# myleoyes

Sub yy()  ¥i²¤Æ¦p¤U
  1. Sub yy()
  2. For C = 6 To 26 Step 2
  3.   If Cells(9, C) <> "" Then Cells(10, C) = Cells(7, C) / Cells(3, C)
  4. Next C
  5. End Sub
½Æ»s¥N½X
Sub ®æ¦¡¤Æ()  §Ú´N¤£À´¤F

TOP

¦^´_ 4# register313
«e½ú!!¨¯­WÅo!ÁÂÁÂ!!
        ®æ¦¡¤Æµ{¦¡¬O¥Î¿ý»sªº¤è¦¡
        ©Ò¥H¤@¤j¦ê¤p§Ì·QÀ³¦³ºë²ªº¼gªk¤~¹ï
       ÁÂÁ¦A¤T!!

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD