excel - Visual Basic Application -
if me pleased ... wrote code in vba count several things , code must highlight cells in excell color didn't , don't know why ...
here code :
private sub commandbutton1_click() dim studenti integer dim prezenti integer dim absenti integer dim integer studenti = activesheet.columns("d").specialcells(xltextvalues).rows.count - 1 prezenti = 0 absenti = 0 = 3 studenti + 2 if (cells(i, 4).value = "a") absenti = absenti + 1 if (optionbutton2.value = true) cells(i, 3).font.color = vbgreen 'rgb(255, 0, 0) end if end if if (cells(i, 4).value = "p") prezenti = prezenti + 1 if (optionbutton1.value = true) cells(i, 3).font.color = rgb(0, 255, 0) end if end if if (optionbutton3.value = true) cells(i, 3).font.color = rgb(0, 0, 0) end if next
the following excel vba code snippet perform core operation, namely: highlighting absenti/presenti (text value "a" or "p" in column d) red/green text color:
private sub commandbutton1_click() dim studenti integer dim prezenti integer dim absenti integer dim integer studenti = cells(rows.count, "d").end(xlup).row = 3 studenti + 2 if (cells(i, 4).value = "a") cells(i, 4).font.color = rgb(255, 0, 0) 'red elseif (cells(i, 4).value = "p") cells(i, 4).font.color = rgb(0, 255, 0) 'green end if next end sub
you can modify further purpose adding business logic (all optionbutton.value, counters, etc.).
hope help. best regards
Comments
Post a Comment