|
[03 Dec 2008|09:07am] |
Darbā jauna izklaide!
Exceļa makrosi.
piemēram,
Range(Selection, Selection.End(xlToRight)).Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Selection.End(xlToRight).Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=1+RC[-1]"
vai arī šitāds:
z = ActiveCell.Value + 1
Selection.End(xlDown).Select
s = ActiveCell.Value
ActiveCell.FormulaR1C1 = s & Chr(10) & ">" & z
With ActiveCell.Characters(Start:=1, Length:=9).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
vai šāds:
Cells.Find(What:="meklējamais teksts", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Selection.FindNext(After:=ActiveCell).Activate
Vismaz darbi un laiks ātrāk uz priekšu iet...
|
|
|
[03 Dec 2008|02:49pm] |
Dabūsi pa kokodīliju!
Kur atrodas kokodīlijs?
kokodīlijs pārvietojas.
bet visbiežāk tas atrodas starp degunu un augšlūpu.
|
|