If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Convert MM to inch and add to comment
How would I convert a number from MM to Inch and add the results to
the comment? here is what is the cell 800X400X300 the results can be entered in to a comment 31.496X15.748X11.811 or 31.496 15.748 11.811 the formula is 800/25.4= 31.496 Thanks in advanced |
#2
|
|||
|
|||
Convert MM to inch and add to comment
This sub does the job with activecell, adjust ranges as required!
Change "X" to Chr(10) for second format! Sub mmtoinch() dimarray = Split(ActiveCell, "X") ActiveCell.ClearComments ActiveCell.AddComment (Format(dimarray(0) / 25.4, "###.000") & "X" & _ Format(dimarray(1) / 25.4, "###.000") & "X" & _ Format(dimarray(2) / 25.4, "###.000")) End Sub Regards, Stefi „rpick60” ezt *rta: How would I convert a number from MM to Inch and add the results to the comment? here is what is the cell 800X400X300 the results can be entered in to a comment 31.496X15.748X11.811 or 31.496 15.748 11.811 the formula is 800/25.4= 31.496 Thanks in advanced |
#3
|
|||
|
|||
Convert MM to inch and add to comment
On Dec 4, 3:51 am, Stefi wrote:
This sub does the job with activecell, adjust ranges as required! Change "X" to Chr(10) for second format! Sub mmtoinch() dimarray = Split(ActiveCell, "X") ActiveCell.ClearComments ActiveCell.AddComment (Format(dimarray(0) / 25.4, "###.000") & "X" & _ Format(dimarray(1) / 25.4, "###.000") & "X" & _ Format(dimarray(2) / 25.4, "###.000")) End Sub Regards, Stefi rpick60" ezt rta: How would I convert a number from MM to Inch and add the results to the comment? here is what is the cell 800X400X300 the results can be entered in to a comment 31.496X15.748X11.811 or 31.496 15.748 11.811 the formula is 800/25.4= 31.496 Thanks in advanced- Hide quoted text - - Show quoted text - Thanks it work great |
#4
|
|||
|
|||
Convert MM to inch and add to comment
You are welcome! Thanks for the feedback!
Stefi „rpick60” ezt *rta: On Dec 4, 3:51 am, Stefi wrote: This sub does the job with activecell, adjust ranges as required! Change "X" to Chr(10) for second format! Sub mmtoinch() dimarray = Split(ActiveCell, "X") ActiveCell.ClearComments ActiveCell.AddComment (Format(dimarray(0) / 25.4, "###.000") & "X" & _ Format(dimarray(1) / 25.4, "###.000") & "X" & _ Format(dimarray(2) / 25.4, "###.000")) End Sub Regards, Stefi „rpick60" ezt *rta: How would I convert a number from MM to Inch and add the results to the comment? here is what is the cell 800X400X300 the results can be entered in to a comment 31.496X15.748X11.811 or 31.496 15.748 11.811 the formula is 800/25.4= 31.496 Thanks in advanced- Hide quoted text - - Show quoted text - Thanks it work great |
#5
|
|||
|
|||
Convert MM to inch and add to comment
the results can be entered into a comment
31.496X15.748X11.811 Just a technique for display might be to use the Multiplication symbol instead of the letter X. Sub Demo() Dim j As Long Dim v As Variant With ActiveCell '// Remove... .Value = "800X400X300" v = Split(Trim(.Value), "X") For j = LBound(v) To UBound(v) v(j) = Format(v(j) / 25.4, "#.000") Next j .ClearComments .AddComment Join(v, Space(1) & Chr(215) & Space(1)) .Comment.Shape.TextFrame.AutoSize = True End With End Sub -- HTH Dana DeLouis "rpick60" wrote in message ... How would I convert a number from MM to Inch and add the results to the comment? here is what is the cell 800X400X300 the results can be entered in to a comment 31.496X15.748X11.811 or 31.496 15.748 11.811 the formula is 800/25.4= 31.496 Thanks in advanced |
Thread Tools | |
Display Modes | |
|
|