Results 1 to 3 of 3
Thread: VBA MS Excel SmartArt
Hybrid View
-
20th January 2014 10:24 #1Registered 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 .
!
.HP Compaq hp530 Series GH637AA
Acer TravelMate 5740G 5454G64MNSS
-
20th January 2014 13:03 #2Registered 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
-
20th January 2014 18:28 #3Registered User
Join Date: Apr:2007
Location: Sofia
Posts: 27
!!!!
HP Compaq hp530 Series GH637AA
Acer TravelMate 5740G 5454G64MNSS




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in