excel - VBA code delete the row of noisy data - 


sub project()     dim a, deltat_value1, deltat_value2, deltat_value3 integer     = 2             deltat_value1 = cells(a, 7).value         deltat_value2 = cells(a + 1, 7).value         deltat_value3 = cells(a + 2, 7).value         if abs(deltat_value1 - deltat_value2) > 5 , abs(deltat_value2 - deltat_value3) > 5         rows(a + 1).entirerow.delete         end if         = + 1     loop until deltat_value1 = 14700 end sub

i trying delete noisy data, set if data point has difference bigger 5 both points above , below it, noisy data , set delete whole row of noisy data. however, having problem line:

deltat_value3=cells(a+2,7).value runtime error 1004 "application-defined or object-defined error"

and running takes extremely longer time. new user of vba programming , think method may inefficient, there may other ways work better, advice?

how about:

sub ytrewq()     dim long, deltat_value1 long, deltat_value2 long, deltat_value3 long     dim rkill range      = 2             deltat_value1 = cells(a, 7).value         deltat_value2 = cells(a + 1, 7).value         deltat_value3 = cells(a + 2, 7).value         if abs(deltat_value1 - deltat_value2) > 5 , abs(deltat_value2 - deltat_value3) > 5             if rkill nothing                set rkill = cells(a + 1, 1)             else                set rkill = union(rkill, cells(a + 1, 1))             end if         end if         = + 1     loop until deltat_value1 = 14700      rkill.entirerow.delete end sub

Comments

Post a Comment

Popular posts from this blog

sublimetext3 - what keyboard shortcut is to comment/uncomment for this script tag in sublime -

Image
i have script tag in code, keyboard shortcut comment/uncomment script tag in sublime. after selecting script open , close tag. <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script> i pressing ctrl + shift + / , getting this /*<script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script>*/ also pressed ctrl + / , got this // <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> // </script> instead of <!-- <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script> --> script open , close tag in 2 lines not in 1 line , not have spaces too. for mac,high light lines want comment. hold 'command , / ' commented. for windows: high line or select lines ,then hold ctrl + / if not work: ...
Read more

post - imageshack API cURL -

i credentials correct. when send image through form this:(action="http://api.imageshack.com/v2/images/"). working fine when tried send $ch = curl_init($url); failed. code: enter code here <form action="" method="post" enctype="multipart/form-data"> select image upload: <input type="file" name="file" id="file" multiple> <input type="text" name="auth_token" id="auth_token" value="xxxxxxxxxxxxxxxx"> <input type="text" name="api_key" id="api_key" value="xxxxxxxxxxxxxxx"> <input type="submit" value="upload image" > </form> $url = ' http://api.imageshack.com/v2/images/ '; $temp = $_files["file"]['tmp_name']; echo $temp."<br>" ; $ch = curl_init($url); curl_setopt($ch, curlopt_post, true); curl...
Read more

dataset - MPAndroidchart returning no chart Data available -

i having problems mpandroidchart. adding temperature , humidity data chart, displays "no chart data available". here can see bug is? super grateful! //create data //set size of data int size = list.size(); if (size > 24){ size = 24;} //create lists form temp , hum arraylist<entry> temps = new arraylist<entry>(); arraylist<entry> hums = new arraylist<entry>(); //fill list temp values (int = 0; < size; i++){ entry value = new entry(math.round(list.get(list.size()-size + i).temp), (size-i)); temps.add(value); } //fill list hum values (int = 0; < size; i++){ entry value = new entry(math.round(list.get(list.size()-size + i).hum), (size-i)); hums.add(value); } ...
Read more