感谢大家支持小乔，(*^__^*) 嘻嘻……

mark_mark

339

鹤影

呵呵，mark，要不咱俩受累，今天把这贴填了？

mark_mark

也是无聊瓦

mark_mark

好瓦，填

mark_mark

原帖由 鹤影 于 2007-10-19 15:49 发表
呵呵，mark，要不咱俩受累，今天把这贴填了？

好人啊，不忍心破坏我自己占了一页

鹤影

Dim columna As Integer
Dim i As Integer
Dim n As Integer


   
    Sheets("Sheet1").Select
    columna = 3
    For i = 3 To 100
        If Cells(4, i) = Empty Then Exit For
        columna = i
    Next
   
    Range(Cells(4, 3), Cells(19, columna)).Select
    Selection.Copy
    Range("C23").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("C42").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
   
    Range(Cells(4, 3), Cells(4, columna)).Select
    Selection.Copy
    Range("C23").Select
        ActiveSheet.Paste
    Range("C42").Select
        ActiveSheet.Paste

    Sheets("Sheet2").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets("Sheet1").Select
    Range(Cells(5, 3), Cells(19, columna)).Select
        Selection.Copy

    Sheets("Sheet2").Select
    Range("a1").Select
        ActiveSheet.Paste

    For n = 1 To 100
    Sheets("Sheet2").Select
    If Cells(1, 1) = Empty Then Exit For
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range(Cells(1, columna + 1), Cells(1, columna + 1)), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

    Sheets("Sheet2").Select
    Range(Cells(1, columna + 1), Cells(15, columna + 1)).Select
        Selection.Copy
    Sheets("Sheet1").Select
    Cells(24, 2 + n).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets("Sheet2").Select
    Range(Cells(1, columna + 2), Cells(15, columna + 2)).Select
        Selection.Copy
    Sheets("Sheet1").Select
    Cells(43, 2 + n).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets("Sheet2").Select
    Range(Cells(1, columna + 1), Cells(15, columna + 2)).Select
        Selection.ClearContents
   
    Columns("a:a").Select
    Selection.Delete Shift:=xlToLeft
   

    Next

    Sheets("Sheet1").Select
    Cells(24, columna + 1).Select
    ActiveCell.FormulaR1C1 = "=ROUND(AVERAGE(RC3:RC[-1]),2)"
    Cells(24, columna + 1).Select
    Selection.AutoFill Destination:=Range(Cells(24, columna + 1), Cells(38, columna + 1)), Type:=xlFillDefault
    Cells(24, columna + 1).Select
    ActiveWindow.SmallScroll Down:=15
   
    Cells(43, columna + 1).Select
    ActiveCell.FormulaR1C1 = "=ROUND(AVERAGE(RC3:RC[-1]),2)"
    Cells(43, columna + 1).Select
    Selection.AutoFill Destination:=Range(Cells(43, columna + 1), Cells(57, columna + 1)), Type:=xlFillDefault
    Cells(43, columna + 1).Select
    ActiveWindow.SmallScroll Down:=15

   
    Cells(27, columna + 2).Select
    ActiveCell.FormulaR1C1 = "=ROUND(AVERAGE(RC3:RC[-2])/351.75*100,2)"
    Cells(30, columna + 2).Select
    ActiveCell.FormulaR1C1 = "=ROUND(AVERAGE(RC3:RC[-2])/335.33*100,2)"
    Cells(36, columna + 2).Select
    ActiveCell.FormulaR1C1 = "=ROUND(AVERAGE(RC3:RC[-2])/337.25*100,2)"
   
    Cells(46, columna + 2).Select
    ActiveCell.FormulaR1C1 = "=ROUND(AVERAGE(RC3:RC[-2])/351.75*100,2)"
    Cells(49, columna + 2).Select
    ActiveCell.FormulaR1C1 = "=ROUND(AVERAGE(RC3:RC[-2])/335.33*100,2)"
    Cells(55, columna + 2).Select
    ActiveCell.FormulaR1C1 = "=ROUND(AVERAGE(RC3:RC[-2])/337.25*100,2)"
   


End Sub

mark_mark

咦，人呢

mark_mark

我说，编程我都还老师了

鹤影

呵呵，就当俺的备忘录了，想起来也好找

mark_mark

Dim columna As Integer
Dim i As Integer
Dim n As Integer

定义变量？

mark_mark

router>#hostname  corerouter

鹤影

原帖由 mark_mark 于 2007-10-19 15:53 发表
我说，编程我都还老师了

学着做的，就怕忘了

mark_mark

N=/etc/init.d/$NAME
        # echo "Usage: $N {start|stop|restart|reload|force-reload}" >&2
        echo "Usage: $N {start|stop|restart|force-reload}" >&2
        exit 1
        ;;

mark_mark

#INTER_NET="eth3"
iptables -P INPUT DROP
#iptables -A INPUT -i ppp0 -m state --state ESTABLISHED -j ACCEPT
iptables -A INPUT -s 192.168.0.0/255.255.0.0 -i eth2 -j DROP
iptables -A INPUT -i eth3 -m state --state ESTABLISHED -j ACCEPT
#iptables -A INPUT -i ! ppp0 -j ACCEPT
iptables -A INPUT -i ! eth3 -j ACCEPT
iptables -P FORWARD DROP
iptables -N allowip
#iptables -A allowip -i ppp0 -m state --state ESTABLISHED,RELATED -j ACCEPT
iptables -A allowip -i eth3 -m state --state ESTABLISHED,RELATED -j ACCEPT
iptables -A FORWARD -j allowip

鹤影

原帖由 mark_mark 于 2007-10-19 15:55 发表
Dim columna As Integer
Dim i As Integer
Dim n As Integer

定义变量？

是呀，每月都要做，干脆就学着写个宏

mark_mark

4510r#sh int giga5/1
GigabitEthernet5/1 is up, line protocol is up (connected)
  Hardware is Gigabit Ethernet Port, address is 0019.301c.53d0 (bia 0019.301c.53d0)
  MTU 1500 bytes, BW 100000 Kbit, DLY 10 usec,
     reliability 255/255, txload 6/255, rxload 36/255
  Encapsulation ARPA, loopback not set
  Keepalive set (10 sec)
  Full-duplex, 100Mb/s, link type is auto, media type is 10/100/1000-TX
  input flow-control is on, output flow-control is on
  ARP type: ARPA, ARP Timeout 04:00:00
  Last input never, output never, output hang never
  Last clearing of "show interface" counters never
  Input queue: 0/2000/0/0 (size/max/drops/flushes); Total output drops: 0
  Queueing strategy: fifo
  Output queue: 0/40 (size/max)
  5 minute input rate 14347000 bits/sec, 2563 packets/sec
  5 minute output rate 2490000 bits/sec, 1709 packets/sec
     7196104618 packets input, 6577349247805 bytes, 0 no buffer
     Received 27874 broadcasts (0 multicasts)
     0 runts, 0 giants, 0 throttles
     1 input errors, 1 CRC, 0 frame, 0 overrun, 0 ignored
     0 input packets with dribble condition detected
     4536893833 packets output, 1152263372843 bytes, 0 underruns
     0 output errors, 0 collisions, 0 interface resets
     0 babbles, 0 late collision, 0 deferred
     0 lost carrier, 0 no carrier
     0 output buffer failures, 0 output buffers swapped out

mark_mark

Current configuration : 21620 bytes
!
version 12.2
no service pad
service timestamps debug uptime
service timestamps log uptime
service password-encryption
service compress-config
!
hostname 4510r
!
boot-start-marker
boot-end-marker
!
logging buffered 10000 debugging
enable secret 5 $1$rICP$lUmsEDp5KtMaLNHysJAWQ0
!
username admin password 7 072C285F4D064D504642595957
no aaa new-model
ip subnet-zero
no ip domain-lookup
!
!
!
!
!
!
power redundancy-mode redundant
!
redundancy
mode sso
no file verify auto
spanning-tree mode pvst
spanning-tree extend system-id
!
vlan internal allocation policy ascending

鹤影

Sub Macro1()
'
' Macro1 Macro
'
'


Dim row As Integer
Dim row_4 As Integer
Dim row_4_1 As Integer
Dim column As Integer
Dim x
Dim y
Dim sheetNa

row_4 = 7
For x = 1 To 3
    sheetNa = "Sheet" & x
    For row = 7 To 10000
        Sheets(sheetNa).Activate
        If Sheets(sheetNa).Cells(row, 1) = Empty Then Exit For
        If Mid(Sheets(sheetNa).Cells(row, 1), 5, 1) <> "" And Sheets(sheetNa).Cells(row, 4) <> 0 Then
           Sheets(sheetNa).Activate
           Range(Cells(row, 1), Cells(row, 3)).Select
           Selection.Copy
           Sheet4.Activate
           Range(Cells(row_4, 1), Cells(row_4, 3)).Select
           ActiveSheet.Paste
           
           
           row_4 = row_4 + 1
           
        End If
    Next row
   
Next x
   
    Sheet4.Activate

    Range(Cells(6, 1), Cells(row_4, 3)).Select
    ActiveSheet.Range(Cells(6, 1), Cells(row_4, 3)).RemoveDuplicates Columns:=1, Header:=xlYes


   
   
   
row_4 = 7
   
For row_4 = 7 To 1000
    If Sheet4.Cells(row_4, 1) = Empty Then Exit For
    For x = 1 To 3
        sheetNa = "sheet" & x
        For row = 7 To 10000
            If Sheets(sheetNa).Cells(row, 1) = Empty Then Exit For
            If Sheets(sheetNa).Cells(row, 1) = Sheet4.Cells(row_4, 1) Then
            
            Sheets(sheetNa).Activate
            Range(Cells(row, 4), Cells(row, 4)).Select
            Selection.Copy
            
            Sheet4.Activate
            Range(Cells(row_4, 3 + x), Cells(row_4, 3 + x)).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

            
            Sheets(sheetNa).Activate
            Range(Cells(row, 5), Cells(row, 5)).Select
            Selection.Copy
            
            Sheet4.Activate
            Range(Cells(row_4, 6 + x), Cells(row_4, 6 + x)).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            
            Cells(row_4, 10).Value = "=ROUND(SUM(G" & row_4 & ":I" & row_4 & ")/SUM(D" & row_4 & ":F" & row_4 & "),2)"

            End If
        Next
    Next
Next





    Columns("D:F").Select
    Selection.NumberFormatLocal = "0_ "
    Columns("G:J").Select
    Selection.NumberFormatLocal = "0.00_ "
    Range(Cells(6, 1), Cells(row_4, 10)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With




End Sub

mark_mark

show ip interface

鹤影

OK，俺最常用的两个工具，以后可以不用随身带了