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

[µo°Ý] °õ¦æµ{§Çªº³t«×

[µo°Ý] °õ¦æµ{§Çªº³t«×

¥»©«³Ì«á¥Ñ solely ©ó 2011-6-5 22:15 ½s¿è

§Ú¨î§@¤F¤@­Ó¿é¤J¥[¯Zªºªí³æ¡A·s¼W¸ê®Æªº³t«×¶WºCªº
§Ú¤£ª¾¹D§Úªº°ÝÃD¥X¦b­þ­Ó¦a¤è?
¶}±ÒÀÉ®×­n¦n´X¬í¡A·s¼W¸ê®Æªº®É­Ô¡A³ºµM­n1¤ÀÄÁ
·Pı....¦n¹³¶]¤F¦n´X¸Uµ§ªº¸ê®Æ-.-""
·Ð½Ð¦U¦ì°ª¤âÀ°À°¦£~

¥»©«³Ì«á¥Ñ oobird ©ó 2010-10-14 20:42 ½s¿è

Private Sub CommandButton1_Click()
Application.EnableEvents = False
With Sheets("¥[¯Z")
With .Range("A65536").End(xlUp)
.Range("a2") = TextBox1.Text
.Range("b2") = TextBox2.Text
.Range("c2") = TextBox3.Text
.Range("d2") = TextBox4.Text
.Range("e2") = TextBox3.Text
.Range("f2") = TextBox6.Text
.Range("g2") = TextBox7.Text
.Range("h2") = TextBox8.Text
.Range("i2") = TextBox9.Text
.Range("j2") = TextBox10.Text
.Range("k2") = TextBox11.Text
.Range("l2") = TextBox12.Text
.Range("m2") = TextBox13.Text
End With
End With
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
Application.EnableEvents = True
End Sub
¥t¥~TextBox5.Text = Weekday(CDate(TextBox3.Text), vbMonday)

TOP

¦^´_ 2# oobird
oobirdª©¥D~
¨Ï¥ÎEnableEvents¦ü¥GµLªk§ïµ½§Úªºª¬ªp¡A
(§Ú¦³­«·s¶}¾÷¦A´ú¸Õ)
¥i¯à¥[¤W§Ú§R¤FScreenUpdating©MDisplayAlerts±¡ªp§óÄY­«¡A
§Úµo²{¨ì·ítextbox1¦s¦ÜA2»Ý­n10¬í¡Atextbox2¦s¨ìB2­n10¬í..........
13­ÓÀx¦s®æªá¤F130¬í-.-

TOP

¤£·|ªº¡A§Ú¸Õ¹L¤F§r¡A§A¬O¦]¬°Ä²µo¤F¦Û­q¨ç¼Æ¤~ºCªº¡A¥[¤W¨º¨â¦æ´N¤£·|©µ¿ð¤F¡I

TOP

¦^´_ 4# oobird
ª©¥D~
§Ú¸ÕµÛ§â"¥[¯ZÁ`ªí"§R¤F.....ªGµM.....³t«×¶W...§ÖXDD
ÁöµM¥[¯ZÁ`ªí§Ú¥i¥H¤£¥Î¨º­Ó¨ç¼Æ¡A¥i¬O§Ú§Oªº¤u§@ªí(¦P¤@¬¡­¶Ã¯)»Ý­n¡A
(¥[¯ZÁ`ªí¥u¬O¶¶«K¨Ï¥Î¥¦-.-)
¨º...§Ú¸Ó«ç»ò§JªA³o­Ó°ÝÃD©O?!

TOP

Ãö³¬¦Û°Ê­«ºâ ®t¶ÔÁZ®Ä.rar (22.93 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh
Hsiehª©¥D~
Ãö³¬¦Û°Ê­«ºâ¡Aªí³æ¿é¤J¸ê®Æªº³t«×¯uªº«ì´_¥¿±`XD
¦ý¡AÂI¿ï¤§«eª©¥DÀ°§Ú­×­qªº"¯Zªí"(¨Ï¥Îonly¨ç¼Æ)¡A
¿é¤J¸ê®Æ³ºµM¤]¤ÏÀ³¶WºCªº¡A
§Ú°O±o·íªì"¯Zªí"©w·dªº®É­Ô¡A¨Ã¨S¦³³t«×¤Wªº§xÂZ¡A
²z½×¤W¡A³t«×ºCÀ³¸Ó©Monly¨ç¼ÆµLÃö¤~¹ï-.-
©Ò¥H¡A§Ú¤S¸ÕµÛ§â"¥[¯ZÁ`ªí"§R¤F¡A"¯Zªí"¿é¤J¸ê®Æªº³t«×´N«ì´_¥¿±`¤F¡C
¨º.....§Ú¯uªº·Q¤£³q¡A"¥[¯ZÁ`ªí"­Ë©³¬O¥X¤F¤°»ò°ÝÃD??
ÀY¤j-.-©ú¤Ñ¦A·Q~

TOP

¦b§Aªí³æ¿é¤Jªº¦P®É¡A¥[¯ZÁ`ªíªºonly¨ç¼Æ´N­n¶}©l¹B§@¡A±µµÛ«á­±ªºsumproduct...³£­n­«ºâ¡C
¸ò¥»ªº¿ìªk´N¬O§O¥Îonly¨ç¼Æ¡A§â¥¦§ï¦¨¥ÎSub¹Lµ{¨Ó°õ¦æ¡C

TOP

¦^´_ 8# oobird
oobirdª©¥D~
§Ú¤µ¤Ñ¸ÕµÛ¡A¤À§O§â¥[¯Z¡B¥[¯ZÁ`ªí¡B¦Û­q¨ç¼Æ§R¤F¡A¹B§@´N¤@¤Á¥¿±`¡C
¬Ý¨Ó¡A¤TªÌ¦ü¥G¤£¯à¦@¦s¦b³o­Ó¬¡­¶Ã¯XD
³Ì«á¡A¥[¯ZÁ`ªí©ñ±ó¨Ï¥Îlonly¨ç¼Æ,©Ò¦³ªº¤u§@ªí´N¨S¦³©µ¿ð²{¶H¡C

·PÁ¨â¦ìª©¥DªºÀ°¦£¡A§Úªº°ÝÃD¸Ñ¨M¤F~

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD