可以做一个宏.这样做:画一个文本框,输入土豆两个字,放在A1单元格处,B1就用于统计点击次数.编一个宏如下:Sub 土豆() Range("B1").Select ActiveCell.FormulaR1C1 = ActiveCell.Value + 1 Range("B1").SelectEnd Sub选中文本框,右键--指定宏,选土豆宏.确定.即可.其它的也这样做一个宏.就行了.