Need to Restart an Excel VBA Do...Until Loop -

-

here's code seek assistance:

for = 1 numplayers     replacementdone = 0     until replacementdone <> 0         replacecards = inputbox("blah...blah")         if replacecards <> 0             replace100 = application.round((replacecards / 100), 0)             if replace100 < 5                 players(i, replace100) = deck(deckindex)                 deckindex = deckindex + 1             else                 msgbox "invalid entry - try again."             end if             replace10 = application.round(application.mod(replacecards, 100) / 10, 0)             if replace10 < 5 , replace10 > replace100                 players(i, replace10) = deck(deckindex)                 deckindex = deckindex + 1             else                 msgbox "invalid entry - try again."             end if             replace1 = application.round(application.mod(replacecards, 10), 0)             if replace1 < 5 , replace1 > replace10                 players(i, replace1) = deck(deckindex)                 deckindex = deckindex + 1             else                 msgbox "invalid entry - try again."             end if         end if     loop next

at each point if statement untrue , msgbox "invalid entry - try again." appear, want restart do until loop. responses i've seen regarding restarting do until loop address user's code logic rather identifying how restart. appreciated.

one way use "goto" statement, so:

for = 1 numplayers     replacementdone = 0      loopstart:     until replacementdone <> 0         replacecards = inputbox("blah...blah")         if replacecards <> 0             replace100 = application.round((replacecards / 100), 0)             if replace100 < 5                 players(i, replace100) = deck(deckindex)                 deckindex = deckindex + 1             else                 msgbox "invalid entry - try again."                 goto loopstart             end if             replace10 = application.round(application.mod(replacecards, 100) / 10, 0)             if replace10 < 5 , replace10 > replace100                 players(i, replace10) = deck(deckindex)                 deckindex = deckindex + 1             else                 msgbox "invalid entry - try again."                 goto loopstart             end if             replace1 = application.round(application.mod(replacecards, 10), 0)             if replace1 < 5 , replace1 > replace10                 players(i, replace1) = deck(deckindex)                 deckindex = deckindex + 1             else                 msgbox "invalid entry - try again."                 goto loopstart             end if         end if     loop next

Comments

Post a Comment

Popular posts from this blog

java - HTTP Status 500 - An exception occurred processing JSP page /second.jsp at line 15 -

-
this question has answer here: what nullpointerexception, , how fix it? 12 answers i have 4 pages on jsp web project student showing details db.. have used tomcat web server. index.html <body> <h1> student search page</h1> <form action="second.jsp"> <h2> enter id search details</h2> <input type=text name=id1 /> <br/> <input type=submit value=search /> </form> </body> second.jsp <body> <% string id =(request.getparameter("id1")); studentdao std=new studentdao(); student s=std.searchinfo("id"); %> <h1> <%=s.showstudent()%></h1> </body> student.java import java.io.*; public class student implements serializable { string name; string id1,phone,clas; ...
Read more

asp.net mvc - Cannot display error message on Editor or EditorFor -

-
in mvc application, can display error messages inputs i.e. textboxfor , dropdownlist , etc. however, using same approach, cannot show validation error kendo().editor() or kendo().editorfor() . tried validationmessage beside validationmessagefor , not make sense. might problem be? view: <script type="text/javascript"> $(function () { //for using kendo validation: $("form").kendovalidator(); }); </script> //validation works textboxfor, dropdownlist, etc.: @html.labelfor(m => m.summary) @html.textboxfor(m => m.summary, new { maxlength = 50, @class = "k-textbox"}) @html.validationmessagefor(m => m.summary) //validation not work editor or editorfor: @html.labelfor(m => m.description, new { maxlength = 1000, @class = "editor-label" }) @(html.kendo().editor() //@(html.kendo().editorfor(m=>m.description) //also tried .name("description") .htmlattributes(new { @class...
Read more

php - Using str_replace to translate a MySQL Table in html -

-
i have website contains pricelist of cs:go items. now, how did this: mysql db w/ prices --> select db x ( item name ) --> echo table ( works fine ) now want translation of item names. how planned it: mysql db --> $result= ( signature character ) --> $translate = str_replace (signature character $result) however, there's issue code or str_replace think. $translate returns $result no filtering. <?php require 'lang.php'; $servername = "localhost"; $username = ""; $dbname = ""; $password = ""; // create connection $conn = new mysqli($servername, $username, $password, $dbname); // check connection if ($conn->connect_error) { die("connection failed: " . $conn->connect_error); } // filter name $sql = "select name, price utf name 'k%'"; $result = $conn->query($sql); // translate $tr = str_replace('k','karambit','$result'); // ech...
Read more