vba - How can I calculate the average of 1 variable of Array of Custom Type -


this tricky 1 me explain, i'll start code have far, , later trying achieve.

current code

option explicit  public esigtickerarr variant  ' public type save array type watchlist     esigticker string     op double     hi double     lo double     cl double     vol double     bartime variant end type public watchlistarr() watchlist ' save array of special type "watchlist"  '====================================================================  sub mainr()  redim watchlistarr(0) ' init array size esigtickerarr = array("part1", "part2", "part3")   each esigtickerelem in esigtickerarr      ' check if first member of array occupied     if watchlistarr(0).esigticker <> "" ' not first time running code >> increase array size 1         redim preserve watchlistarr(ubound(watchlistarr) + 1) ' increase array size 1     end if      ' ... code, working fine ....      ' populate array type data (also works)     watchlistarr(ubound(watchlistarr))         .esigticker = esigtickerelem         .op = lastcsvline(2)         .hi = lastcsvline(3)         .lo = lastcsvline(4)         .cl = lastcsvline(5)         .vol = lastcsvline(6)         .bartime = lastcsvline(1)     end  next esigtickerelem  ' ******* calculate average of "hi"  ****** dim myavg  myavg = worksheetfunction.average(watchlistarr.hi) '<--- getting error !  end sub

i'm getting error @ line above.

my challenge: want average of variable of type array watchlistarr, , don't want use loop, there can 10,000 records (or more).

is there way value average function ?

should switch 2-d array ? or maybe 3-d array ?

myavg = worksheetfunction.average(watchlistarr.hi) '<--- getting error !

yep. code means similar this:

myavg = watchlistarr.select(item => item.hi).average();

where item => item.hi selector function invoked for every item in watchlistarr. problem linq / c#, not vba. vba doesn't support delegates , other funky stuff c# couldn't dream in v1.0.

but vba has control flow structures let perform action for every item in array: use for loop!

dim long, total double, count long = lbound(watchlistarr) ubound(watchlistarr)     total = total + watchlistarr(i).hi     if watchlistarr(i).hi <> 0 count = count + 1 'assuming zeroes excluded next if count <> 0 myavg = total / count

if want use application.worksheetfunction.average, you'll need copy hi member of every item in array own array, , give that array - , require... loop... wasted cycles if loop isn't also computing average goes.

as long you're not using for each loop iterate array, you'll fine. iterating 30k items array for loop pretty instant, no worries there.


Comments

Post a Comment

Popular posts from this blog

android - InAppBilling registering BroadcastReceiver in AndroidManifest -

i'm implementing inapp billing in android app. works well, however, i'm trying decouple broadcast receiver activity manifest. suggestion in android's trivialdrive sample: // important: dynamically register broadcast messages updated purchases. // register receiver here instead of <receiver> in manifest // because call getpurchases() @ startup, therefore can ignore // broadcasts sent while app isn't running. // note: registering listener in activity bad idea, done here // because sample. regardless, receiver must registered after // iabhelper setup, before first call getpurchases(). currently there's class extends broadcastreceiver : public class iabbroadcastreceiver extends broadcastreceiver { /** * intent action receiver should filter for. */ public static final string action = "com.android.vending.billing.purchases_updated"; private final iabbroadcastlistener mlistener; public iabbroadcastreceiver(iabbroadcastlistener listener) { m...
Read more

python Tkinter Capturing keyboard events save as one single string -

is possible store keyboard events 1 string? code below stores 1 char , prints it. card reader or bar code reader, contains collection of character/ string not 1 character @ time. goal save char pressed text variable. from tkinter import * root = tk() def key(event): text= event.char text+= event.char print ("pressed", text) def callback(event): frame.focus_set() print ("clicked at", event.x, event.y) frame = frame(root, width=100, height=100) frame.bind("<key>", key) frame.bind("<button-1>", callback) frame.pack() root.mainloop() currently, creating text variable , everytime key() function gets called, , text stores last character typed. you can define text module level variable , , use module level text inside key function - text = '' def key(event): global text text+= event.char print("pressed", text)
Read more

sql server - Why does Linq-to-SQL add unnecessary COUNT()? -

here tables: create table customer ( cid int primary key, name varchar(32) ) create table ord ( oid int primary key, cid int foreign key references customer, address varchar(20) ) here's linq-to-sql statement: var aaa = c in db.customer select new { c, o = c.ord.tolist() }; and here's inexplicable query generated linq-to-sql: select [t0].[cid] [cid], [t0].[name] [name], [t1].[oid] [oid], [t1].[cid] [cid2], [t1].[address] [address], (select count(*) [dbo].[ord] [t2] [t2].[cid] = [t0].[cid]) [value] [dbo].[customer] [t0] left outer join [dbo].[ord] [t1] on [t1].[cid] = [t0].[cid] order [t0].[cid], [t1].[oid] i want understand how rid of count(*) part. it's entirely uncalled for! linq needs count(*) in order determine number of entries returned o = c.ord.tolist() .
Read more