excel - Convert inputbox data entry to cell data entry -

-

i want create guessing game without using input boxes. want code read guesses on column , tell me if right or wrong in column c. macro numbers 1 - 10 , macro should go through each guess.

here's code - 

sub vbaguessinggame() dim secret integer dim guess integer dim tries integer  randomize  'initializes random-number generator  secret = int((10 * rnd) + 1) 'generates random number between 1 , 10  guess = 0 tries = 0  while guess <> secret     guess = inputbox("guess number between 1 , 10.")     if guess = secret         tries = tries + 1         msgbox ("you guessed number!")         msgbox ("it took " & tries & " guess number")      elseif guess > secret         tries = tries + 1         msgbox ("wrong. high. try again.")     else         tries = tries + 1         msgbox ("wrong. low. try again.")     end if loop  end sub

put behind sheet1(sheet1), if that's sheet you're using: 

private sub worksheet_change(byval target range) dim guess integer, secret integer thiscolumn = target.column thisrow = target.row if isnumeric(target.cells.value)     guess = target.cells.value else: guess = 0 end if randomize secret = int(10 * rnd) + 1  if thiscolumn = 1     if guess = secret         cells(thisrow, 3).value = "right"     else         cells(thisrow, 3).value = "wrong"     end if        cells(thisrow, 4).value = secret end if end sub

Comments

Post a Comment

Popular posts from this blog

Delphi XE2 Indy10 udp client-server interchange using SendBuffer-ReceiveBuffer -

-
i use delphi xe2 , indy10 udp protocol. can't receive server echo on client side if use receivebuffer method. got "socket error # 10040" although send small echo message server client. console application illustrate problem below. in advance. program project1; {$apptype console} {$r *.res} uses system.sysutils, idglobal, idbasecomponent, idcomponent, idsockethandle, idudpclient, idudpserver, idudpbase, idstack; type tudp_serv = class(tidudpserver) procedure udpsvudpread(athread: tidudplistenerthread; adata: tidbytes; abinding: tidsockethandle); end; var udpserver: tudp_serv; udpcl: tidudpclient; bsnd, brcv: tbytes; s: string; k: integer; //============================================================================== procedure tudp_serv.udpsvudpread(athread: tidudplistenerthread; adata: tidbytes; abinding: tidsockethandle); begin writeln(' server read: ' + tohex(adata, length(adata))); abinding sendto(peerip, peerport, adat...
Read more

Qt ActiveX WMI QAxBase::dynamicCallHelper: ItemIndex(int): No such property in -

-
i new windows programming. here goes code objiwbemlocator = new qaxobject("wbemscripting.swbemlocator"); objwmiservice = objiwbemlocator->querysubobject("connectserver(qstring&,qstring&)",qstring("."),qstring("root\\cimv2")); qaxobject* returnlist = objwmiservice->querysubobject("execquery(qstring&)", qstring("select * %1").arg(domain)); qaxobject* result = returnlist->querysubobject("itemindex(int)", 0); i getting error on runtime qt activex wmi qaxbase::dynamiccallhelper: itemindex(int): no such property in but itemindex method exists msdn says the itemindex method not work collections not contain swbemobjects, such swbemmethodset, swbemnamedvalueset, swbemprivilegeset, swbempropertyset, , swbemqualifierset. what selecting ? have tried iterating on collection ? plus need minimum windows vista itemindex method. hope helps
Read more

Enable autocomplete or intellisense in Atom editor for PHP -

-
i'm first time user of atom editor php code. atom can autocomplete built-in functions of php. possible make editor autocomplete custom function written in separate file? function.php <?php function printsomething() { echo "hello world"; } index.php <?php require_once "function.php"; printsomething(); // autocompleted atom editor while typing thanks in advance. there text file in %userprofile%.atom called snippets.cson. in there can add snippet. more this: http://flight-manual.atom.io/using-atom/sections/snippets/ but need think can use later on other files well. otherwise need copy , paste.
Read more