Sut i osod gwerth diofyn yn y gwymplen dilysu data yn Excel?
Mae gosod gwerth diofyn yn y gwymplen dilysu data yn helpu eraill i adnabod celloedd y gwymplen yn hawdd ar gip ar daflen waith. Mae'r erthygl hon yn darparu dull VBA i osod gwerth diofyn yn y gwymplen dilysu data mewn manylion.
Gosodwch werth diofyn yn y gwymplen dilysu data gyda chod VBA
Gosodwch werth diofyn yn y gwymplen dilysu data gyda chod VBA
Fel isod llun, gan dybio bod pob cell yn ystod B2: C7 yn cynnwys gwymplen, ac rydych chi am osod gwerth diofyn (meddai - Dewiswch o'r rhestr -) yn y gwymplen hon cyn dewis gwerthoedd ohonynt. Gallwch roi cynnig ar y cod VBA canlynol.
1. De-gliciwch y tab dalen gyda'r gwymplenni mae angen i chi osod gwerth diofyn, yna cliciwch Gweld y Cod o'r ddewislen.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod VBA canlynol i mewn i ffenestr y Cod.
Cod VBA: gosodwch werth diofyn yn y gwymplen dilysu data
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 SubNodyn: gallwch newid y gwerth diofyn yn y cod VBA i'r un sydd ei angen arnoch chi.
6. Gwasgwch y F5 allwedd i redeg y cod. Gallwch weld bod y gwerthoedd diofyn yn cael eu hychwanegu at bob cell rhestr ostwng fel y dangosir isod.
Nodiadau:
Erthyglau cysylltiedig:
- Sut i awtocomplete wrth deipio rhestr ostwng Excel?
- Sut i greu calendr rhestr ostwng yn Excel?
- Sut i greu gwymplen chwiliadwy yn Excel?
- Sut i greu gwymplen gyda nifer o ddetholiadau neu werthoedd yn Excel?
- Sut i boblogi celloedd eraill wrth ddewis gwerthoedd yn rhestr ostwng Excel?
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!
