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

[µo°Ý] ¦¹¥¨¶°¬°¦ó¿ù??

¼Ò²Õ¸Ì¦³¤@­ÓÄ£¿é1, µ{¦¡½X¬°Public sz
¬O§_¿ù»~??
À³¸Ó¬° Public sz as ???
Ä£¿é1 ³o¦W¦r¦n¹³¤£¯à§ï¡A ...
t8899 µoªí©ó 2013-8-14 07:11

TOP

¬°¤°»ò ¥u¦³ Public sz »yªk¿ù»~ÁÙ¯à¹B§@??
t8899 µoªí©ó 2013-8-14 08:43

«Å§i Public sz  »yªk¨Ã¨S¿ù»~¡A¥¦¦]¨Æ¥ýµL©ú½T«¬ºA«Å§i¡A
¬G·|¦b«áÄòªºÀ³¥Î¤W¡A®Ú¾Ú¨ä¬Û¹ïÀ³¤§«¬ºA¦Ó§@¬°¨ä«¬ºA«Å§i¡C
Public sz As Variant  ¥u¬O±N«¬ºA¥[¥H©ú½T©w¸q¡C
¾i¦¨«¬ºA©ú½T©w¸q¤]¬O¼¶¼gµ{¦¡ªº¤@ºØ¦n²ßºD¡C

TOP

¦^´_ 36# t8899

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-8-14 10:53 ½s¿è
§Úªº¬O1 ¡A§Ú§â¥¦§ï¬°2 ¿ù»~ÁÙ¬O¤@¼Ë
«¬ºA¤£²Å¦X
t8899 µoªí©ó 2013-8-14 10:37

& sz(i, 1) & "===>" & sz1(i, 1) §ï¦¨
& CStr(sz(i, 1)) & "===>" & CStr( sz1(i, 1)) ©O¡H

TOP

¦^´_ 40# t8899
¦]¬°§Ú¨S¦³§A¥Ø«e´ú¸ÕªºÀɮסA
¬GµLªk¤@¤@±ÀºV§Aªº¼Æ¾Ú¹Lµ{¡A
§A¬O¥Î CStr() ÁÙ¬O CSng() ?

TOP

¦^´_ 63# t8899
  1. Sub eighty()
  2.     With Sheets("Sheet1")
  3.         .Select
  4.         .Range("a65536").End(xlUp).Offset(1).Select
  5.         Application.SendKeys "{Home}", True
  6.         Application.SendKeys "^{;}", True
  7.         Application.SendKeys "{enter}", True
  8.         .Range("B2:N2").Select
  9.     End With
  10. End Sub
½Æ»s¥N½X
¸Õ¸Õ¬Ý¡I

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD