cell = Table[Null, {i, 1, 10}, {j, 1, 10}];
Column[
{Grid[Table[
With[{i = i, j = j},
Deploy@Button[
Dynamic[If[cell[[i, j]] === Null, "",
FixedPoint[ReleaseHold, cell[[i, j]]]]], selection = {i, j},
Appearance -> "Frameless", ImageSize -> 50]], {i, 1, 10}, {j,
1, 10}], Frame -> All],
Dynamic@
Row[{"Cell" <> ToString[selection], ":=",
InputField[
Dynamic[cell[[selection[[1]],
selection[[2]]]](*,{(cell[[selection[[1]],selection[[2]]]]=
Unevaluated[#])&}*)], Hold[Expression]]}]
}]