Excel VBA programming range selection questions -


need doing please:

  1. opens input box , prompts user choose worksheet number 1 to
  2. stores value user entered in variable of type integer named index. may assume user enter valid input (i.e. 1, 2 or 3). program give run time error if user enters text example- not need write code handle case.
  3. uses index number entered user , worksheets( ) collection object activate selected worksheet.
  4. find number of items in list in column (starting in cell a1) , store in variable named l1; find number of items in list in column b (starting in cell b1) , store in variable named l2.
  5. use if statement determine string store in variable named answer: “ list 1 longer” if number of items in column larger. "list 2 longer" if number of items in column b larger, , "same length" otherwise.
  6. open message box showing answer.

well...

sub homeworkfornmhomie13() dim response, index, l1, l2, answer     response = inputbox("enter number 1 " & worksheets.count)     if response = "" exit sub     'your teacher said don't error handling, that's failures.     on error resume next     index = int(response)     on error goto 0     if index > worksheets.count or index < 1         msgbox ("your entry invalid. please enter number between 1 , " & worksheets.count)     end if loop while index > worksheets.count or index < 1 sheets(index).activate l1 = cells(rows.count, "a").end(xlup).row 'assuming "item" includes blank cells l2 = cells(rows.count, "b").end(xlup).row 'just grab last row data 'use 2 iif statements check length using 1 line of code , smart hell answer = iif(l1 > l2, "list 1 longer", iif(l2 > l1, "list 2 longer", "same length")) msgbox (answer) end sub

if prefer "impress" teacher meeting minimum requirements:

sub lazyhomeworkfornmhomie13() index = int(inputbox("enter number 1 " & worksheets.count)) sheets(index).activate l1 = cells(rows.count, "a").end(xlup).row l2 = cells(rows.count, "b").end(xlup).row answer = iif(l1 > l2, "list 1 longer", iif(l2 > l1, "list 2 longer", "same length")) msgbox (answer) end sub

Comments

Post a Comment

Popular posts from this blog

cakephp - simple blog with croogo -

i not problem, made simple blog in croogo, problem is not adding or modifying or delete, because arabic language ?? function add in controller `public function admin_add() { $this->set('title_for_layout', __('add part')); if (!empty($this->request->data)) { $this->part->create(); if ($this->part->save($this->request->data)) { $this->session->setflash(__('the part has been saved'), 'default', array('class' => 'success')); $this->redirect(array('action' => 'index'));//, $this->part->id)); } else { $this->session->setflash(__('the part not saved. please, try again.'), 'default', array('class' => 'error')); } } }` => model `class part extends appmodel { public $name = 'part'; var $belongst...
Read more

How to group boxplot outliers in gnuplot -

i have large set of data points. try plot them boxplot, of outliers exact same value , represented on line beside each other. found how set horizontal distance between outliers in gnuplot boxplot , doesn't much, apparently not possible. is possible group outliers together, print 1 point , print number in brackets beside indicate how many points there are? think make more readable in graph. for information, have 3 boxplots 1 x value , times 6 in 1 graph. using gnuplot 5 , played around pointsize, doesn't reduce distance anymore. hope can help! edit: set terminal pdf set output 'dat.pdf' file0 = 'dat1.dat' file1 = 'dat2.dat' file2 = 'dat3.dat' set pointsize 0.2 set notitle set xlabel 'x' set ylabel 'y' header = system('head -1 '.file0); n = words(header) set xtics ('' 1) set [i=1:n] xtics add (word(header, i) i) set style data boxplot plot file0 using (1-0.25):1:(0.2) boxplot lw 2 lc rgb '#8b0000...
Read more

bash - Performing variable substitution in a string -

i have string contains use of variable, , i'd substitute variable's value string. right best have is #!/bin/bash foo='$name; echo bar' name="the name" expanded="$(eval echo "$foo")" echo "$expanded" which has obvious defects: prints the name bar while i'd print the name; echo bar instead of eval can bash's regex matching bash's string replacement: foo='$name; echo bar' name="the name" [[ "$foo" =~ \$([[:alnum:]]+) ]] && s="${!bash_rematch[1]}" && expanded="${foo/\$${bash_rematch[1]}/$s}" echo "$expanded" name; echo bar
Read more