You can use the function for Ticks
. This particular function comes from the Ticks
documentation , (Click "Generalizations and Extensions.")
ticks[min_, max_] := Table[If[EvenQ[i], {i, i, .06, Red}, {i, i, .02, Blue}], {i, Ceiling[min], Floor[max], 1}] Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}, Ticks -> ticks]

You can use its variation to highlight major and minor ticks (for example, integer and tenth values. This function is also directly from the documentation (in the "Applications" section).
ticks[min_, max_] := Join[Table[{i, Style[i, 12], {.04, 0}}, {i, Ceiling[min], Floor[max]}], Table[{j + .5, , {.02, 0}}, {j, Round[min], Round[max - 1], 1}]]
