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

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

¥»©«³Ì«á¥Ñ die78325 ©ó 2012-11-29 11:36 ½s¿è

¦^´_ 20# kkman123


µo²{±zªº°ÝÃD¤F
§A¦bVBA¸Ì­±  Thisworkbook¤ºªºµ{¦¡­n§ï¬°
b1  §ï¬° d1  ¦]¬°§A¤é´ÁÄæ¦ìÅܰʤF
  1. Private Sub Workbook_Open()
  2. [d1] = Format(Date, "yyyy/mm/dd")
  3. End Sub
½Æ»s¥N½X
D1¤é´ÁÄæ¦ì¤£¥Î¥´¤J¤½¦¡  ´N§â¤W­±§ï¦n´N¦n!
ÁÙ¦³ FÄæ§A³]¤½¦¡  ¤£·|¨C¬í§ó°Ê °£«D¤@ª½­«·s­pºâ   ((FÄæ¨ä¹ê¬O¦h¾lªº))  
¦]¬°§ÚVBA¤ÍÀ°§A³]©w¥´¤J¥Ø«e®É¶¡
§ï§¹°O±o§â§AªºD3§ï¬°11/29 ¤£µM§Aªí¤º¨S¦³11/29ªº ·|¿ù»~ ©Ò¥H ¦pªG¤é´Á¤£§ï  ©ú¤Ñ¨Ï¥Î§Y¥i¥¿±`!
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 21# die78325

·PÁÂdie78325¡I
ªº½Tf1¬O¦h¾lªº¡C
·íÀɮצA¶}±Ò®É¡AªG¯u¤é´Á·|±a¤J¤µ¤Ñªº¤é´Á¡C
§Ú²{¦b§âÀɮ׳]©w¦b¶}©l-µ{¦¡¶°-±Ò°Ê¤¤¡A¥u­n¤@¶}¾÷´N¥i¥H¦Û°Ê¶}±ÒexcelÀɮסAµM«áª½±µ®³±ø½X¾÷´N¥i¥H±N¸ê®ÆŪ¤J¤F¡I¦n¤è«K°Ú¡I
¦A¦¸·PÁÂdie78325ªºÀ°¦£¡I
¤£¦n·N«ä¡AÁÙ¦³¤@­Ó°ÝÃD½Ð±Ð¡Gexcel¦p¦ó¯à°÷¨C¦¸¶}±ÒÀɮ׮ɴå¼Ð³£·|¦bA1©O¡H
§Ú¥Ø«e¸Õ¹L¬O¦sÀÉ«e§â´å¼Ð²¾¨ìA1¦A¦sÀÉ¡A¤U¦¸¥´¶}®É´å¼Ð´N·|¦bA1¡C

·P®¦¡I

TOP

¦^´_ 22# kkman123

³oÃä¬O¶}±Ò´N·|¦Û°Ê«ü©wA1
Private Sub Workbook_Open()
[d1] = Format(Date, "yyyy/mm/dd")
[A1].Select
End Sub

¤U­±³o¨Ç¬O¦h¤F ¹G§¹¤§«á¦Û°Ê¦^¨ìA1 ©Ò¥H¥i¥H¤@ª½ ¹G ¹G ¹G

Option Explicit
Sub ¹G()
    Dim ¤é´Á As Range, ¾Ç¸¹ As Range
    With [A3] '³]©w­þ¦æ¶}©l    '½Ð·Ó¹Ï¨Ó°µEXCEL
        Set ¤é´Á = Range(.Cells, .Cells.End(xlToRight)).Find([d1], LookAT:=xlWhole)
        Set ¾Ç¸¹ = Range(.Cells, .Cells.End(xlDown)).Find([A1])   '¬õ¦â³B¬°¹G¤§«á²£¥Íªº¦ì¸m  ¹w³]¬°A1
        Cells(¾Ç¸¹.Row, ¤é´Á.Column) = Time
    End With
[A1].Select
End Sub
¥H¤W¬õ¦â³£¬O­n·s¼W¶i¥hªº   
¨ä¹êH¤j¤j¼gªºµ{¦¡ ¦³¤@­Ó­«­nªº³¡¤À   ¦pªG§A¦pªG¤£¦bA1ªº¦a¤è¹G ´N·|»¡¦ì¸m¿ù»~ À°§A¦^Âk¨ìA1
¦ý¦pªG§A²{¦b¥Îªº«ÜOK ¥ý¼È®É¥ý³o¼Ë¥Î¤K   ¦pªG§A¦³¯S§O»Ý¨D ¦bÀ°§A§ï@@"
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 23# die78325

To die78325¡AH¤j¤j¡G
´ú¸Õ¹L¤F¡I¤@¤Á³£«Ü¶¶§Q¡I
¥H¾Ç®Õ¨Ó»¡¬O«D±`°÷¥Îªº¤F¡I
·P®¦¡A·P®¦¡A¦b·P®¦°Ú¡I

TOP

¤µ¤Ñ¾Ç¨ì¤F¤@­Ó¡G
¦bmodule1¸Ì­±¥[¤W
Workbooks(1).Save
³o¼Ë¨C¿é¤J¤@­Ó"¹G"´N·|¦Û°Ê¦sÀɤ@¦¸³á¡I

TOP

die78325¡A±z¦n¡G
«D±`·PÁ±z¥ý«eªºÀ°¦£¡I
¤£¦n·N«ä¡A³Ìªñ¨Ï¥Î«áµo²{±ø½X¾÷¦³®É·|Ū¿ù¸ê®Æ¡A¾É­Pµ{¦¡¤@ª½¥X²{°£¿ù¡A¦³¨Ç¦Ñ®v·|¤£ª¾¨ì«ç»ò¸Ñ¨M¡C
¶g¥½¬ã¨s¤F¤§«eHsie¤j¤jªºµ{¦¡¡A¥\¤O¤£¨¬¤£¤Ó²M·¡¸Ó©ñ¦b­þ¸Ì¡C¡C
¥i¥H½Ð±z´£¥Ü¡G­Y·Q­n¼W¥[¿ëÃѸê®Æ¡AŪ¿ù«áÅã¥Ü¡y½Ð­«·s¦A¨ê¤@¦¸¡z¡A¸Ó«ç»ò°µ©O¡H
¦A¦¸·P®¦¡I

TOP

§Ú¤]»Ý­n类¦üi这样ªºµn记¨t统¡A´N¬O帮学¥Í³y¤@个条码¥d  µM¦Z¹³¶W¥«购ª«时­Ô §â¥d²¾¨ì条码读¨ú¾¹¡A 电脑´N¦Û动记录¤U读¨úªº条码¡AµM¦Z记录¤U时间 ©M对应±o学¥Í资®Æ¦s储°_来

TOP

¦^´_ 26# kkman123


    ³o½g¤å³¹«Ü¹ê¥Î¡A¦ýµL©`¬O¹ï¢Ó¢Ñ¢æ¢Ó¢Ú¤£¼ô¡A§ä¨ì³o¸Ì¨Ó¡AÅv­­¤£¨¬¢æ¢Ò¡C¡C

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD