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

²Å¦X¦h­«±ø¥ó¤Uªº¦Û°Ê²Î­p¼Æ¶q¤Î¥Í²£°Ï¶¡¶ñ¤J«ü©wªºÄæ¦ì???

²Å¦X¦h­«±ø¥ó¤Uªº¦Û°Ê²Î­p¼Æ¶q¤Î¥Í²£°Ï¶¡¶ñ¤J«ü©wªºÄæ¦ì???

¦pªþÀɦ³¤@¥Í²£­p¹ºªí¤Î¥t¤@¥÷¥Í²£¤é³øªí

²{¤u§@¬O±Ä¤â°Ê¤ñ¹ï¯Ó®É,½Ð°Ý¦U¥ý¶i¥i§_¥HVBA¥¨¶°¥H»s¥O¤Î§Ç¸¹¥h¤ñ¹ï¥Í²£¤é³øªí¡A±N²Å¦X³o¤G±ø¥óªº¥[¤W¥Í²£¤é³øªí¤¤JÄæ¦ì¡]¦¹Äæ¦ì¦@·|¦³ªÅ¥Õ,«e¤G½X¬°AS¤ÎHB¡A¤Î«e¤@½X¬°Yªº¸ê®Æ¡^ªº¾÷¥x¸¹½X«e¤G½X¬°ASªº¤ÎªÅ¥Õªº(¶È­­¤ñ¹ï­p¹ºªí¤¤³o¨ÇÄæ¦ìªÅ¥Õªºµ§¼Æ)

1.¦Û°Ê²Î­p¥Í²£Á`¼Æ¶q¶ñ©óQÄæ¦ì

2.¦p¤wµ¥©ó©Î¶W¹L­ì­p¹ºªí¥Í²£¼Æ¡]¤@¯ë³£·|¦³¦h¥Í²£¤J®wªº¡^¡A±N¥Í²£¤é´Á°Ï¶¡¦U¶ñ©óN¤ÎOÄæ¦ì¡]¨Ò¡G¦p¸Ó»s¥O¥Í²£´Á¶¡¬°9/15~9/22¡A«hNÄ欰9/15¡AOÄ欰9/22¡^¡A¨Ã©óPÄæ¦ì¦Û°Ê§ó·s"¤wµo®Æ"

3.¦p¥Í²£¼Æ©|¥¼¶W¹LÅý»s¥O¡A¶È©óNÄæ®»¥X¥Í²£°_敋¤é¡A¨Ã©óPÄæ¦ì§ó·s"¥Í²£¤¤"

¦b¦¹¥ýÁÂÁÂ¥ý¶iªº«ü±Ð¡A±æ¯u¯à¥HVBA±j¤jªº¥\¯à¡A²¨¸Ñ¤u§@¶qªºª¬ªp¡AÁÂÁÂ

PS¡G¦p¦³¤£©ú¡A¤p§Ì¥²¦A¸Ô²Ó¨Ì¤£¸Ñ³B¸ÑÄÀ¡C¡C^^

test.rar (19.96 KB)

¥»©«³Ì«á¥Ñ luhpro ©ó 2014-9-21 20:17 ½s¿è
¦pªþÀɦ³¤@¥Í²£­p¹ºªí¤Î¥t¤@¥÷¥Í²£¤é³øªí
²{¤u§@¬O±Ä¤â°Ê¤ñ¹ï¯Ó®É,½Ð°Ý¦U¥ý¶i¥i§_¥HVBA¥¨¶°¥H»s¥O¤Î§Ç¸¹ ...
p6703 µoªí©ó 2014-9-21 16:55

¦³¨Ç¦a¤è¸ê®Æ¤£¬Û²Å:

¤W­±Á¿ : ¥H»s¥O¤Î§Ç¸¹¥h¤ñ¹ï¥Í²£¤é³øªí

1.¨â­Ó¤u§@ªí¤¤ªº »s¥O½s¸¹ §¹¥þ¤£¬Û²Å,µLªk¤ñ¹ï:
¤é³øªí¬O MA14070125 »P MA14070126
­p¹ºªí¬O MA14090050, MA14090051 »P MA14090052

2. ®Æ¸¹»P§Ç¸¹¤]¤£¬Û²Å,µLªk¤ñ¹ï:
¤é³øªí¤¤ B ®Æ§Ç¸¹¬O 01 »P 03
­p¹ºªí¤¤ B ®Æ§Ç¸¹«h¬O 05
¤é³øªí¤¤ CC ®Æ§Ç¸¹¬O 03
­p¹ºªí¤¤ CC ®Æ§Ç¸¹«h¬O 06

¨ä¦¸, ¨âªí®æ²[»\ªº¤é´Á°Ï¶¡¤]¤£¬Û²Å -
¤é³øªí¤é´Á°Ï¶¡¬O 9/1 ~ 9/2
¦ý­p¹ºªíªº ¤U³æ¤é »P ¹w´Á¶}¤u¤é «o³£¬O 9/12 ¥H«á
Å㨣¨âªÌ¶¡ªº¸ê®Æ¨Ã¤£À³¦³¥æ¶°¥X²{.

­n°µ¥X§A·Q­nªºµ²ªG¨Ã¤£Ãø,
¥u¬O­Y§A´£¨Ñªº¸ê®Æ¯à¨Ì¾Ú§AÃDªº¦U­Ó±ø¥ó,
¼ÒÀÀ°µ¥X¨C­Ó±ø¥óÀ³¸Ó²£¥Íªºµ²ªG¥X¨Ó,
³o¼Ë¥L¤H¸û®e©ö²z¸Ñ¨Ãºc·Qµ{¦¡¥X¨Ó.

¤ñ¸û²z·Qªº¤è¦¡¬O±N¹L¥h¤w§¹¦¨ªº³øªí,
Â^¨ú¥X¯S©w­ì©l¸ê®Æ,
¤Î±N³o¨Ç¸ê®Æ¨Ì·Ó±ø¥ó²£¥Íªºµ²ªG³£¦C¥X¨Ó.

·íµM,­n¯d·N¨ä¤¤¬O§_¦³±Ó·P¸ê®Æ,
¦b¤£¼vÅT±ø¥ó¹ê²{ªº«e´£¤U,
¥i¥H¾A«×±N¨ä¾B¸n©Î¥H¨ä¥L¤å¼Æ¦r¨ú¥N.

TOP

¦^´_ 2# luhpro

·PÁÂluhpro¥S¦p¦¹¸Ô²Óªº¦^ÂСA·íªì´£¨ÑªþÀɮɪº½T¦³¦Ò¶q¨ì¦]²o§è¨ì±Ó·P¸ê®Æ¡A¬G¥u¯d¤F®æ¦¡¤ÎÀH·Nªºkey ¤F´Xµ§

¥¼ª`·N¨ì¦U¥ý¶i»Ý¥H¸ê®Æ®w¤Î¤w§¹¦¨ªº­ìÀɮרÓÅçÃÒ¡A·PÁÂluhpro¥Sªº´£¿ô¡A¦]Àɮײ{¥¼©ó¤âÃä¡A«Ý©ú¤é¶×¾ã§¹²¦«á¡A¦A½Ðluhpro¥S¤Î¦U¥ý¶i¯à¤£§[«ü±Ð¡AÁÂÁÂ^^

TOP

±N¹ê»Ú¸ê®ÆªþÀÉ¡A½Ðluhpro¥S¤Î¦U¥ý¶i¨ó§U¤F¡A¥ý¹DÁ¤F^^..

0923.rar (39.08 KB)

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2014-9-23 23:57 ½s¿è
±N¹ê»Ú¸ê®ÆªþÀÉ¡A½Ðluhpro¥S¤Î¦U¥ý¶i¨ó§U¤F¡A¥ý¹DÁ¤F^^..
p6703 µoªí©ó 2014-9-23 22:27

­º¶K¤¤±Ô­zªº¼ÐªºÄæ¦ì»P§A´£¨ÑÀɮפ¤Äæ¦ì¥i¯à¦³½Ä¬ð(·|»\¨ì¤w¦³¸ê®Æªº°Ï°ì),
¤£¹L§ÚÁÙ¬O¥H§A­º¶K¤¤±Ô­zªºÄæ¦ì¬°¸ê®Æ¼Ðªº :
  1. Private Sub Workbook_Open()
  2.   Dim lRow&
  3.   Dim sStr$
  4.   Dim bNFind As Boolean
  5.   Dim vCount, vBDate, vEDate
  6.   Dim wbSou As Workbook, wbTar As Workbook
  7.   
  8.   Set wbTar = ThisWorkbook
  9.   Set vBDate = CreateObject("Scripting.Dictionary")
  10.   Set vEDate = CreateObject("Scripting.Dictionary")
  11.       
  12.   bNFind = True
  13.   For Each vCount In Workbooks
  14.     If vCount.Name = "¥Í²£¤é³øªí.xls" Then
  15.       bNFind = False
  16.       Exit For
  17.     End If
  18.   Next
  19.   
  20.   If bNFind Then
  21.     Set wbSou = Workbooks.Open(wbTar.Path & "\" & "¥Í²£¤é³øªí.xls")
  22.   Else
  23.     Set wbSou = vCount
  24.   End If
  25.   
  26.   lRow = 2
  27.   Set vCount = Nothing
  28.   Set vCount = CreateObject("Scripting.Dictionary")
  29.   With wbSou.Sheets(1)
  30.     Do While .Cells(lRow, 1) <> ""
  31.       With .Cells(lRow, 1)
  32.         sStr = .Offset(, 4) & "_" & .Offset(, 5)
  33.         If Left(.Offset(, 9), 2) = "AS" Or .Offset(, 9) = "" Then
  34.           vCount(sStr) = vCount(sStr) + .Offset(, 8)
  35.          
  36.           If vBDate(sStr) = "" Then
  37.             vBDate(sStr) = .Value
  38.           ElseIf vBDate(sStr) > .Value Then
  39.             vBDate(sStr) = .Value
  40.           End If
  41.          
  42.           If vEDate(sStr) < .Value Then vEDate(sStr) = .Value
  43.         End If
  44.       End With
  45.       lRow = lRow + 1
  46.     Loop
  47.   End With
  48.   
  49.   lRow = 2
  50.   With wbTar.Sheets(1)
  51.     .Range(.Cells(2, 14), .Cells(Rows.Count, 17)).Clear
  52.     Do While .Cells(lRow, 1) <> ""
  53.       With .Cells(lRow, 1)
  54.         sStr = .Offset(, 2) & "_" & .Offset(, 3)
  55.         .Offset(, 16) = vCount(sStr)
  56.         If .Offset(, 16) >= .Offset(, 5) Then
  57.           .Offset(, 13) = vBDate(sStr)
  58.           .Offset(, 14) = vEDate(sStr)
  59.           .Offset(, 15) = "¤wµo®Æ"
  60.         Else
  61.           .Offset(, 13) = vBDate(sStr)
  62.           .Offset(, 15) = "¥Í²£¤¤"
  63.         End If
  64.         Range(.Offset(, 13), .Offset(, 14)).NumberFormat = "yyyy/m/d;@"
  65.       End With
  66.       lRow = lRow + 1
  67.     Loop
  68.   End With
  69. End Sub
½Æ»s¥N½X
¥Í²£­p¹ºªí-a.zip (23.15 KB)

¤é³øªí¤£°Ê, µ{¦¡©ñ¦b ­p¹ºªí,
¨ä¹ê§Ú»{¬°³Ì¦nªº¤è¦¡¬O©ñ¦b¥t¤@­ÓÀɮפW,
¦Ó¸ÓÀɮ׫h°µ¦¨¥uÅã¥Ü UserForm µe­±¥[«öÁäµ¥ª«¥ó,
»P¨º¨â­ÓÀɮק¹¥þ¤£¬ÛÃö,
¬Æ¦Ü¥i¥H¦Ò¼{¦s¦¨ ¼W¯q¶° ÀɮרӹB§@.

TOP

·PÁÂluhpro¥Sªº§Y®Éªº¦^ÂСA°w¹ï¤@¨Ç²Ó¸`¨Æ¶µ¦A¸É¥R»¡©ú¡G

1.­ìªþ¥ó¬O®»¨ú¤w§¹¤uªº©ú²Ó¡]¸Ó­p¹ºªí¨ä¹ê¬O²VÂø¥Í²£¤¤¤Î©|¥¼¥Í²£ªº©ú²Ó¡^¡A©Ò¥H¹ê»Ú¤W¨Ï¥Îªº®É­Ô¡APÄæ¦ì·|¦³¤TºØÅã¥Ü¡G¤wµo®Æ,¥Í²£¤¤,ªÅ¥Õ¡]§P©wªº¨Ì¾Ú¡A¦p¥Í²£¼Æ¤j©ó©Îµ¥©óFÄæ¦ìªº¼Æ¶q¡A«hÅã¥Ü¤wµo®Æ¡A¥Í²£¼Æ¤p©óFÄæ¦ì¼Æ¶q¦ý¤j©ó0¡AÅV¥Ü¥Í²£¤¤¡A¥¼¦³¥Í²£¼Æªº¡A«hÅã¥ÜªÅ¥Õ¡^

2.³¡¥÷µ§¼Æ¦]¼Æ¶q¤p©ó¨C¤éªº²£¯à¡A¤]´N¬O·í¤Ñ´N¥i¥Í²£§¹¡A§¹¤u¤é´Á²{¥¨¶°¬OÅã¥ÜªÅ¥Õ¡A­×§ï»P°_°W¤é¦P¤@¤Ñ

3.­ì¥¨¶°¬O¶}Àɮɦ۰ʰõ¦æ¡A¦ý¦]²{­p¹ºªí´X¥G¤W¯Z®É´N³£¶}µÛ¡A¦Ó¥Í²£¤é³øªí¬O¦s¦b¥t¤@Àɮפ¤¨C¤é§ó·s¡A¥i§_§ï¥H¥¨¶°¤â°Ê°õ¦æªº¤èªk¡A¦³»Ý­n¦A¶]¥¨¶°°õ¦æ¤ñ¹ï¶ñ¤W¹ïÀ³ªº¸ê®Æ

4.©µ¦ù¤@­Ó°ÝÃD¡A¦]¦P»s¥O¶µ¦¸¤@¯ë·|¦³1~6¡]µu«h1~3¡Aªø«h1~6¡^¡A¥i§_¥H¥¨¶°±N¦P¤@»s¥O¡A¦ý¤£¦P¶µ¦¸ªº¡A¥Hªí®æ¦Û°Ê§e²{¥XOÄæ¦ìªº¤é´Á¸ê®Æ¡]¥Î¼Ï¯Ã¤ÀªRªí¦n¹³¥u¦³®M¼Æ¶q¡A¦ý«oµLªk®M¨ú«ü©wÄæ¦ìªº¸ê®Æ¡^¡AA¦C¦U»s¥O¡AB~GÄ涵¦¸

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2014-9-26 00:32 ½s¿è
·PÁÂluhpro¥Sªº§Y®Éªº¦^ÂСA°w¹ï¤@¨Ç²Ó¸`¨Æ¶µ¦A¸É¥R»¡©ú¡G
1.­ìªþ¥ó¬O®»¨ú¤w§¹¤uªº©ú²Ó¡]¸Ó­p¹ºªí¨ä¹ê¬O ...
p6703 µoªí©ó 2014-9-24 22:34

1. µ{¦¡°ò¥»¤W´N¬O³o¼Ë³]­pªº,®t§O¥u¦b¥¼¥Í²£ªº¬O¨q "¥Í²£¤¤"  ¦Ó«DªÅ¥Õ.
(¦¹®É¤]¤£·|¨q¥Í²£°_¨´¤é´Á, ­×§ï«á°õ¦æµ²ªG¦pªþ¹Ï<§â "¥Í²£¤¤"®³±¼>)

2. µ{¦¡¹J¨ì²Ä¤@µ§¸ê®Æ®É,´N·|¥ý²£¥Í¬Û¦Pªº°_¨´¤é´Á,
¤§«á¦A¨Ì¹J¨ìªº¸ê®ÆÂX¼W°_¨´¤é´Á,
©Ò¥H "¤wµo®Æ" ªº»s¥OÀ³¸Ó¤£·|¦³§A©Ò»¡ªº¥u¦³³æÃä¤é´Áªº±¡§Î.



3.¤w­×§ï¦pªþ¥ó, ¦bµe­±¤W¤è¥\¯àªí³Ì¥kÃä "»¡©ú" ªº®ÇÃä·s«Ø¥ß¤@­Ó«ö¶s,
«ö¶s.png
¥ô¦ó®É¶¡«ö¤@¦¸·|§ó·s¸ê®Æ¤@¦¸,
¦Ò¼{¤é³øªí¥i¯à¤£©w®É§ó·s,
¬GŪ¨ú¤é³øªíÀɮקï±Ä°ßŪ¼Ò¦¡,
¸ê®Æ§ó·s§¹´N·|Ãö³¬¤é³øªíÀɮ׸`¬Ù¨t²Î¸ê·½,
Ãö³¬Àɮ׮ɫö¶s¤]·|¸òµÛ²¾°£,
¹B§@¤WÀ³¸Ó·|¸û¶¶§Q.

4. ¤w¹ê²{.

¥Í²£­p¹ºªí-a2.zip (30.34 KB)
[Module1]
  1. Sub GetData()
  2.   Dim lRow&, lTRow&
  3.   Dim sStr1$, sStr2$
  4.   Dim bNFind As Boolean
  5.   Dim vCount, vBDate, vEDate, vNo
  6.   Dim wbSou As Workbook, wbTar As Workbook
  7.   Dim ShTar As Sheet2
  8.   
  9.   Set wbTar = ThisWorkbook
  10.   Set ShTar = Sheets(2)
  11.   Set vBDate = CreateObject("Scripting.Dictionary")
  12.   Set vEDate = CreateObject("Scripting.Dictionary")
  13.       
  14.   bNFind = True
  15.   For Each vCount In Workbooks
  16.     If vCount.Name = "¥Í²£¤é³øªí.xls" Then
  17.       bNFind = False
  18.       Exit For
  19.     End If
  20.   Next
  21.   
  22.   If bNFind Then
  23.     Set wbSou = Workbooks.Open(wbTar.Path & "\" & "¥Í²£¤é³øªí.xls", ReadOnly:=True)
  24.   Else
  25.     Set wbSou = vCount
  26.   End If
  27.   
  28.   lRow = 2
  29.   Set vCount = Nothing
  30.   Set vCount = CreateObject("Scripting.Dictionary")
  31.   With wbSou.Sheets(1)
  32.     Do While .Cells(lRow, 1) <> ""
  33.       With .Cells(lRow, 1)
  34.         sStr1 = .Offset(, 4) & "_" & .Offset(, 5)
  35.         If Left(.Offset(, 9), 2) = "AS" Or .Offset(, 9) = "" Then
  36.           vCount(sStr1) = vCount(sStr1) + .Offset(, 8)
  37.          
  38.           If vBDate(sStr1) = "" Then
  39.             vBDate(sStr1) = .Value
  40.           ElseIf vBDate(sStr1) > .Value Then
  41.             vBDate(sStr1) = .Value
  42.           End If
  43.          
  44.           If vEDate(sStr1) < .Value Then vEDate(sStr1) = .Value
  45.         End If
  46.       End With
  47.       lRow = lRow + 1
  48.     Loop
  49.   End With
½Æ»s¥N½X
[ThisWorkBook]
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2.   Dim vC
  3.   
  4.   For Each vC In Application.CommandBars(1).Controls
  5.     If vC.Caption = "Ū¨ú¸ê®Æ" Then vC.Delete
  6.   Next
  7. End Sub

  8. Private Sub Workbook_Open()
  9.   Dim bNFind As Boolean
  10.   Dim tcbLdData As Object
  11.   Dim vC
  12.   
  13.   GetData
  14.   bNFind = True
  15.   For Each vC In Application.CommandBars(1).Controls
  16.     With vC
  17.       If .Caption = "Ū¨ú¸ê®Æ" Then
  18.         bNFind = False
  19.         .Visible = True
  20.       End If
  21.     End With
  22.   Next

  23.   If bNFind Then
  24.     Set tcbLdData = Application.CommandBars(1).Controls.Add(Type:=msoControlButton)
  25.     With tcbLdData
  26.       .Caption = "Ū¨ú¸ê®Æ" '«ö¶sªº¦WºÙ
  27.       .FaceId = 2778 '«ö¶sªº¹Ï¥Ü
  28.       .OnAction = "GetData" '«ö¶sªº¥¨¶°¦WºÙ
  29.     End With
  30.   End If
  31. End Sub
½Æ»s¥N½X

TOP

¥u¯à»¡luhpro¥S..§A¯uªº¤Ó¯«¤F°Õ..§¹¥þ²Å¦X¤p§Ì´£¥Xªº­n¨D¡A°J¤ßªº·PÁ¸ԲӪº¸Ñ»¡¡A¤p§Ì¥ý¦A¸Õ¶]¬Ý¬Ý¦³µL¨ä¥L°ÝÃD¦A¨Ó¦^³ø¤@¤U¡AÁÂÁÂ^^

TOP

luhpro¥S¥H¹ê»Úªºªí®æ¾Þ§@®Éµo²{´XÂI°ÝÃD¡A¦A¦¸½Ð±Ð¡A¥ý¦b¦¹·PÁÂ^^

1.­ìªþ¥ó¬O®»¨ú¤j¦h¤w¥Í²£§¹²¦ªº»s¥O¡A©¿²¤¤F¦³³¡¥÷ªº¬OÁÙ¥¼µo³æªº¡]«üªº¬O³æ¥¼¤U¦Ü²{³õªº¡^¡A©óGÄæ¦ì¥¼¿é¤J¤é´Áªº¡]­ìªþ¥óÁôÂð_¨Ó¤F)¡A©óPÄæ¦ì¦Û°Ê¨q"©|¥¼µo³æ"

2.µ{¦¡¬O©ñ©ó­p¹ºªí¤¤¡A¶}敋®É¦Û°Ê°õ¦æ¡A¦ý«á¨Ó·Q·Q­p¹ºªí¬O¦@¥ÎÀɮסA§Æ±æ¥i§â¥¨¶°§ï©ñ¦b¥Í²£¤é³øªí¤¤¡A³]©w¤â°Ê°õ¦æ¡]¤£¥²¶}±ÒÀÉ®×´N¦Û°Ê°õ¦æ¡^

3.­ìªþ¥óAÄæ¦ì³£¦³¶ñ¶g§O¡A¦ý¹ê»Ú³øªí¦³¨Ç¦]¥Í²£°_°W¤é¥¼©w¬G·|¯dªÅ¥Õ¡A¦ý°õ¦æ¥¨¶°®ÉÅܦ¨¶È·|°õ¦æ¨ìAÄæ¦ìªÅ¥Õ«e¤@¦C¡]¬O§_¥i§ï¥HBÄæ¦ì§P©w³Ì«á¤@¦Cªº¨Ì¾Ú¡^

4.¥Í²£°_°W¤é¤Î¥Í²£§¹¤u¶q¨Ì¥Í²£¤é³øªí¤ñ¶ñ¦Û°Ê¶ñ¤W¡A¥Í²£¤¤,ªÅ¥ÕÁÙ¦³©|¥¼µo³æªº¬O§_¦p¦³¤@¨C¥x¾÷¥xªº¤é²£¯à¸ê®Æ¡A¥i¦Û°Ê¨Ì¨Cµ§»s¥O¼Æ¦Û°Ê¥ýºNÀÀ¶ñ¤W¹w­pªº°_°W¤é¤Î§¹¤u¤é¡]¦¹¶È¬Oºc·Q¡A¤]¤£ª¾¬O§_¯u¯à¹ê¦æ¡A¦p¥i¡A¥i¼È«ö¨C¥x600­Ó/®É²£¯à¦ôºâ¡^

5.­ì³øªí¦¹¦Û°Ê¶ñ¤WÄæ¦ì®æ¦¡§¡¬°Arial¡A¦rÅé¤j¤p:9¡A¦ý°õ¦æ¥¨¶°«áÅܦ¨·s²Ó©úÅé¡A¤j¤p:12¡A¬O§_¥i¦Û°Ê³]©w­ì³øªí®æ¦¡

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2014-10-1 23:30 ½s¿è
luhpro¥S¥H¹ê»Úªºªí®æ¾Þ§@®Éµo²{´XÂI°ÝÃD¡A¦A¦¸½Ð±Ð¡A¥ý¦b¦¹·PÁÂ^^
1.­ìªþ¥ó¬O®»¨ú¤j¦h¤w¥Í²£§¹²¦ªº»s¥O ...
p6703 µoªí©ó 2014-9-27 23:41

1. ¤w§¹¦¨
2. §Ú§ï§âµ{¦¡¿W¥ß¥X¨Ó¨Ã¦s¦¨¼W¯q¶°, ¦Ó¤£¬O©ñ¦b¨âºØÀɮפº,³o¼Ë¤ñ¸û¦n¹B§@.
3. ¤w§¹¦¨
4. ¦³¨Ç½ÆÂø,¥i§_´£¨Ñ¦h¤@¨Çªº¼ÒÀÀ¼Æ¾Ú¸ê®Æ»P±Àºt¹Lµ{»¡©ú?
5. ¤w§¹¦¨

¥t,
§Ú¦³°w¹ï¤£¦Pµo®Æ±¡§Î,
°µ¤@¨Ç©³¦âªº°Ï¤À,
¥H¤è«K¨Ï¥ÎªÌ¿ëÃÑ.
¥Í²£¸ê®Æªí·J¾ã.zip (16.37 KB)

¼W¯q¶°°õ¦æ«á·|¨q¥X¾Þ§@µøµ¡,
ÂIÀ» "·J¾ã¸ê®Æ" «ö¶s·Ç³ÆŪ¨ú»P§ó·s¸ê®Æ,
¥ý¿ï "¤é³øªí", ¦A¿ï "­p¹ºªí",
¥¦·|¦Û°Ê¨Ì¾Ú¤é³øªí¸ê®Æ¨Ó§ó·s­p¹ºªí¤º®e,

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD