Sut i ddewis nifer o eitemau o'r gwymplen i mewn i gell yn Excel?
Defnyddir y gwymplen yn aml yng ngwaith dyddiol Excel. Yn ddiofyn, dim ond un eitem y gellir ei dewis mewn rhestr ostwng. Ond mewn rhai adegau, efallai y bydd angen i chi ddewis nifer o eitemau o'r rhestr ostwng i mewn i un gell fel y nodir isod. Sut allwch chi ei drin yn Excel?
Dewiswch nifer o eitemau o'r gwymplen i mewn i gell gyda VBA
Dewiswch eitemau lluosog o'r gwymplen i mewn i gell yn hawdd ac yn gyflym
Dewiswch nifer o eitemau o'r gwymplen i mewn i gell gyda VBA
Dyma rai y gall VBA eich gwneud yn ffafriol wrth ddatrys y swydd hon.
Dewiswch eitemau dyblyg o'r gwymplen mewn cell
1. Ar ôl creu rhestr ostwng, cliciwch ar y dde wrth y tab dalen i ddewis Gweld y Cod o'r ddewislen cyd-destun.
2. Yna yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo islaw'r cod i'r sgript wag.
VBA: Dewiswch nifer o eitemau o'r gwymplen mewn cell
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
Dim xRgVal As Range
Dim xStrNew As String
On Error Resume Next
Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
xStrNew = Target.Value
Application.Undo
If xStrNew = Target.Value Then
Else
xStrNew = xStrNew & " " & Target.Value
Target.Value = xStrNew
End If
Application.EnableEvents = True
End Sub
3. Cadwch y cod a chau'r ffenestr i fynd yn ôl i'r gwymplen. Nawr gallwch ddewis nifer o eitemau o'r gwymplen.
Nodyn:
1. Gyda'r VBA, mae'n gwahanu'r eitemau yn ôl gofod, gallwch chi newid xStrNew = xStrNew & "" & Target.Value i eraill newid y amffinydd yn ôl yr angen. Er enghraifft, xStrNew = xStrNew & "," & Target.Value yn gwahanu'r eitemau gyda choma.
2. Mae'r cod VBA hwn yn gweithio ar gyfer pob rhestr ostwng yn y ddalen.
Dewiswch nifer o eitemau o'r gwymplen i gell heb eu hailadrodd
Os ydych chi am ddewis eitemau unigryw o'r gwymplen i gell, gallwch ailadrodd uwchben y camau a defnyddio isod y cod.
VBA : Dewiswch nifer o eitemau o'r gwymplen i gell heb eu hailadrodd
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
Dim I As Integer
Dim xRgVal As Range
Dim xStrNew As String
Dim xStrOld As String
Dim xFlag As Boolean
Dim xArr
On Error Resume Next
Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
xFlag = True
xStrNew = " " & Target.Value & " "
Application.Undo
xStrOld = Target.Value
If InStr(1, xStrOld, xStrNew) = 0 Then
xStrNew = xStrNew & xStrOld & " "
Else
xStrNew = xStrOld
End If
Target.Value = xStrNew
Application.EnableEvents = True
End Sub
Nid yw'r ddau god VBA uchod yn suppot i ddileu rhannau o gynnwys celloedd, dim ond cefnogaeth i glirio pob eitem o'r gell.
Dewiswch eitemau lluosog o'r gwymplen i mewn i gell yn hawdd ac yn gyflym
Yn Excel, ac eithrio cod VBA, nid oes unrhyw ffyrdd eraill o ganiatáu eitemau lluosog a ddewiswyd o'r gwymplen mewn cell. Fodd bynnag, mae'r Rhestr Gollwng Aml-ddewis nodwedd o Kutools ar gyfer Excel yn gallu trin y swydd hon yn gyflym ac yn hawdd gyda chliciau.
Cam 1: Dewiswch Kutools > Rhestr Gollwng > Rhestr Gollwng Aml-ddewis
Cam 2: Yn y Rhestr Gollwng Aml-ddethol deialog, nodwch y gosodiadau
- Gosod cwmpas;
- Nodwch y gwahanydd ar gyfer eitemau amffinio mewn cell;
- Penderfynwch ar gyfeiriad y testun;
- Cliciwch OK.
Canlyniad:
Hawdd creu rhestr ostwng ddibynnol ddeinamig 2-lefel neu aml-lefel yn Excel
|
Yn Excel, mae creu rhestr ostwng 2 lefel neu luosog yn gymhleth. Yma mae'r Rhestr Gollwng Dynamig cyfleustodau Kutools ar gyfer Excel yn gallu gwneud ffafr i chi. Yr hyn y mae'n rhaid i chi ei wneud yn unig yw archebu'r data fel yr enghraifft a ddangosir, yna dewiswch yr ystod ddata a'r ystod allbwn, yna ei adael i'r cyfleustodau. Cliciwch am 30 diwrnod o dreial am ddim! |
Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
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!