excel - passing a range object to a sub in VBA -


trying create subroutine takes range cell , calculates average of cells in column. error: object required

how can correct this?

    sub test()      dim rg range      set rg = thisworkbook.worksheets(1).range("b1")     columnaveragetotop (rg)      end sub      sub columnaveragetotop(rg range)     'calculates average of data in column , puts above data     cells(1, rg.column).end(xldown).offset(1, 0).value =  application.worksheetfunction.average(rg.columns(rg.column))     end sub

good there's comment telling sub should do: read as: if run "test()", following happens: in passed range's column in row one, average of column's values should appear.

there 3 problems in code. first mentioned in previous comments: use either call columnaveragetotop(rg) or columnaveragetotop rg in test-routine. solution:

sub test()     dim rg range     set rg = thisworkbook.worksheets(1).range("b1")     columnaveragetotop rg end sub

now succesfully enter columnaveragetotop routine, there's issue passing parameter worksheetfunction.average takes arguments documented here: https://msdn.microsoft.com/en-us/library/office/ff836809.aspx keep simple make sure pass range-object on calculation performed.

lastly, when using end , offset, make sure use them in right order. each of these functions provide new range object. see attempt cell below passed argument , go down , other values calculate average of range.

if truely need average of entire column, advise:

sub columnaveragetotop(rg range)     'calculates average of data in column , puts in row 1 of column     'we declare put value: cells(1,1) of column of range passed     'e.g. "b1" passed means average in "b1".     'same fore passing "b323"     rg.entirecolumn.cells(1, 1).value = worksheetfunction.average(rg.entirecolumn) end sub

this include numerical value in row 1 of same column of passed range, though overwritten result. running same test multiple times therefore change result.

if need average of below 1st row until first blank row, should be:

.rg.entirecolumn.cells(1,1).value = worksheetfunction.average(rg.entirecolumn.range(cells(2, 1), cells(2,1).end(xldown)))

if need average of filled cells below referenced cell:

.rg.entirecolumn.cells(1, 1).value = worksheetfunction.average(rg.offset(1, 0).resize(rg.offset(1, 0).end(xldown).row - rg.offset(1, 0), 1))

hope helps out.


Comments

Post a Comment

Popular posts from this blog

authentication - Mongodb revoke acccess to connect test database -

i have ec2 instance mongodb 3.2.0 installed. have user admin access. can connect user , perform operation remotely. 1 can connect database test remote if knows ip mongo 11.11.11.11. although not able make operations, want restrict access user credentials can connect server. first need create users , grant roles users, example: use admin db.createuser( { user: "myuseradmin", pwd: "abc123", roles: [ { role: "useradminanydatabase", db: "admin" } ] } ) then need start server --auth parameter mongod --auth more information here
Read more

r - Update two sets of radiobuttons reactively - shiny -

i have read ( how make choices in radiobuttons reactive in shiny? ) shows me how update radiobutton s in reactive way. however, when try , update 2 sets of buttons same data, 1 set renders. example: server: # create example data wafer <- rep(c(1:3), each=3) length <- c(1,1,2,1,1,1,3,5,1) width <- c(3,1,6,1,1,1,1,1,6) dd <- data.frame(wafer, length, width) shinyserver(function(input, output, session){ # create reactive dataframe store data values <- reactivevalues() values$df <- data.frame() # lengths , widths of wafer user input <- eventreactive(input$do, { subset(dd, wafer %in% input$wafer, select = length:width) }) # update reactive data frame lengths , widths have been selected user input observe({ if(!is.null(a())) { values$df <- rbind(isolate(values$df), a()) } }) output$wl <- renderdatatable({ a() }) # update radio buttons unique length , widths stored in values$df # ever "observe" put first in co...
Read more

ios - Realm over CoreData should I use NSFetchedResultController or a Dictionary? -

i'm working on app using core data , nsfetchedresultcontroller many reasons switch use realm. saw there "realm version" of nsfetchedresultcontroller on github wouldn't compatible current code using core data. the view controller displaying list of people same school, address book. list sublist of people studied in same city. so thinking make 1 unique request database retrieve list of people , filter locally list within 1 dictionary per school [string: anyobject] string section name within tableview , anyobject array of people. first solution, make nsfetchedresultcontroller each school predicate filtering location. delete actions etc.. handled delegates -> not compatible realm create dictionaries , update them each actions... -> works realm it's annoying code. any better solution? edit: i need clarify request: i'd write class inherit uitableviewcontroller. this class has list of people sorted in alphabetical order the tableview has ...
Read more