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

[µo°Ý] µ{¦¡½X¥ÎFor°j°é²¤Æ

[µo°Ý] µ{¦¡½X¥ÎFor°j°é²¤Æ

¦U¦ì¤j¤j­Ì¦n!
¥Ñ©ó±ø¥óÁ`¦@¦³141­Ó(±q2¨ì142­Ó)¡A­Y¬O¥HIF ELSEIF ¤U¥h¼¶¼g·|¨Ïµ{¦¡«ÜÃe¤j
¥Ñ©ó¹ï©óFor°j°é¤£¤F¸Ñ¡A
©Ò¥H·Q½Ð±Ð¤j¤j­Ì¤U¦Cµ{¦¡¸Ó¦p¦ó¥ÎFOR°j°é¥h²¤Æ©O?
­n¨D¬°·íRange("I2")ªº値¬°X®É¡A·|§R°£¥H¤UªºÂI(¦p:¼Æ値=10®É¡A·|§R°£1-9ªºÂI)
·PÁ¤j®a!
  1. If Sheets("Tabelle2").Range("I2").Value = 2 Then
  2.     ActiveChart.SeriesCollection(2).Points(1).DataLabel.Delete
  3.    
  4.     ElseIf Sheets("Tabelle2").Range("I2").Value = 3 Then
  5.      ActiveChart.SeriesCollection(2).Points(2).DataLabel.Delete
  6.       ActiveChart.SeriesCollection(2).Points(1).DataLabel.Delete
  7.    
  8.     ElseIf Sheets("Tabelle2").Range("I2").Value = 4 Then
  9.     ActiveChart.SeriesCollection(2).Points(3).DataLabel.Delete
  10.      ActiveChart.SeriesCollection(2).Points(2).DataLabel.Delete
  11.       ActiveChart.SeriesCollection(2).Points(1).DataLabel.Delete
  12.    
  13.     ElseIf Sheets("Tabelle2").Range("I2").Value = 5 Then
  14.     ActiveChart.SeriesCollection(2).Points(4).DataLabel.Delete
  15.     ActiveChart.SeriesCollection(2).Points(3).DataLabel.Delete
  16.      ActiveChart.SeriesCollection(2).Points(2).DataLabel.Delete
  17.       ActiveChart.SeriesCollection(2).Points(1).DataLabel.Delete
  18.    
  19.     ElseIf Sheets("Tabelle2").Range("I2").Value = 6 Then
  20.     ActiveChart.SeriesCollection(2).Points(5).DataLabel.Delete
  21.     ActiveChart.SeriesCollection(2).Points(4).DataLabel.Delete
  22.     ActiveChart.SeriesCollection(2).Points(3).DataLabel.Delete
  23.      ActiveChart.SeriesCollection(2).Points(2).DataLabel.Delete
  24.       ActiveChart.SeriesCollection(2).Points(1).DataLabel.Delete
  25.       
  26.        ElseIf Sheets("Tabelle2").Range("I2").Value = 7 Then
  27.       ActiveChart.SeriesCollection(2).Points(6).DataLabel.Delete
  28.     ActiveChart.SeriesCollection(2).Points(5).DataLabel.Delete
  29.     ActiveChart.SeriesCollection(2).Points(4).DataLabel.Delete
  30.     ActiveChart.SeriesCollection(2).Points(3).DataLabel.Delete
  31.      ActiveChart.SeriesCollection(2).Points(2).DataLabel.Delete
  32.       ActiveChart.SeriesCollection(2).Points(1).DataLabel.Delete
½Æ»s¥N½X

Sub EX()
    Dim T2I2%, K%
    T2I2 = Sheets("Tabelle2").Range("I2").Value

    If T2I2 >= 2 And T2I2 <= 42 Then
        For K = 1 To T2I2 - 1
            ActiveChart.SeriesCollection(2).Points(K).DataLabel.Delete
        Next
    Else

    End If
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 2# ML089
­º¥ý·PÁª©¥D¤j¤j!!
¥Ø«e¹ï©óVBAµ{¦¡ªº¼¶¼gÁÙ¦³¨Ç¤£¤F¸Ñ·Q¦A°Ý¤@¤Uª©¥D
""" Dim T2I2%, K%"""
¨ä¤¤ªº " % "¥Nªí¤°»ò·N«ä©O?
·PÁÂ!

TOP

¦^´_ 3# liebe

% ¾ã¼Æ
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD