Use array to search for CASE values Excel VBA -

-

i'm trying create array list of variable values within 1 cell.

for example: cell b3 contains values: 1a, 2b, 3a, 4a, 5c.

i want convert data that: myarray=("1a", "2b", "3a", "4a", "5c")

i.e. 

 myarray(1) = "1a"  myarray(2) = "2b"   myarray(3) = "3a"  myarray(4) = "4a"   myarray(5) = "5c"

then want use values of array perform case search compile running total testing.

my code far: 

'create subroutine copy , total data worksheet 1 worksheet 2 private sub vts()  'establish variable case search dim valr string  'establish counter array dim myarray(1 170)  myarray(1) = worksheets(2).range("a7").value myarray(2) = worksheets(2).range("a10").value  'dim valves() string 'dim thisvalue string  valr = worksheets(1).range("b4").value  'valr = split(valvestring, ";")  'valves = valr  'for v = 1 ubound(valves) '    thisvalve = valves(v)    select case valr   case "1a"     worksheets(2).range("c7").copy ' copy current total     worksheets(2).range("a7").pastespecial ' move "previous total" sum total     myarray(1) = worksheets(1).range("b3").value - worksheets(1).range("b2").value     if myarray(1) < 0         myarray(1) = 1000000 + myarray(1)     end if     worksheets(2).range("b7").value = myarray(1)     worksheets(2).range("c7").value = worksheets(2).range("a7").value + worksheets(2).range("b7").value     worksheets(2).range("c7").copy     worksheets(1).range("b10").pastespecial   case "1b"     worksheets(2).range("c10").copy     worksheets(2).range("a10").pastespecial     myarray(2) = worksheets(1).range("b3").value - worksheets(1).range("b2").value     if myarray(2) < 0         myarray(2) = 1000000 + myarray(2)     end if     worksheets(2).range("b10").value = myarray(2)     worksheets(2).range("c10").value = worksheets(2).range("a10").value + worksheets(2).range("b10").value     worksheets(2).range("c10").copy     worksheets(1).range("b10").pastespecial   case else     msgbox "wrong model entered / model not exist" end select  'next v  end sub public sub call_vts()   call vts end sub

to summarize, hope to:

1) build array varying cell data

2) of which, each string represents different position of array

3) run case search each position of array

i've been struggling couple of days. appreciated.

to first question, if cell b3 contains "1a, 2b, 3a, 4a, 5c" then

myarray = split(range("b3"),", ")

will give following:

myarray(0) = "1a" myarray(1) = "2b" myarray(2) = "3a" myarray(3) = "4a" myarray(4) = "5c"

if want run through array , evaluate each item, put each loop around select case:

for each in myarray     select case       case "1a"         worksheets(2).range("c7").copy ' copy current total         worksheets(2).range("a7").pastespecial ' move "previous total" sum total         myarray(1) = worksheets(1).range("b3").value - worksheets(1).range("b2").value         if myarray(1) < 0             myarray(1) = 1000000 + myarray(1)         end if         worksheets(2).range("b7").value = myarray(1)         worksheets(2).range("c7").value = worksheets(2).range("a7").value +     worksheets(2).range("b7").value         worksheets(2).range("c7").copy         worksheets(1).range("b10").pastespecial       case "1b"         worksheets(2).range("c10").copy         worksheets(2).range("a10").pastespecial         myarray(2) = worksheets(1).range("b3").value - worksheets(1).range("b2").value         if myarray(2) < 0             myarray(2) = 1000000 + myarray(2)         end if         worksheets(2).range("b10").value = myarray(2)         worksheets(2).range("c10").value = worksheets(2).range("a10").value +        worksheets(2).range("b10").value         worksheets(2).range("c10").copy         worksheets(1).range("b10").pastespecial       case else         msgbox "wrong model entered / model not exist"     end select next

Comments

Post a Comment

Popular posts from this blog

C# random value from dictionary and tuple -

-
i have following code, , need random item contains string "region_1" dictionary. public static dictionary<int, tuple<string, int, currencytype>> itemarray = new dictionary<int, tuple<string, int, currencytype>>() { { 0xb3e, new tuple<string, int, currencytype>("region_1", 1500, currencytype.fame) } }; public static int generateitemid(string shopid) { var generateditem = itemarray.elementat(new random().next(0, itemarray.count)).key; } how select this? it's not possible efficiently... first create static random @ class level... prevent non-random behaviour if run query on short period of time... (it's seeded discrete clock) static random rnd = new random(); then: var item = itemarray.values .where(t => t.item1 == shopid) .orderby(_ => rnd.next()) .firstordefault()
Read more

cgi - How do I interpret URLs without extension as files rather than missing directories in nginx? -

-
so i'm trying install zoneminder , have run under nginx, has few compiled files need run using fast-cgi. these files lack extension. if file has extension, there no issue , nginx interprets file , return 404 if can't find it. if has no extension, assume it's directory , return 404 when can't find sort of index page. here have now: # security camera domain. server { listen 888; server_name mydomain.com; root /srv/http/zm; # enable php support. include php.conf; location / { index index.html index.htm index.php; } # enable cgi support. location ~ ^/cgi-bin/(.+)$ { alias /srv/cgi-bin/zm/; fastcgi_pass unix:/run/fcgiwrap.sock; fastcgi_param script_filename $document_root/$1; include fastcgi.conf; } } the idea is, under cgi-bin directory goes through fastcgi pipe. any idea on howi can fix this? upon closer inspection, realized zoneminder has 2 cgi sc...
Read more

.htaccess - htaccess convert request to clean url and add slash at the end of the url -

-
ok , searched more 4 days , more 20 posts here in stach or in websites without kind of success first here htaccess file rewriteengine on rewriterule ^([a-za-z0-9_]+)/?$ index.php?page=$1 [nc] rewriterule ^([a-za-z0-9_]+)\/([a-za-z0-9_]+)\/?$ index.php?page=$1&action=$2 [nc] i tried many codes 1 worked me can call request , works me www.example.com/pagename => www.example.com/index.php?page=pagename here questions , please provide me information "in detail" understand code well 1- how convert request automatically www.example.com/index.php?page=pagename www.example.com/pagename 2- if tried add slash @ end shows me page without images or styling mean www.example.com/pagename => works www.example.com/pagename/ => doesn't work that's :) for first part need 301 rule this: rewritecond %{the_request} /index\.php\?page=([^\s&]+) [nc] rewriterule ^ /%1? [r=301,l] for second part use absolute path in css, js, images files r...
Read more