Microsoft Excel

#361
Sumečiau šiokį tokį macrosą, jis tikrina nuo i iki i+j eilutės reikšmes F stulpelyje ir jei nulis tada paslėpia. Šitą macrosą galima ir mygtukui priskirti jei reikia.
CODE

Sub F_eilutes()

Dim i As Integer
Dim j As Integer
i = 1   'nuo kurios eilutės pradėti tikrinti
j = 100 'kiek eilučių bus tikrinama

   Do While i < j
       If Range("F" & i).Value = 0 Then
           Rows(Range("F" & i).Row).Select
           Selection.EntireRow.Hidden = True
       End If
       i = i + 1
   Loop
   
End Sub

Tikiuosi padės. wink.gif
Atsakyti
#362
QUOTE(dryx @ 2010 03 01, 09:06)
Sumečiau šiokį tokį macrosą, jis tikrina nuo i iki i+j eilutės reikšmes F stulpelyje ir jei nulis tada paslėpia. Šitą macrosą galima ir mygtukui priskirti jei reikia.
CODE

Sub F_eilutes()

Dim i As Integer
Dim j As Integer
i = 1   'nuo kurios eilutės pradėti tikrinti
j = 100 'kiek eilučių bus tikrinama

   Do While i < j
       If Range("F" & i).Value = 0 Then
           Rows(Range("F" & i).Row).Select
           Selection.EntireRow.Hidden = True
       End If
       i = i + 1
   Loop
   
End Sub

Tikiuosi padės. wink.gif



Aciu 4u.gif . Labai padejo.
Atsakyti
#363
QUOTE(strazdane1981 @ 2010 03 01, 13:16)
Aciu 4u.gif . Labai padejo.



Labas dar karta reikalinga Jusu pagalba. Nukopinau ir pataisiau makrosa
Sub Ukryj()
'
' Ukryj Macro
' Macro recorded 2010.03.02 by User
'
' Keyboard Shortcut: Ctrl+q

'Dim i As Integer
Dim j As Integer
i = 21
j = 321
Do While i < j
If Range("F" & i).Value = 0 Then
Rows(Range("F" & i).Row).Select
Selection.EntireRow.Hidden = True
End If
i = i + 1
Loop

End Sub

Lyg tai veike. O siandien atidarau - neveikia unsure.gif . Security nustatyta MEDIUM. Kame gali buti reikalas???
Papildyta:
QUOTE(strazdane1981 @ 2010 03 02, 14:26)
Labas dar karta reikalinga Jusu pagalba. Nukopinau ir pataisiau makrosa
Sub Ukryj()
'
' Ukryj Macro
' Macro recorded 2010.03.02 by User
'
' Keyboard Shortcut: Ctrl+q

'Dim i As Integer
Dim j As Integer
i = 21
j = 321
  Do While i < j
      If Range("F" & i).Value = 0 Then
          Rows(Range("F" & i).Row).Select
          Selection.EntireRow.Hidden = True
      End If
      i = i + 1
  Loop
 
  End Sub

Lyg tai veike. O siandien atidarau - neveikia  unsure.gif . Security nustatyta MEDIUM. Kame gali buti reikalas???


Tiesa bandziau makrosui priskirti piktograma smile.gif Bet siandien irgi neveikia. verysad.gif
Papildyta:
QUOTE(strazdane1981 @ 2010 03 02, 14:28)
Labas dar karta reikalinga Jusu pagalba. Nukopinau ir pataisiau makrosa
Sub Ukryj()
'
' Ukryj Macro
' Macro recorded 2010.03.02 by User
'
' Keyboard Shortcut: Ctrl+q

'Dim i As Integer
Dim j As Integer
i = 21
j = 321
  Do While i < j
      If Range("F" & i).Value = 0 Then
          Rows(Range("F" & i).Row).Select
          Selection.EntireRow.Hidden = True
      End If
      i = i + 1
  Loop
 
  End Sub

Lyg tai veike. O siandien atidarau - neveikia  unsure.gif . Security nustatyta MEDIUM. Kame gali buti reikalas???
Papildyta:
Tiesa bandziau makrosui priskirti piktograma smile.gif Bet siandien irgi neveikia. verysad.gif

Ar galite parasyti kaip priskirti mygtukui???
ACIU
Atsakyti
#364
Jei security level pasirinktas medium, atidarant excel failą turi išmesti tokią lentelę:
user posted image

Būtina paspausti "Enable macros", kitaip neveiks.

Mygtukui priskirti macrosa yra nesudėtinga - dešini pelės mygtuko ant objekto/paveikslėlio/mygtuko ir pasirinkti "Assign Macro".

O jei kalba eina apie klaviatūros mygtukų priskyrimą, tai Toold -> Macros -> Macro.. [Alt + F8] ir ten paspausti options ir pasirinkti norimą kombinaciją.

Sėkmės.
Atsakyti
#365
QUOTE(dryx @ 2010 03 02, 17:03)
Jei security level pasirinktas medium, atidarant excel failą turi išmesti tokią lentelę:
user posted image

Būtina paspausti "Enable macros", kitaip neveiks.

Mygtukui priskirti macrosa yra nesudėtinga - dešini pelės mygtuko ant objekto/paveikslėlio/mygtuko ir pasirinkti "Assign Macro".

O jei kalba eina apie klaviatūros mygtukų priskyrimą, tai Toold -> Macros -> Macro.. [Alt + F8] ir ten paspausti options ir pasirinkti norimą kombinaciją.

Sėkmės.


Jus man labai padejote, aciu. 4u.gif
Ar galetumete dar parasyti viena makrosa prie to. Reikia atgal tas visas eilutes atverti smile.gif
Atsakyti
#366
Kadangi reikia atverti visas eilutes be išimčių, macrosas nebūtinas, galima rankiniu būdu tai padaryti.

Pažymėkit visas ląsteles ctrl+a (arba paspausti kvadračiuką kuris yra tarp "1" ir "A" viršutiniam kairiam kampe) ir tada dešinį pelės mygtuką ant bet kurios eilutės skaičiaus, iš meniu pasirinkti "Unhide" ir vualia - vėl visos eilutės matomos. smile.gif
Atsakyti
#367
Noriu pagalbos, kai rašau jau sudarytoje programos lentelę ir joje noriu parašyti, kai nepetelpa, man neberodo ką rašau, kaip pratempti tekslą, kitų lentelių nepakeičiant.
Atsakyti
#368
QUOTE(Ernesta123 @ 2010 03 03, 19:58)
Noriu pagalbos, kai rašau jau sudarytoje programos lentelę ir joje noriu parašyti, kai nepetelpa, man neberodo ką rašau, kaip pratempti tekslą, kitų lentelių nepakeičiant.

Nelabai supratau klausimo, bet galima pabandyti ant celės dešinį pelės mygtuką paspausti, tada Format cells -> Alignment ir pažymėti vernelę Wrap text, arba Shrink to fit.
Atsakyti
#369
Parašykit lietuviškais terminais, nes mano meniu lietuviškas, galiu ir pasiklyst, bandžiau jum nukopijavus įkelti, visai išdarkė, neina čia kaip failo įkelt, nemoku su šia programa nieko, wordas man yra priimtinesnė, bet šiuo atveju neturiu pasirinkimo.

Atsakyti
#370
Gal kas zinote, kodel macrosai viename kompe veikia greiciau negu kitame??? Tas pats dok.atidaromas, o viename kompiuteryje sutraukineja greiciau, kitame gan letai. Kame gali buti beda??? unsure.gif
Atsakyti
#371
QUOTE
Parašykit lietuviškais terminais, nes mano meniu lietuviškas, galiu ir pasiklyst

Deja lietuviškai parašyti negaliu, nes bala žino kaip ten kalbininkai sugalvojo išversti. biggrin.gif

Angliškai atrodo taip, turėtu taip pat būti ir lietuviškai:

user posted image

user posted image

Rezultatas turėtų būti toks: user posted image

Dar galima bandyti ir tą antrą varnelę uždėti "Shrink to fit".



QUOTE(strazdane1981 @ 2010 03 04, 20:49)
Gal kas zinote, kodel macrosai viename kompe veikia greiciau negu kitame??? Tas pats dok.atidaromas, o viename kompiuteryje sutraukineja greiciau, kitame gan letai. Kame gali buti beda??? unsure.gif

Macrosų greičiui tiesioginę įtaką turi kompiuterio procesoriaus sparta. O jei kalba eina apie tą macrosą, kur parašiau, gal labai didelės ribos užduotos?
Atsakyti
#372
Parasiau makrosa, kad tikrintu nuo 21 iki 513 eilutes, na ir pas mane visai greitai sutraukia, o pas shefa - letai. Dabar galvoju perdatyt ta dok.
Ir vel dabar iskyla klausimas: KAIP PARASYTI MAKROSA, KAD IS VIENO PUSLAPIO TIKRINTU "F" STULPELIO EILUTES, IR TOS KURIOS TURI SKAICIU PARODYTU KITAME LAPE- DOKUMENTE tiek eiluciu, kiek surado su reiksmem???? Gal galetumete man padeti??? verysad.gif
Siaip gerai dirbu su Exceliu - bet makrosus nelabai ismanau ax.gif .
Atsakyti