| ©«¤l4901 ¥DÃD44 ºëµØ24 ¿n¤À4916 ÂI¦W267  §@·~¨t²ÎWindows 7 ³nÅ骩¥»Office 20xx ¾\ŪÅv150 ©Ê§O¨k ¨Ó¦Û¥x¥_ µù¥U®É¶¡2010-4-30 ³Ì«áµn¿ý2025-10-31 
                
 | 
                
| ¦^´_ 1# lifedidi ½Æ»s¥N½XPrivate Sub CommandButton1_Click()
With Sheet1
Set a = .[A65536].End(xlUp).Offset(1, 0)
   With a.Resize(, 3)
     .Value = Array(TimeValue(TextBox1), TimeValue(TextBox2), TimeValue(TextBox3))
End With
End With
End Sub
 | 
 |