ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] EXCEL¹Ïªí³]©wµ{¦¡¼¶¼g

[µo°Ý] EXCEL¹Ïªí³]©wµ{¦¡¼¶¼g

¦U¦ì¤j¤j­Ì¦n!

¥Ø«e»s§@¹Ïªí¹J¨ì¤F¨Ç°ÝÃD¤£ª¾¸Ó¦p¦ó§JªA¡A¹Ïªí­n¨D¦p¤U:
(¹Ïªí¦b¤U¤è)
1.¾î¶b(¶À¦â³¡¤À)­n«í¬°¾ã¼Æ
2.¬õ½u»PÂŽu ÂI¼Æ­È°O¿ýªº¦a¤è¥u¦b³Ì«á¤@¦æ(¬õ¦â°é°é)
Unbenannt.PNG
2017-8-28 19:52

(¥H¤U¬°§Úªºµ{¦¡½X¡A¦ý´ú¸Õµ²ªG¨Ã¨S¦³°õ¦æ¨ìFor °j°éªº³¡¥÷¡A¤£ª¾¬O§_µ{¦¡½X¼¶¼g¦³¿ù»~¡A
ÁÙ­n³Â·Ð¤j¤j­ÌÀ°§Ú³o·s¤â¬Ý¬Ý¡A­Y¦³»Ý­n§ó§ïªº¦a¤è¡A¦A³Â·Ð¤j®a§i¶D§Ú!·PÁ¤j®a!!)
  1. Sub Ct()
  2. If Sheets("Ablauftabelle").Range("P165").Value <> 0 And Sheets("Ablauftabelle").Range("P166").Value <> 0 Then
  3. Sheets("Chart").Visible = True
  4.   Sheets("Chart").Select
  5.   ActiveChart.Axes(xlCategory).Select
  6.     ActiveChart.Axes(xlCategory).MaximumScale = Sheets("Tabelle2").Range("I2").Value
  7.    
  8.     Dim i, a As Integer
  9.     a = Sheets("Tabelle2").Range("I2").Value - 1
  10.     For i = a To 1
  11.    
  12.     ActiveChart.SeriesCollection(3).Points(i).DataLabel.Delete
  13.     ActiveChart.SeriesCollection(3).Points(i).DataLabel.Select
  14.     Selection.NumberFormat = "##.##0,00 ""sec"""
  15.    
  16.     ActiveChart.SeriesCollection(2).Points(i).DataLabel.Delete
  17.     ActiveChart.SeriesCollection(2).Points(i).DataLabel.Select
  18.     Selection.NumberFormat = "##.##0,00 ""sec"""
  19.    
  20.     ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
  21.     Selection.NumberFormat = "##.##0,00 ""sec"""
  22.     Next i

  23. ElseIf Sheets("Ablauftabelle").Range("P165").Value = "" And Sheets("Ablauftabelle").Range("P166").Value = "" Then
  24. MsgBox ("No information available!")
  25. Sheets("Ablauftabelle").Select

  26. End If
  27. End Sub
½Æ»s¥N½X

¦^´_ 1# liebe
§A±NÀɮפW¶Ç¡A
¥H¤è«K¤j®a¨Ó´ú¸Õ§A»¡ªº°ÝÃD©Ò¦b¡C

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD