I would like to multiply two single dimenssion arrays, having 5 elelments in each.
I prefer to use the SumProduct WorkSheet function.
I wrote this kind of line (below) but got a run time error #1004.
X = Application.WorksheetFunction.SumProduct(Array_1, Array_2)
I would like X to be the sum of the elelment multiplication of the two arrays/
I'm attempting to use the VLookup function to look up a raw score and convert it using an excel worksheet. However, instead of returning the figure in the lookup location, its returning the value that i'm looking up. For example, i'm looking up the number 5, it should give me the value of 63 but instead of returning the value 5.
xcApp = CreateObject("Excel.Application")
Excel1.OpenBook("testbook.xls")
xcWS = CType(xcWB.Worksheets("SOMATIC"), Excel.Worksheet)
MsgBox(xcApp.WorksheetFunction.VLookup(5, xcWS.Range("A2:F12"), 1, False))
EDIT: The above code DOES work, but it does not work with the following code(returns number i'm sending). One thing I did notice, it doesn't seem to be looping through all the Subnames...I just get one result and there are 10 in the TEMP table.
Connect()
sel("Select * from Temp")
While dr.Read
[code].....
I have used the Process.start function to open an Excel file as shown in the code
Process.Start("report.xlsx") and it works perfectly well.
My question is can this function be used to open a particular worksheet called Report1 in the report.xlsx file. If so what would the code be.I have spent many hours trying to research this topic but without success.
Can I calculate sumproduct by applying LINQ to List collection?[code]...
How to return the weighted Percentage for each category with LINQ? Weight is the Value.
I have an Excel Add-In with a custom ribbon and custom buttons. I'm trying to get these buttons to insert different templates that I have created for our reports. I want these templates inserted into the active workbook, after the active worksheet.This code will add the template worksheet to the active workbook, but it is placed before the active worksheet:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
Try
[code]....
I have been having problems getting the template worksheet inserted after the active worksheet.Here is what I have so far:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
Dim myxl As Microsoft.Office.Interop.Excel.Application
[code]....
I get an error with the 'ws' aspect of this particular line: Globals.ThisAddIn.Application.Sheets.Add(Type:="C:Template File Name.xltm").WorkSheets.Add(After:=ws()) The error message states: "Interface 'Microsoft.Office.Interop.Excel.Worksheet' cannot be indexed because it has no default property."
I have 2 arrays that are generated through a function as follows:
Dim alstCoordinatorID As ArrayList = g_alStripAllOneType(txtCoordinator.Text, "<CoordinatorID>", "</CoordinatorID>")
For iCount = 0 To alstCoordinatorID.Count - 1
[Code]....
So basically theres a list box of co-ordinator IDs and a list box of the positions they are in. On another form there is a combo box with the list of ID's that is transferred from the list box on the processing form. I want to display the Position of the Co-ordinator when their ID is selected. How do I match the positions up so when an ID is selected in the combo box their position will appear?
How can i send arrays to a function?
example i have an array with 400 elements containing random numbers how can i send those to a function, say to add 1 to each them?
I have an array of integers and I want to pass the array to a function that will add up the elements of the array and return the cumulative total of the elements of the array. So, if the array contains the values {1,2,3,4,5} the return value from the function would be 15.
View 2 RepliesI am getting records in my dataTable that have nullvalues and need to pass each of those through a function that gets the missing value. In this case my records are address's that are missing the "Latitude" and or "Longitude" Field
I need to be able to retrieve the values and place them in the missing column and row
Nulladdress
Public Function GetNullAddress() As Address()
Dim Addresss = (From row In dtsold.AsEnumerable() _
Where row.IsNull("Latitude") OrElse row.IsNull("Longitude") _
[Code]...
I had a question regarding the split function used in Visual Basic. As of now I have written a function that brings in a string value. The string value returned will probably look like this "List1;List2; Field1,Field2". My goal is to use the split function for this string to put all the lists in one array and to put the fields in another array.
The problem is between where List2 and Field1 are. I don't want Field1 to be placed in the list array. I'm thinking there might be a way to do this by parsing but I'm not sure. Here is my current code below.
Dim s As String = GetSetting("ReOrderList", properties.SiteId)
Dim affectedLists() As String = s.Split(";")
Dim affectedFields() As String = s.Split(",")
I'm currently working on a school project and I have stumbled upon various problems. I'm supposed to write a software tool based on a mathematical model.
In total, the model has 12 parameters and 2 constants used in it, so I figured it would be a good idea to store the parameters in 2 separate arrays - one containing 6 parameters which have to be entered by the user and another one with another 6 parameters which should only be changed in a settings kind of window for tweaking (they are set to default values provided by the model).[code]...
I want to go to a class.vb file that has a function from an aspx page and I want to return mutiple arrays. Is that possible? If so, how would I call it from the aspx page and how would I return it?
View 1 RepliesI am working on a project and I need to read information from a streamreader and put into an array and then use the split function to split the the lines read by the commas.
Example: Texas, USA, 123
And I need to split the three into separate arrays and then swap Texas and USA to make it USA, Texas, 123. I am using VB.net language and line.split(",") is not working.
I have several parameters consisting of separate System.Byte() arrays. What I need is the syntax for a function declaration where the parameter is an array of arrays - I do not want to delve into System.Collections, and it's my preference not to CType each array into an Object and then back into a Byte().
Problem I'm having here is that:
Public Function MyFunc(arrayparam() As System.Byte) As System.Byte()
accepts a single-dimensional Array of individual Bytes.
Then Public Function MyFunc(arrayparam() As System.Byte()) As System.Byte()
[code]...
Expected Results: A scalar result of the comparison between Array1 and Array2 such that when Array1>Array2 it is true. See expected array above.
Actual Results: When Result(x) is true, all elements become Array1(x) and Array2(x) .What is wrong with the function?
I am very confuse over a Raise Events example and using delegate as a function pointer: I am clear with this function pointer example program below which creates a generic sort function for sorting integer arrays without changing the main sort function.
' Returns True if need to swap
Delegate Function CompareFunc(ByVal x As Integer, _
ByVal y As Integer) _
As Boolean
Here are two alternative target methods for the delegate - one for an ascending sort and one for a descending sort:
Function SortAscending(ByVal x As Integer, ByVal y As Integer) As Boolean
If y < x Then
SortAscending = True
End If
End Function
Function SortDescending(ByVal x As Integer, _
ByVal y As Integer) As Boolean
[Code] .....
Dim result as single = 0
result = CType("8.01", Single) * 100 ' result=801.0 as expected
result = CType("8.02", Single) * 100 ' result=802.000061 --- not expected
Further to the above
result = 8.02 * 100 ' result = 802.0 as expected
I am very new VB .NET and just starting If statements. My problem is: Write an If statement that determines whether the variable CurrentBalance is greater then 1000.01. If it is, multiply the variable CurrentBalance by 1.005. Otherwise, multiply CurrentBalance by 1.007.So far I have
Sub Main()
Dim currentBalance As Boolean
System.Console.WriteLine("Enter Current Balance: " & currentBalance)
If CDbl(currentBalance) > 1000.01 Then
[code].....
I really don't even know if thats how I should be starting. Not sure what to put after the first Then on how to make it multiply currentBalance by 100.5.
I have a Sub() in which I define an array called FileNames(). Within the first subrouting I then call a different subroutine in which I would like to reference FileNames. Do I need to do anything special (such as make FileNames a global array) for these subroutines to have access? Right now it is telling me "Sub or Function not defined"
View 3 RepliesThis is part of a calculator program. I first part I sort by num and sign using a multitude of commandbuttons with no parenthesis.This program below is part of the second part. I have three more subroutines for /, +,- respectively.The + and - work correctly but * and / do not.I think it is in the line: numop(m) = g * h Is there something I am doing wrong wth the syntax in multiplication?
Public str, sign(100), numstr(100) As String
Public num1lock(100), m, n As Integer
Public ans, num(100), numop(100), g, h As Long
[code].....
I have an assignment to make a multiplication table using loops. The idea is to make this: If the user enters 3 this is the result he gets:
0 1 2 3
1 1 2 3
2 2 4 6
3 3 6 9
if the user enters 5, this is te result:
0 1 2 3 4 5
1 1 2 3 4 5
2 2 4 6 8 10
3 3 6 9 12 15
4 4 8 12 16 20
5 5 10 15 20 25
[Code]...
how to use the while loop in multiplication??
View 2 RepliesHow do I multiply inside loop using this code ?
Dim a As Integer
Dim b As Integer
a = inputBox("Enter first Number:")
b = inputBox("Enter second Number:")
and I want the answer to be shown in a label.
In VB6 I load a recordset containg all of the records (6 fields per record)in a table into an XArray and then manipulate the records in the array and then write them back to the original table. The array issorted by the first field (1 to maybe 8000 or more) I need to find records in the array by an ID field and then move them (because of some external criteria that happens many times) from say number 400 to number 375. Then all of the other records between 375 and 399 were renumbered up 1 to fill the gaps left by the move.
The XArray worked well as it could find and also move to a next record easily to facilitate the revisions to each record quickly. Everything is done in VB6 in code and nothing visual needs to be shown to the user until say 2000 of these external changes are complete. What is the best, most efficient way to do this in the .Net framework in VB2010. Datasets, Dataviews. tableadapters, arrays. enums ?
My assignment is to have a user enter in big integers using what i think is two parallel arrays. I got this far but now im stuck. I think i need to actually convert the text box input into an array but i do not know how to do that. I am all over the place in this project.
'Created/ Revised by: Jessica Falcetta
'Cap 204 Final Project: Big Integer Project
'Project Purpose: To calculate large integers through parallel arrays
[CODE]...
I have a VB.net console app and I am opening a function in a dll written in fortran. I am passing 3 arrays through the function by reference. When they come back out the otherside they ahve all tunred to arrays of only one element And that element is 0.I read on the internet somewhere that when doing this kind of thing it is a good idea to only pass the first element of the array into the function.I tried changing my function declaration to accepting single elements rather than single dimensional arrays, and now the arrays are the same length before and after the function call, but they don't seem to be changing at all, so i'm not sure that this is working
View 1 RepliesI'm new to VB and programming in general and have not had too much trouble however i cannot figure this problem out and i've been working on it for a week. basically i have to create a program that calculates the mass of someone on another planet with the conversion numbers as constant, an input box for the user's mass, using select case format and output to a label including the name of planet ie "Your mass on &strPlantet is x" so what happens is my intWeight variable becomes zero and the lblResult is Zero. (i have not added the all the code for the label output) oh yeah i must also use a try/catch structure to prevent non numeric data from being input.[code]
View 20 Repliesi'm trying to make a multiplication and sum table only form 1 to 12. I get all kind of error I don't know what to do
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim numMulti, numSum, tCounter, multiSum As Integer
[Code].....
This is my assignment for tonight. If anyone can enlighten me as to why it doesn't work. I
know I haven't finished the timer, I trying to get results in the labels.[code...]
Private Sub btnDisplay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
Dim intCount = 1
[code].....