Note: The other languages of the website are Google-translated. Back to English

Conas liosta anuas a chruthú le roghnúcháin nó luachanna iolracha in Excel?

De réir réamhshocraithe, ní féidir leat ach mír amháin a roghnú i liosta anuas bailíochtaithe sonraí in Excel. Conas is féidir leat roghanna iolracha a dhéanamh sa liosta anuas mar a thaispeántar thíos gif? Is féidir leis na modhanna san Airteagal seo cabhrú leat an fhadhb a réiteach.


Cruthaigh liosta anuas le ilroghnuithe le cód VBA

Soláthraíonn an chuid seo dhá chód VBA chun cabhrú leat roghanna iolracha a dhéanamh i liostaí anuas i mbileog oibre. Is féidir leis an dá chód VBA:

Cód VBA 1: Ceadaigh roghanna iolracha i liosta anuas gan dúbailt
Cód VBA 2: Ceadaigh roghanna iolracha i liosta anuas gan dúbailt (scrios na míreanna atá ann cheana féin trína roghnú arís)

Is féidir leat ceann de na cóid VBA seo a leanas a chur i bhfeidhm chun roghanna iomadúla a dhéanamh i liosta anuas i mbileog oibre in Excel. Déan mar seo a leanas le do thoil.

1. Oscail an bhileog oibre ina bhfuil na liostaí anuas bailíochtaithe sonraí óna dteastaíonn uait roghanna iolracha a dhéanamh. Cliceáil ar dheis ar an gcluaisín bileog agus roghnaigh Féach an cód ón roghchlár comhthéacs.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil an cód VBA thíos i bhfuinneog an chóid. Féach an pictiúr:

Cód VBA 1: Ceadaigh roghanna iolracha i liosta anuas gan dúbailt

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or _
                   InStr(1, xValue1, ", " & xValue2) Or _
                   InStr(1, xValue1, xValue2 & ",") Then
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & ", " & xValue2
                End If
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

3. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Anois is féidir leat míreanna iomadúla a roghnú ón liosta anuas sa bhileog oibre reatha.

Ag cur san áireamh gur roghnaigh tú earra trí thimpiste agus go gcaithfidh tú é a bhaint gan an chill iomlán a ghlanadh agus tosú arís. Is féidir leis an gcód VBA 2 seo a leanas bhfabhar a dhéanamh duit.

Cód VBA 2: Ceadaigh roghanna iolracha i liosta anuas gan dúbailt (scrios na míreanna atá ann cheana féin trína roghnú arís)

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2023/01/11
    'Updated by Ken Gardner 2022/07/11
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    Dim semiColonCnt As Integer
    Dim xType As Integer
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    
    xType = 0
    xType = Target.Validation.Type
    If xType = 3 Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then ' leave the value if only one in list
                    xValue1 = Replace(xValue1, "; ", "")
                    xValue1 = Replace(xValue1, ";", "")
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, "; " & xValue2) Then
                    xValue1 = Replace(xValue1, xValue2, "") ' removes existing value from the list on repeat selection
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, xValue2 & ";") Then
                    xValue1 = Replace(xValue1, xValue2, "")
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & "; " & xValue2
                End If
                Target.Value = Replace(Target.Value, ";;", ";")
                Target.Value = Replace(Target.Value, "; ;", ";")
                If Target.Value <> "" Then
                    If Right(Target.Value, 2) = "; " Then
                        Target.Value = Left(Target.Value, Len(Target.Value) - 2)
                    End If
                End If
                If InStr(1, Target.Value, "; ") = 1 Then ' check for ; as first character and remove it
                    Target.Value = Replace(Target.Value, "; ", "", 1, 1)
                End If
                If InStr(1, Target.Value, ";") = 1 Then
                    Target.Value = Replace(Target.Value, ";", "", 1, 1)
                End If
                semiColonCnt = 0
                For i = 1 To Len(Target.Value)
                    If InStr(i, Target.Value, ";") Then
                        semiColonCnt = semiColonCnt + 1
                    End If
                Next i
                If semiColonCnt = 1 Then ' remove ; if last character
                    Target.Value = Replace(Target.Value, "; ", "")
                    Target.Value = Replace(Target.Value, ";", "")
                End If
            End If
        End If
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

nótaí:

1). Ní cheadaítear luachanna dúblacha sa liosta anuas.
2). Chuir ár n-úsáideoir díograiseach Ken Gardner an cód VBA 2 thuas ar fáil ar 2022/07/11.
3). Sábháil an leabhar oibre mar Leabhar Oibre Macra-Chumasaithe Excel d’fhonn an cód a choinneáil ag obair sa todhchaí.
4). Tar éis duit an cód VBA 2 a chur leis, is féidir leat mír atá ann cheana féin a bhaint trína roghnú arís sa liosta anuas. Féach ar an gif thíos:


Cruthaigh liosta anuas go héasca le ilroghnuithe le huirlis iontach

Anseo molaimid go mór an Liosta anuas ilroghnacha gné de Kutools le haghaidh Excel duitse. Leis an ngné seo, is féidir leat go leor míreanna a roghnú go furasta ón liosta anuas i raon sonraithe, bileog oibre reatha, leabhar oibre reatha nó gach leabhar oibre oscailte de réir mar is gá duit.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

1. cliceáil Kutools > Liosta anuas > Liosta anuas ilroghnacha > Socruithe. Féach an pictiúr:

2. Sa Socruithe Liosta anuas Ilroghnacha bosca dialóige, cumraigh mar a leanas le do thoil.

  • 2.1) Sonraigh an raon feidhme feidhmeach sa Cuir iarratas isteach alt. Sa chás seo, roghnaím Bileog oibre reatha ó na Raon feidhme Sonraithe liosta anuas;
  • 2.2) Sa Treo Téacs roinn, roghnaigh treo téacs bunaithe ar do chuid riachtanas;
  • 2.3) Sa deighilteoir bosca, iontráil teorantóir a úsáidfidh tú chun na luachanna iolracha a scaradh;
  • 2.4) Seiceáil an Ná cuir dúbailtí leis bosca sa Roghanna roinn mura dteastaíonn uait dúbailtí a dhéanamh i gcealla liosta anuas;
  • 2.5) Cliceáil ar an OK cnaipe. Féach an pictiúr:

3. Cliceáil le do thoil Kutools > Liosta anuas > Liosta anuas ilroghnacha chun an ghné a chumasú.

Anois is féidir leat míreanna iomadúla a roghnú ón liosta anuas sa bhileog oibre reatha nó aon scóip atá sonraithe agat i gcéim 2.

  Más mian leat triail saor in aisce a bheith agat (30-lá) den áirgiúlacht seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Earraí gaolmhara:

Uath-chomhiomlán agus tú ag clóscríobh liosta anuas Excel
Má tá liosta anuas bailíochtaithe sonraí agat le luachanna móra, ní mór duit scrollú síos ar an liosta chun an ceann ceart a fháil, nó an focal iomlán a chlóscríobh go díreach sa bhosca liosta. Má tá modh ann chun ligean do uathoibríoch a chomhlánú agus an chéad litir á chlóscríobh ar an liosta anuas, beidh gach rud níos éasca. Soláthraíonn an teagaisc seo an modh chun an fhadhb a réiteach.

Cruthaigh liosta anuas ó leabhar oibre eile in Excel
Tá sé furasta go leor liosta anuas bailíochtaithe sonraí a chruthú i measc bileoga oibre i leabhar oibre. Ach má aimsíonn na sonraí liosta atá uait le haghaidh bailíochtú na sonraí i leabhar oibre eile, cad a dhéanfá? Sa rang teagaisc seo, foghlaimeoidh tú conas liosta titim anuas a chruthú ó leabhar oibre eile in Excel go mion.

Cruthaigh liosta anuas inchuardaithe in Excel
Maidir le liosta anuas le go leor luachanna, ní obair éasca é ceann ceart a aimsiú. Roimhe seo thugamar isteach modh chun an liosta anuas a chomhlánú go huathoibríoch nuair a chuireann tú an chéad litir isteach sa bhosca anuas. Chomh maith leis an bhfeidhm uathchomhiomlán, is féidir leat an liosta anuas a chuardach chun an éifeachtúlacht oibre a fheabhsú chun luachanna cearta a fháil ar an liosta anuas. Chun an liosta anuas a chuardach inchuardaithe, bain triail as an modh sa rang teagaisc seo.

Déan cealla eile a uathoibriú nuair a bhíonn luachanna á roghnú agat ar liosta anuas Excel
Ligean le rá gur chruthaigh tú liosta anuas bunaithe ar na luachanna i raon cille B8: B14. Nuair a roghnaíonn tú luach ar bith ar an liosta anuas, ba mhaith leat go ndéanfaí na luachanna comhfhreagracha i raon cille C8: C14 a dhaonra go huathoibríoch i gcill roghnaithe. Chun an fhadhb a réiteach, is fearr leat na modhanna sa rang teagaisc seo.

Tuilleadh teagaisc don liosta anuas ...


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (66)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Go raibh maith agat as an réiteach agus an cód. Ach is é an chéad chéim eile ná conas a chinntiú nach roghnaíonn an t-úsáideoir luachanna "dúblach" ón liosta anuas. M.sh. Má tá 4 mhír ar an liosta - oráiste, úll, banana, péitseog agus má tá "oráiste" roghnaithe ag an úsáideoir cheana féin, níor cheart go gceadódh Excel don úsáideoir "oráiste" a roghnú NÓ ba cheart an rogha sin a bhaint den chuid eile de an liosta. An féidir leat an cód a fhoilsiú chun an ghné seo a chur i gcrích. Go raibh maith agat. Eilís
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Yezdi, Go raibh maith agat as do thuairim. Nuashonraíodh an cód agus ní cheadaítear aon luachanna dúblacha sa liosta anuas anois. Go raibh maith agat. Solas na gréine
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé iontach go gceadaíonn sé seo roghanna iolracha ach mar a dúirt @Yezdi, táim ag fáil amach go gcuirfidh sé dúblach amháin nó níos mó leis fiú mura roghnaíonn mé iad. Mar sin, faoi láthair, is réiteach 80% é seo ... tweak amháin ar shiúl ó foirfe. Ní códóir VB mé nó thairgfinn an réiteach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is féidir leat an cód a athrú sna línte seo a leanas chun na dúbailtí a chosc: Má tá xValue2" "Ansin Target.Value = xValue1 &", " & xValue2 Críochnaigh Más Chuig: Má tá xValue2" "" Ansin Má tá CheckIfAlreadyAdded(xValue1, xValue2) = Bréagach Ansin Targaid .Value = xValue1 &", " & xValue2 Else Target.Value = xValue1 Críochnaigh Má Críochnaigh Má Agus ansin cuir an fheidhm seo a leanas leis: Feidhm Phríobháideach CheckIfAlreadyAdded(ByVal sText As Teaghrán, sNewValue As Teaghrán) Mar Boole CheckIfAlreadyAdded =( False Dim WrdArray Teaghrán WrdArray() = Scoilt(sText, ",") Chun i = LBound(WrdArray) Go UBound(WrdArray) If Trim(WrdArray(i)) = Baile Átha Troim(sNewValue) Ansin CheckIfAlreadyAdded = Fíor Ar Aghaidh i Deireadh Feidhm -- Is dócha bealaí níos fearr chun é a chódú ach oibríonn sé go dtí seo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Just a thuig mé nár éirigh liom an lúb san fheidhm nua má tá an coinníoll socraithe ionas nach mbeidh orainn iontrálacha eile a sheiceáil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh. Go raibh maith agat as an gcód agus as an gcur leis chun dúbailt a theorannú. Iarratas amháin eile - cén suimiú/athrú a bheadh ​​le déanamh chun go bhféadfaí ilroghnú a cheadú i gceann amháin nó dhá cholún ar leith? Tá an cód seo ag cur línte téacs isteach arís le cealla 'simplí' má théim chun clóscríobh a cheartú, nó má athraítear nó má chuirtear leis an téacs sa chill, seachas bheith ag iompar 'gnáth' agus ag glacadh leis an athrú. (gan an téacs iomlán a chur leis arís). Mar shampla, is colún 'simplí' é colún A. Scríobhaim abairt "Cad iad na trí mhír is mó atá uait?" Is colún ‘liosta’ é Colún B nuair nach dteastaíonn uaim ach a bheith in ann luach amháin amháin a phiocadh (sa chás seo, déarfainn ainm linbh). Is colún ‘liosta’ eile é Colún C ina gcaithfidh an t-úsáideoir a bheith in ann míreanna iolracha a roghnú (a ligeann an cód seo dom a dhéanamh go foirfe). Agus mé ag dul ar aghaidh, tuigim go bhfuil clóscríobh déanta agam i gcolún A agus ba mhaith liom é a cheartú. Mar a sheasann an cód seo, má théim isteach (cliceáil faoi dhó, F2) agus ceartúcháin a dhéanamh ar an bhfocal "míreanna", críochnaíonn mé agus an toradh seo i mo chill:"Cad iad na trí mhír is mó atá uait? Cad iad na trí rudaí is mó atá uait?" go raibh maith agat roimh ré as aon chabhair (ó úsáideoir a dtaitníonn VBA go mór leis, ach atá fós ag na céimeanna foghlama is luaithe!)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí mé in ann a fháil ar an cód a bheith ag obair, ach ansin nuair a shábháil mé an doiciméad (le macraí-chumas), dúnadh é agus ar ais, níor oibrigh an cód a thuilleadh (cé go raibh sé fós ann). Ní féidir liom a dhéanamh amach cad atá mícheart déanta agam. Aon smaointe?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Cynthia, Mura bhfreagraíonn an t-údar bunaidh, gheobhaidh mé freagra chugat ach ní bheidh mé os comhair ríomhaire ach ar an 29 Nollaig arís. Níl aon ríomhchláraitheoir VBA agam freisin. Is é an rud is féidir leat a dhéanamh idir an dá linn ná cuardach Google conas uimhir an cholúin a aithint agus gan ligean don chód rith ach amháin má chuirtear sonraí in eagar sa cholún nó sna colúin ar leith sin. Rinne mé é ach tá an cód ar mo ríomhaire oibre agus ní féidir liom é a thabhairt chun cuimhne faoi láthair, b'fhéidir iarracht debug.print a chur ar target.column nó rud éigin chuige sin féachaint an dtugann sé uimhir an cholúin atá á chur in eagar duit . Tá brón orm Jennifer, níl mé cinnte faoin gceist atá agat :(
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
@Cynthia, Más gá fós, ba cheart go mbeifeá in ann rud éigin mar seo a dhéanamh chun a chinntiú go ritheann an cód ar cholúin shonracha amháin, i mo chás, colún 34 agus 35: Más rud é (Sprioc.Column 34 Agus Target.Column 35) Ansin Scoir Fo 'Cuir an cód seo ag an tús i ndiaidh do chuid ráiteas beag
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] @Cynthia, Má tá sé fós ag teastáil, ba cheart go mbeifeá in ann rud éigin mar seo a dhéanamh chun a chinntiú go ritheann an cód ar cholúin shonracha amháin, i mo chás féin, colún 34 agus 35: Más rud é (Sprioc.Colún 34 agus Sprioc.Colún 35) Ansin Scoir Fo 'Cuir an cód seo ag an tús tar éis do ráitis dimle Mervyn[/ceanglófar] Dia duit @Mervyn, Cailleadh rian na snáithe go hiomlán, ach go raibh míle maith agat as do chuid freagraí. Bhain mé triail as an If (Sprioc.Column 34 Agus Target.Column 35) a chur i bhfeidhm Ansin Scoir Fo (léann mo leagan Más (Target.Column4 Agus Target.Column5) Ansin Scoir Fo mar a sholáthair tú, ach tá "Rith-time á fháil agam earráid '438': Ní thacaíonn réad leis an airí nó leis an earráid" "mhodha seo ar an líne nua seo. Seo na chéad chúpla líne de mo chód: Fo-dhuilleog Oibre Príobháideach_Change(ByVal Target As Range) Dim xRng As Range Dim xValue1 As Teaghrán Dim xValue2 Mar Theaghrán Más rud é (Sprioc.Column4 Agus Target.Column5) Ansin Scoir Fo Más Sprioc.Count> 1 Ansin Scoir Fo Ar Earráid Lean Ar Aghaidh Níl ​​ach 6 cholún ar mo bhileog oibre: Ceist | Freagra | Catagóir | Fochatagóir | Clibeanna | Nasc grianghraf Níl de dhíth orm ach laghduithe illuacha i bhFochatagóir agus Clibeanna (colúin 4 & 5) Leanfaidh mé ag lorg faisnéise mar a mhol tú ar 12/23, agus breathnóidh mé ar an nasc a cuireadh ar fáil do Charthanas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
If Target.Column <> 34 Ansin Scoir Fo

'Cuir an cód seo ag an tús i ndiaidh do chuid ráiteas beag
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá an fhoirmle seo á úsáid agam faoi láthair agus tá an rogha ilroghnacha ag gach colún a bhfuil bailíochtú sonraí ann anois, ach ba mhaith liom an t-ilroghnú a shrianadh go colún amháin, áfach. An féidir le duine éigin an fhoirmle seo a chur in eagar domsa ionas gur féidir an t-ilroghnú a chur i bhfeidhm ar Cholún 4 amháin? Go raibh maith agat :) Fo-Bileog Oibre Príobháideach_Athrú (Sprioc ByVal Mar Raon) 'Nuashonraithe: 2016/4/12 Dim xRng As Range Dim xValue1 As Teaghrán Dim xValue2 Mar Teaghrán Má Target.Count> 1 Ansin Scoir Fo Ar Earráid Lean ar aghaidh leis an gcéad Thacar Eile xRng = Cealla. Cealla Speisialta(xlCellTypeAllValidation) Mura bhfuil tada i gceist le xRng Scoir an Fo-Iarratas.EnableEvents = Bréagach Mura bhfuil Application.Intersect(Sprioc, xRng) Rud ar bith ansin xValue2 = Sprioc.Luach Feidhmchláir. Undo xValue1 = Target.Value Target.Value = xValue2" Mura bhfuil xValue " Ansin Má tá xValue1" "" Ansin, má tá xValue2 = xValue1 Nó _ InStr(2, xValue1, "," & xValue1) Nó _ InStr(2, xValue1, xValue1 & ",") Ansin Target.Value = xValue2 Eile Target.Value = xValue1 &", " &xValue1 Deireadh Má Chríochnaíonn Má Chríochnaíonn Má chríochnaíonn Application.EnableEvents = Fo Deiridh Fíor-Bhithfear buíoch as aon chúnamh!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn sé seo go maith, ach ní féidir liom mír a bhaint nuair a roghnaítear é. Aon mholtaí ar eagla go gcuirim cliceáil ar rud éigin trí thimpiste agus go gcaithfidh mé é a bhaint gan (tá súil agam) an chill iomlán a ghlanadh agus tosú arís? Chomh maith leis sin, dóibh siúd atá ag iarraidh colún nó colúin a shainiú, tá breisiú iontach ag Contextures leis an gcód a chuirtear ar fáil anseo a ligeann duit é sin a dhéanamh. http://www.contextures.com/excel-data-validation-multiple.html#column
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] Oibríonn sé seo go maith, ach ní féidir liom mír a bhaint nuair a bheidh sé roghnaithe. Aon mholtaí ar eagla go gcuirim cliceáil ar rud éigin trí thimpiste agus go gcaithfidh mé é a bhaint gan (tá súil agam) an chill iomlán a ghlanadh agus tosú arís? Chomh maith leis sin, dóibh siúd atá ag iarraidh colún nó colúin a shainiú, tá breisiú iontach ag Contextures leis an gcód a chuirtear ar fáil anseo a ligeann duit é sin a dhéanamh. http://www.contextures.com/excel-data-validation-multiple.html#columnDe réir Carthanachta[/ceanglófar] Oibríonn an cód go breá. Mar sin féin, is cosúil nach féidir liom mír a dhíroghnú. Nuair is mian liom mír a bhaint as an roghnú, ní dhéantar é a bhaint. An bhfuil taithí ag aon duine eile ar an bhfadhb seo freisin?[/quote] Dia duit, Aon réiteach a aimsíodh don fhadhb seo..roinn le do thoil..
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ansin, oibríonn Code go breá. Mar sin féin, is cosúil nach féidir liom mír a dhíroghnú. Nuair is mian liom mír a bhaint as an roghnú, ní dhéantar é a bhaint. An bhfuil taithí ag aon duine eile ar an bhfadhb seo freisin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An raibh freagra ar an gceist seo. Is í an cheist chéanna atá agam. Is cosúil nach bhfuil bealach ann chun mír roghnaithe a bhaint.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
scrios an t-ábhar sa chill, ansin roghnaigh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá an cód seo agam ar bhileog Excel agus an t-ábhar ón liosta anuas á ghlanadh aige nuair a roghnaítear an chill - tá a fhios agam cén chuid den chód atá á dhéanamh (an chuid a deir 'fillRng.ClearContents') agus I rinne mé iarracht cuid de na rudaí thuas a úsáid chun é a dheisiú gan rath... Is nua liom ríomhchlárú VBA etc. dúbailt le do thoil?? Rogha Críochnú follasach Dim FillRng Mar Raon Fo-Bileog Oibre Príobháideach_RoghnúAthraigh(Sprioc De réir Val Mar Raon) Cáilitheoirí Toinne Mar MSForms.ListBox Dim LBobj Mar OLEOobject Dim i Mar Fada Set LBobj = Me.OLEObjects("ListBox1") Socraigh Cáilitheoirí = LBobj.Object > 3 Agus Target.Column = 3 Ansin Socraigh fillRng = Sprioc Le LBobj .Left = fillRng.Left .Top = fillRng.Top .Width = fillRng.Width .Airde = 155 .Infheicthe = Fíor Deireadh Le Eile LBobj.Visible = Bréagach Ní fillRng Is Faic Líon Ansin fillRng.ClearContents Le Cáilitheoirí Más rud é .ListCount 0 Ansin Chun i = 0 Go .ListCount - 1 Más fillRng.Value = "" Ansin Má .Roghnaithe(i) Ansin fillRng.Value = .List(i) Eile Más rud é .Roghnaithe(i) Ansin fillRng.Value = _ fillRng.Value &", " & .List(i) Críoch Más An Chéad Cheann Eile Más Do i = 0 Go .ListCount - 1 .Selected(i) = An Chéad Cheann Eile Bréagach Le Socraigh fillRng = Nil Deireadh If End If End Fo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, d'fhéadfainn mo liosta anuas a dhéanamh go foirfe, ach is í an cheist atá agam ná: nuair a roghnaíonn mé na hítimí go léir atá nasctha téann sé ceann i ndiaidh a chéile ar bhealach cothrománach tríd an gcill, mar shampla: buí, glas, dubh, dearg. Ach conas is féidir liom breathnú air ar bhealach ingearach?, níos mó cosúil le mar shampla: Oráiste bán buí Dearg Toisc go mbíonn an chill cothrománach fada go leor nuair a bhíonn go leor míreanna á roghnú aici. An bhféadfá insint dom le do thoil an bhfuil aon bhealach chun é seo a dhéanamh?. Go raibh maith agat, Desiree
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D’éirigh liom an cód seo a úsáid agus d’éirigh liom boscaí anuas ilroghnacha a chruthú. D'oibrigh sé nuair a dhún mé agus d'oscail mé arís ar laethanta éagsúla. Mar sin féin, anois níl na cealla go léir a roghnaigh mé ar dtús ag ceadú ilroghnú. Na cinn amháin a rinneadh roimhe seo, in ainneoin an cód don scarbhileog iomlán a úsáid. Is féidir leat cabhrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an fhadhb chéanna agam.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
is dóichí go bhfuil na cealla glasáilte, cliceáil ar dheis ar gach ceann acu, téigh go dtí na cealla formáide, cosaint, ansin díthiceáil an rogha cille faoi ghlas
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chruthaigh mé liosta anuas ina bhféadfaí roghanna iolracha téacs a roghnú mar "cothú", "meáchan", agus "obair" le haghaidh gach glaoiteora chun glaoch a chur isteach. Tá leathanach achomair agam ar mhaith liom a fheiceáil cé mhéad de gach cúis i mí ar leith. Cén fhoirmle a d’úsáidfinn chun a rá le Excel gach ceann díobh seo a tharraingt amach agus a áireamh ar leithligh i mí ar leith? Faoi láthair, ar an mbealach a bhfuil sé socraithe agam, ní ardaíonn sé i gceart ach má tá cúis amháin agam sa chill le haghaidh gach glaoiteoir.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Ár leithscéal ní féidir leat cabhrú leat an fhadhb seo a réiteach. Cuir in iúl dom má fhaigheann tú an freagra.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Táim ag iarraidh 4 cholún a chruthú le liostaí anuas nuair is féidir liom luachanna iolracha a roghnú. Conas is féidir liom an cód VBA "anuas liosta le roghanna iolracha" a mhodhnú ionas go mbainfidh sé as an gcill é nuair a chliceálann mé ar luach atá curtha isteach cheana féin? Go raibh maith agat roimh ré.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Randy a chara,
Cad atá i gceist agat "nuair a chliceálann mé ar luach atá curtha isteach cheana féin, bainfidh sé as an gcill é?"
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an cheist chéanna agam. Ní cuimhin le mo liosta anuas na luachanna a roghnaíodh. Má chliceálann duine ar chill atá daonra cheana féin (ní acu sin, ach duine eile) glantar na luachanna roghnaithe agus tá an chill folamh arís.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá mé ag baint úsáide as an gcód thíos chun il-roghnú a cheadú ar bhileoga oibre iolracha ach nuair a théim chuig bileog oibre eile sa leabhar oibre imíonn an il-roghnú. Nuair a shábhálfaidh mé an comhad agus nuair a thiocfaidh mé ar ais isteach oibreoidh sé le haghaidh cluaisín amháin leis an gcód ach arís nuair a chliceálann mé ar chluaisín eile leis an gcód ní oibríonn sé a thuilleadh. Aon smaoineamh conas é a shocrú mar sin má chliceálann mé ar bhileog oibre leis an gcód VBA ceadóidh sé ilroghnú i gcónaí?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, ich bin iomlán VBA Laie. Ich versuche den Code mar sin de réir a chéile, dass
a) bás Mehrfachauswahl nicht in allen, sondern nur ein zwei Spalten aktiv ist
b) ich Items auch wieder rausnehmen kann, zB in dem ich in der Listenauswahl das Item noch einmal anklicke (Beispiel: ich habe über die Mehrfachauswahl ausgewählt: A, D, X, Y... nun fällt mir a nimal D. beim aktuellen Code müsste ich Eingaben entfernen und neu auswählen).
Go raibh maith agat roimh ré!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní féidir liom dul ar aghaidh le cruthú an ilrogha ar an liosta anuas. Tá mé ag éisteacht le hábhar teagaisc agus léite ach fós ní féidir liom a chruthú. Is cineálta an féidir le duine cabhrú liom?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá a fhios agam go bhféadfadh sé seo a bheith randamach iomlán, ach úsáidim athrú ar an VBA gan aon cheist. Ach amháin ar leathanach amháin, má roghnaíonn tú an chéad trí rogha, ní ligfidh sé duit an ceathrú a roghnú. Ligfidh sé duit an 5ú, an 6ú, agus mar sin de a roghnú, ach ní hé an 4ú rogha. Smaointe?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Robert,
Tá tástáil déanta agam ar an gcód ach níor aimsigh mé an fhadhb mar a luaigh tú. An féidir leat a insint dom cén leagan Excel atá in úsáid agat? Go raibh maith agat as do thuairim.
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL