excel vba - vba output 2D an array to sheet issue -


i'm trying output following 2d array sheet in workbook. code runs array not visible on sheet. please me find error. thanks

dim r long, c long, varr variant  varr = array(array("n", "c.181c > a", "p.q61k", "", "0.11"), _               array("c", "c.98c > a", "p.s33y", "", "36%"), _               array("k", "c.2447a > t", "p.d816v", "", "8"), _               array("b", "c.1799t > t", "p.v600e", "", "0.08"), _               array("n", "c.181c > a", "p.q61k", "", "0.11"), _               array("c", "c.98c > a", "p.s33y", "", "36"), _               array("n", "c.181c > a", "p.q61k", "", "0.11"), _               array("c", "c.98c > a", "p.s33y", "", "36"))    r = lbound(varr) ubound(varr)     c = lbound(varr(lbound(varr))) ubound(varr(ubound(varr)))       'msgbox "varr(" & r & ")(" & c & ") = " & varr(r)(c)     next   next lrow = worksheets("sheet2").range("a" & rows.count).end(xlup).row  sheets("sheet2").select worksheets("sheet2").range("c" & lrow + 1 & ":g" & lrow + 9).value = varr

for 1 thing trying paste had 8 rows range 9 rows. -- more fundamental problem in vba array of arrays different 2 - dimensional array. should convert 2-d array before pasting:

sub test()      dim r long, c long, varr variant     dim varr2 variant     dim lrow long      varr = array(array("n", "c.181c > a", "p.q61k", "", "0.11"), _                   array("c", "c.98c > a", "p.s33y", "", "36%"), _                   array("k", "c.2447a > t", "p.d816v", "", "8"), _                   array("b", "c.1799t > t", "p.v600e", "", "0.08"), _                   array("n", "c.181c > a", "p.q61k", "", "0.11"), _                   array("c", "c.98c > a", "p.s33y", "", "36"), _                   array("n", "c.181c > a", "p.q61k", "", "0.11"), _                   array("c", "c.98c > a", "p.s33y", "", "36"))      redim varr2(0 7, 0 4)     r = 0 7         c = 0 4             varr2(r, c) = varr(r)(c)         next c     next r      lrow = worksheets("sheet2").range("a" & rows.count).end(xlup).row      sheets("sheet2").select     worksheets("sheet2").range("c" & lrow + 1 & ":g" & lrow + 8).value = varr2  end sub

Comments

Post a Comment

Popular posts from this blog

searchKeyword not working in AngularJS filter -

i writing app using angularjs on front end. want search through table word/field; 1 search box everything. according article here: http://hello-angularjs.appspot.com/searchtable can use filter: searchkeyword this. this code, , not working expected. <label>search: <input ng-model="searchkeyword"></label> <table ng-repeat="post in posts | orderby: sort | filter: searchkeyword"> <tr> <td> {{index(post)}} </td> <td> {{post.title}} </td> <td> {{post.author}} </td> <td> {{post.content}} </td> <td> {{post.date | date: "d/m/yyyy"}} </td> </tr> </table> what should do? thank you try this: controller $scope.posts = [ {title:'title one', author:'author one', content: 'content one'}, {title:'title two', author:'author two', content: 'cont...
Read more

sequelize.js - Sequelize: sort by enum cases -

i have model ( article ) field (the name type ) of type enum('source', 'translated') , return 1 article ordered type field. source articles should returned before translated articles. like: article.findone(order: [ { type: [ 'source', 'translated' ] } ]); unfortunately there appears no built-in solution sorting enums. instead have sort by case , couldn't find documentation on how sequelize. what conventional approach here? sorting case hard in sequelize, sort field (the second answer in linked post) should possible: order: sequelize.fn('field', sequelize.col('type'), 'source', 'translated') it's supported mysql far know though
Read more

user interface - how to replace an ongoing process of image capture from another process call over the same ImageLabel in python's GUI TKinter -

i trying use following code create interactive gui changes color-space(hsv, rbg, grayscale etc) on event of button click. display opencv video in tkinter using multiprocessing being new python having problems multiprocessing , attempts on making gui change it's color space on button clicks hangs entire system. on it's implementation highly appreciated. thankyou. below code: import cv2 pil import image,imagetk import tkinter tk import numpy np multiprocessing import process , queue def quit_it(root,process): root.destroy() process.terminate() def black_andwhite(root,process): process.terminate p=process(target=capture_image, args=(5,queue, )) p.start() root.after(0, func=lambda: update_all(root, image_label, queue)) def update_image(image_label, queue): frame = queue.get() = image.fromarray(frame) b = imagetk.photoimage(image=a) image_label.configure(image=b) image_label._image_cache = b root.update() def update_all(root...
Read more