Speed Up Working With Comments in Excel VBA -

-

this example contrived, created explain problem i'm having. want code run faster does. on new sheet each loop of cell starts fast, if let run near completion, , run again, hit 100ms per cell. in sheet have 16000 cells lot of comments this, , manipulated individually every time code runs. in example same, in real application each 1 different.

is there anyway make process faster?

option explicit public declare ptrsafe function gettickcount lib "kernel32.dll" () long public sub breakthecommentsystem() dim integer dim t long dim cell range dim dr range set dr = range(cells(2, 1), cells(4000, 8))  dim rstr string rstr = "abcdefg hijk lmnop qrs tuv wx yz" & chr(10)  = 1 5     rstr = rstr & rstr next  each cell in dr     t = gettickcount     cell         if .comment nothing             .addcomment         else             .comment                 .shape.textframe.characters.font                     .bold = true                     .name = "arial"                     .size = 8                 end                 .shape.textframe.autosize = true                 .text rstr             end         end if      end     debug.print (gettickcount - t & " ms ") next  rstr = empty = empty t = empty set cell = nothing set dr = nothing   end sub

update 12-11-2015, wanted noted somewhere in case runs it, reason trying optimize because vsto not let me add workbook file these comments. after 6 months of working microsoft, confirmed bug in vsto , excel.

https://connect.microsoft.com/visualstudio/feedback/details/1610713/vsto-hangs-while-editing-an-excel-macro-enabled-workbook-xlsm-file

according msdn comments collection , comment object documentation, can reference comments within worksheet through indexed position , deal them directly rather cycle through each cell , determine whether contains comment.

dim c long activesheet    '<- set worksheet reference properly!     c = 1 .comments.count         .comments(c)             debug.print .parent.address(0, 0)  ' .parent cell containing comment             ' stuff .comment object         end     next c end

also according official docs range.specialcells method can determine subset of cells in worksheet using xlcelltypecomments constant type parameter.

dim comcel range activesheet    '<- set worksheet reference properly!     each comcel in .cells.specialcells(xlcelltypecomments)         comcel.comment             debug.print .parent.address(0, 0)  ' .parent cell containing comment             ' stuff .comment object         end     next comcel end

i'm still unclear reasoning behind filling non-commented cells blank comment if trying work comments on worksheet better work subset of commented cells rather cycling through cells looking comment.


Comments

Post a Comment

Popular posts from this blog

c# - Better 64-bit byte array hash -

-
i need hash algorithm produces 64-bit hash code ( long ) fewer collisions string.gethashcode() , fast (no expensive calls cryptographic functions). here's implementation of fnv still shows 3% of collisions after testing 2 million random strings. need number way lower. void main() { const string chars = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz!#@$%^&*()_+}{\":?><,./;'[]0123456789\\"; const int n = 2000000; var random = new random(); var hashes = new hashset<long>(); int collisions = 0; for(int = 0; < n; i++) { var len = random.next(chars.length); var str = new char[len]; (int j = 0; j < len; j++) { str[j] = chars[random.next(chars.length)]; } var s = new string(str); if(!hashes.add(get64bithash( s ))) collisions++; } console.writeline("collision percentage after " + n + " random strings: " + ((doubl
Read more

webrtc - Which ICE candidate am I using and why? -

-
[questions in bold below] i have setup kurento media server 5.1.3 in datacenter behind firewall running os ubuntu 14.04. has 2 network cards: 222.222.222.222 (eth0 - private ip) 111.111.111.111 (eth1 - public ip) attached below sdp (setremotedescription) when browser connected kurento media server type: answer, sdp: v=0 o=- 5487318114793304426 0 in ip4 0.0.0.0 s=kurento media server c=in ip4 0.0.0.0 t=0 0 a=group:bundle audio video m=audio 59068 rtp/savpf 111 0 c=in ip4 111.111.111.111 a=rtpmap:111 opus/48000/2 a=rtpmap:0 pcmu/8000 a=sendrecv a=rtcp:59068 in ip4 111.111.111.111 a=rtcp-mux a=ssrc:669011897 cname:user39019747@host-6e83e4c2 a=extmap:3 http://www.webrtc.org/experiments/rtp-hdrext/abs-send-time a=mid:audio b=as:20 a=ice-ufrag:ymdk a=ice-pwd:lylifk5ueqzpwm91ddj37e a=fingerprint:sha-256 ff:0f:81:8c:41:4e:b4:b6:c6:d8:36:f3:d6:5f:09:fd:5f:af:13:b3:9d:fc:12:66:ac:f3:56:d6:5b:0a:73:5d a=candidate:1 1 udp 2013266431 111.111.111.111 55239 typ host a=candidate:2 1 udp
Read more

php - Zend Framework / Skeleton-Application / Composer install issue -

-
i trying create zend framework application using skeleton in netbeans. when run composer install, following error message: "c:\php\php.exe" "c:\composer\composer.phar" "--ansi" "--no-interaction" "update" "--dev" using deprecated option "dev". dev packages installed default now. loading composer repositories package information updating dependencies (including require-dev) requirements not resolved installable set of packages. problem 1 - package requires php >=5.5 php version (5.4.42) not satisfy requirement. problem 2 - installation request zendframework/zendframework 2.5.1 -> satisfiable zendframework/zendframework[2.5.1]. - zendframework/zendframework 2.5.1 requires php >=5.5 -> php version (5.4.42) not satisfy requirement. done. apparently, zend framework only needs php 5.3+ contradicts above. need use php 5.4. my composer.json following: { "name": "
Read more