Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"cut" textstring
Hi Group,
If I create a textstring like "aa,bb,cc,dd,ee" to find for example *bb* by "Advanced Filter" (as code), how to cut the joint string back in parts as: ComboBox1.Text = "aa" ComboBox2.Text = "bb" etc. in a "compressed" code? Hope for some guidance. Brgds CG Rosén |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
"cut" textstring
sStr = "aa,bb,cc,dd,ee"
j = 0 for i = 1 to 13 Step 3 j = j + 1 sStr1 = Mid(sStr,i,2) activesheet.OleObjects("Combobox" & j).Object.Value = sStr1 Next -- Regards, Tom Ogilvy "CG Rosén" wrote in message ... Hi Group, If I create a textstring like "aa,bb,cc,dd,ee" to find for example *bb* by "Advanced Filter" (as code), how to cut the joint string back in parts as: ComboBox1.Text = "aa" ComboBox2.Text = "bb" etc. in a "compressed" code? Hope for some guidance. Brgds CG Rosén |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
"cut" textstring
Hi Tom,
Thanks for the help. When I see your elegant solution I also see that the question was not correct presented. The joint string does not contain parts that are of the same lenght. It should say "aaa,b,ccccccc,dd,eee" etc, in other word the parts may be of different lenght in different positions. Guess this complicates everything quite much? Brgds CG Rosén "Tom Ogilvy" wrote in message ... sStr = "aa,bb,cc,dd,ee" j = 0 for i = 1 to 13 Step 3 j = j + 1 sStr1 = Mid(sStr,i,2) activesheet.OleObjects("Combobox" & j).Object.Value = sStr1 Next -- Regards, Tom Ogilvy "CG Rosén" wrote in message ... Hi Group, If I create a textstring like "aa,bb,cc,dd,ee" to find for example *bb* by "Advanced Filter" (as code), how to cut the joint string back in parts as: ComboBox1.Text = "aa" ComboBox2.Text = "bb" etc. in a "compressed" code? Hope for some guidance. Brgds CG Rosén |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
"cut" textstring
if you have xl2000 or later:
sStr = "aa,bb,cccc,ddddddd,ee" v = Split(sStr,",") j = 0 for i = lbound(i) to ubound(i) j = j + 1 activesheet.OleObjects("Combobox" & j).Object.Value = v(i) Next -- Regards, Tom Ogilvy "CG Rosén" wrote in message ... Hi Tom, Thanks for the help. When I see your elegant solution I also see that the question was not correct presented. The joint string does not contain parts that are of the same lenght. It should say "aaa,b,ccccccc,dd,eee" etc, in other word the parts may be of different lenght in different positions. Guess this complicates everything quite much? Brgds CG Rosén "Tom Ogilvy" wrote in message ... sStr = "aa,bb,cc,dd,ee" j = 0 for i = 1 to 13 Step 3 j = j + 1 sStr1 = Mid(sStr,i,2) activesheet.OleObjects("Combobox" & j).Object.Value = sStr1 Next -- Regards, Tom Ogilvy "CG Rosén" wrote in message ... Hi Group, If I create a textstring like "aa,bb,cc,dd,ee" to find for example *bb* by "Advanced Filter" (as code), how to cut the joint string back in parts as: ComboBox1.Text = "aa" ComboBox2.Text = "bb" etc. in a "compressed" code? Hope for some guidance. Brgds CG Rosén |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
correct syntax for nesting "if", "and", and "vlookup"....if possib | Excel Worksheet Functions | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
HELP on "left","right","find","len","substitute" functions | Excel Discussion (Misc queries) | |||
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel |