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

[µo°Ý] ¦p¦ó­×­q¼W¦Cµ{¦¡

¥»©«³Ì«á¥Ñ BV7BW ©ó 2021-7-24 17:28 ½s¿è

¦^´_ 20# ­ã´£³¡ªL
ÁÂÁ ­ã´£³¡ªL ¦Ñ®v

Ãö¤_"­×§ï""³o³¡¥÷¤w§¹¦¨

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'µ{¦¡¸ê®Æ¨Ó·½¦Ü­ã´£³¡ªL_1100624_X10000045_1
Dim R&, CN&, xE As Range
With Target
     If .Column <> [P1].Column Or .Value = "" Then Exit Sub
     R = Cells(Rows.Count, "k").End(3).Row
     Cancel = True
     If .Row = 1 Then
        With Range("e1:n" & R)
             .Borders.LineStyle = 1
             .Columns(9) = .Columns(9).Value
        End With
        Range("h1:h" & R).Formula = "=IF(ROW(A1)=1,""(KG)"",IF(F1=""¥x¤ç"",(MOD(E1,1)*100/16+INT(E1)),E1)*G1)"
     Else
        Set xE = Range("K1:K" & R).Find(.Value, lookat:=xlWhole)
        If xE Is Nothing Then MsgBox "¡¯§ä¤£¨ì«ü©wªº³æ¸¹¡I¡@": Exit Sub
        CN = Application.CountIf(Range("K" & xE.Row & ":K" & R), .Value)
        With Range("e" & xE.Row).Resize(CN, 10)
             .Columns(9) = "=SUM(" & .Columns(4).Address & ")"
             .BorderAround Weight:=xlMedium, ColorIndex:=3
             .Item(1).Select
             .Item(1).Font.Color = vbRed
        End With
     End If
End With
End Sub
...........
¦Ü©ó"¿é¤J"³o°l¥[³¡¥÷«h¬O»Ý¦A²£¥Í¥t¤@³æ¸¹.
¨Ò¦p:7¤ë24¤é¿é¤J¤F¤@±i¥X³f³æ, «È¤á:³¯¤@, ³æ¸¹:"1100724001", ¦@¿é¤J10µ§¶µ¥Ø,
     7¤ë24¤éÁ{®É«È¤á:³¯¤@°l¥[¤F3ºØ°Ó«~,«h«È¤á:³¯¤@, ³æ¸¹:"1100724002", ¦@¿é¤J3µ§¶µ¥Ø,³o¤]§¹¦¨
......................
xNum = [V2] '³æ¸¹
cName = [E2] '«È¤á
'µ{¦¡¸ê®Æ¨Ó·½¦Ü­ã´£³¡ªL_¥X³f§@·~Dª©V01_10905
If Not xNum Like String(10, "#") Then MsgBox "**³æ¸¹¿ù»~©ÎªÅ¥Õ! ": Exit Sub
If Left(xNum, 7) <> Year([E4]) - 1911 & Format([E4], "mmdd") Then MsgBox "**³æ¸¹«e¢¶½X»P¤é´Á¤£¬Û²Å! ": Exit Sub
Mch = Application.Match(xNum, [­q³f©ú²Óªí!K:K], 0)
If IsNumeric(Mch) Then MsgBox "**³æ¸¹¤w¦s¦b! ": Exit Sub
'Mch = Application.Match(CL, [­q³f©ú²Óªí!A:A], 0)
'If IsNumeric(Mch) Then MsgBox "**«È¤á¤w¦s¦b! ": Exit Sub
'µ{¦¡¸ê®Æ¨Ó·½¦Ü­ã´£³¡ªL_2021_7_3«ü¾É
Mch = Application.Match(cName, [­q³f©ú²Óªí!A:A], 0) 'Àˬd«È¤á¬O§_¦s¦b
If IsNumeric(Mch) Then
   Beep '­Y¦s¦b, µo¥X¹ÍÁn, ¨Ã´£¥Ü¬O§_¶i¦æ¸É¼W???
   If MsgBox("**«È¤á¤w¦s¦b! §A­nÄ~Äò¿é¤J¥»±i­q³æ¶Ü?  ", 4 + 32 + 256) = vbNo Then Exit Sub '«ö"§_"µ²§ô
   [E2] = [­q³f©ú²Óªí!A:A].Cells(Mch, 1) '«ö"¬O", ¦Û°Ê¶ñ¤J"«È¤á¦W", ¥[¤J¼W¸É©ú²Ó~~
End If
...........................
²{¦b°ÝÃD©Ò¦b¬O¦]­q³f©ú²Óªí¤¤
¨Ò)7¤ë1¤é«È¤á:³¯¤@, ³æ¸¹:"1100701001"¦@¿é¤J10µ§¶µ¥Ø
   7¤ë1¤é«È¤á:³¯¤@Á{®É°l¥[, ³æ¸¹:"1100701002"¦@¿é¤J1µ§¶µ¥Ø
   7¤ë2¤é«È¤á:³¯¤@, ³æ¸¹:"1100702001"¦@¿é¤J5µ§¶µ¥Ø
¦]Mch = Application.Match(cName, [­q³f©ú²Óªí!A:A], 0) 'Àˬd«È¤á¬O§_¦s¦b.
("¨ä¥\¯à¬O¨¾¤î«È¤á­«½Æ¿é¤J"³y¦¨"±ÄÁʻݨD"¥¢¯u)

©Ò¥H¥¦¬OÀˬd"­q³f©ú²Óªí"¤¤¦³«È¤á:³¯¤@,³£·|¥ýÀˬd1¦¸.¨ä¥\¥Î¦]¦¹¥u¦³1¥b§@¥Î
¤]´N¬O»¡¥u¦³¨C¤ë²Ä1¦¸«È¤á:³¯¤@.©Î"­q³f©ú²Óªí"¤¤¨S¦³«È¤á:³¯¤@¨ä¥\¥Î¤~¯à§e²{¥X

²{¦b°µªk¬O¦h1°Ê§@¥ý±N¨C¤é"­q³f©ú²Óªí"¤â°Ê½Æ»s¥t1¤u§@ªí"­q³f¦sÀÉ"¶K¤W«á±N"­q³f©ú²Óªí"²MªÅ.
°ÝÃD´N¸Ñµ²¤F

¦]¦Ó´£°Ý"¤u§@ªí½Æ»s¸ó¥t¤@Àɮפu§@ªí"°ÝÃD

¦p¯à¦b"Mch = Application.Match(cName, [­q³f©ú²Óªí!A:A], 0) 'Àˬd«È¤á¬O§_¦s¦b"¤¤
¥[¤W©Î§ï¬°¥H¤é´Á¨C¤é¥H«È¤á°µÀˬd¬J¥i.¤£¥Î¦A¼W¦C¥t¤@¤u§@ªí"­q³f¦sÀÉ"ª½±µ¥H"­q³f©ú²Óªí"§@¬°¦sÀɸê®Æ
¦b¨C¤ë¥H­q³f©ú²Óªí¤¤¸ê®Æ¦A¥t¦s·sÀɧ@¬°¾ú¥v¸ê®Æ¦sÀÉ

   ·PÁ  ­ã´£³¡ªL ¦Ñ®v «ü¾É
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 21# BV7BW

²{¦b°ÝÃD©Ò¦b¬O¦]­q³f©ú²Óªí¤¤
¨Ò)7¤ë1¤é«È¤á:³¯¤@, ³æ¸¹:"1100701001"¦@¿é¤J10µ§¶µ¥Ø
   7¤ë1¤é«È¤á:³¯¤@Á{®É°l¥[, ³æ¸¹:"1100701002"¦@¿é¤J1µ§¶µ¥Ø
   7¤ë2¤é«È¤á:³¯¤@, ³æ¸¹:"1100702001"¦@¿é¤J5µ§¶µ¥Ø
  


§Ú18¼Ó¤Wªºªþ¥ó, §A¥i¯à³£¨S´ú¸Õ....
7¤ë1¤é«È¤á:³¯¤@, ³æ¸¹:"1100701001"¦@¿é¤J10µ§¶µ¥Ø....ok
7¤ë1¤é«È¤á:³¯¤@Á{®É°l¥[, ³æ¸¹:"1100701002"¦@¿é¤J1µ§¶µ¥Ø....¤£¦æ, µ{¦¡·|¾×±¼, ¦]¦P¤@¤Ñ, ¤@­Ó«È¤á¥u¯à¦³¤@±i³æ¤l, ¤£¯à¦³¨â­Ó³æ¸¹, ¥u¯à¿é¤J1100701001°õ¦æ­×§ï¼W¥[

7¤ë2¤é«È¤á:³¯¤@, ³æ¸¹:"1100702001"¦@¿é¤J5µ§¶µ¥Ø....OK, ¤é´Á¤w¸g¤£¦P, ¤£·|µø¬°«È¤á­«ÂÐ

TOP

³o¬O·s¼Wªº³¡¥÷:
ª`·N:Àx¦s®æ N5...·|¦³"«Ý©R¤¤/­×§ï¤¤" ª¬ºA, ¥H§PÂ_§A°õ¦æªº¬O"·s¼W" ©Î "­×§ï
  

Sub «È¤á­qÁʪí_­×§ï¿é¤J() '¡×2021.07.10¼W­×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
Dim cNo$, xF As Range
If [n5] = "­×§ï¤¤" Then MsgBox "¡°¥¿¦b­×§ï§@·~¤¤¡A­Y·Q¶i¦æ¨ä¥L¾Þ§@¡A½Ð«ö¡e­«¸m¡f¡I¡@": Exit Sub
Re_Try:
cNo = InputBox("¡°½Ð¿é¤J¤Q¦ì¼Æ¥X³f³æ¸¹¡A¦A«ö½T©w¡I¡@", , cNo)
If StrPtr(cNo) = 0 Then Exit Sub
If Not cNo Like String(10, "#") Then MsgBox "¡°¥X³f³æ¸¹ªÅ¥Õ©Î®æ¦¡¿ù»~!  ": GoTo Re_Try
Set xF = [­q³f©ú²Óªí!J:J].Find(cNo, Lookat:=xlWhole)
If xF Is Nothing Then MsgBox "¡°§ä¤£¨ì³oµ§¥X³f³æ¸¹!  ": GoTo Re_Try
Set xF = xF(1, 2 - xF.Column) '±NxF©w¦ì¨ìAÄæ
[o2] = cNo '³æ¸¹
[a2] = xF  '«È¤á¦WºÙ
[A4] = xF(1, 11) '¤é´Á
[a8] = xF(1, 13) '±ÄÁʳ渹
[n5] = "­×§ï¤¤"  'ª¬ºA®æ
End Sub

TOP

ÂŦⳡ¥÷¬O­×§ï©Î·s¼Wªº³¡¥÷!!!

Sub «È¤á­qÁʪí_¿é¥X()
Dim R&, CN&, Arr, Brr, Crr, Drr, QQ, i&, j%, N&, xE As Range, X%, Mch, xNum&, pNo$
R = [F65536].End(xlUp).Row
CN = Application.Count(Range("G4:G" & R))
If CN = 0 Then MsgBox "**©|¥¼¿é¤J¼Æ¶q!  ": Exit Sub
If [a2] = "" Then MsgBox "**©|¥¼¿é¤J«È¤á¦WºÙ!  ": Exit Sub
If Not IsDate([A4]) Then MsgBox "**¤é´ÁªÅ¥Õ©Î¿ù»~! ": Exit Sub
'------------------------------------
xNum = [o2] '³æ¸¹
If Not xNum Like String(10, "#") Then MsgBox "**³æ¸¹¿ù»~©ÎªÅ¥Õ! ": Exit Sub
If Left(xNum, 7) <> Year([A4]) - 1911 & Format([A4], "mmdd") Then MsgBox "**³æ¸¹«e¢¶½X»P¤é´Á¤£¬Û²Å! ": Exit Sub
'///2021.07.13¼W­×////////////////////////////
Mch = Application.Match(xNum, [­q³f©ú²Óªí!J:J], 0) 'Àˬd³æ¸¹¬O§_¤w¦s¦b
If [n5] <> "­×§ï¤¤" Then
   If IsNumeric(Mch) Then MsgBox "**³æ¸¹¤w¦s¦b! ": Exit Sub
   NM = [a2] '«È¤á
   DD = [A4] '¤é´Á
   Mch = Application.Match(CLng(DD), [­q³f©ú²Óªí!k:k], 0)  '¥ýÀˬd¤é´Á¬O§_¦s¦b
   If IsNumeric(Mch) Then
       Arr = Range([­q³f©ú²Óªí!m1], [­q³f©ú²Óªí!a1].Cells(Rows.Count, 1).End(xlUp))
       For i = Mch To UBound(Arr)
           If Arr(i, 11) <> DD Then Exit For
           If Arr(i, 11) = DD And Arr(i, 1) = NM Then '¤é´Á¬Û¦P+«È¤á¬Û¦P
              MsgBox "¡°¤é´Á:" & DD & "¡A«È¤á:" & NM & "¤w¸g¦³¸ê®Æ!   " & vbCrLf & _
                     "¡@­Y·Q·s¼W­q³æªº¤º®e¡A½Ð¨Ï¥Î¡e­×§ï¿é¤J¡f«ö¶s¡I¡@"
              Exit Sub
           End If
       Next i
   End If
End If
'////////////////////////////////////////////////
'-----------------------------------------------
pNo = [a8].Text
If UCase(Right([M2], 1)) = "S" And pNo = "" Then
   MsgBox "**¡i«È¤á½s¸¹¡G" & [M2] & "¡jµ²§À¦³""S"", ¥²¶·¿é¤J¡i±ÄÁʳ渹¡j,   " & vbCrLf & vbCrLf & _
          "­Y¨S¦³¡i±ÄÁʳ渹¡j,©Î¼È®É¤£¿é¤J, ½Ð¿é¤J0!"
   [a8].Select: Exit Sub
End If
If pNo = "N/A" Then pNo = ""
'-----------------------------------------------
Arr = Range("D4:J" & R)
ReDim Crr(1 To CN, 1 To 13)
For i = 1 To UBound(Arr)
    If Val(Arr(i, 4)) <= 0 Then GoTo 101
    N = N + 1
    '(1)«È¤á(2)«È¤á½s¸¹(3)¶µ¥Ø½s¸¹(4)¶µ¥Ø¦WºÙ(5)¼Æ¶q(6)³æ»ù(7)ª÷ÃB(8)Ãþ§O(9)¨®½s(10)³æ¸¹(11)¤é´Á(12)¦X­pª÷ÃB(13)±ÄÁʳ渹
    QQ = Array([a2], [M2], Arr(i, 1), Arr(i, 2), Arr(i, 4), Arr(i, 5), "=N(RC[-2])*N(RC[-1])", Arr(i, 7), [M4], xNum, [A4], Val([O7]), pNo)
    For j = 0 To UBound(QQ)
        Crr(N, j + 1) = QQ(j)
    Next j
101: Next i
If N = 0 Then Exit Sub
'-------------------------------------
'¡×2021.07.10¼W­×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
With Sheets("­q³f©ú²Óªí")
     With .[A65536].End(xlUp)(2).Resize(N, UBound(Crr, 2))
          .Value = Crr
           If [n5] = "­×§ï¤¤" Then .Interior.ColorIndex = 35 '­YÄݭקï..¶ñ²Hºñ¦â
     End With
     Range(.[m1], .[A65536].End(xlUp)).Sort Key1:=.[j1], Order1:=xlAscending, Header:=xlYes
End With
If [n5] = "­×§ï¤¤" Then
   [o2].Formula = "=IF(A4="""","""",IF(ISNA(MATCH(A4,­q³f©ú²Óªí!K:K,)),TEXT(A4,""emmdd"")*1000,LOOKUP(TEXT(A4+1,""emmdd"")*1000,­q³f©ú²Óªí!J:J))+1)"
   [n5] = "«Ý©R¤¤"
End If
'=======================================
'-------------------------------------
ChangeChk = 1: [°e³f³æ!B2] = xNum
Call °e³f³æ_¸ü¤J: ChangeChk = 0
'----------------------------------------
Range("G4:G" & R).ClearContents: [a2] = "": [a8] = "" '²M°£:¼Æ¶q/«È¤á/±ÄÁʳ渹, ¨Ñ¤U¦¸¿é¤J
If MsgBox("¡°¿é¥X§¹¦¨, ¬O§_­n¥ß§Y¸õ¦Ü[°e³f³æ]??  ", 4 + 32 + 256) = vbYes Then Application.Goto [°e³f³æ!A7]
End Sub


'*********************************************

TOP

ÂŦⳡ¥÷¬O­×§ï©Î·s¼Wªº³¡¥÷!!!  

Sub «È¤á­qÁʪí_­«¸m()
Dim R&
If MsgBox("¡°½T©w­n­«¸m»²§U¤½¦¡¤Î²M°£¿é¤J¼Æ¶q¶Ü?  ", 4 + 32 + 256) = vbNo Then Exit Sub
R = [B65536].End(xlUp).Row
Range("G3:G" & R).ClearContents
Call «È¤á­qÁʪí_»²§U¤½¦¡
'¡×2021.07.10¼W­×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
[o2].Formula = "=IF(A4="""","""",IF(ISNA(MATCH(A4,­q³f©ú²Óªí!K:K,)),TEXT(A4,""emmdd"")*1000,LOOKUP(TEXT(A4+1,""emmdd"")*1000,­q³f©ú²Óªí!J:J))+1)"
[n5] = "«Ý©R¤¤"
'======================================
End Sub

TOP

¦^´_ 25# ­ã´£³¡ªL

·PÁ ­ã´£³¡ªL ¦Ñ®v «ü¾É
¦]§ó§ï°Ï°ì«Ü¦h.§Ú¥i¶·¦AºCºC²z¸Ñ®ø¤Æ¤¤
(**­«ÂI**:¥D­n¬O¹wĵ«È¤á­«½Æ.¿é¤J".°l¥[³¡¥÷«h¬O»Ý¦A²£¥Í¥t¤@³æ¸¹.³o³¡¥÷¤w§¹¦¨µ{¦¡¸ê®Æ¨Ó·½¦Ü­ã´£³¡ªL_¥X³f§@·~Dª©V01_10905.
          (¤£¬O­×§ï©Î¼W¥[­ì­q³æ³æ¸¹¤º®e).(Ãö¤_"­×§ï""³o³¡¥÷¤w§¹¦¨.µ{¦¡¸ê®Æ¨Ó·½¦Ü­ã´£³¡ªL_1100624_X10000045_1)
          **³æ¸¹¬O©T©w³sÄò½s±Æ.·í¤é¥Î¹L¤§³æ¸¹¤£¥i¦A§ó°Ê¨Ï¥Î**
          ¥Ø«e°µªk¥ý±N¨C¤é"­q³f©ú²Óªí"¤â°Ê½Æ»s¥t1¤u§@ªí"­q³f¦sÀÉ"¶K¤W«á±N"­q³f©ú²Óªí"²MªÅ.
**´ú¸Õ«á**
«È¤á»P¤é´Á¥i¦P®É¤@°_Àˬd§@¥Î.¦ý·|©µ¦ù°ÝÃD¥X²{
­q³æ³æ¸¹°ÝÃD.»Ý¦A¦^©ú²Óªí¤¤§ä´M«È¤á­q³æ³æ¸¹.­«·s¿é¤J³æ¸¹(¦p¿é¤J¿ù»~«h²£¥Í²V¦X­q³æ(¦CA¨®«È¤á»PB¨®«È¤á²V¦X¦P¤@­q³æ³æ¸¹)
             §ó§ï­«¸m«á.»Ý­«·s¦^­q³fªí§ä·í¤é³Ì«á³æ¸¹.¦A¿é¤J­qÁÊªí¤§³æ¸¹.³y¦¨¤£«K

             ­«¸m«á³æ¸¹¿ù»~(°õ¦æ¿ù»~1004.À³¥Îµ{¦¡»Pª«¥ó©w¸q¤W¿ù»~).¤£¯à«ì´_.»Ý¤â°Ê¿é¤J
          ÁÂÁÂ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 26# BV7BW

ÅÞ¿è¸ò¤£¤W, ¾ã­Ó³£²V¤F....
¦^¨ì­ìÂI:
¿é¥X®É--Àˬd¦P¤@¤é¬O§_¦³¬Û¦Pªº«È¤á,
­Y¦³...´£¥Ü°T®§..«ö"§_"-¤£°Ê§@µ²§ô...«ö"¬O"-¥H·s³æ¸¹¿é¥X¦Ü©ú²Óªí
¥X³f§@·~Dª©v01_1100725.rar (377.44 KB)

¦P¤@¤é, «È¤á¦³·s°l¥[ªÌ, ³£¥H·s³æ¸¹³B²z, ¤£¦A¥Î³渹§@¼W¸É¤F!!!

TOP

¦^´_ 27# ­ã´£³¡ªL

­ã´£³¡ªL ¦Ñ®v §A¦n

ÁÂÁ§A ¦Ñ®v ¨¯³Ò«ü¾É

¸g´ú¸Õ«á»Ý¨D¤w¹F¨ì§¹¥þ­Á¦X
¥H«È¤á&¤é´Á§@¬°Àˬd°Ê§@

ÁÙ¦³1ÂIÂI¤p°ÝÃD(¦ý¨SÃöºò­n)

´N¬O»¡.·íÀˬd¨ì­«½Æ®É¶·«ö§¹¸Ó³æ¸¹©Ò¦³¶µ¥Ø«á¤~¥i¿é¤J

¦C)«È¤á:³¯¤@³æ¸¹1090529004¦³3¶µ¥Ø.§¹¦¨­q³æ
   ·í»Ý°l¥[®É«È¤á:³¯¤@³æ¸¹1090529005¦³3¶µ¥Ø.·|¥hÀˬd°Ê§@»Ý«ö1090529004³æ¸¹©Ò¦³¶µ¥Ø«á.
   ¤~¥i¿é¤J1090529005­q³æ³æ¸¹§¹¦¨

   ¤]´N¬O»¡­n«ö3¤U«á1090529005³æ¸¹¤~¯à¦¨¥ß

   ¦A¦p¦³²Ä3µ§­q³æ³æ¸¹«È¤á:³¯¤@³æ¸¹1090529006¦³1¶µ¥Ø
   ´N»Ý«ö6¤U(11090529004¦³3¶µ¥Ø.1090529005¦³3¶µ¥Ø)¤~¥i¿é¤J1090529006­q³æ³æ¸¹

   ¦p¯à¥uÀˬd¸Óµ§³æ¸¹²Ä1¶µ¥Ø¬J¥i.¦³²Ä2µ§®É¤@¼Ë¥uÀˬd²Ä1µ§
   µ¥©ó²Ä2µ§³æ¸¹¶·«ö1¤U.²Ä3µ§³æ¸¹¶·«ö2¤U

  ·PÁ ­ã´£³¡ªL ¦Ñ®v
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 28# BV7BW

If Arr(i, 11) = DD And Arr(i, 1) = NM Then '¤é´Á¬Û¦P+«È¤á¬Û¦P
    Beep '­Y¦s¦b, µo¥X¹ÍÁn, ¨Ã´£¥Ü¬O§_¶i¦æ¸É¼W???
    If MsgBox("¡°¤é´Á¡G" & DD & "¡A«È¤á¡G" & NM & "¡A³æ¸¹¡G" & Arr(i, 10) & "¡A¤w¸g¦³¸ê®Æ¡I   " & vbCrLf & vbCrLf & _
          "¡A§A­nÄ~Äò¿é¤J¥»±i­q³æ¶Ü?  ", 4 + 32 + 256) = vbNo Then Exit Sub  '«ö"§_"µ²§ô
    Exit For  '¥[³o¤@¦æ
End If

TOP

¦^´_ 29# ­ã´£³¡ªL
ÁÂÁ§A ­ã´£³¡ªL ¦Ñ®v«ü¾É

§¹¥þ­Á¦X»Ý¨D
¦h¦¸·ÐÂZ¦Ñ®v.¯u«D±`©êºp»P·PÁÂ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD