Restrict Input of InputBox to numeric values between 1 and 10
Dear Experts:
below code snippet lets user change the font size of a chart's data labels by means of an Input Box. I would like the inputbox part of the macro expanded in the following way: .... only numeric values between 1 and 10 are allowed (ie. Font size of the data labels) .... If above condition is not met the inputbox dialog is to re-appear. In the current state the macro exits on non-numeric values. Help is much appreciated. Thank you very much in advance. Regards, Andreas DefineFontSize = InputBox("Specifiy the new Font Size of the Data Labels!") If Not IsNumeric(DefineFontSize) Then MsgBox ("Only numeric values are allowed!") Exit Sub End If If DefineFontSize = "" Then Exit Sub End If |
Restrict Input of InputBox to numeric values between 1 and 10
hi,
Code:
Sub Macro1() -- isabelle Le 2011-04-20 12:31, AndreasHermle a écrit : Dear Experts: below code snippet lets user change the font size of a chart's data labels by means of an Input Box. I would like the inputbox part of the macro expanded in the following way: ... only numeric values between 1 and 10 are allowed (ie. Font size of the data labels) ... If above condition is not met the inputbox dialog is to re-appear. In the current state the macro exits on non-numeric values. Help is much appreciated. Thank you very much in advance. Regards, Andreas DefineFontSize = InputBox("Specifiy the new Font Size of the Data Labels!") If Not IsNumeric(DefineFontSize) Then MsgBox ("Only numeric values are allowed!") Exit Sub End If If DefineFontSize = "" Then Exit Sub End If |
Restrict Input of InputBox to numeric values between 1 and 10
On Apr 20, 12:31*pm, AndreasHermle
wrote: Dear Experts: below code snippet lets user change the font size of a chart's data labels by means of an Input Box. I would like the inputbox part of the macro expanded in the following way: ... only numeric values between 1 and 10 are allowed (ie. Font size of the data labels) ... If above condition is not met the inputbox dialog is to re-appear. In the current state the macro exits on non-numeric values. Help is much appreciated. Thank you very much in advance. Regards, Andreas DefineFontSize = InputBox("Specifiy the new Font Size of the Data Labels!") If Not IsNumeric(DefineFontSize) Then MsgBox ("Only numeric values are allowed!") Exit Sub End If If DefineFontSize = "" Then Exit Sub End If How about this (with type declarations included - a good practice): Sub Test() Dim answer As String Dim DefineFontSize As Double answer = InputBox("Specifiy the new Font Size of the Data Labels!") If Not IsNumeric(answer) Then MsgBox ("Only numeric values are allowed!") Exit Sub End If DefineFontSize = answer Do While DefineFontSize < 1 Or DefineFontSize 10 MsgBox "Font size should be in range 1 to 10" answer = InputBox("Specifiy the new Font Size of the Data Labels!") If Not IsNumeric(answer) Then MsgBox ("Only numeric values are allowed!") Exit Sub End If DefineFontSize = answer Loop MsgBox DefineFontSize End Sub |
Restrict Input of InputBox to numeric values between 1 and 10
On Apr 20, 7:01*pm, isabelle wrote:
hi, Code:
Sub Macro1() -- isabelle Le 2011-04-20 12:31, AndreasHermle a écrit : Dear Experts: below code snippet lets user change the font size of a chart's data labels by means of an Input Box. I would like the inputbox part of the macro expanded in the following way: ... only numeric values between 1 and 10 are allowed (ie. Font size of the data labels) ... If above condition is not met the inputbox dialog is to re-appear. In the current state the macro exits on non-numeric values. Help is much appreciated. Thank you very much in advance. Regards, Andreas DefineFontSize = InputBox("Specifiy the new Font Size of the Data Labels!") If Not IsNumeric(DefineFontSize) Then MsgBox ("Only numeric values are allowed!") Exit Sub End If If DefineFontSize = "" Then Exit Sub End If Hi Isabelle, great coding. Thank you very much for your kind and professional help. Regards, Andreas |
Restrict Input of InputBox to numeric values between 1 and 10
On Apr 20, 7:12*pm, scattered wrote:
On Apr 20, 12:31*pm, AndreasHermle wrote: Dear Experts: below code snippet lets user change the font size of a chart's data labels by means of an Input Box. I would like the inputbox part of the macro expanded in the following way: ... only numeric values between 1 and 10 are allowed (ie. Font size of the data labels) ... If above condition is not met the inputbox dialog is to re-appear. In the current state the macro exits on non-numeric values. Help is much appreciated. Thank you very much in advance. Regards, Andreas DefineFontSize = InputBox("Specifiy the new Font Size of the Data Labels!") If Not IsNumeric(DefineFontSize) Then MsgBox ("Only numeric values are allowed!") Exit Sub End If If DefineFontSize = "" Then Exit Sub End If How about this (with type declarations included - a good practice): Sub Test() Dim answer As String Dim DefineFontSize As Double answer = InputBox("Specifiy the new Font Size of the Data Labels!") If Not IsNumeric(answer) Then * * MsgBox ("Only numeric values are allowed!") * * Exit Sub End If DefineFontSize = answer Do While DefineFontSize < 1 Or DefineFontSize 10 * * MsgBox "Font size should be in range 1 to 10" * * answer = InputBox("Specifiy the new Font Size of the Data Labels!") * * If Not IsNumeric(answer) Then * * * * MsgBox ("Only numeric values are allowed!") * * * * Exit Sub * * End If * * DefineFontSize = answer Loop MsgBox DefineFontSize End Sub Dear Scattered, works like a charm. thank you very much for your professional help. regards, Andreas |
All times are GMT +1. The time now is 05:21 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com