ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó§Q¥ÎVBA°O¿ý¨Ï¥Î°Ê§@¡A¨Ã¦^¶Ç¸ê®Æ¦Ü¬Y¸ô®|ªº¯S©wÀɮפº¡C

[µo°Ý] ¦p¦ó§Q¥ÎVBA°O¿ý¨Ï¥Î°Ê§@¡A¨Ã¦^¶Ç¸ê®Æ¦Ü¬Y¸ô®|ªº¯S©wÀɮפº¡C

°ÝÃD               
¦p¦ó§Q¥ÎVBA°O¿ý¨Ï¥Î°Ê§@¡A¨Ã¦^¶Ç¸ê®Æ¦Ü¬Y¸ô®|ªº¯S©wÀɮפº¡C               
               
               
¸Ô²Ó°ÝÃD¤º®e               
"¸ê®Æ" ¬¡­¶Ã¯¸Ì¡A·í¨Ï¥ÎªÌ¨C«ö¤@¤U¤u§@ªí¸Ìªº¥¨¶°«ö¶s¡A´N·|¦^¶Ç¸Ó¥¨¶°¦WºÙ¡B·í¤U¤é´Á®É¶¡»P               
"©ú²Ó"¤u§@ªí¸Ìªº L3Äæ ¨ì¥t¤@¬¡­¶Ã¯¬¡­¶Ã¯(¦^õX)¸Ì­±¡A¦Ó¥B¨Ï¥ÎªÌ¨C«ö¤@¦¸´N©¹¤U·s¼W¬ö¿ý¤@µ§(¤£Âл\)¡F               
½Ð¤j¤jÀ°§Ú¨Ì¤W­±»Ý¨D¼¶¼gVBA¨Ã¥B¥H¤£¼vÅT©Î¤zÂZ­ì¥»¥¨¶°¬°­ì«h¡AÁÂÁ¡I               
               
        µù1¡G¥»½d¨Ò¬Ò¥u¬OªÅ«ö¶s¡A¨ÃµL¥¨¶°¡C       
        ¨Ï¥Î²ßºD¡G"¦^õX" ¬¡­¶Ã¯·|©ñ¦b¤@¯S©w¸ô®|¸Ì­±(¦pC:\test)       
                              "¸ê®Æ" ¬¡­¶Ã¯«h¥i¯à³Q¦h¦ì¨Ï¥ÎªÌ½Æ»s¨ì¥ô¦ó¸ô®|¨Ï¥Î¡C
¤U¸ü½d¨ÒÀÉ
20160117_§Q¥ÎVBA¤º®eÀɦ^±N¶Ç¥t¤@ÀÉ®×.rar (8.1 KB)

¹Ï¤ù¥Ü·N

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¡@

TOP

¦^´_ 2# ­ã´£³¡ªL


    Set xB = X.Workbooks.Open(ThisWorkbook.Path & "\¦^õX.xls")

½Ð±Ð¤@¤U­ã¤j¡A¤W­±¬O±z¨âÀɮצP¤@¼hªº¸ô®|VBA¡A­Y§Ú¸ô®|¬° "\\TEST\TEST1\´ú¸Õ\¨Ó·½ÀÉ"¡A¨º§Ú¸Ó«ç­×§ïVBA¸ô®|©O? (¦Û¤v¶Ã¸Õ¤F¥b¤ÑÁÙ¬O³sµ²¤£¨ì..XD)

TOP

¦^´_ 3# RCRG


°Ïºô¸ô®|À³¥]§t¹q¸£¦WºÙ, ©Î¥H[³s½uºô¸ôºÏºÐ¾÷]¤èªk³]©w¸ô®|,
½Ðºô¤W¦Û¦æ§ä§ä¸ê®Æ!!!

TOP

¦^´_ 4# ­ã´£³¡ªL


    ­è­è¤S¬ã¨s¤F¤@¤U¡ASet xB = X.Workbooks.Open(ThisWorkbook.Path & "\¦^õX.xls")¡A­ì¨Ó§âThisWorkbook.Path & ²¾°£´N¥i¥H³sµ²¤F¡A
ÁÂÁ­ã¤jªºµª®×¡F

¥t¥~§Ú·Q½Ð°Ý¡A¬O¤£¬O±NVBA³£¼g¦b¦P¤@­Ó¼Ò²Õ¸Ì(¦p±z½d¨Ò)¡A¨º»ò Sub °O¿ý(BtnText$, UsrName$) ´N¥u»Ý¤@­Ó§Y¥i¡A
¦pªG¤À¶}¼g¦b«Ü¦h¼Ò²Õ¡A¨º»ò¨C­Ó¼Ò²Õ³£­n¦³ Sub °O¿ý(BtnText$, UsrName$) ³o¼Ë¨S¿ù§a?

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD