.


:




:

































 

 

 

 


()




Option Explicit

Dim rez As String

Private Sub CheckBox1_Click()

If CheckBox1.Value = False Then

t1.Enabled = False

Else

t1.Enabled = True

End If

End Sub

Private Sub CheckBox2_Click()

If CheckBox2.Value = False Then

t2.Enabled = False

Else

t2.Enabled = True

End If

End Sub

Private Sub CheckBox3_Click()

If CheckBox3.Value = False Then

t3.Enabled = False

Else

t3.Enabled = True

End If

End Sub

Private Sub CheckBox4_Click()

If CheckBox4.Value = False Then

t4.Enabled = False

Else

t4.Enabled = True

End If

End Sub

Private Sub CheckBox5_Click()

If CheckBox5.Value = False Then

t5.Enabled = False

Else

t5.Enabled = True

End If

End Sub

Private Sub CheckBox6_Click()

If CheckBox6.Value = False Then

t6.Enabled = False

Else

t6.Enabled = True

End If

End Sub

Private Sub UserForm_Initialize()

CheckBox1.Value = True

CheckBox2.Value = True

CheckBox3.Value = True

CheckBox4.Value = True

CheckBox5.Value = True

CheckBox6.Value = True

End Sub

Private Sub CommandButton1_Click()

Const a = "I43:J43", d = "I44:J44 ", c = "I45:J45", e = "I46:J46", f = "I47:J47", k = "I48:J48"

rez = Empty

If Charts.Count <> 0 Then Charts.Delete

If CheckBox1.Value = True Then rez = rez & a

If CheckBox2.Value = True Then

If rez <> Empty Then

rez = rez & "," & d

Else

rez = rez & d

End If

End If

If CheckBox3.Value = True Then

If rez <> Empty Then

rez = rez & "," & c

Else

rez = rez & c

End If

End If

If CheckBox4.Value = True Then

If rez <> Empty Then

rez = rez & "," & e

Else

rez = rez & e

End If

End If

If CheckBox5.Value = True Then

If rez <> Empty Then

rez = rez & "," & f

Else

rez = rez & f

End If

End If

If CheckBox6.Value = True Then

If rez <> Empty Then

rez = rez & "," & k

Else

rez = rez & k

End If

End If

'

If rez = Empty Then

MsgBox " "

Exit Sub

End If

If OptionButton1.Value = True Then

Charts.Add

ActiveChart.ChartType = xl3DColumnClustered

ActiveChart.SetSourceData Source:=Sheets("1").Range(rez), PlotBy:= _

xlColumns

ActiveChart.Location Where:=xlLocationAsNewSheet

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = " "

.Axes(xlCategory).HasTitle = False

End With

ActiveChart.HasLegend = True

ActiveChart.Legend.Select

Selection.Position = xlRight

End If

If OptionButton2.Value = True Then

Charts.Add

ActiveChart.ChartType = xlPie

ActiveChart.SetSourceData Source:=Sheets("1").Range(rez), PlotBy:= _

xlColumns

ActiveChart.Location Where:=xlLocationAsNewSheet

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = " "

End With

ActiveChart.HasLegend = True

ActiveChart.Legend.Select

Selection.Position = xlRight

End If

If OptionButton3.Value = True Then

Charts.Add

ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _

" "

ActiveChart.SetSourceData Source:=Sheets("1").Range(rez), PlotBy:= _

xlColumns

ActiveChart.Location Where:=xlLocationAsNewSheet

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = " "

End With

ActiveChart.HasLegend = True

ActiveChart.Legend.Select

Selection.Position = xlRight

End If

End Sub





:


: 2016-07-29; !; : 399 |


:

:

, , . , .
==> ...

824 - | 743 -


© 2015-2024 lektsii.org - -

: 0.013 .