Convert excel VBA to visual basic .NET 2015

Question

1.00/5 (1 vote)

See more:

Dears,

Please help, how to convert VBA to VB.net 2015

for example I have this code:

Selection.NumberFormat = "[$-2000000]#,#;[Red](#,##0)"

what will be the VB.net Code

I tried many codes on the web but unfortunately not working

Thanks in advance

What I have tried:

Dim myselection as Excel.Range

myselection.NumberFormat = "[$-2000000]#,#;[Red](#,##0)"

Posted 22-Dec-16 2:59am

Mahmoud Algindy

Updated 23-Dec-16 0:38am

Add a Solution

4 solutions

Solution 3

This piece of code can't change formattings for MS Excel range (cell/cells), because myselection variable has been declared and never initiated.

VB.NET

Dim myselection as Excel.Range myselection.NumberFormat = "[$-2000000]#,#;[Red](#,##0)"

All you have to do is to initiate that variable, for example:

VB.NET

Dim myselection as Excel.Range =  CType(ExcelApp.Worksheets("Sheet1").Range("A17"), Excel.Range)
'where ExcelApp is an object which hold reference to Excel.Application
myselection.NumberFormat = "[$-2000000]#,#;[Red](#,##0)"

For further details, please see:
Excel Object Model Overview[^]
Understanding the Excel Object Model from a .NET Developer’s Perspective[^]
Working with Ranges[^]
Range.NumberFormat Property (Excel)[^]

Good luck!

Posted 22-Dec-16 19:51pm

Maciej Los

Comments

Mahmoud Algindy 23-Dec-16 5:39am

Thank you and thanks for all

Actually I tried the below code and it's working for a single selected cell but I need to run the code for the current selected cells means multiple cells

Globals.ThisAddIn.Application.ActiveCell.NumberFormat = ("_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)")

Solution 2

You do it by completely understanding the code you're trying to convert and exactly what it's doing and then write the equivalent code in VB.NET.

Just going through and doing a line-by-line conversion without understanding what the code is doing and the environment it is running in is not going to work.

Posted 22-Dec-16 3:59am

Dave Kreskowiak

Solution 1

For that you'll need to use a MaskedTextBox. This is assuming you're developing a Windows Forms application, you haven't said exactly what UI technology you are using be it WinForms, WPF, WebForms or MVC as they all have a different solution for this issue.

MaskedTextBox Class (System.Windows.Forms)[^]

Posted 22-Dec-16 3:17am

F-ES Sitecore

Comments

Maciej Los 22-Dec-16 9:19am

You're wrong. OP is talking about text fromatting in a cell.

F-ES Sitecore 22-Dec-16 9:27am

OP hasn't said anything about the context of the code he is using. If he is using Office objects then the code is the same as the property is the same. Please feel free to offer an alternative solution :)

Richard Deeming 22-Dec-16 13:14pm

Dim myselection as Excel.Range

That's a slight clue! :)

Mahmoud Algindy 22-Dec-16 13:30pm

Sorry, what!

Richard Deeming 22-Dec-16 13:34pm

I was replying to F-ES Sitecore, who said that your question has no indication that you're using Excel.

I was just pointing out that it does - the quoted line of code from the "What I have tried" section being the clue. :)

F-ES Sitecore 26-Dec-16 22:30pm

The OP edited his original post. When I replied it was simply this line

Selection.NumberFormat = "[$-2000000]#,#;[Red](#,##0)"

and the question was "How do I convert this to vb.net?". There was no other info than that and he updated his post to give more context which allowed people to provide more accurate help, but it's ok, I'll take the down-votes.

Mahmoud Algindy 22-Dec-16 11:07am

Hi everybody.. Thanks for your response.. I am developing Excel add in thru Vb. Net 2015 and customising Excel ribbon

Thanks in advance for your help

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Mahmoud Algindy · Accepted Answer · 2016-12-23T00:38:00

Hi, thank so much for everybody

I solved now and this is the code

Dim MySelection As Excel.Range = Globals.ThisAddIn.Application.Selection
MySelection.NumberFormat = "[$-2000000]#,#;[Red](#,##0)"

but the issue now how make it public because currently I should add for each button

Please refer to msdn <a href="https://msdn.microsoft.com/en-us/library/cc442817.aspx">
</a>[<a href="https://msdn.microsoft.com/en-us/library/cc442817.aspx" target="_blank" title="New Window">^</a>]