Question

如下EXCEL VBA代码是什么意思，帮翻译一下，谢谢！

Private Sub obDecimal0_Click()
Month_Decimal0
End Sub

Private Sub obDecimal1_Click()
Month_Decimal1
End Sub
Private Sub obDecimal2_Click()
Month_Decimal2
End Sub
Private Sub tbScaleSelect_Click()

Sheets("Month").Unprotect "LiaoBuQi"
Dim EchelleBas As Single
EchelleBas = Sheets("Month").Range("B42").Value
EchelleHaut = Sheets("Month").Range("B41").Value
If Sheets("Month").tbScaleSelect.Value = False Then
ActiveSheet.ChartObjects("GraphMonth").Activate
On Error GoTo tryenglishFalse
ActiveChart.Axes(xlValue).Select

With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
End With
Sheets("Month").tbScaleSelect.Caption = "adapt scale mini"

Else
ActiveSheet.ChartObjects("GraphMonth").Activate
On Error GoTo tryenglishTrue

ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = EchelleBas
.MaximumScale = EchelleHaut
End With

Sheets("Month").tbScaleSelect.Caption = "put scale mini = 0"
End If
Sheets("Month").Protect "LiaoBuQi"

Exit Sub
tryenglishFalse:

ActiveSheet.ChartObjects("GraphMonth").Activate

ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 0
End With
Sheets("Month").tbScaleSelect.Caption = "adapt scale mini"
Sheets("Month").Protect "LiaoBuQi"
Exit Sub

tryenglishTrue:

ActiveSheet.ChartObjects("GraphMonth").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = EchelleBas
End With
Sheets("Month").tbScaleSelect.Caption = "put scale mini = 0"

Sheets("Month").Protect "LiaoBuQi"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Answer 1

我想问一下，这一段您是一句都不懂吗？还是只是某几句不懂，如果什么都不懂，先进VBA幼儿园学习一下再来提问。

Answer 2

不是很完整，无法理解。

追问

谢谢！