User login
Sponsored links
Recent blog posts
- Unwanted Save Warnings in Display Only Pages
- Breadcrumb SQL to find the Navigation path for the component in the PIA
- Application Designer Index naming convention
- How to create Trigger in DB2
- Emplid increment automatically
- How can we romove multiple duplicate rows of data printing under each Print command in SQR Program?
- How can we call Dynamic Calling section in Peoplesoft Application Engine program?
- How can we write multiple SQL Commands/Statements under one Action by using one function?
- Peoplesoft BU VS Record Groups VS Record Group Controls VS Control Table VS Table set Sharing VS Table SETID?
- Difference between Custom and Customised objects in Peoplesoft?
Force Value to Upper Case Visual Basic Excel Macro
Thu, 12/13/2007 - 12:37am — Lepa
The below Visual Basic code is used in an excel macro. It reads the values on Row "R", trim spaces, checks if the length of the value is equal to zero (nothing in that cell). If so the it will output the letter "N" otherwise it will output an upper case value entered by the user (Format(UCase((ActiveCell.Value))).
The "!@" is the VB way in saying you want to output one character. So, if you have a cell that has 8 character you would code "!@@@@@@@@"
ActiveSheet.Range("R" + posrow).Activate
ActiveCell.Value = Left(Trim(ActiveCell.Value), 1)
If (Len(Trim(ActiveCell.Value)) = 0) Then
Out_Record = Out_Record + "N"
Else
Out_Record = Out_Record + Format(UCase((ActiveCell.Value)), "!@")
End If
ActiveCell.Value = Left(Trim(ActiveCell.Value), 1)
If (Len(Trim(ActiveCell.Value)) = 0) Then
Out_Record = Out_Record + "N"
Else
Out_Record = Out_Record + Format(UCase((ActiveCell.Value)), "!@")
End If
Bookmark/Search this post with
Please try to help out with unanswered topics on the forum. Chances are you have had the same issue/question some time in your IT career!
Unanswered Forum Posts
| Title | Under | Posted on |
|---|---|---|
| MD5 - SHA checksum of a file. | PeopleSoft Technical | 02/07/2012 - 5:29am |
| nVision Tabular Report through PIA with prompts | PeopleSoft Technical | 02/02/2012 - 10:07pm |
| Can we create an AE to mass update Position - Jobcode data? | PeopleSoft Technical | 01/18/2012 - 3:11am |
| Pay Components on job data can be defaulted and setup based on the rules? | PeopleSoft Functional | 01/05/2012 - 4:58am |
Stay updated
CompShack is a user driven Dev2Dev IT community. Developers can ask questions, help answer questions, or just browse code and articles contributed by users. No registration required.
You can register if you want to contribute code samples, share your knowledge at your own blog, and become adored in the community!
About Lepa
Job title
Application Developer
Poll
New forum topics
- MD5 - SHA checksum of a file.
- nVision Tabular Report through PIA with prompts
- Enable/Install GP and T&L modules on existing HRMS System
- How to get the list of tables having specific field as key.
- How to populate data into grid, click on pushbutton
- peoplesoft
- Can we create an AE to mass update Position - Jobcode data?
- How to do the Upgradation from one version to another version
Recent comments
- SQL to Show Database Information
1 day 3 hours ago - Re: Component Permission List Query
1 week 19 hours ago - Re: How to populate data into grid, click on pushbutton
1 week 1 day ago - Re: Arrays in PeopleSoft
1 week 2 days ago - Re: I want to add a hyperlink to a peoplesoft delivered ...
1 week 2 days ago - Re: How to get the list of tables having specific field as key.
1 week 2 days ago - Re: I want to add a hyperlink to a peoplesoft delivered ...
2 weeks 5 hours ago - Re: inserting rows within standalone rowset without fill
2 weeks 16 hours ago - Re: How to populate data into grid, click on pushbutton
2 weeks 16 hours ago - Re: Name change Workflow using PS role query
2 weeks 1 day ago
Comments
hi, i want to input data by textbox in vb 6.0 but in UPPERCASE only.
would you like to help me
regard
KM
I'm not a VB guy by any means. The example i have is using an excel macro to force an upper case output. I'm sorry but I wouldn't be able to help on this one :(
I did a quick google search and got lots of good info but wasn't sure what you are really looking for. Please re-visit the site and post your solution when you find one. I would greatly appreciate it.
Good luck!
Give back to the community and help it grow!
* Help with unanswered forum questions and issues
* Register or login to share your knowledge at your own blog
Private Sub {TextBox Name}_Change() {TextBox Name} = UCase({TextBox Name}) End SubReplace {TextBox Name} with the Name of the textbox you want all upper case.
Post new comment