fieldset{padding:10px;}
excel vba 怎么样将自动生成图表并将其添加到已有的EXCEL中Private Sub Workbook_Open() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim temp As Long Dim r As Long Dim a As String Dim result() As Long ReDim result(10) Dim range() As Long ReDim range(10) range(0) = 0 For r = 1 To 10 Step 1 range(r) = range(r – 1) + 2000: Next r For r = 9 To 44 Step 1 a = CStr(UCase(Cells(r, 2).Value)) temp = Val(a) If temp > = range(0) And temp < range(1) Then result(0) = result(0) + 1 If temp > = range(1) And temp < range(2) Then result(1) = result(1) + 1 If temp > = range(2) And temp < range(3) Then result(2) = result(2) + 1 If temp > = range(3) And temp < range(4) Then result(3) = result(3) + 1 If temp > = range(4) And temp < range(5) Then result(4) = result(4) + 1 If temp > = range(5) And temp < range(6) Then result(5) = result(5) + 1 If temp > = range(6) And temp < range(7) Then result(6) = result(6) + 1 If temp > = range(7) And temp < range(8) Then result(7) = result(7) + 1 If temp > = range(8) And temp < range(9) Then result(8) = result(8) + 1 If temp > = range(9) And temp < range(10) Then result(9) = result(9) + 1 不必在乎目的地，在乎的是沿途的风景以及看风景的心情，让心灵去旅行！
