|
Hi Guys!
I am in a bit of a Dilemma here again. As much as office 2007 has provided more options in Excel, it has made it darn difficult to do things which were so easy until Office 2003.
The problem is, I want to create macros which change the background color of the selected cells according to the company colors. There are 6 different colors which need to be applied. I did the record macro option which works fine and places icons next to the save button on the top left corner in Excel 2007. But my boss wants something different, he want a seperate ribbon with the different color options and also that it should be an add-in otherwise it would be hard to implement all these macros on more than 600 computers world-wide. Can anyone please help me out with this one. I have no experience with VB.Net or Microsoft Office programming. I am a web developer but this is something that has been haunting me for a few days now.
To wrap it up, I need to make an Add-In for Microsoft Office 2007 which sits in its own ribbon and has 6 different options. All these options change the background colors respectively, of the selected cells in Excel and needs to be easy to implement by the staff world-wide, we can just provide them with the add-on to run on their computers. Also, this would need to cater for the existing files as well which takes the template files out of the question unless there is a way to make the template file as the default sheet that opens up the existing data.
Any help, suggestions, examples or references will be highly appreciated.
Thanks.
|
|
|
|
|
Sounds like your boss needs to be put in charge of paper clips or something mildly clerical.
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
Or tied to a home made rocket and shot to the space... lol
|
|
|
|
|
|
Hey mate!
Thanks for that. An amazing article and very user friendly. But now I am stuck on the part where I need to call the function to make the color change. I tried to copy the code from the macro but that keeps giving me weird errors like MissingMemberException: Public member 'Selection' on Type 'RibbonButton' not found etc
Any reference on this would be great. I am googling myself as well but would like to thank in advance.
regards.
|
|
|
|
|
You're welcome.
Unfortunately I have not had to do any projects like this myself, so I haven't tried the code or anything.
Your best bet might be to send the author of the article a message.
My advice is free, and you may get what you paid for.
|
|
|
|
|
Hi there, I'm newbie here,
I want to know, to set default value for property, which is the best way?
1.
Private _AddFoto As Boolean = False
Public Property AddFoto() As Boolean
Get
Return _AddFoto
End Get
Set(ByVal value As Boolean)
_AddFoto = value
End Set
End Property
Or
2.
Private _AddFoto As Boolean
<ComponentModel.DefaultValue(False)> _
Public Property AddFoto() As Boolean
Get
Return _AddFoto
End Get
Set(ByVal value As Boolean)
_AddFoto = value
End Set
End Property
Thanks
|
|
|
|
|
I always use the method of your first example.
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
I always use the first case. Does case 2 work? I tried your sample by setting
<Componentmodel.Defaultvalue(True)>... but this doesn't seem to work.
Tosch
|
|
|
|
|
I used the second code, but i didn't realize until your reply.
Yes, the 2nd code doesnt work if we change the value to 'true'
I googling to msdn and find this statement:
"A DefaultValueAttribute will not cause a member to be automatically initialized with the attribute's value. You must set the initial value in your code."
Private MyVar as Boolean = False
<DefaultValue(False)> _
Public Property MyProperty() As Boolean
Get
Return MyVar
End Get
Set
MyVar = Value
End Set
End Property
and it make me more confuse,what is the function of this <DefaultValue(False)>
|
|
|
|
|
Apparently, i missunderstanding what i read before.
componenmodel.defaultvalue is used for other purpose (designer).
thanks
|
|
|
|
|
You have the other responses also, but now there is the new VS2010 way;
Public Property theProperty as boolean = false
Thats it, all the other Get, Set and local private variable are all taken care of under the hood. [which you can still use if you want, or depending on scenario] The local private variable will be named _theProperty by default, and accessible by that name.
|
|
|
|
|
My program consist of a user interface and a separate class that handles the merging of data files. The class is called Merge and when it is done merging the data it raises the event MergeFinished. I declared the following delegates:
Dim WithEvents Merge As clsMerge 'Class that handles the merging of data
Delegate Sub MergeFinishedDelegate() 'MergeFinished Delegate
Private m_MergeFinishedDelegate As MergeFinishedDelegate
Now the sub that handles the MergeFinished event is as follows:
Private Sub MergeFinished() Handles Merge.MergeFinished
If Me.InvokeRequired Then
m_MergeFinishedDelegate = AddressOf Me.MergeFinished
Me.Invoke(m_MergeFinishedDelegate)
Else
Me.Enabled = True
Status.Text = "Merge Finished!"
If Settings.AutoSwitch Then
Dim newFrm As New frmGenerateReports
newFrm.Show()
newFrm.RecieveData(JBNArray)
Me.Close()
End If
End If
End Sub
However the Me.Invoke(m_MergeFinishedDelegate) has an error of "Input string was not in the correct format". This function has been working fine and now it doesn't. I haven't made any changes to this method so I don't know why it broke. Any suggestions?
EDIT: After stepping through the code, this is what I discovered. When the event is first raised, the IF part of the statement is run and the Me.Invoke code works fine. However, when the newFrm.Show() is called then the "Input string was not in the correct format" is thrown within the IDE. Why is the debugger jumping back to the IF part of the statement? And if I keep stepping through, it just loops (calls the invoke, goes the the ELSE statement, and once newFrm.Show() is called the "Input string was not..." is thrown again and the frmGenerateReports is never shown)
modified on Tuesday, April 27, 2010 8:04 PM
|
|
|
|
|
Hi,
I don't think the Me.Invoke line is causing the problem; what it does is cause a thread switch, so your breakpoint/single-stepping debugging techniques probably got confused. I would suggest you put one big try-catch inside sub MergeFinished(), which then shows the Exception.ToString() that is probably occuring. My guess is something actually goes wrong inside RecieveData()
|
|
|
|
|
I have an access table containing several records. Infact records of universities alongwith their fee structure.
The task is to sort out the universities according to a given range and display that list in VB 2008 form.
Has anybody got any reference regarding this?
|
|
|
|
|
This sounds like homework and this little "how-to" has been documented hundreds of thousands of times. All it takes is a little Googling: "vb.net get data from access[^]".
|
|
|
|
|
I have several group boxes on top of one another but the problem i am facing is their merging with each other. How can it be avoided?
|
|
|
|
|
What do you mean by merging with one another? they can't do that.
|
|
|
|
|
i am trying to make a working simple calculator in VB.
i have 4 errors that i just can not figure out to save my life. can anyone help
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace projectfinal
{
public partial class Calculator : Form
{
bool Plus = false;
bool Sub = false;
bool Multiply = false;
bool Divide = false;
bool equals = false;
public Calculator()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{ //clears textbox and starts new problem
if (equals)
{
textBox1.Text ="";
equals = false;
}
textBox1.Text = textBox1.Text + "1";
}
private void button2_Click(object sender, EventArgs e)
{
if (equals)
{
textBox1.Text ="";
equals = false;
}
button2.Text = button2.Text + "2";
}
private void button3_Click(object sender, EventArgs e)
{
if (equals)
{
textBox1.Text ="";
equals = false;
}
button3.Text = button3.Text + "3";
}
private void button4_Click(object sender, EventArgs e)
{
if (equals)
{
textBox1.Text = "";
equals = false;
button4.Text = button4.Text + "4";
}
}
private void button5_Click(object sender, EventArgs e)
{
if (equals)
{
textBox1.Text ="";
equals = false;
}
button5.Text = button5.Text + "5";
}
private void button6_Click(object sender, EventArgs e)
{
if (equals)
{
textBox1.Text ="";
equals = false;
}
button6.Text = button6.Text + "6";
}
private void button7_Click(object sender, EventArgs e)
{
if (equals)
{
textBox1.Text ="";
equals = false;
}
button7.Text = button7.Text + "7";
}
private void button8_Click(object sender, EventArgs e)
{
if (equals)
{
textBox1.Text ="";
equals = false;
}
button8.Text = button8.Text + "8";
}
private void button9_Click(object sender, EventArgs e)
{
if (equals)
{
textBox1.Text ="";
equals = false;
}
button9.Text = button9.Text + "9";
}
//dont want more than one decimal on the screen
private void buttonDecimal_Click(object sender, EventArgs e)
{
if (equals)
{
textBox1.Text = "";
equals = false;
}
if (buttonDecimal.Text.contains("."))
{
return;
}
else
{
buttonDecimal.Text.contains + ".";
}
}
//if already neg it will become pos
private void buttonNeg_Click(object sender, EventArgs e)
{
if (buttonNeg.Text.contain("-"))
{
textBox1.Text = textBox1.Text.Remove(0,1);
}
else
{
textBox1.Text = "-" + textBox1.Text;
}
}
private void buttonPlus_Click(object sender, EventArgs e)
{
if(textBox1.Text=="")
{
return;
}
else
{
Plus = true; //adding something
textBox1.Tag = textBox1.Text;//stores number
textBox1.Text = "";
}
}
private void buttonEquals_Click(object sender, EventArgs e)
{
equals = true;
if(Plus)
{
Decimal dec = Convert.ToDecimal(textBox1.Tag) + Convert.ToDecimal(textBox1.Text); //1st and 2nd value
textBox1.Text = dec.ToString();
}
if (Multiply)
{
Decimal dec = Convert.ToDecimal(textBox1.Tag) * Convert.ToDecimal(textBox1.Text); //1st and 2nd value
textBox1.Text = dec.ToString();
}
if (Sub)
{
Decimal dec = Convert.ToDecimal(textBox1.Tag) - Convert.ToDecimal(textBox1.Text); //1st and 2nd value
textBox1.Text = dec.ToString();
}
if (Divide)
{
Decimal dec = Convert.ToDecimal(textBox1.Tag) / Convert.ToDecimal(textBox1.Text); //1st and 2nd value
textBox1.Text = dec.ToString();
}
}
private void buttonSub_Click(object sender, EventArgs e)
{
if(textBox1.Text=="")
{
return;
}
else
{
Sub = true; //adding something
textBox1.Tag = textBox1.Text;//stores number
textBox1.Text = "";
}
}
private void buttonDivide_Click(object sender, EventArgs e)
{
if(textBox1.Text=="")
{
return;
}
else
{
Divide = true; //adding something
textBox1.Tag = textBox1.Text;//stores number
textBox1.Text = "";
}
}
private void buttonMultiply_Click(object sender, EventArgs e)
{
if(textBox1.Text=="")
{
return;
}
else
{
Multiply = true; //adding something
textBox1.Tag = textBox1.Text;//stores number
textBox1.Text = "";
}
}
private void buttonclear_Click(object sender, EventArgs e)
{
Plus= Sub = Multiply = Divide = false;
textBox1.Text = "";
textBox1.Tag ="";//clear stores number
}
}
}
|
|
|
|
|
Some suggestions:
1. Put your code between <pre></pre> tags for readability; use the "code block" button in this editor.
2. Tell us what the errors are, we cannot see the output of your compilation from here, nor can we guess what might be going wrong.
It's time for a new signature.
|
|
|
|
|
on top of what Richard said, don't enter that amount of code all at once; start with a subset and get that working; working more incrementally will save you lots of time, so you can learn while doing, and not repeat earlier mistakes. I compile and run every two minutes, and I don't add code when what I have isn't working already to some extent.
|
|
|
|
|
terrable wrote: i am trying to make a working simple calculator in VB
I think you're biggest problem is that the code you provided is actually C# and not VB
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
Steven J Jowett wrote: I think you're biggest problem is that the code you provided is actually C# and not VB
We have a winner! 
|
|
|
|
|
I want to know the meaning of the code
Obj_aCrc = Obj_aCrc + Val(CStr(Asc(Mid(strVal, Obj_i + 1, 1)) * (Obj_i Mod (5) + 1)))
Thanks
|
|
|
|
|
When you cross-post, you should remove the original question, otherwise you'll be flamed.
Anyway the answer's Here.[^]
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
