下面是今天的題目：
偶然間看到的題目
廢話不多說，先上結果演示
代碼演示
第一部分，綠色字體為注釋
代碼寫到這裡
第二部分：按條件進行運算
第二部分，綠色字體為注釋
第三部分：改變圖表數據範圍
第三部分
代碼如下：
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每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
