- ©«¤l
- 66
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 99
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-8-12
- ³Ì«áµn¿ý
- 2023-10-26
|
¦^´_ 4# stillfish00
¦^´_ 7# c_c_lai
¨â¦ì¤j¤j¡A±z¦n¡G
§Ú¸Ñ¨M°ÝÃD¤F¡A¸Ñ¨M¤è¦¡¦p¤U¡G- Function tutu() As Boolean
- Set sh = Sheets("¶}¥ð¥«¤é´Áªí")
- md = ¿ï¾Ü¦¬½L¤é´Á.ComboBox2.Value & "¤ë" & ¿ï¾Ü¦¬½L¤é´Á.ComboBox1.Value & "¤é"
- Set r = sh.Columns("B").Find(md)
- If Not r Is Nothing Then
- md = ""
- End If
- If ¿ï¾Ü¦¬½L¤é´Á.Label1 = "¬P´Á¤»" Or ¿ï¾Ü¦¬½L¤é´Á.Label1 = "¬P´Á¤é" Or md = "" Then
- MsgBox "©Ò¿ï¤é´Á¬°¥¼¶}½L¤é¡A½Ð«·s¿ï¾Ü¡I", 0, "¨t²Î°T®§"
- tutu = False
- Else
- tutu = True
- End If
- End Function
½Æ»s¥N½X ±o¨ì¤@Óµ²½×¡G
´N¬O¦b¼Ò²Õµ{¦¡½X¤¤¡An¨ú¥Îªí³æªºÈ®É¡A¥²¶·«ü©wªí³æªºª«¥ó¦WºÙ(¦p¡G¿ï¾Ü¦¬½L¤é´Á.ComboBox2¡B¿ï¾Ü¦¬½L¤é´Á.Label1 )¡A
¤§«e³£¨S¦³«ü©wªí³æ¦WºÙ¡A³£ª½±µ¨Ï¥Î ComboBox2.Value¡A¦]¦¹¼Ò²Õ³£§ì¤£¨ìªí³æªºÈ¡C
¦ý¬O.....ªí³æ¤¤ªºµ{§Ç¡A¦p¤U¡G- Function week()
- week = Format(DateSerial(ComboBox3.Text, ComboBox2.Text, ComboBox1.Text), "[$-404]aaaa;@")
- End Function
½Æ»s¥N½X ¤´µM¤£ª¾¹D¸Ó¦p¦óÅý¼Ò²Õ§ì¨ú¨ì³oÓµ{§ÇªºÈ¡A
¦]¦¹¡A§Ú±NweekªºÈ§ï¥Î¿ï¾Ü¦¬½L¤é´Á.Label1¨Ó¥N´À¡A
¤£¹LÁÙ¬O«Ü·Qª¾¹Dªí³æ¤¤¡Aµ{§Ç©Ò²£¥ÍªºÈ¦³¤°»ò¿ìªk¥i¥HÅý¼Ò²Õª½±µ¨ú¥Î??? |
|