Cum se aplică formatul condițional în Excel

--------Ca Word.Application Dim appWD, appXL Ca Excel.ApplicationSub CopyCondFmt2WordThenBackSoKeepsFmtButLosesCondFmtEquations () ---- „*** Obiectiv: Pentru a menține formatarea condițională în intervalul Excel, dar elimina formule de formatare condiționată“ *** Notă: În Excel VBA, activat din bara de instrumente în biblioteca Referirile opțiunea MicrosoftWordxxObjectLibrary „*** 1) Copiați o gamă de Excel la Word prin intermediul clipboard. NOTĂ: Gama are formatarea condițională „*** 2) Deschideți Word și lipiți date Excel într-un document Word din nou (ca HTML)“ *** 3) Apoi, copiați aceleași date în Word și apoi le-a pus în clipboard-ul (format HTML) `----` *** (1) Copierea unei game de Excel ---- Application.DisplayClipboardWindow = True `*** observarea acțiunilor pe Application.CutCopyMode clipboard = false` *** ștergeți copia (ergo, ștergeți clipboard) Interval ("A1") .CurrentRegion.SelectSelection.Copy `*** copiați zona Excel --------` (2) Aplicați acum comenzile Word = "appWD"-------- Setați appWD = CreateObject ("Word.Application") `*** creează obiectul wordappWD.Visible = True` *** spectacol wordappWD.Documents.Add `new documentoappWD.WordBasic.EditOfficeClipboard ***` *** observa clipboard-ul în Word tambiénappWD.Selection.PasteExcelTable fals, , `*** date de pasta din Excel appWD.Selection.WholeStory` false false *** (3) selectați același yappWD.Selection.Copy de date „*** copiate în clipboard în format HTMLappWD.Quit ---- ---- `reveniți la ExcelRange ("A30"). Selectați zona *** pentru a insera datele în HTMLActiveSheet.PasteSpecial Format: ="HTML", Link: = False, DisplayAsIcon: = False `cuvânt peg ---- End Sub ----

Sub Public FormatMyRow () „condiționale linii de intrare culori de la roșu la galben Format verde în sus“ „au 21 de rânduri de formate condiționale, eliminând coloana 4 (D), antetul“ are o valoare de% variind de 0-1.00 (0% până la 100%) pentru i = 2-22 „Ia valoarea coloanei 4intVal = celule (i, 4) .value“ pus temporar roșu și verde culori în valorile RGB de tip ... Dacă intval > 0.35 Apoi intRed = 200 Else intRed = Int (intVal * 510) Dacă ((intVal - 1) * (-1)) > Apoi, 0,65 intGrn = 255 Else intGrn = Int (((intval - 1) * (-1)) * 255) `Suma de 100 pentru a împinge valorile RGB pentru culoarea culorilor pastel.intRed = intRed + 100intGrn intGrn + = 100` Aruncați orice valoare RGB peste 255 și setați-o la 255 ... Dacă intRed > 255 Apoi intRed = 255If intGrn > Apoi, 255 intGrn = 255 „Aplică culoarea RGB pentru fiecare dintre cele 11 coloane ... Nota Albastru RGB are valoarea de 100 ... Pentru j = 1 La 11Cells (i, j) .Interior.Color = RGB ( intRed, intGrn, 100) NextNextEnd Sub