下面是今天的題目:
偶然間看到的題目
廢話不多說,先上結果演示
代碼演示
第一部分,綠色字體為注釋
代碼寫到這裡
第二部分:按條件進行運算
第二部分,綠色字體為注釋
第三部分:改變圖表數據範圍
第三部分
代碼如下:
Dim a As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("E20")) Is Nothing Then
Else
Columns("H:J").ClearContents
Call abc
Call bcd
End If
End Sub
Sub abc()
Range("H1") = Range("E20")
If Range("H1") Mod 2 = 0 Then
Range("I1") = 2
Range("J1") = Range("H1") / 2
Else
Range("I1") = 3
Range("J1") = Range("H1") * 3 1
End If
For a = 2 To 20000
Cells(a, "H") = Cells(a - 1, "J")
If Cells(a, "H") Mod 2 = 0 Then
Cells(a, "I") = 2
Cells(a, "J") = Cells(a, "H") / 2
Else
Cells(a, "I") = 3
Cells(a, "J") = Cells(a, "H") * 3 1
End If
If Cells(a, "J") = 1 Then
Exit For
End If
Next
End Sub
Sub bcd()
a = Range(Range("J20000"), Range("J20000").End(xlUp)).Row
ActiveSheet.ChartObjects(1).Activate
ActiveChart.SetSourceData Source:=Range("J1:J" & a)
End Sub
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!