- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-25
|
Sub TEST_3()
°O¿ý ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text, [©ú²Ó!L3]
End Sub
¡@
¡@
Sub °O¿ý(BtnText$, UsrName$)
Dim X As New Application, xB As Workbook
Set xB = X.Workbooks.Open(ThisWorkbook.Path & "\¦^õX.xls")
xB.Sheets("¸ê®Æ¦^¶Ç").[B65536].End(xlUp)(2).Resize(1, 3) = Array(UsrName, Now, BtnText)
xB.Close 1
End Sub
¡@
´ú¸ÕÀÉ¡G
20160117_¦^¶Ç¥t¤@ÀÉ®×.rar (15.43 KB)
¡@
·|¤£·|¼vÅTì¨Óµ{¦¡¡H¤£½T©w¡I¡I¡I¡@ |
|