Results 1 to 3 of 3

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Apr:2007
    Location: Sofia
    Posts: 27

    VBA MS Excel SmartArt

    ,

    VBA .

    ( ), 5 ( 0.00 5.00).

    - basic pyramid 5 , (B2:B6). - , - 3.25, 3.26 3.75 - 3.75.

    conditional formatting, . . VBA, 5 . VBA .

    !

    .
    Attached Files
    HP Compaq hp530 Series GH637AA
    Acer TravelMate 5740G 5454G64MNSS

  2. #2
    Registered User
    Join Date: Aug:2009
    Location:
    Posts: 265
    Code:
    Sub Colors()
      Dim i As Integer, score As Double
        
      For i = 1 To 5
        score = Sheet1.Range("B1").Offset(i, 0).Value
        With Sheet1.Shapes("Diagram 1").SmartArt.Nodes(6 - i).Shapes.Fill.ForeColor
          If score <= 3.25 Then
            .RGB = RGB(240, 0, 0)
          ElseIf score <= 3.75 Then
            .RGB = RGB(240, 240, 0)
          Else
            .RGB = RGB(0, 240, 0)
          End If
        End With
      Next i
    End Sub

  3. #3
    Registered User
    Join Date: Apr:2007
    Location: Sofia
    Posts: 27
    !!!!
    HP Compaq hp530 Series GH637AA
    Acer TravelMate 5740G 5454G64MNSS

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |