Thread
:
Automate Selection
View Single Post
#
4
Posted to microsoft.public.excel.misc
Don Guillett
external usenet poster
Posts: 10,124
Automate Selection
MsgBox sAssignedWeights
to
sheets("sheet1").range("a1").value=sAssignedWeight s
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"kaholynn" wrote in message
...
Selva,
Thank you so much. The VBA code works. Just have a question (I am new to
VBA
codes). How to view the results in a worksheet (example sheet1) instead of
the message box (MsgBox). I cannot view all the assigned weights.
Many thanks.
--
"Socko" wrote:
Take a look at the following vba procedure, paste it in your code
window and run it.
Sub AssignWeight()
Dim i, j, k As Double
Dim First, Second, Third As Double
Dim DiscreteLevel As Double
Dim sAssignedWeights As String
DiscreteLevel = 0.05
For i = 0 To 1 Step DiscreteLevel
For j = 0 To 1 Step DiscreteLevel
For k = 0 To 1 Step DiscreteLevel
If i + j + k = 1 Then
First = i
Second = j
Third = k
sAssignedWeights = sAssignedWeights & vbNewLine & _
First & ", " & Second & ", " & Third
End If
Next k
Next j
Next i
MsgBox sAssignedWeights
End Sub
I hope this helps
- Selva V Pasupathy
For more on VBA, Excel, & Other Programming
Please visit
http://socko.wordpress.com
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett