excel按列批量生成折線圖，用VBA怎麽編程？程序編好後定義成宏，每次都可以調用要怎麽設置？

妳把聲明語句以外的代碼放在sub ...end sub外面當然會"編譯錯誤: 不正確的外部程序"了

可以先寫壹個公***過程,public sub 過程名...end sub

例:

public sub abc

Dim Fer As String

Dim Axal, Axaw, Axsl, Axsw, Aoal, Aoaw, Aoql, Aoqw, r701, r700, Yer, Zer As Double

If Zer > r700 And (Fer = "L" Or Fer = "l") Then

r701 = Zer

ElseIf Yer > r700 And (Fer = "W" Or Fer = "w") Then

r701 = Yer

Else

r701 = r700

End If

Axql = Int((Axsl + Axsw + Aoal) / Aoaw * Aoql - Aoqw)

Axqw = Int((Axsl + Axsw) * (Aoal - Aoaw) / Aoql)

end sub

然後在工程內的其它過程或函數中通過過程名調用以上過程

例:

sub aaa

代碼段

abc

代碼段

end sub