Příspěvky uživatele
< návrat zpět
Ahoj,
potřeboval bych poradit. Mám kod něco jako automatický filtr, který provede filtr položek dle obsahu aktuální buňky. Je to přes tlačítko, které funguje jako přepínač, takže pokud je filtr aktivní, provede jeho ukončení. Vše funguje dobře pouze na text. Pokud je v aktuálním políčku číslo, tak filtr nezobrazí žádný řádek, jako by měl filtrovat prázdné buňky. Našel jsme zde téma, kde se to částečně řešilo, ale nedořešilo. Může někdo pomoc.
Sub AutoFiltr_Click()
Dim Text, vyber As String
If FilterMode = True Then
Selection.AutoFilter Field:=1
GoTo a
End If
Text = ActiveCell
If Text = "" Then Exit Sub
vyber = "=*" & Text & "*"
Selection.AutoFilter Field:=1, Criteria1:=vyber
a:
Range("A5").End(xlDown).Activate
ActiveCell.Offset(1, 0).Select
End Sub
Takhle jsem to přesně myslel. Jak jednoduché 
.
Díky moc.
Prosím o pomoc. Potřebuji v tabulce vyhledat řádek, splňující podmínku. Tabulka obsahuje 3 dvojice sloupců. Hledá se řádek, kde hledaná hodnota leží mezi pravým a levým sloupcem.
Hodnota 1 mezi sloupci B,C, hodnota 2 mezi E,F a hodnota 3 mezi H,I. Shoda nastane, pokud se najdou všechny 3 hodnoty v jednom řádku. Pak se vrátí udaje z řádku. Pro lepší pochopení přikládám soubor. Může se stát, že výsledkem jsou i dva řádky.
Snad to je k pochopení.
Mám stejný problém. Avizoval jsem ho tu již několikrát, ale žádná pomoc nepomohla. Mám XP a Excel 2003.
Jestli na to někdo přijdete, určitě dejte vědět ! ! !
Prosím o jedno vysvětlení. Použil jsem následující pro čtení dat ze souboru a jejich zápis do nového.
Public Sub verze_2()
Dim text As String
Open "C:\TEST\soubor_1.txt" For Input As #1
Open "C:\TEST\soubor-2.txt" For Output As #2
Input #1, text
Write #2, text
Close #1, #2
End Sub
Do výstupního souboru se zapisuje hodnota text v uvozovkách. Jdou při použití této procedury odstranit?
Ahoj, posílám vzor, jak vypadá vstupní soubor. Potřebuji načíst 3 a 4 sloupec a zapsat je do nového souboru a oddělit čárkou.
Mám ještě jednu otázku. Testuji existenci souboru pomocí
If Dir(Vstup) = "" Then
MsgBox "Vstupní soubor " & soubor & _
" nebo cesta na něj neexistuje ! "
Exit Sub
Pokud cesta obsahuje dvě zpětná lomítka, např.C:\test\\soubor.txt tak to vyhodnotí tak, že pokračuje na End IF.
Dobrý den, prosím o radu. Potřebuji pomocí VBS načíst z TXT souboru řádky do proměnné, ale první 4 vynechat. Další řádky v souboru jsou v 7 sloupcích oddělených mezerami různých délek. Potřebuji načíst pouze 3 a 4 sloupec a tyto uložit do jiného souboru a zde je oddělit ",". Snad je to srozumitelné. Díky
Tak jsem to zkusil i na jiném PC. Kontrola na existenci souboru funguje v obou případech.
Otevření souboru v AutoCadu dle kodu od Pokiho bohužel nefunguje.
Ještě jsem narazil na jeden způsob otevření souboru, který funguje. Do modulu se vloží:
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
a pro oteření se použije-
ShellExecute Application.hwnd, "open", DwgName, vbNullString, vbNullString, 0
Ještě bych uvítal radu dle výše uvedeného dotazu.
Díky
Díky za rady. Bohužel na PC, kde to potřebuji způsobuje řádek Set fso = CreateObject("scripting.filesystemobject") chybové hlášení Run-time error '429': AxtiveX component can't create object. Na jiném PC to nedelá. Nevíte někdo, co by mohlo být špatně. Kontroloval jsem references a tam je vše stejné.
Použil jsem radu od Jeza.m a to funguje.
Jen bych ještě potřebal variantu, když není AutoCad spuštěn, tak jeho otevření.
Díky.
Prosím o radu.
Potrebuji pomocí VBA ověřit, zda v určité složce existuje určitý soubor. Pokud ano, tak ho spustit v příslušné aplikaci (v mém případě DWG v AutoCadu), pokud je aplikace (AutoCad)již spuštena, tak soubor v této aplikaci zobrazit a znovu ji nezpouštět. Pokud soubor ve složce není, tak tuto složku otevřít v průzkumníku.
Děkuji.
Tak to jsem přesně potřeboval !
Mám ale ještě jeden problém. Na PC, kde to potřebuji mě na řádku Set fil = fso.GetFile(cesta) objeví chyba viz příloha. Samozřejmě pokud zruším On Error Resume Next.
Zkoušel jsem to na jiných PC a tam je to OK. Nevím, co mám kde doplnit?
Díky, převod funguje dobře. Ten příklad co jsem napsal se nějak rozhodil, ale pochopil jsi dobře. Jen ještě potřebuji, aby za textem, který je v buňce A1 nebyl žádný znak, ani ten, co odděluje buňky. A na konci souboru export.txt se vytvořili 3 prázdné řádky.
Potřeboval bych pomocí vba provést převod excelovské tabulky do čistě textové podoby .
sloupec A sloupec B => výsledek
====================================
text text
123.45 67.89 123.45,67.89
52.50 -35.8924 52.50,-35.8924
další řádky další řádky
prázdný řádek
Textový soubor musí vypadat, jak uvádím, tj.nesmí se vyskytovat jiné znaky jako třeba uvozovky. Výsledný soubor potřebuji načíst do AutoCaduLT jako demo.
Pokud provedu export dat pomocí uložit jako tak je vše OK, ale při opakování zaznamenaného makra je za textem v prvním řádku čárka.
Snad je to srozumitelné. V programování VBA začínám.
Děkuji za pomoc.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články