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

[µo°Ý] ·Q§Q¥Îexcel¤Î¹Ï®ÑÀ]­þºØ±ø½X¾÷¬ö¿ý¾Ç¥Í¨ì¾Ç®Õ®É¶¡

[µo°Ý] ·Q§Q¥Îexcel¤Î¹Ï®ÑÀ]­þºØ±ø½X¾÷¬ö¿ý¾Ç¥Í¨ì¾Ç®Õ®É¶¡

¥»©«³Ì«á¥Ñ kkman123 ©ó 2012-11-27 22:41 ½s¿è

½Ð±Ð¦U¦ì°ª¤â¡A§Ú·Q§Q¥Îexcel¤Î¹Ï®ÑÀ]­þºØ±ø½X¾÷¬ö¿ý¾Ç¥Í¨ì¾Ç®Õ®É¶¡¡G

                                   11¤ë27¤é        11¤ë28¤é        11¤ë29¤é        11¤ë30¤é
96001                8:12                       
96002                           7:40                       
96003                7:32                       
96004                           7:55                       
96005                           8:01                       


1.§Q¥Î±ø½X¾÷±½ºË¾Ç¥Í¾Ç¸¹¡C
2.¤ñ¦p¤µ¤Ñ¬O11¤ë27¤é¡A±½ºË¨ì¾Ç¥Í96001ªº±ø½X«á¡A·|¦b11¤ë27¤é©M96001¥æ·|¨º®æÅã¥Ü¥X±½ºË®É¶¡8:12
3.¹j¤Ñ11¤ë28¤é¡A±½ºË®É·|¦b11¤ë28¤é©M96001¥æ·|¨º®æÅã¥Ü¥X±½ºË®É¶¡

·PÁ¦U¦ì°ª¤â¡I

¦^´_ 1# kkman123


    ¨º¤]­n¬Ý§Aªº±½´y¥\¯à¦³¨S¦³¿ìªk¸òEXCEL³s°Ê¤K= ="
¨Ò¦p "¹G" ¤@¤U    ¤u§@­¶ªºA1·|²£¥Í½s¸¹ ³o¼Ëªº¸Ü ¤~¦³¿ìªk³]­p®@@@"

¤]¥i¯à¬O§Ú¤Ó²L¤F  ½Ð¨ä¥L¤j¤j¥[¥H¦^ÂÐ......

TOP

¦^´_ 2# die78325


±z¦n¡A¦³¸Õ¹L¡A¹Í¤@Án«áexcel¦³Åã¥Ü¾Ç¥Íªº¸ê®Æ¡I

¤£¦n·N«ä¡A§Ú¦bªá½¬ªº¤p¾Ç®ÕªA°È¡A¾Ç®Õ¦Ñ®v¦­¤W¤@¨ì¾Ç®Õ´N·|¦b¹Ï®ÑÀ]³­¤pªB¤Í¾\Ū30¤ÀÄÁ¡A
¦]¬°¹Ï®ÑÀ]¦³±ø½X¾÷¡A©Ò¥H·Q§Q¥Î±ø½X¾÷°t¦Xexcel¦Û¤v³]­p¤@­Ó°O¿ý¤pªB¤Í¾\Ū®É¶¡ªºÀɮסA
¤]Åý¦Ñ®v­Ì¯à¸`¬Ù®É¶¡¡A¦]¬°¹ïexcel¤£¼ô±x¡A¤~google¨ì³o¸Ì¸ß°Ý¤j®aªº¡C
·P®¦¡I

TOP

¦^´_ 3# kkman123

½Ð¥ý§âEXCEL·Ó§Ú¹Ï³o¼Ë¥´
   


²Ä¤@¨B---- ¨Ï¥ÎÁä½L ALT + F11 ¥´¶}VBA½s¿è  ¦b¥ªÃä§äThisWorkbook ÂI¨â¤U¥´¶}¥k°¼µøµ¡¨Ã¶K¤W¥H¤U
  1. Private Sub Workbook_Open()
  2. [b2] = Format(Date, "yyyy/mm/dd")
  3. End Sub
½Æ»s¥N½X
²Ä¤G¨B---- ¦bThisWorkbooks¨º¤@±ÆÂI¿ï¥kÁä ¡÷ ´¡¤J ¡÷ ¼Ò²Õ
¨Ã§â¥H¤U¶K¶i¥h
  1. Option Explicit
  2. Sub ¹G()
  3.     Dim ¤é´Á As Range, ¾Ç¸¹ As Range
  4.     With [A3] '³]©w­þ¦æ¶}©l    '½Ð·Ó¹Ï¨Ó°µEXCEL
  5.         Set ¤é´Á = Range(.Cells, .Cells.End(xlToRight)).Find([b1], LookAT:=xlWhole)
  6.         Set ¾Ç¸¹ = Range(.Cells, .Cells.End(xlDown)).Find([[color=Red]A1[/color]])   '¬õ¦â³B¬°¹G¤§«á²£¥Íªº¦ì¸m  ¹w³]¬°A1
  7.         Cells(¾Ç¸¹.Row, ¤é´Á.Column) = Time
  8.     End With
  9. End Sub
½Æ»s¥N½X
²Ä¤T¨B----
¦bEXCEL¤º·s¼W¤@­Ó¹Ï®× (ÀH«K)
ÂI¿ï¹Ï®×¥kÁä ¡÷«ü©w¥¨¶°   ¡÷ ¿ï¾Ü¡y ¹G ¡z½T©w  

¥H«á´N¹G§¹´N«ö¹Ï®×   À³¸Ó´N§Ö¦h¤F ¦Ü¤Ö¤£¥Î§ä¤é´Á§ä¾Ç¸¹¦b¥´¤J®É¶¡

­ì¥»·QÀ°©p°µ¹G¤@¤U´Nª½±µ°õ¦æ  ¦ý §Ú¸Õ¤@ª½¥X²{¿ù»~ ½Ð¨ä¥L¤j¤jÀ°§A¸Ñ¨M³o¤@³¡¤À
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 3# kkman123
¾Ú¤F¸Ñ±ø½X¾÷Ū¤Jªº¸ê®Æ¬OÅã¥Ü¦b§@¥Î¤¤ªºÀx¦s®æ¤º
¥H¦¹ÅÞ¿è«h¥²¶·±NŪ¨ú±ø½X®Éª½±µÂI¿ï¸ÓÀx¦s®æ«á¦A¨ê±ø½X
©Ò¥H¡A´N±NÀɮ׶}±Ò®É«ü©w¬Y¤@¯S©wÀx¦s®æ§@¬°Åª¨ú¨Ï¥Î(¥ô¦ó¾Ç¸¹§¡Åª¤J¸ÓÀx¦s®æ)
µM«á§Q¥Î¤u§@ªíChange¨Æ¥óµ{§ÇIJ°Ê¡A§â¸ÓÀx¦s®æ¸ê®Æ¼g¤J¹ïÀ³¦ì¸m
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh


    ¬Ý¨ì¦^À³¦n·P°Ê°Ú¡Iºô¸ô¯uªº¤Ó¼F®`¤F¡I ·PÁ die78325 ©M Hsieh ¡I
    ¤£¦n·N«ä¡A§Ú¸Õ¤F¤Q´X¦¸¡A¥i¬O¤@ª½Åã¥Ü³o­Ó¿ù»~¡A¤S½Ð¦P¨ÆÀ°§Ú§â¹Ï¤ùÀɮ׽ƻs¤U¨Ó¡]½Ð¬Ý¹Ï¤ù¡^   
    ¤£ª¾¹D¬O­þ¸Ì¥X¿ù¤F¡C
     ¦A¦¸·PÁ¡I

TOP

¦^´_ 6# kkman123


    ¤£¦n·N«ä¡A¬O¨Æ¥ý¥X²{ÁÙ¦³"«¬ºA¤£²Å¦X"ªº³o­Óµøµ¡ªº¡C
    ·P®¦¡I

TOP

¦^´_ 7# kkman123


Set ¾Ç¸¹ = Range(.Cells, .Cells.End(xlDown)).Find([A1])

§ï¬°

Set ¾Ç¸¹ = Range(.Cells, .Cells.End(xlDown)).Find([A1])
©êºp¡@­ì¥ý¦]¬°·QÅý¥¦Åܬõ¦âÅý§Aª¾¹D¢Ï¢°¬O¥i¥H§ó°Êªº¡@µ²ªG¨S·Q¨ì§âºô­¶ªº³]¸m¤]¥Î¶i¥h¤F
½Ð­×§ï«á¦A´ú¸Õ¡I
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 7# kkman123


    µo²{¬°¤°»ò§Ú¤£¯à¨Ï¥ÎIJµo¤F= =¦]¬°­n¦A­nIJµoªº¤u§@­¶¸Ì³]©w
   ¬Ý§Aªºªí¬O°µ¦b­þ­Ó¤u§@ªí  ¤@¼Ë¥´¶}VBA³]¸m  ³o¦¸¤£­n¥´¶}THISWORKBOOK ³o¦¸ÂI¿ï§AÀɮתº¦a¤è ¨Ò¦p : ¤u§@ªí1

  ¤@¼Ë¥´¶} ¶K¤J¥H¤Uµ{¦¡   §Y¥i¹F¦¨ ¹G¤@¤U´N¦Û°Ê±a¤Jµ{¦¡  ¦b¹G¤@¦¸´N¦b°õ¦æ·sªº¾Ç¸¹
  1. Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address = "$A$1" Then Call ¹G
  3. End Sub
½Æ»s¥N½X
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¥»©«³Ì«á¥Ñ kkman123 ©ó 2012-11-28 18:18 ½s¿è

¦^´_ 9# die78325

die78325 ¡A±z¦n¡G¦n·PÁ±z³o»ò¼ö¤ß¦aÀ°¦£¡I
¤£¦n·N«ä¡A¯à¤O¤£¨¬¡A¤S­n½Ð±Ð±z¤F¡I
­è­èµo¥Í¤F°ÝÃD¦p¡]¹Ï¤@¡^©M¡]¹Ï¤G¡^¡C
¸Õ¤F¦n´X¦¸¡A¶À¶ÀªºÁÙ¬O¤@ª½¥X²{¡C
¤£¦n·N«ä¡A¤S­n³Â·Ð±z¤F¡I
·P®¦¡I

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD