Conas luach réamhshocraithe a shocrú i liosta anuas bailíochtaithe sonraí in Excel?
Má shocraítear luach réamhshocraithe i liosta anuas bailíochtaithe sonraí cabhraíonn sé le daoine eile sracfhéachaint ar bhileog oibre a aithint go héasca. Soláthraíonn an t-alt seo modh VBA chun luach réamhshocraithe i liosta anuas bailíochtaithe sonraí a shocrú go mion.
Socraigh luach réamhshocraithe i liosta anuas bailíochtaithe sonraí le cód VBA
Socraigh luach réamhshocraithe i liosta anuas bailíochtaithe sonraí le cód VBA
Mar atá thíos ar an scáileán, is dócha go bhfuil liosta anuas ar gach cealla i raon B2: C7, agus ba mhaith leat luach réamhshocraithe a shocrú (a deir - Roghnaigh ón liosta -) sa liosta anuas seo sula roghnaíonn tú luachanna uathu. Is féidir leat an cód VBA seo a leanas a thriail.
1. Cliceáil ar dheis ar an táb bileog leis na liostaí anuas is gá duit luach réamhshocraithe a shocrú, ansin cliceáil Féach an cód ón roghchlár.
2. Sa Microsoft Visual Basic d’Fheidhmchláir an cód VBA seo a leanas a fhuinneog, a chóipeáil agus a ghreamú isteach i bhfuinneog an Chóid.
Cód VBA: socraigh luach réamhshocraithe i liosta anuas bailíochtaithe sonraí
Sub DropDownListToDefault()
Dim xCell As Range
Dim xRg As Range
Dim xAcCell As Range
Dim xScreen As Boolean
On Error Resume Next
Set xAcCell = Application.ActiveCell
Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
If xRg Is Nothing Then
MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
Exit Sub
End If
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell.Validation.Type = 3 Then
If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
End If
Next
xAcCell.Select
Application.ScreenUpdating = xScreen
End Sub
nótaí: is féidir leat an luach réamhshocraithe sa chód VBA a athrú go dtí an luach atá uait.
6. Brúigh an F5 eochair chun an cód a rith. Feiceann tú go gcuirtear na luachanna réamhshocraithe le gach cealla liosta anuas mar a thaispeántar thíos.
nótaí:
Earraí gaolmhara:
- Conas a bheith autocomplete agus tú ag clóscríobh liosta anuas Excel?
- Conas féilire liosta anuas a chruthú in Excel?
- Conas liosta anuas inchuardaithe a chruthú in Excel?
- Conas liosta anuas a chruthú le roghnúcháin nó luachanna iolracha in Excel?
- Conas cealla eile a daonra go huathoibríoch agus luachanna á roghnú ar liosta anuas Excel?
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á!