Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Workbooks.Open (fPath & sName)
- Sheets(1).Select
- ActiveSheet.Shapes.Range(Array("TextBox1")).Select
- With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 262).Font.Fill
- .Visible = msoTrue
- .ForeColor.RGB = RGB(255, 0, 0)
- .Transparency = 0
- .Solid
- End With
- CharCount = Len(textbox1.Text)
- Sheets(1).Select
- ActiveSheet.TextBox1.ForeColor = RGB(255, 0, 0)
- Dim wb As Workbook
- Dim ws As Worksheet
- Dim s As Shape
- Set wb = Workbooks.Open(fPath & sName)
- Set ws = wb.Sheets(1)
- Set s = ws.Shapes("TextBox 1")
- s.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0)
- Sub Button2()
- Dim sh As Shape
- Set sh = Sheets("Sheet1").Shapes("Textbox1")
- sh.TextFrame.Characters.Font.Color = vbRed
- End Sub
- Private Sub M_in_out_LostFocus()
- Dim sh As Sheet7
- Set sh = Sheet7
- vx = CInt(M_in_out.Value)
- If vx > 0 Then
- sh.M_in_out.ForeColor = vbBlack
- Else
- sh.M_in_out.ForeColor = vbRed
- End If
- sh.Cells(23, 6).Value = sh.Cells(23, 6).Value + vx
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement