v excelu bi rad izbral, in zbrisal vsebino vsem celic ki niso bold.
na netu sem našel:
Cells with same format
'All cells in the specified range that contain the same format as the *first* cell specified in range.
On Error GoTo SpecialCells_Error
Set {RANGE:rngCellsWithSameFormat} = {RANGE:rng}.SpecialCells(xlCellTypeSameFormatConditions)
GoTo SpecialCells_Finish
SpecialCells_Error: 'If nothing you will get a run time error '1004'
Resume SpecialCells_Finish
SpecialCells_Finish:
potem pride še jasno: Selection.ClearContents
zdaj pa ne vem kako naj to pretvorim tako da bo delalo.
S tole kodo se jaz nebi kaj veliko ukvarjal, spodaj vam prilagam makro, ki naredi, kar želite. Popraviti morate samo območje kjer želite brisati neodebeljene celice (nekaj namesto A1:A10):
ja to sem potem že sam pogruntal, samo na živce mi gre ker je pač tule eno nedefinirano področje.
Če imam naprimer ("a1:z500") je vedno možnosz da bo nekaj izven tega območja, in takole predefiniran range enkrat ne bo delal OK
Bubilko, Bubilko, tudi zgoraj bi imeli vnaprej definirana področja... Kaj pa mislite, da pomeni {RANGE:rngCellsWithSameFormat}, v sicer tisti "njihovi" čudni sintaksi.
Tudi jaz nikoli ne uporabljam fiksnih območij, temveč pač ugotovim kako veliko podatkov je in če imate sklenjeno tabelo, lahko celotno tabelo preprosto zaobjamete z ukazom:
ni sklenjena, in jih je več različnih na različnih sheetih.
Pač pa ima vsak sheet v spodnji desni celici (zadnja ki ima pač sploh kaj vsebine) en določen text, zato:
' poiščem zadnjo celico na desni spodaj, kjer gotovo piše 'Master:'
Dim r As Range
Set r = Sheet.Cells.Find(What:="Master:", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
r.Activate
' določim range
ActiveSheet.Range("A1:" & ActiveCell.Address).Select
Tole dela. Kako naj premaknem fokus s te r.active celice za eno v desno, preden določim range ?