Fix code request for 'Auto Fit Row Height Of Merged Cells' formula. VBA Excel -

-

the primary issue macro when text long, height of merged cells becomes large.

the thread on source(listed below), not have satisfying solutions issue.

the merged cell takes info several sources , includes 'char(10) spaces make difficult create single cell column auto-fitting.

option explicit public sub autofitall()   call autofitmergedcells(range("a1:b2"))    call autofitmergedcells(range("c4:d6"))     call autofitmergedcells(range("e1:e3")) end sub  public sub autofitmergedcells(orange range)   dim theight integer   dim iptr integer   dim oldwidth single   dim oldzzwidth single   dim newwidth single   dim newheight single   sheets("sheet4")     oldwidth = 0     iptr = 1 orange.columns.count       oldwidth = oldwidth + .cells(1, orange.column + iptr - 1).columnwidth     next iptr     oldwidth = .cells(1, orange.column).columnwidth + .cells(1, orange.column + 1).columnwidth     orange.mergecells = false     newwidth = len(.cells(orange.row, orange.column).value)     oldzzwidth = .range("zz1").columnwidth     .range("zz1") = left(.cells(orange.row, orange.column).value, newwidth)     .range("zz1").wraptext = true     .columns("zz").columnwidth = oldwidth     .rows("1").entirerow.autofit     newheight = .rows("1").rowheight / orange.rows.count     .rows(cstr(orange.row) & ":" & cstr(orange.row + orange.rows.count - 1)).rowheight = newheight     orange.mergecells = true     orange.wraptext = true     .range("zz1").clearcontents     .range("zz1").columnwidth = oldzzwidth   end end sub

source: https://www.extendoffice.com/documents/excel/2342-excel-autofit-row-height-merged-cells.html?page_comment=2

try adding line below:

orange.rows(orange.rows.count).entirerow.autofit

after:

orange.mergecells = true orange.wraptext = true

in code above


Comments

Post a Comment

Popular posts from this blog

ios - MKAnnotationView layer is not of expected type: MKLayer -

-
Image
so code works fine logger riddled message. there way rid of or suppress it? postannotation.swift class postannotation: mkpointannotation { //mark: properties let post: post //mark: initialization init(post: post) { self.post = post super.init() self.coordinate = cllocationcoordinate2d(latitude: post.latitude, longitude: post.longitude) self.title = post.title self.subtitle = post.timestring() } } adding annotation let annotation = postannotation(post: post) self.map.addannotation(annotation) func mapview func mapview(_ mapview: mkmapview, viewfor annotation: mkannotation) -> mkannotationview? { if annotation mkuserlocation { return nil } var annotationview = mapview.dequeuereusableannotationview(withidentifier: "pin") as? mkpinannotationview if annotationview == nil { annotationview = mkpinannotationview(annotation: annotation, reuseidentifier: "pin")
Read more

ZeroMQ on Windows, with Qt Creator -

-
i have installed zmq link given below on windows 7. http://zeromq.org/distro:microsoft-windows 1) have c++ project in qt-creator , i'm using zmq c++ binding (zhelpers.hpp etc). 2) have added .lib installed zmq folder qtcreator 3) while compiling, compiler looks _imp__zmq_verion, in .dll files present in .lib have __imp_zmq_version. 4) causing undefined reference zmq_version. anyone else faced problem , has solution ?
Read more

unity3d - Unity SceneManager.LoadScene quits application -

-
i have 2 different scenes 1 named 'main' , other 'game' both added scenes in load. when use scenemanager.loadscene("game"); works no problem when tried return main scene code if (input.getkeydown (keycode.escape)) { scenemanager.loadscene("main"); } strangely game quits. thanks. sorry interruption. somewhere on other script found code. if (input.getkeydown (keycode.escape)) { application.quit (); } that's bad, know...
Read more