Debugging Error in VBA Code -

-

i have following code adds zeroes number until number total of 7 digits long. worked fine until now, code is:

sub addzeroes() 'declarations dim integer, j integer, endrow long 'converts column format text format application.screenupdating = false columns("a:a").select selection.numberformat = "@" 'finds bottom row endrow = activesheet.range("a1").end(xldown).row 'selects top cell in column activesheet.range("a1").select  'loop move cell cell = 1 endrow - 1             'moves cell down 1. assumes there's header row starts @ row 2             activecell.offset(1, 0).select             'the do-while loop keeps adding zeroes front of cell value until     hits     length of 7 while len(activecell.value) < 7                             activecell.value = "0" & activecell.value             loop next application.screenupdating = true end sub

the code loops through column , if number not have 7 total numbers adds 0s beginning. error appearing @ portion of code 

for = 1 endrow - 1

i cannot seem figure out wrong. portion tells macro once reaches end of list find blank space , move 1 stops on last number, , has worked until today.

you're using integer value i causing overflow in variable.

try this:

option explicit sub addzeroes() 'declarations dim cl range dim long, endrow long      application.screenupdating = false         'converts column format text format         columns("a:a").numberformat = "@"         'finds bottom row         endrow = activesheet.range("a1048576").end(xlup).row         '## or, excel 2003 , prior: ##'         'endrow = activesheet.range("a65536").end(xlup).row          'loop move cell cell         = 1 endrow - 1             set cl = range("a" & i)             cl             'the do-while loop keeps adding zeroes front of cell value until     hits     length of 7                 while len(.value) < 7                     .value = "0" & .value                 loop             end         next     application.screenupdating = true end sub

Comments

Post a Comment

Popular posts from this blog

java - Jmockit String final length method mocking Issue -

-
using jmockit 1.2 jar, trying mock string's length method getting unexpected invocation exception: failed: test java.lang.illegalstateexception: missing invocation mocked type @ point; please make sure such invocations appear after declaration of suitable mock field or parameter @ stringdemo.testa$1.<init>(testa.java:17) @ stringdemo.testa.test(testa.java:13) i using testng: @test public void test() throws exception { new expectations() { @mocked("length") string astring; { astring.length(); result = 2; } }; system.out.println(a.showa("test")); } } actual class a: public class { public static int showa(string str){ int a= str.length(); return a; } } this wrong way of recording expected results. shouldn't mock , record string's length() method, record showa() instead. here solution @suppresswarnings("unused...
Read more

What is the difference between data design and data model(ERD) -

-
i have google question , find answer in day. know, data design many many table have list column,and mark pk , fk. why er-diagram have find this? data design process of designing database. main output of data design detailed logical data model of database. some people data design includes of needed logical , physical design choices , physical storage parameters needed generate design in data definition language. technically, database analysis, database analysts (dbas) trained do. while person can both data design , database analysis, these 2 different tasks. data design models data. database analysis takes model , applies 1 or more database engines (relational, hierarchical, nosql). a logical data model 1 of main outputs of data design. data model represented entity relationship diagram, or er diagram.
Read more

ios - Can NSManagedObject conform to NSCoding -

-
i need transfer single object across device. right converting nsmanagedobject dictionary , archiving , sending nsdata. upon receiving unarchiving it. transfer nsmanagedobject archiving , unarchiving instead of creating intermediate data object. @interface test : nsmanagedobject<nscoding> @property (nonatomic, retain) nsstring * title; @end @implementation test @dynamic title; - (id)initwithcoder:(nscoder *)coder { self = [super init]; if (self) { self.title = [coder decodeobjectforkey:@"title"]; //<crash } return self; } - (void)encodewithcoder:(nscoder *)coder { [coder encodeobject:self.title forkey:@"title"]; } @end nsdata *archivedobjects = [nskeyedarchiver archiveddatawithrootobject:testobj]; nsdata *objectsdata = archivedobjects; if ([objectsdata length] > 0) { nsarray *objects = [nskeyedunarchiver unarchiveobjectwithdata:objectsdata]; } the problem above code is. crashes @ self.title in initwithcoder sa...
Read more