Copy Cell Contents - Excel 2010 VBA -


i trying accomplish relatively (i think) simple task. want create button copies contents of active cell clipboard. use crtl+v paste application. goal copy string of text inside of excel sheet... including formatting , line breaks. want avoid having press f2, crtl+shift+home, crtl+c. there way this?

plain old crtl+c , activecell.copy not achieve right result because rid of line breaks when pasting app. tia

how this. it's character character approach : 

sub copycellcontents()  'divides original cell multiple, delimiter line break (character 10) 'copies individual character text , formatting 'copies result clipboard  dim wssrc worksheet 'sheet original cells, ones want copy dim wstemp worksheet 'sheet temporatily stored data, cells here in clipboard dim intorigchars integer 'count of characters in original cell dim intdestchars integer 'count of characters in destination cell (varies rows)  set wssrc = worksheets("format") 'change suit set wstemp = worksheets("temp") 'change suit, create new sheet, purpose of temporarily storing contents of cell      wssrc         intdestchars = 1         'loop through characters in original cell; change ".cells(1, 1)" suit - use rename tool change of them below         intorigchars = 1 .cells(1, 1).characters.count             'if character line break (character 10), move next row , reset destination characters 1             if asc(.cells(1, 1).characters(intorigchars, 1).text) = 10                 rowadd = rowadd + 1                 intdestchars = 1             else                 'copy text , formatting temporary cells                 wstemp.cells(1 + rowadd, 1).characters(intdestchars, 1)                    .text = wssrc.cells(1, 1).characters(intorigchars, 1).text                    .font                     .bold = wssrc.cells(1, 1).characters(intorigchars, 1).font.bold                     .color = wssrc.cells(1, 1).characters(intorigchars, 1).font.color                     .italic = wssrc.cells(1, 1).characters(intorigchars, 1).font.italic                     .underline = wssrc.cells(1, 1).characters(intorigchars, 1).font.underline                     .fontstyle = wssrc.cells(1, 1).characters(intorigchars, 1).font.fontstyle                     end                 end                 intdestchars = intdestchars + 1             end if          next     end 'wssrc      'put result cells clipboard     wstemp         .range(.cells(1, 1), .cells(rowadd + 1, 1)).copy     end  end sub

Comments

Post a Comment

Popular posts from this blog

cakephp - simple blog with croogo -

i not problem, made simple blog in croogo, problem is not adding or modifying or delete, because arabic language ?? function add in controller `public function admin_add() { $this->set('title_for_layout', __('add part')); if (!empty($this->request->data)) { $this->part->create(); if ($this->part->save($this->request->data)) { $this->session->setflash(__('the part has been saved'), 'default', array('class' => 'success')); $this->redirect(array('action' => 'index'));//, $this->part->id)); } else { $this->session->setflash(__('the part not saved. please, try again.'), 'default', array('class' => 'error')); } } }` => model `class part extends appmodel { public $name = 'part'; var $belongst...
Read more

How to group boxplot outliers in gnuplot -

i have large set of data points. try plot them boxplot, of outliers exact same value , represented on line beside each other. found how set horizontal distance between outliers in gnuplot boxplot , doesn't much, apparently not possible. is possible group outliers together, print 1 point , print number in brackets beside indicate how many points there are? think make more readable in graph. for information, have 3 boxplots 1 x value , times 6 in 1 graph. using gnuplot 5 , played around pointsize, doesn't reduce distance anymore. hope can help! edit: set terminal pdf set output 'dat.pdf' file0 = 'dat1.dat' file1 = 'dat2.dat' file2 = 'dat3.dat' set pointsize 0.2 set notitle set xlabel 'x' set ylabel 'y' header = system('head -1 '.file0); n = words(header) set xtics ('' 1) set [i=1:n] xtics add (word(header, i) i) set style data boxplot plot file0 using (1-0.25):1:(0.2) boxplot lw 2 lc rgb '#8b0000...
Read more

bash - Performing variable substitution in a string -

i have string contains use of variable, , i'd substitute variable's value string. right best have is #!/bin/bash foo='$name; echo bar' name="the name" expanded="$(eval echo "$foo")" echo "$expanded" which has obvious defects: prints the name bar while i'd print the name; echo bar instead of eval can bash's regex matching bash's string replacement: foo='$name; echo bar' name="the name" [[ "$foo" =~ \$([[:alnum:]]+) ]] && s="${!bash_rematch[1]}" && expanded="${foo/\$${bash_rematch[1]}/$s}" echo "$expanded" name; echo bar
Read more