• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

je dost moznosti ako to riesit

co tak pouzit tu najjednoduchejsiu metodu a to taku ze len do bunky nastavit odkaz na ten subor a bunku?

prilozte prilohu lebo takto mozem hadat ako vypada zdrojova tabulka z ktorej potrebujete hladat hodnotu

- mozte pouzit funkciu find
- mozte si najprv zdrojovu tabulku SETnut a potom sam prehladavat
- mozte to rucne hodit do array pola
- mozte vyuzit SELECT SQL syntax
atd.

tak preto priloha

nikto toto neriesil???

mne staci aj referencia ktora je free a je standartna :)) a dokaze bunku naformatovat podla vnutorneho textu a ten roztiahne bunku :)

takto neviem ci viete programovat alebo neviete

ale tak odpoviem ako programatorovi

tu vam posielam makro ktore odosiela mail s prilohou uz len si ho dajte do cyklu podla poziadaviek ako ho potrebujete

tu posielam ako by sa to dalo riesit z mailom

- stlpec A je adresar
- stlpec B je ktory sheet mu ma poslat
- treba tam este dopisat nazov mailu a predmet mailu ale to som uz neriesil lebo na ukazku to myslim ze staci

no a presne toto som potreboval pocut a preto vam navrhujem lepsiu metodu a aj istejsiu ako to riesit takto

najidealnejsie je si spravit makro ktore automaticky rozposle danemu uzivatelovi dany sheets

je to aj lahsie a aj bezpecnejsie ... lebo aj verryHiden keby ze sa naseru tak to aj tak uvidim :))

nechcete radsej makro na posielanie sheetov?

este som tam urobil makro na zistenie ID usera staci ho kliknut na pocitaci a vypise vam jeho ID name

no neviem ci ma taku moznost office ale je dost mozne ze to ma ... ja osobne o nej zatim nic neviem ale kludne sa neham poucit :)

tu som urobil to makro:
Private Sub Workbook_Open()
For x = 1 To Sheets.Count - 1
Sheets(x).Visible = False
Next

Select Case Environ$("username")
Case "Login1"
Sheets(1).Visible = True
Case "Login2"
Sheets(2).Visible = True
Case "Login3"
Sheets(3).Visible = True
Case "Login4"
Sheets(4).Visible = True
Case "Login5"
Sheets(5).Visible = True
End Select
End Sub

v makre treba este zamiesto login1,2,3,4 dopisat loginy userov a potom dopisat ktory slide sa ma odkryt

posledny slide je odkryty pre vsetkych tak preto tam je count - 1

- samozrejme dasato aj lepsie spravit len netusim vobec naco to potrebujete

priloha:

dalo by sa to riesit eventom ked sa otvori dokument a potom len definovat uzivatelov pomocou:

Environ$("username")

kedze funguje pomocou maktra tak bez prilohy mozme len hadat :))

... prosim prilozte prilohu (priloha ide prikladat ked ste registrovany a max myslim ze 250kb)

Ahojte,

uz dlhsie sa hram s componentami pre visual basic a neviem naist taky co by vyhovoval mojim predstavam

co potrebujem:
Potrebujem taky component co funguje ako v visual studiu devexpress listview ... samozrejme nemusi byt tak dokonali :)) ja potrebujem len aby mal 2ve vlasnosti:

1. worldwrap text v bunke aby roztiahol riadok tak aby bol vidiet cely text (neroztahovat stlpec)
2. aby s myskou fungovalo scrollovanie

kedze som sa pri svojom programe zasekol tak ho posielam cely na ukazku ale treba mat MS Office 2007+ (mozno treba mat 2010 netusim) a aby sa dalo pracovat s testovacou databazou tak treba v Data.accdb a v tabulke "User" dopisat do Login svoje ID loginu ... co sa da zistit aj ked kliknete na ikonu ID alebo prikazom:
MsgBox Environ$("username")

ten komponent sa vola MSHFlexGrid3 a je pouzity v formulari History ale ako som spominal nesplna dostatocne tie 2 vlasnosti co vyzadujem ... aj ked by som sa uspokojil keby splnalo aspon prvu vlasnost :))

alebo to urobit cez funkciu
Function cucajData(ByVal aFind As String, ByVal aPosition As Integer) As String
cucajData = WorksheetFunction.VLookup(aFind, Sheets("Dodavatelia").Range("A:D"), aPosition, 0)
End Function

tak uz viem preco sa ludia stazuju ze im nejde sem posielat prilohy :)) .... ma to nieco spolocne ked ma v nazve - alebo pri konci je mezera napr. aaa-aa .zip

nieco z toho :)

priloha:

change event nikdy nebude idealny :) (uz len preto ze sa spusta pri kazdej zmene bunky)

tak skuste tu druhu moznost ale neviem presne co ste chcel s tym makrom dokazat ci len udaj z posledneho riadku

Function CucajPosledneho(ByVal aRange As Range, ByVal aRow As Integer) As String
For x = 7 To aRange.Rows.Count
If Cells(x, aRange.Column) = "" Then CucajPosledneho = aValue: Exit For
aValue = Cells(x, aRange.Column + aRow)
Next
End Function

v prilohe je pouzita v bunke C3:

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje