Nua

Ag baint úsáide as an camóg Tiontaigh luachanna ar leithligh VBA

  Excel
Bádóir
  Bádóir
  Dé Máirt, 24 2019 Nollaig
  1 Freagraí
  Cuairteanna 12.5K
0
Vótaí
Undo
Oibríonn sé go hiontach leis an VBA a úsáid chun mo theaghrán camóg a thiontú ina sraitheanna - ach anois ní mór dom an briseadh amach a mheaitseáil leis an luach i gcolún A. Sampla
Tá “Crainn: Colún B mar theaghrán na camóg: Dogwood, Fuinseog, Maple, Leamhán, Úll.
Conas is féidir liom a thaispeáint mar:
[font=Calibri]atá ann faoi láthair[/ cló]
[font=Calibri]Crainn[/ cló][font=Calibri]Dogwood, Fuinseog, Maple, Leamhán, Apple[/ cló]
[font=Calibri]An riachtanas is gá[/ cló]
[font=Calibri]Crainn[/ cló][font=Calibri]Dogwood[/ cló]
[font=Calibri]Crainn[/ cló][font=Calibri]Ash[/ cló]
[font=Calibri]Crainn[/ cló][font=Calibri]Maple[/ cló]
[font=Calibri]Crainn[/ cló][font=Calibri]Leamhán[/ cló]
[font=Calibri]Crainn[/ cló][font=Calibri]Apple [/cló]
Go raibh maith agat
0
Is sine An Chéad  
Lewis-H
Lewis-H
blianta 3 shin
·
#2048
0
Vótaí
Undo
Fothéacs PoiblíToColúin()
Socraigh ARange = Raon ("A: A")
Socraigh BRrange = Raon ("B:B")
Socraigh CRange = Raon ("C: C")
Socraigh DRange = Raon ("D: D")
Dim arr() Mar Teaghrán
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlRow).Row
Leag amach = Bileoga Oibre.Add
out.Name = "amach"
asRow = 2
Chun i = 2 Chun lr
    arr = Scoilt(ARrange(i), ",")
    Le haghaidh j = 0 Go UBound(arr)
        amach.Cealla(asRow, 1) = Baile Átha Troim(arr(j))
        amach.Cealla(outRow, 2) = BRrange(i)
        amach.Cells(outRow, 3) = CRrange(i)
        amach.Cells(outRow, 4) = DRrange(i)
        asRow = asRow+1
    J Ar Aghaidh
Ar Aghaidh i
Fo Deireadh
Ní dhearna mé na ceanntásca nó ní dhéileáil mé i gceart leis an mbileog aschuir ach is féidir leat a fheiceáil go bunúsach cad atá ar siúl.
  • Page:
  • 1
Níl aon fhreagraí déanta don phost seo go fóill.