Conas bosca teaglama a áireamh le luachanna uathúla in Excel amháin?
Nuair a chruthaíonn tú bosca teaglama le liosta sonraí a chuimsíonn roinnt luachanna dúblacha, ní dhéanfar na luachanna dúblacha a eisiamh go huathoibríoch sa bhosca teaglama. Sa chás seo, conas nach bhféadfá ach míreanna uathúla a thaispeáint i do bhosca teaglama? B’fhéidir go bhféadann an rang teagaisc seo fabhar a thabhairt duit.
Bosca teaglama a bhfuil luachanna uathúla aige ach trí chód VBA a úsáid
Bosca teaglama a bhfuil luachanna uathúla aige ach trí chód VBA a úsáid
D’fhéadfadh an cód VBA seo a leanas cabhrú leat na luachanna uathúla a chur leis agus bosca teaglama á chruthú agat, déan é seo le do thoil:
1. Cuir bosca teaglama isteach ar dtús, cliceáil le do thoil Forbróir > Ionsáigh > Bosca Teaglama (Rialú ActiveX), agus ansin tarraing an luch chun bosca teaglama a tharraingt, féach an pictiúr:
2. Ansin cliceáil ar dheis ar an mbosca teaglama, agus roghnaigh Féach an cód ón roghchlár comhthéacs, féach an scáileán:
3. Agus an Microsoft Visual Basic d’Fheidhmchláir popped out window, cóipeáil agus greamaigh an cód seo a leanas le do thoil chun an cód bunaidh a athsholáthar.
Cód VBA: bosca teaglama le luachanna uathúla:
Public Sub Populate_combobox_with_Unique_values()
'Updateby Extendoffice
Dim vStr, eStr
Dim dObj As Object
Dim xRg As Range
On Error Resume Next
Set dObj = CreateObject("Scripting.Dictionary")
Set xRg = Application.InputBox("Range select:", "Kutools for Excel", _
ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
vStr = xRg.Value
Application.ScreenUpdating = False
With dObj
.comparemode = 1
For Each eStr In vStr
If Not .exists(eStr) And eStr <> "" Then .Add eStr, Nothing
Next
If .Count Then
ActiveSheet.ComboBox1.List = WorksheetFunction.Transpose(.keys)
End If
End With
Application.ScreenUpdating = True
End Sub
nótaí: Sa chód thuas, tá an Bosca teaglama1 is ainm do bhosca teaglama cruthaithe, is féidir leat é a athrú de réir mar is gá duit.
4. Ansin brúigh F5 eochair chun an cód seo a rith, agus sa bhosca pras, roghnaigh an liosta foinse sonraí a theastaíonn uait a chur isteach sa bhosca teaglama, féach an scáileán:
5. Agus ansin cliceáil OK cnaipe, ní thaispeántar ach na luachanna uathúla sa bhosca teaglama, féach an scáileán:
Leid: Mura bhfuil Forbróir cluaisín sa ribín, an t-alt seo Conas cluaisín forbróra a thaispeáint / a thaispeáint i Ribbon Excel 2007/2010/2013? féadfaidh sé fabhar duit cluaisín Forbróra a thaispeáint.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!