Új hozzászólás Aktív témák

• #21825 Delila_1 veterán bagira82 #21824

  Új Válasz 2014-05-30 13:47:15 #21825

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz bagira82 #21824 üzenetére

  Szivi.

• #21823 Delila_1 veterán bagira82 #21818

  Új Válasz 2014-05-30 12:09:49 #21823

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz bagira82 #21818 üzenetére

  Sub mm()
  Dim Tomb, i As Integer, j As Integer, a As Variant
  
  For i = 1 To 5
  Tomb = Split(ActiveSheet.Cells(i, 4).Value, ",")
  For j = 0 To UBound(Tomb)
  a = Tomb(j)
  MsgBox a
  Next
  Next
  End Sub

• #21817 Delila_1 veterán bagira82 #21816

  Új Válasz 2014-05-30 09:54:29 #21817

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz bagira82 #21816 üzenetére

  Dim Tomb
  Tomb = Split(Range("A1"), ",")
  MsgBox Tomb(0)
  MsgBox Tomb(1)
  MsgBox Tomb(2)

• #21791 Delila_1 veterán bagira82 #21790

  Új Válasz 2014-05-26 17:15:30 #21791

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz bagira82 #21790 üzenetére

  Szívesen.

• #21789 Delila_1 veterán bagira82 #21788

  Új Válasz 2014-05-26 16:51:57 #21789

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz bagira82 #21788 üzenetére

  Sub diagram()
  a = "Anna": b = "Józsi": c = "Emil": d = "Tamás"
  aa = 100: bb = 120: cc = 140: dd = 200
  
  tengely = Array(a, b, c, d)
  ertekek = Array(aa, bb, cc, dd)
  
  ActiveSheet.Shapes.AddChart.Select
  With ActiveChart
  .ChartType = xl3DPieExploded
  .SeriesCollection.NewSeries
  With .SeriesCollection(1)
  .Name = "='Munka5'!$B$1"
  .Values = ertekek
  .XValues = tengely
  .ApplyDataLabels
  End With
  End With
  End Sub

• #21787 Delila_1 veterán bagira82 #21784

  Új Válasz 2014-05-26 16:30:28 #21787

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz bagira82 #21784 üzenetére

  Sub diagram()
  ertekek = Array(103, 405, 349, 532)
  tengely = Array("Anna", "Teri", "Emil", "Ida")
  ActiveSheet.Shapes.AddChart.Select
  With ActiveChart
  .ChartType = xl3DPieExploded
  .SeriesCollection.NewSeries
  With .SeriesCollection(1)
  .Name = "='Munka5'!$B$1"
  .Values = ertekek
  .XValues = tengely
  .ApplyDataLabels
  End With
  End With
  End Sub

Új hozzászólás Aktív témák