Sut i boblogi blwch combo gyda gwerthoedd unigryw yn Excel yn unig?
Pan fyddwch chi'n creu blwch combo gyda rhestr o ddata sy'n cynnwys rhai gwerthoedd dyblyg, ni fydd y gwerthoedd dyblyg yn cael eu heithrio'n awtomatig yn y blwch combo. Yn yr achos hwn, sut allech chi arddangos dim ond eitemau unigryw yn eich blwch combo? Efallai y gall y tiwtorial hwn wneud ffafr i chi.
Poblogaeth blwch combo gyda gwerthoedd unigryw yn unig trwy ddefnyddio cod VBA
Poblogaeth blwch combo gyda gwerthoedd unigryw yn unig trwy ddefnyddio cod VBA
Efallai y bydd y cod VBA canlynol yn eich helpu i ychwanegu'r gwerthoedd unigryw wrth greu blwch combo, gwnewch fel hyn:
1. Mewnosod blwch combo yn gyntaf, cliciwch Datblygwr > Mewnosod > Blwch Combo (Rheoli ActiveX), ac yna llusgwch y llygoden i dynnu blwch combo, gweler y screenshot:
2. Yna cliciwch ar y dde ar y blwch combo, a dewis Gweld y Cod o'r ddewislen cyd-destun, gweler y screenshot:
3. A'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr wedi'i popio allan, copïwch a gludwch y cod canlynol i ddisodli'r cod gwreiddiol.
Cod VBA: blwch combo gyda gwerthoedd unigryw:
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
Nodyn: Yn y cod uchod, mae'r Blwch Combo1 yw enw eich blwch combo wedi'i greu, gallwch ei newid yn ôl yr angen.
4. Yna pwyswch F5 allwedd i redeg y cod hwn, ac yn y blwch prydlon, dewiswch y rhestr ffynhonnell ddata rydych chi am ei hychwanegu at y blwch combo, gweler y screenshot:
5. Ac yna cliciwch OK botwm, dim ond y gwerthoedd unigryw sy'n cael eu harddangos yn y blwch combo, gweler y screenshot:
Tip: Os nad oes Datblygwr tab yn y rhuban, yr erthygl hon Sut i ddangos / arddangos tab datblygwr yn Excel 2007/2010/2013 Rhuban? Efallai y bydd yn ffafriol ichi arddangos tab Datblygwr.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!