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

[µo°Ý] office365 excel °O¿ý¼Æ­È

[µo°Ý] office365 excel °O¿ý¼Æ­È

¥»©«³Ì«á¥Ñ ahsiek ©ó 2018-12-21 15:50 ½s¿è

¦U¦ì¤j¤j¦n
¤§«e¥Îstillfish00 ¤j¤j©Ò§ïªºµ{¦¡½X¨Ó°O¿ý¼Æ­È¡A¦b2010ª©¥»ªºexcel¨Ï¥Î
°O¿ý¼Æ­ÈABC¸Ì¦³¼Æ­Ó¤u§@ªí¡Abb©ú²Ó¬O¨ä¤¤¤§¤@¡A§Ú³£¬O¦bbb©ú²Ó¸Ì«ö¤F¡i²M°£&¶}©l¡j«á¡A´N¦b¨ä¥Lªº¤u§@ªí¸Ì¤u§@
¥u­n¤£¬O±q¦P­Ó¬¡­¶Ã¯¸Ì¦A¶}¨ä¥Lªº¬¡­¶Ã¯¡Abb©ú²Ó´N¤£·|¤¤Â_¥X°ÝÃD

¤£¹L²{¦b§ï¥Îoffice365ª©¥»«á¡A§Ú¶}¤F°O¿ý¼Æ­ÈABC«á¡A¦A¶}¨ä¥L¬¡­¶Ã¯¡A¦ü¥G·|³Q·í¦¨¬O¦P¤@­Ó¬¡­¶Ã¯¸Ì¶}ªº
³o®Ébb©ú²Ó´N·|¸õ¥X°»¿ù
20181218_073419989_iOS.jpg
2018-12-21 15:38

«ö¤F°»¿ù«á¡A´N·|¸õ¨ì³o¸Ì¡A½bÀY«üªº¦a¤è
BB©ú²Ó.png
2018-12-21 15:41


©Ò¥H§Ú²q·QÀ³¸Ó¬OWith Sheets(sSheetName)³oÃä¥X¤F°ÝÃD¡A¦ý§Ú¤£ª¾¹D³oÃä¸Ó«ç»ò§ï¤~¥i¥H
¥i·Ð½Ð¦U¦ì¤j¤j¯àÀ°¦£¬Ý¬Ý¡A¸Ó«ç»ò§ï©O¡H
ªþÀɦb¤U¡A¼g¦b¼Ò²Õ¸Ì¡G
°O¿ý¼Æ­ÈABC.rar (126.97 KB)

¦^´_ 8# ahsiek
¨S¥Î¹L365³á
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 5# stillfish00


    ½Ð°Ý stillfish00 ¤j¤j

    ½Ð°Ý¤@¤U¡A¤j¤j¦³¦b¨Ï¥Î excel 365 ¶Ü¡H
    ²{¦b³o­Ó¤èªk¦b¦P®É¶}AB¨â­Ó¬¡­¶Ã¯®É¡AA¬¡­¶Ã¯ªºvba·|¦]¬°§Ú¦bB¬¡­¶Ã¯§ó§ï¸ê®Æ®É¦Ó°±¤î¡A¤£©w®ÉÁÙ·|¥X²{¤º®e°{Ã{ªºª¬ªp
    ©Ò¥HÅܦ¨B¬¡­¶Ã¯¥u¯à¬Ý¤£¯à°Ê¡A¤£µMA¬¡­¶Ã¯vba´N·|³Q¼vÅT
    ¦b¬ã¨sªº¹Lµ{¤¤¡Aµo²{­Y¦A¶}C¬¡­¶Ã¯®É¡A¤S·|¥X²{°»¿ùªºª¬ªp¡A¯uªº§Ö³Q excel 365ª©µ¹·dºÆ¤F
    ¤j¤j¹ïexcel 365¼ô¶Ü¡H ²{¦b¤£ª¾¹D¸Ó¦p¦ó§ï¼gvba¤~¦n
    §Æ±æ¤j¤j¯àÀ°¦£¡AÁÂÁ¡C

TOP

¦^´_ 5# stillfish00


    «D±`ÁÂÁÂstillfish00¤j¤jªºÀ°¦£¡A²{¦b¦bOffice365ªºexcelÀÉ¡A´N¨S¦³¥X²{°ÝÃD¤F¡A¦A¦¸ÁÂÁ§A¡C

TOP

¦^´_ 4# mark15jill


    ÁÂÁ§Aªº¦^ÂСA§Ú¥Î¤Fstillfish00¤j¤jªº¤èªk´NOK¤F¡C

TOP

¦^´_ 1# ahsiek
¥i¥H¥Î Thisworkbook «ü©w¸Ó¥¨¶°©Ò¦bªº¬¡­¶Ã¯
With ThisWorkbook.Sheets(sSheetName)
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

ÁÂÁ¤j¤jªº¦^ÂСG¬O«ü§âWith Sheets(sSheetName) §ï¦¨ With Sheets(b©ú²Ó) ³o¼Ë¹ï¶Ü¡H
ahsiek µoªí©ó 2019-1-3 15:18



    ¦L¶H¤¤¡A¤u§@ªí¶}ÀYªº ´N­n¥Î¤u§@ªí  >>> ¤u§@ªí()

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_  ahsiek


    sheets ...  ¤u§@ªí... §ó§ï¬Ý¬Ý
mark15jill µoªí©ó 2018-12-30 14:29



ÁÂÁ¤j¤jªº¦^ÂСG
  1. Function mainFunc2(sSheetName As String) As Long  'bb.©ú²Ó¤u§@ªí°O¿ý³¡¥÷

  2.   With Sheets(sSheetName)

  3.     i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1


  4.     .Cells(i, "A") = Format(Time, "Hh:Mm:Ss")   'ROW A¡A°O¿ý®É¶¡


  5.     .Cells(i, "B").Resize(, 48).Value = .Cells(6, "B").Resize(, 48).Value  'B6-AW6½Æ»s¨ìB7-AW7

  6.   End With

  7.   

  8.   mainFunc2 = i  '¦^¶Ç·í«e¦C¼Æ

  9.    

  10. End Function
½Æ»s¥N½X
¬O«ü§âWith Sheets(sSheetName) §ï¦¨ With Sheets(b©ú²Ó) ³o¼Ë¹ï¶Ü¡H

TOP

¦^´_ 1# ahsiek


    sheets ...  ¤u§@ªí... §ó§ï¬Ý¬Ý

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

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