Board logo

¼ÐÃD: [µo°Ý] (ÁÂÁ®¦®v­Ì¡A7/4§¹¦¨) Ãö©ó¦Û­qªí³æTextBox¿é¤JÃöÁä¦r¥X²{¸ê®Æ(ªþ½d¨Ò) [¥´¦L¥»­¶]

§@ªÌ: av8d    ®É¶¡: 2012-6-26 11:32     ¼ÐÃD: (ÁÂÁ®¦®v­Ì¡A7/4§¹¦¨) Ãö©ó¦Û­qªí³æTextBox¿é¤JÃöÁä¦r¥X²{¸ê®Æ(ªþ½d¨Ò)

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-4 19:58 ½s¿è

Ãö©ó¦Û­qªí³æTextBox¿é¤JÃöÁä¦r¥X²{¸ê®Æ(½d¨Ò¦p¤U)
http://forum.twbts.com/viewthrea ... hlight=%C3%F6%C1%E4

¦b¦Û­qªí³æ»s§@¤@­ÓTextBox3
­YC1=100  C2=15
·íTextBox3¿é¤J"1"³o­Ó¦r~«h·|¥X²{¥H¤W¨â­Ó¿ï¶µ¥i¥HÂI¿ï

¦b¦Û­qªí³æ»s§@¤@­ÓTextBox4
­YD1=¤j©Ð¨§¤z  D2=¤j²³©Ð«Î
·íTextBox4¿é¤J"¤j"³o­Ó¦r~«h·|¥X²{¥H¤W¨â­Ó¿ï¶µ¥i¥HÂI¿ï

¥H¦¹Ãþ±À~ÁÂÁ¦U¦ì¤j¤jªº¥Î¤ßÆ[¬Ý

ÁÂÁÂG¤j¥¿¦V°f±À«ä¦ÒªºÅÞ¿è¤è¦¡~¶W·P¿Eªº!!ÁÂÁ§A!!
§@ªÌ: GBKEE    ®É¶¡: 2012-6-26 13:43

¦^´_ 1# av8d
¸Õ¸Õ¬Ý


    [attach]11494[/attach]
§@ªÌ: av8d    ®É¶¡: 2012-6-26 18:48

¦^´_ 2# GBKEE


    ¤j¤jªº¦^ÂЯuªº¬O¶W¯Å§Ö@@ ¥Ñ°J·PÁÂ~

·Q¸ß°Ý¤@¤U~¦pªG§Ú§Æ±æ·íComboBox¿ï¨ì·Q­nªº¿ï¶µ«áTextBox¦Û°Ê¶ñ¤J¸Ó¸ê®Æ
§Ú´ú¸Õ¤F«Ü¦h¦¸¦n¹³³£¤£¥i¥H~

Sub ComboBox1_Click()
TextBox1=ComboBox1
End Sub

§Ú¦n¹³·Q±o¤Ó²³æ¤F@@
§@ªÌ: GBKEE    ®É¶¡: 2012-6-26 20:51

¦^´_ 3# av8d
¨º¦b§ï¤@¤U¤F

[attach]11496[/attach]
§@ªÌ: av8d    ®É¶¡: 2012-6-26 21:42

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-26 22:37 ½s¿è

¦^´_ 4# GBKEE


    ÁÂÁ¤j¤j~³Ì«á¤@¦¸³Â·Ð¤j¤j
½Ð°ÝComboBox¤ºªº­È­Y¬O­«½Æ~¬O§_¥i¥H¥uÅã¥Ü¤@µ§?
§@ªÌ: register313    ®É¶¡: 2012-6-26 23:46

¦^´_ 5# av8d
  1. Private Sub UserForm_Initialize()
  2.     Dim d As Object, A
  3.     Set d = CreateObject("Scripting.Dictionary")
  4.     With ActiveSheet
  5.         For Each A In .Range("b2", .[b2].End(xlDown))
  6.           d(A.Value) = ""
  7.         Next A
  8.         ComboBox1.List = Application.Transpose(d.keys)
  9.         d.RemoveAll
  10.         For Each A In .Range("c2", .[c2].End(xlDown))
  11.           d(A.Value) = ""
  12.         Next A
  13.         ComboBox2.List = Application.Transpose(d.keys)
  14.     End With
  15. End Sub
½Æ»s¥N½X

§@ªÌ: dechiuan999    ®É¶¡: 2012-6-27 08:04

¦^´_ 2# GBKEE


    ª©¥D¤j¤j±z¦n¡G

  ¦bÃöÁä¦r¿é¤J½d¨Ò¸Ì¡A
¤p§Ì¹ï©ó¤U¦C»yªk
ªºÀ³¥Î¤£¬O«Ü¤F¸Ñ¡A
·Ð½Ðª©¥D¤j¤j¯à©ú¥Ü¡C

¤@¡B
.Replace "*" & TextBox1 & "*", "=what this", xlPart

¬°¦ó¥Î"=what this"¡A¤p§Ì¦³¦b¤u§@ªí¤Wªº¿é¤J­È¦a¤è¦³¬Ý¨ì
Åã¥Ü¬°=what this¤£ª¾¨ä¥Î·N¬°¦ó¡H

¤G¡B
.SpecialCells(xlCellTypeFormulas, xlErrors).Name = "xxx"
¦¹»yªk¤p§Ì¤@ª½¤£À´±o¦p¦ó¥hÀ³¥Î¤ÎÅçÃÒ©O¡H
¦bTEXTBOX1¿é¤J¬d¸ß®É¡A¦bBÄæÀx¦s®æ·|¥X²{#NAME?

¤T¡B
With ComboBox1
     For Each E In [XXX]
       .AddItem E.Value
     Next
.Value = .List(0)
    End With
¬°¦ó°Ï°ìÅܼƬݤ£¨ì
¦³¦¹ª«¥óÅܼÆ[XXX]¡A
¤S¦¹ª«¥óÅܼƥѦó¦Ó¨Ó©O¡H

ÁÂÁª©¥D¤j¤j¡C
§@ªÌ: GBKEE    ®É¶¡: 2012-6-27 08:37

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-6-27 10:36 ½s¿è

¦^´_ 7# dechiuan999
Replace "*" & TextBox1 & "*", "=what this", xlPart
¬°¦ó¥Î"=what this"¡A¤p§Ì¦³¦b¤u§@ªí¤Wªº¿é¤J­È¦a¤è¦³¬Ý¨ì  

´N¬O¨S¦³°Ú  ·|²£¥Í¤@­Ó #NAME?¿ù»~­È
.SpecialCells(xlCellTypeFormulas, xlErrors).Name = "xxx"
¦¹»yªk¤p§Ì¤@ª½¤£À´±o¦p¦ó¥hÀ³¥Î¤ÎÅçÃÒ©O¡H

¬°¦ó°Ï°ìÅܼƬݤ£¨ì
¦³¦¹ª«¥óÅܼÆ[XXX]¡A
¤S¦¹ª«¥óÅܼƥѦó¦Ó¨Ó©O¡H


¸Õ¸Õ¬Ý [A1:D10].NAME="dechiuan999"
¨ì¤u§@ªí ¬d¬Ý©w¸q¦WºÙ ¬Ý¬Ý    [ ª«¥ó©Î¨ç¼Æ ¤£¥i¥H¬°ÅÜ¼Æ ]

¦^´_ 5# av8d
  1. Private Sub UserForm_Initialize()
  2. With ActiveSheet
  3. .Range("b:b").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
  4. 'AdvancedFilter ¶i¶¥¿z¿ï: ¤£­«½Æ¸ê®Æ, ¸ê®Æ½Æ»s¨ì¨ä¥L¦ì¸m
  5. ComboBox1.List = .Cells(1, .Columns.Count).CurrentRegion.Offset(1).Value '
  6. .Cells(1, .Columns.Count).EntireColumn = ""
  7. .Range("c:c").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
  8. ComboBox2.List = .Cells(1, .Columns.Count).CurrentRegion.Offset(1).Value '
  9. .Cells(1, .Columns.Count).EntireColumn = ""
  10. End With
  11. End Sub
½Æ»s¥N½X

§@ªÌ: av8d    ®É¶¡: 2012-6-27 10:00

¦^´_ 6# register313


    ¤j¤j±z¦n~¦pªG§Ú®M¥Î¨ì§Ú¥Ø«e¦³¼g¤F«Ü¦h¨ä¥Lªº¸Ì­±~
·|¥X²{¿ù»~'424'
¦¹³B»Ý­nª«¥ó

[attach]11498[/attach]
§@ªÌ: GBKEE    ®É¶¡: 2012-6-27 10:06

¦^´_ 9# av8d
¨S¦³ª«¥ó ¨º¶·¥ýÀˬd  UserForm1 ¤¤¦³¨S¦³TextBox1 ¬Ý¬Ý
§@ªÌ: av8d    ®É¶¡: 2012-6-27 10:16

¦^´_ 10# GBKEE


    [attach]11499[/attach]
§@ªÌ: av8d    ®É¶¡: 2012-6-27 10:19

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-27 10:24 ½s¿è

¦n¹³´N¬O¥d¨ìUserForm1ªº¦a¤è
§@ªÌ: GBKEE    ®É¶¡: 2012-6-27 10:34

¦^´_ 12# av8d
ªþÀɬݬÝ
§@ªÌ: av8d    ®É¶¡: 2012-6-27 13:14

¦^´_ 13# GBKEE


    ¤j¤j~¥i¥H¤F~§Ú¬Ý¨ì³\¦h¤j¤j³£·|¨Ï¥ÎOption Explicit
Option Explicitªº·N¸q¬O¦bµ{¦¡¼Ò²Õ¤¤±j­¢¨C­Ó¦bµ{¦¡¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½T§¹¾ãªº«Å§i©M©w¸q¨ä¦WºÙ,½d³ò»P«¬§O.
Option Explicit ³¯­z¦¡¥²¶·¥X²{¦b¼Ò²Õ¤¤©Ò¦³µ{§Ç¤§«e(§Y³Ì³»ºÝ)
·í Option Explicit ¦b¼Ò²Õ¤¤¨Ï¥Î®É¡A©Ò¦³ªºÅܼƥ²¶·¥H Dim¡A Private¡BPublic¡BReDim ©Î Static ³¯­z¦¡¨Ó©ú½T«Å§i¡C
¦b¼Ò²Õ¤¤¦pªG¨Ï¥ÎOption Explicit ,¦bµ{¦¡¤¤¦p¥¼«Å§iÅܼƪº¦WºÙ¡A«h¦b½sĶ¶¥¬q®É¡A·|µo¥Í¿ù»~¡C
¦pªG¨S¦³¨Ï¥Î Option Explicit ³¯­z¦¡¡A«h©Ò¦³¥¼«Å§iªºÅܼƳ£¬O Variant «¬ºA¡A°£«D¹w³]ªº«¬ºA¥t¥H Deftype ³¯­z¦¡©Ò«ü©w¹L¡C
Option Explicit ¥iÁקK¥´¿ùÅܼƦWºÙ©Î¦b¦³®Ä½d³ò¤º³]©w¨â­Ó¬Û¦PªºÅܼƦWºÙ¡C


³Ì¥D­n¬O¤£¬OÁקK¥´¿ùÅܼƦWºÙ~¦ý¬O³o¼Ë¨C¦¸³£¥²¶·¥ÎDim¡A Private¡BPublic¡BReDim ©Î Static ³¯­z¦¡¨Ó©ú½T«Å§i¡C
·N«ä¬O¤£¬O»¡
¦pªG§ÚÀH·N³]©w
a=textbox1
for i =1 to 3
a=a+1
next i

³o¼Ë¬O§_·|¥X²{¿ù»~~
§Úµo²{§Ú¤§«e©Ò°µªº³£¨S¥ÎOption Explicit~²{¦b­n¨Ó¤@­Ó¤@­Ó°£¿ù·|¤£·|ÁÙ¨Óªº«æ¶Ü?
§@ªÌ: GBKEE    ®É¶¡: 2012-6-27 16:39

¦^´_ 14# av8d
Option Explicit  ¥D­n¬O¥iÁקK¥´¿ùÅܼƦWºÙ ,¨Ï±oµ{¦¡¹B¦æ¤¤,§ä¤£¥X¿ù»~¦b­þ¸Ì
Textbox  ¬Oªí³æ¤º±±¨î¶µªºÃöÁä¦r, ­nÁקK©l¥Î .
§@ªÌ: dechiuan999    ®É¶¡: 2012-6-27 17:45

¦^´_ 8# GBKEE


    ª©¥D¤j¤j±z¦n¡G

ÁÂÁ±zªº»¡©ú
¤p§Ì¤w²z¸Ñname
¦b¦¹ªº¥Î·N
Sub aa()
   
    Dim mSht As Worksheet
    Dim mRng As Range, E As Range
    Set mSht = Worksheets(1)
    With mSht
        Set mRng = .Range("a1:c5")
            mRng.Name = "NewName"
            [newname].Select
        For Each E In [newname]
            MsgBox E.Address
        Next
        
    End With
End Sub


·P®¦¤j¤j¡I
§@ªÌ: av8d    ®É¶¡: 2012-6-28 17:00

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-4 14:10 ½s¿è

¦^´_ 6# register313

Private Sub UserForm_Initialize()

    Dim d As Object, A

    Set d = CreateObject("Scripting.Dictionary")

    With ActiveSheet

        For Each A In .Range("d2", .[d2].End(xlDown))

          d(A.Value) = ""

        Next A

        ComboBox1.List = Application.Transpose(d.keys)

        d.RemoveAll

        For Each A In .Range("e2", .[e2].End(xlDown))

          d(A.Value) = ""

        Next A

        ComboBox2.List = Application.Transpose(d.keys)

    End With

End Sub
---------------------------------------------------------------------
ComboBox1 = DÄæ
ComboBox2 = EÄæ

­YD1=¦­À\  D2=¤ÈÀ\  D3=¦­À\
­YE1=½Þ¦×  E2=Âû¦×  E3=¤û¦×

·íComboBox1¿ï¨ì¦­À\ªº®É­Ô¡AComboBox2¬O§_¯à¥uÅã¥Ü½Þ¦×©M¤û¦×¡A¦]¬°Âû¦×¬O¤ÈÀ\ªº©Ò¥H¹LÂo¸Óµ§¡C
§@ªÌ: GBKEE    ®É¶¡: 2012-6-28 17:37

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-6-28 17:48 ½s¿è

¦^´_ 17# av8d
  1. Option Explicit
  2. Dim d As Object
  3. Private Sub UserForm_Initialize()
  4.     Dim A As Range
  5.     Set d = CreateObject("Scripting.Dictionary")
  6.     With ActiveSheet
  7.         For Each A In .Range("d2", .[d2].End(xlDown))
  8.           d(A.Value) = IIf(d(A.Value) = "", A.Offset(, 1).Value, d(A.Value) & "," & A.Offset(, 1))
  9.         Next
  10.         ComboBox1.List = d.KEYS
  11.     End With
  12. End Sub
  13. Private Sub ComboBox1_Change()
  14.     If ComboBox1.ListIndex > -1 Then
  15.         ComboBox2.List = Split(d(ComboBox1.Value), ",")
  16.         ComboBox2.Value = ComboBox2.List(0)
  17.     End If
  18. End Sub
½Æ»s¥N½X
[attach]11520[/attach]
§@ªÌ: av8d    ®É¶¡: 2012-6-28 20:39

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-28 21:06 ½s¿è

¦^´_ 18# GBKEE


°ÝÃD¸Ñ¨M~ÁÂÁÂ!
§@ªÌ: GBKEE    ®É¶¡: 2012-6-28 21:13

¦^´_ 19# av8d
Dim d As Object ³oµ{¦¡½X §A©ñ¦b­þ¸Ì   
¦pªG¦p¤U«Å§i¨â¦¸
  1. Dim d As Object  '1 ¼Ò²Õ ªº³»ºÝ «Å§iÅܼƠ ¬°¦¹¼Ò²Õªº¨p¥ÎÅܼƠ ¦¹¼Ò²Õ¤¤µ{§Ç¬Ò¥i¥ÎªºÅܼÆ
  2. Private Sub UserForm_Initialize()
  3.     Dim d As Object    '2 ¦bµ{§Ç¤¤ «Å§iÅܼƠ   '*** ³o¸Ì¤£­n«Å§i¤F
  4.    Set d = CreateObject("Scripting.Dictionary")  
  5. '³od ¬O   UserForm_Initialize µ{§Çªº  ¨Ã¤£¬O ¼Ò²Õ³»ºÝªºd
½Æ»s¥N½X

§@ªÌ: av8d    ®É¶¡: 2012-6-28 22:30

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-28 22:40 ½s¿è

¦^´_ 20# GBKEE


    ¥Ñ©ó§ÚµLªk¨Ï¥ÎOption Explicit¦]¬°§Ú¤j¦h¼Æ¤º®e³£¨S+Option Explicit
¾É­PÅܼƧڨS¦³¤@­Ó¤@­Ó¥h³]©w~¤@ª½¥X¿ù~©Ò¥H§Ú¥´ºâ§ï¨ìModule
µM«á¥ÎCallªº¤è¦¡©I¥s~¥i¬O·|¥X¿ù~¦bModuleªº¼gªk¬O§_¤]®t²§?

Option Explicit
Dim d As Object
Sub UFI()
    Dim A As Range
    Set d = CreateObject("Scripting.Dictionary")
    With ActiveSheet
        For Each A In .Range("d2", .[d2].End(xlDown))
          d(A.Value) = IIf(d(A.Value) = "", A.Offset(, 1).Value, d(A.Value) & "," & A.Offset(, 1))
        Next
        ComboBox1.List = d.KEYS
    End With
End Sub
Sub CBC()
    If ComboBox1.ListIndex > -1 Then
        ComboBox2.List = Split(d(ComboBox1.Value), ",")
        ComboBox2.Value = ComboBox2.List(0)
    End If
End Sub

§Ú§Q¥ÎCall©I¥sUFI©ÎCBC³£·|¥X¿ù~¥d¨ìÅܼưÝÃD~
§@ªÌ: Hsieh    ®É¶¡: 2012-6-28 22:49

¦^´_ 21# av8d

¤@¯ë¼Ò²Õ¤º©I¥sªí³æª«¥ó¡A¥²¶·«ü©úª«¥ó
¨Ò¦p¡GUserForm1.ComboBox1
§@ªÌ: av8d    ®É¶¡: 2012-6-28 22:53

¦^´_ 22# Hsieh


    ÁÂÁ¤j¤j~
§Ú«á¨Ó§R°£Option Explicit~´N¥i¥H¤F~
¦]¬°¥ý«e§Ú¨S¦³§â¨C­ÓÅܼƳ£¥[¤WDim«Å§iªº°Ê§@~
¦]¬°«Å§iºØÃþ§ÚÁÙ¤£¼ô±x~©Ò¥H´N¨S¥h«Å§i@@
§@ªÌ: GBKEE    ®É¶¡: 2012-6-29 06:58

¦^´_ 21# av8d
¥Ñ©ó§ÚµLªk¨Ï¥ÎOption Explicit¦]¬°§Ú¤j¦h¼Æ¤º®e³£¨S+Option Explicit ¾É­PÅܼƧڨS¦³¤@­Ó¤@­Ó¥h³]©w~¤@ª½¥X¿ù~
³o¬O¤£¦nªº²ßºD,­n¥ß§Y§ï±¼
¦p¹Ï ·|¦b·s¼Ò²Õ¤¤¦Û°Ê¦b³»ºÝ¥[¤J  Option Explicit

[attach]11525[/attach]
§@ªÌ: av8d    ®É¶¡: 2012-7-4 14:10

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-4 15:19 ½s¿è

¦^´_ 18# GBKEE

­ìµª®×³Ì«áµ²ªG¬O·í¿ï¨ìDÄæCBªº¦­À\~EÄæCB¥uÅã¥Ü½Þ¦×¤û¦×
¦ý¬O²{¦bDÄ檺ªºCBªº¦­À\¤ºEÄæCBªº½Þ¦×¦³¨âµ§§Æ±æ¥uÅã¥Ü¤@µ§~¦p¤U
   
­YD1=¦­À\  D2=¤ÈÀ\  D3=¦­À\  D4=¦­À\
­YE1=½Þ¦×  E2=Âû¦×  E3=¤û¦×  E4=½Þ¦×

E1©ME4­«½Æ~¥uÅã¥Ü¤@µ§~¸Ó¦p¦óµ²¦X©O?
§@ªÌ: GBKEE    ®É¶¡: 2012-7-4 16:36

¦^´_ 25# av8d
  1. ption Explicit
  2. Dim d As Object
  3. Private Sub UserForm_Initialize()
  4.     Dim A As Range, W As String
  5.     Set d = CreateObject("Scripting.Dictionary")
  6.     With ActiveSheet
  7.         For Each A In .Range("d2", .[d2].End(xlDown))
  8.             If d(A.Value) = "" Then
  9.                 d(A.Value) = A.Offset(, 1).Value
  10.             Else
  11.                 W = "," & d(A.Value) & ","   '¦r¨åª«¥ó¤º®e«e«á¥[¤W ,
  12.                 If InStr(W, "," & A.Offset(, 1) & ",") = 0 Then d(A.Value) = d(A.Value) & "," & A.Offset(, 1)
  13.                 'InStr(w, "," & A.Offset(, 1) & ",") = 0 ¤ñ¹ï¦r¨åª«¥ó¤º®e¦³µLA.Offset(, 1)ªº¦r¦ê
  14.             End If
  15.         Next
  16.         ComboBox1.List = d.KEYS
  17.     End With
  18. End Sub
½Æ»s¥N½X

§@ªÌ: av8d    ®É¶¡: 2012-7-5 09:09

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-5 13:55 ½s¿è

¦^´_ 26# GBKEE


    ¹J¨ì¥t¤@­Ó°ÝÃD~½Ð±Ð¤j¤j

¦pªG§Ú·Q¹ïAÄæ°µ¬Û¦P½d¨Ò
¦ý¬O§Ú¥u·Q¨ú¦~Year()­«½Æ«h¥uÅã¥Ü¤@µ§

¨Ò¦p:
A1=2012/06/25 A2=2012/10/10 A3=2013/8/8
©Ò¥H¥u¨ú¦~«h¬OA1=2012 A2=2012 A3=2013
­«½Æ«h¥uÅã¥Ü¤@µ§©Ò¥HComboBox1«h·|¥X²{2012©M2013ªº¿ï¶µ¥i¥H¿ï¾Ü

§Ú­×§ï¤F¤@¤U6¼Ó¤j¤jªºµ{¦¡¦p¤U
    Dim d As Object, A
    Set d = CreateObject("Scripting.Dictionary")
    With ActiveSheet
        For Each A In .Range("a2", .[a2].End(xlDown))
          d(Year(A.Value)) = ""
        Next A
        ComboBox1.List = Application.Transpose(d.KEYS)
    End With
§Y¥i§¹¦¨~¤£ª¾³o¼Ë¬O§_¥i¦æ!?
§@ªÌ: GBKEE    ®É¶¡: 2012-7-5 14:30

¦^´_ 27# av8d
§Y¥i§¹¦¨~¤£ª¾³o¼Ë¬O§_¥i¦æ!?
§A¸Õ¤F¶Ü? ¦³¹F¨ì§Aªº®ÄªG´N¥i¥Hªü.
§@ªÌ: av8d    ®É¶¡: 2012-7-10 15:18

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-11 12:09 ½s¿è

¦^´_ 28# GBKEE


    G¤j~ÁÂÁ§A~±z¼gªº³£¥i¥H¨Ï¥Î~
§@ªÌ: c_c_lai    ®É¶¡: 2012-7-28 10:37

¦^´_ 29# av8d
¦^´_ 28# GBKEE
ªþ¤W§Ú­×¥¿«á¤§ GBKEE ¤j¤jªº½d¨Ò¨Ñ§A°Ñ¦Ò¡G
[attach]11891[/attach]




Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)