I would like draw your kind attention to populate the Input Text Messages in Text Box OpenOffice Calc:
Suppose, I have various cells, in which, those contains the data/input to be given by the user
The above cells are to be guided the users with respective suggestions, on which how the user have to give/input the data given in the Input Messages for each and every cell separately, which are to shown in the Text Box, which is created in Open Office Calc.
On option visible to users, while touching the cell, the Input Message for the respective appears near by the cell, which is giving obstacle to the user.
If we enable a text box and put in one particular place and assign a macro to populate the Input messages for the respective cells, it changes with change of cells by the user.
Kindly help in this regard as we are using the same MS Excel with following Macro:
Option Explicit
' Developed by Contextures Inc.
' www.contextures.com
Private Sub Worksheet_SelectionChange(<wbr>ByVal Target As Range)
Dim strTitle As String
Dim strMsg As String
Dim sTemp As Shape
Dim lDVType As Long
Dim ws As Worksheet
Application.EnableEvents = False
Set ws = ActiveSheet
Set sTemp = ws.Shapes("txtInputMsg")
On Error Resume Next
lDVType = 0
lDVType = Target.Validation.Type
On Error GoTo errHandler
If lDVType = 0 Then
sTemp.TextFrame.Characters.<wbr>Text = ""
sTemp.Visible = msoFalse
Else
If Target.Validation.InputTitle <> "" Or _
Target.Validation.InputMessage <> "" Then
strTitle = Target.Validation.InputTitle & Chr(10)
strMsg = Target.Validation.InputMessage
With sTemp.TextFrame
.Characters.Text = strTitle & strMsg
.Characters.Font.Bold = False
.Characters(1, Len(strTitle)).Font.Bold = True
End With
sTemp.Visible = msoTrue
Else
sTemp.TextFrame.Characters.<wbr>Text = ""
sTemp.Visible = msoFalse
End If
End If
errHandler:
Application.EnableEvents = True
End Sub
Unfortunately, the same is not able to worked out with us OpenOffice Cacl
Hence, we request your goodselves to guide us with the correct macro in OpenOffice Calc as we have to assign the same in our Open Office Application.
Thanking and with Best Regards.
G. Lingachari, Hyderabad, India, Mob: +91 98856 32211
Suppose, I have various cells, in which, those contains the data/input to be given by the user
The above cells are to be guided the users with respective suggestions, on which how the user have to give/input the data given in the Input Messages for each and every cell separately, which are to shown in the Text Box, which is created in Open Office Calc.
On option visible to users, while touching the cell, the Input Message for the respective appears near by the cell, which is giving obstacle to the user.
If we enable a text box and put in one particular place and assign a macro to populate the Input messages for the respective cells, it changes with change of cells by the user.
Kindly help in this regard as we are using the same MS Excel with following Macro:
Option Explicit
' Developed by Contextures Inc.
' www.contextures.com
Private Sub Worksheet_SelectionChange(<wbr>ByVal Target As Range)
Dim strTitle As String
Dim strMsg As String
Dim sTemp As Shape
Dim lDVType As Long
Dim ws As Worksheet
Application.EnableEvents = False
Set ws = ActiveSheet
Set sTemp = ws.Shapes("txtInputMsg")
On Error Resume Next
lDVType = 0
lDVType = Target.Validation.Type
On Error GoTo errHandler
If lDVType = 0 Then
sTemp.TextFrame.Characters.<wbr>Text = ""
sTemp.Visible = msoFalse
Else
If Target.Validation.InputTitle <> "" Or _
Target.Validation.InputMessage <> "" Then
strTitle = Target.Validation.InputTitle & Chr(10)
strMsg = Target.Validation.InputMessage
With sTemp.TextFrame
.Characters.Text = strTitle & strMsg
.Characters.Font.Bold = False
.Characters(1, Len(strTitle)).Font.Bold = True
End With
sTemp.Visible = msoTrue
Else
sTemp.TextFrame.Characters.<wbr>Text = ""
sTemp.Visible = msoFalse
End If
End If
errHandler:
Application.EnableEvents = True
End Sub
Unfortunately, the same is not able to worked out with us OpenOffice Cacl
Hence, we request your goodselves to guide us with the correct macro in OpenOffice Calc as we have to assign the same in our Open Office Application.
Thanking and with Best Regards.
G. Lingachari, Hyderabad, India, Mob: +91 98856 32211