fformat amodol gyda fformiwla

Hi 'na,

Cyfeiriwch at yr erthygl i ddod o hyd i'ch ateb: https://www.extendoffice.com/documents/excel/4033-excel-exclude-zero-from-min.html

Am y cais - "amlygwch y gwerth", pa werth ydych chi am dynnu sylw ato?

Amanda

Helo Annwyl Amanda
Tanciau am ddarllen fy nghais a llawer o ddiolch am eich atebion caredig
Mae gen i dabl gyda mwy na 5000 o resi o ddata…
Yn y tabl hwn mae gan bob 7 i 11 rhes un rhif a oedd yn uno celloedd yng ngholofn A!
Pob rhan gyda rhif 1 rhes yn cynnwys data sawl gwerthwr am un eitem y mae gan bob un eu pris eu hunain a'r hyn sydd ei angen arnaf yw cael fy nyddiad ym mhob adran i'w ddidoli ar bris is unrhyw werthwyr ar ben yr adran rhes 😊
Fel y gwelwch, mae gennyf 2 gais:
1: didoli data ym mhob rhan o'm data yn eu hadran ar y pris isaf,
2: tynnu sylw at y pris isaf yn y rhes gyntaf
Fe wnes i ddatrys fy ail gais ddoe, ond ni wnes i ddod o hyd i unrhyw ateb ar gyfer fy un cyntaf.
Byddaf yn ddiolchgar pe gallech ddatrys fy mhroblem :)
Yn anffodus ni allwn uwchlwytho delwedd o fy nhabl :(

dyma lun adran rhannol o fy nhabl
https://drive.google.com/file/d/1MqdJo_Xa7nilbT8YMZiJIncNfApyuOd7/view?usp=sharing

Hi 'na,

Diolch am y llun, mae hynny'n helpu! Fodd bynnag, nid ydym yn deall yr iaith yn y llun.

Felly, a fyddech cystal â nodi a yw pob adran a grybwyllwyd gennych yn amrywio:
T12:U12; T19:U19; ...
OR
T12:P18; T19:P25; ...

Helo a llawer o ddiolch eto am eich sylw Annwyl Amanda.
Yn gyntaf, yr iaith a ddefnyddiais yn y tabl hwn yw FARCES.
Yn ogystal am eich ail gwestiwn,
Os wyf yn deall yr hyn yr ydych yn ei olygu, rwyf am ddidoli'r holl ddata yn ystod D12: AH18 yn seiliedig ar isafswm gwerth yn y gell C12: C18 y mae'n rhaid iddo ddod allan ar frig y rhes yn adran Rhif 1 ac yn y blaen yr un peth mewn adran arall megis Rhif 2 i adran Rhif 712 a hefyd angen arnaf ar ôl y math hwn pan fydd y nifer lleiaf o gell Q yn dod allan ar ben yr adran rhes, mae'n dangos gan liw melyn yn y cefndir hefyd enw'r gwerthwr yn y gell "I" a ddangosir yr un cefndir melyn hefyd.
Rwy'n gobeithio fy mod wedi egluro fy mhwrpas a'm cais yn gywir.
Hefyd, Os oes angen, dywedwch wrthyf i bostio mwy o luniau.
Diolch ymlaen llaw am eich ateb.

Dyfynnwyd o JavidP ar ddydd Mercher, 18 Mai 2022

Rwyf am ddidoli'r holl ddata yn ystod D12:AH18 yn seiliedig ar isafswm gwerth yn y gell C12: C18 y mae'n rhaid iddo ddod allan ar frig y rhes yn adran Rhif 1 ac yn y blaen yr un peth mewn adrannau eraill fel Rhif 2 i adran Rhif 712 a hefyd angen arnaf ar ôl y math hwn pan fydd y nifer lleiaf o gell Q yn dod allan ar ben yr adran rhes, mae'n dangos gan lliw melyn yn y cefndir hefyd yr enw gwerthwr yn cell "I" dangos yr un cefndir melyn hefyd.

Felly ar gyfer adran 1, rydych chi am ddidoli'r rhes 12-18 yn seiliedig ar y gwerthoedd yn C12:C18 o'r lleiaf i'r mwyaf;
ar gyfer adran 2, ....

Ac y nifer lleiaf o gell Q ac enw'r gwerthwr yn y gell "I" maent yn yr un rhes. Oeddwn i'n ei ddeall yn iawn?

Helo Annwyl Amanda :)
Cywir yn union :)

Hi 'na,

Rydyn ni wedi creu cod VBA i'ch helpu chi i ddidoli rhesi fesul adran, gweler isod:

Sub ExtendOffice_Sort()

Dim xExtendRg, xOfficeSRgC As Range

Dim xRg As Range

Dim xRangeAddress As String

Dim xNum, xCSNum, xCENum, xRSNum, xRSNum2, xRENum As Integer

Dim xRCount As Integer

Dim xBol, xBolWS As Boolean

Dim xStr1, xStr2 As String

Dim xWSh As Worksheet

Dim xSortColumn As Integer

On Error Resume Next

Set xExtendRg = Application.InputBox("Please select the range with data to be sorted:", "ExtendOffice - Kutools for Excel", , , , , , 8)

If xExtendRg Is Nothing Then Exit Sub

Set xOfficeSRgC = Application.InputBox("Please select the column with values to be sorted from smallest to largest:", "ExtendOffice - Kutools for Excel", , , , , , 8)

If xOfficeSRgC Is Nothing Then Exit Sub

xNum = Application.InputBox("Please enter a number of rows to be sorted in a section:", "ExtendOffice - Kutools for Excel", , , , , , 1)



Set xRg = xExtendRg



Set xWSh = xRg.Worksheet



xWSh.Activate

xSortColumn = xOfficeSRgC.Column

xRCount = xRg.Rows.Count

xCSNum = xRg.Column

xCENum = xCSNum + xRg.Columns.Count - 1

xRSNum = xRg.Row

xRENum = xRSNum + xRCount - 1

xRSNum2 = xRSNum

xRSNum = (xRSNum + xNum) - 1

xBol = True

xBolWS = Application.ScreenUpdating

Application.ScreenUpdating = False

Do While xBol

xStr1 = xWSh.Cells(xRSNum2, xCSNum).Address & ":" & xWSh.Cells(xRSNum, xCENum).Address

xStr2 = xWSh.Cells(xRSNum2, xSortColumn).Address & ":" & xWSh.Cells(xRSNum, xSortColumn).Address

'Debug.Print xStr1 & " - " & xStr2



    xWSh.Sort.SortFields.Clear

    xWSh.Sort.SortFields.Add Key:=Range(xStr2) _

        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With xWSh.Sort

        .SetRange Range(xStr1)

        .Header = xlGuess

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    xWSh.Sort.SortFields.Clear



If (xRSNum + xNum) >= xRENum Then

    If xRSNum = xRENum Then

        xBol = False

    Else

        xRSNum2 = xRSNum + 1

        xRSNum = xRENum

    End If

Else

    xRSNum2 = xRSNum + 1

    xRSNum = (xRSNum + xNum)

End If

Loop



Application.ScreenUpdating = xBolWS



End Sub

Ac mae'n ddrwg gennym nad yw'r cod uchod yn tynnu sylw at y nifer lleiaf o gell Q ac enw'r gwerthwr yn y gell "I", gan ein bod wedi bod yn brysur yn gweithio ar ein cynnyrch yn ddiweddar.
Gobeithio eich bod yn deall.

Amanda

Helo eto Annwyl Amanda :)
Diolch yn fawr.
Profais eich cod ac wrth gwrs mae'n gweithio'n dda.
nawr mae'n rhaid i mi ei redeg tua 712 o weithiau ar fy mwrdd a dewis darn o ddata bob tro
Gobeithio cael mwy o god i wneud fy nghais nesaf cyn gynted â phosib.
Diolch eto a phob lwc.

Dyfynnwyd o JavidP ar ddydd Gwener, 20 Mai 2022

nawr mae'n rhaid i mi ei redeg tua 712 o weithiau ar fy mwrdd a dewis darn o ddata bob tro

Nid oes rhaid i chi ei redeg 712 o weithiau.

Pan fydd dialog pop i fyny yn dweud
"Dewiswch yr ystod gyda data i'w ddidoli" > Rydych chi'n dewis yr holl ddata sydd angen eu didoli, ar draws adrannau 1 i 712.
"Dewiswch y golofn gyda gwerthoedd i'w didoli o'r lleiaf i'r mwyaf"> Dewiswch golofn Q yn eich achos chi.
msgstr "Rhowch nifer o resi i'w didoli mewn adran:" > Rhowch "7" yn eich achos chi

IAWN. a beth os oes gan rai adrannau fwy neu lai na'r data 7 rhes hwnnw?!

Dyfynnwyd o JavidP ar ddydd Mawrth, 17 Mai 2022

Helo Annwyl Amanda
Tanciau am ddarllen fy nghais a llawer o ddiolch am eich atebion caredig
Mae gen i dabl gyda mwy na 5000 o resi o ddata…
Yn y tabl hwn mae gan bob 7 i 11 rhes un rhif a oedd yn uno celloedd yng ngholofn A!
Pob rhan gyda rhif 1 rhes yn cynnwys data sawl gwerthwr am un eitem y mae gan bob un eu pris eu hunain a'r hyn sydd ei angen arnaf yw cael fy nyddiad ym mhob adran i'w ddidoli ar bris is unrhyw werthwyr ar ben yr adran rhes 😊
Fel y gwelwch, mae gennyf 2 gais:
1: didoli data ym mhob rhan o'm data yn eu hadran ar y pris isaf,
2: tynnu sylw at y pris isaf yn y rhes gyntaf
Fe wnes i ddatrys fy ail gais ddoe, ond ni wnes i ddod o hyd i unrhyw ateb ar gyfer fy un cyntaf.
Byddaf yn ddiolchgar pe gallech ddatrys fy mhroblem :)
Yn anffodus ni allwn uwchlwytho delwedd o fy nhabl :(

Roeddwn i'n meddwl bod eich holl adran fel yr un nifer o resi
Os na, yna ....