Hej! Zobaczcie jak ja to robię, może komuś sie to przyda: 'Powiedzmy ze zmienna Liczba(single) wynosi 22.62555426 Temp = Int(liczba) ' dzieki temu poleceniu odcinam czesc setna czyli ' zmiennej Temp(byte) przypisuje liczbę 22 Liczba = Frac(liczba) ' dzieki temu poleceniu odcinam czesc ' dziesiętną czyli zmiennej Liczba(single) przypisuje ' liczbe 0.62555426...
Użyj funkcji VAL. var = VAL( s). s to string, a var to liczba.
PHP automatycznie dokonuje konwersji integer na string, jeśli tego wymaga operacja. Ostatecznie zawsze można zrobić konatencję z pustym ciągiem lub rzutować na string. Pierwsza strona na googlach przy zapytaniu "php rzutowanie": [url=http://wortal.php.pl/wortal/artykul... i rzutowanie...
toString public String toString()Returns a String object representing this Integer's value. The value is converted to signed decimal representation and returned as a string, exactly as if the integer value were given as an argument to the toString(int) method. Overrides: toString in class Object Returns: a string representation of the value of this...
W ramach ciekawostki - w VBA w Excelu [syntax=vbscript]Sub ZapiszLiczbyDoPliku() Dim SciezkaPliku As String Dim Numer As String Dim PlikTekst As Integer Dim k As Integer Dim i As Double SciezkaPliku = ThisWorkbook.Path & "\liczby.txt" PlikTekst = FreeFile Open SciezkaPliku For Output As #PlikTekst For i = 0 To 99999999 Numer = CStr(i) k = Len(Numer)...
Otwórz dokument w MS Word. Naciśnij Alt + F11, aby otworzyć edytor VBA. W edytorze kliknij Wstaw → Moduł. Skopiuj poniższy kod makra do edytora. Jak działa makro: Przeszukuje cały dokument znak po znaku. Kiedy napotka znak kończący zdanie (. ! ? lub -), sprawdza, czy za nim występuje spacja i mała litera. Jeśli tak, zamienia małą literę na wielką. Po...
Rozwiązań jest naprawdę sporo Zgadzam się z tym poglądem i choć autor postu chyba zasypał się w tych rejestrowanych makrach :-) to podsuwam nieco inne rozwiązanie tego zadania marek003 obawiam się uruchomienia takiego masowego wydruku na nieokreślonej drukarce (jednostronna czy dwustronna) i dlatego proponuję rozwiązanie z exportem wszystkich podzleceń...
"wynik:= prostokat.tworz(StrToInt(Edit1.Text),Str... Ta linia tworzy klasę 'prostokat' pobierając dane z pól edycyjnych Edit1 i Edit2, zamieniając je z string na integer i zapisuje wskaźnik do utworzonej klasy w zmiennej 'wynik'.
Witam wszystkich! Po wypróbowaniu kilku metod identyfikacji de DpID podczas wgrywania OpenBeken dla dwóch urządzeń (a https://obrazki.elektroda.pl/4552696800_... https://obrazki.elektroda.pl/9853411400_... https://obrazki.elektroda.pl/3555232600_... https://obrazki.elektroda.pl/5355742400_...
' Funkcja musi być zadeklarowana przed jej pierwszym użyciem ' ponieważ kompilator musi wiedzieć jaki jest rozmiar danych ' przesyłanych do funkcji i jaki jest jej typ wyniku ' Funkcja musi mieć zdefiniowany typ wyniku, tu Integer Declare Function Test(byval Liczba As Integer , Tekst As String) As Integer ' określenie byval przed nazwą oznacza,...
Blokowanie uzyskasz poprzez założenie hasła. Numerowanie komentarzy poniżej. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim a As String If Not Application.Intersect(Range("A1:C10"), Range(Target.Address)) Is Nothing Then i = Environ("USERNAME") & " <" & Now & ">" & vbNewLine & Target & vbNewLine...
Prostym makrem można tak (wklej w kod arkusza i uruchom; zapisze w kol.A) [syntax=vbscript]Sub numerowanie() Dim w As Integer, test As String Dim licznik1 As Integer, licznik2 As Integer, licznik3 As Integer w = 3 Do While Cells(w, 5) <> "" If Cells(w, 4) = "__Element" Then licznik1 = licznik1 + 1 licznik2 = 0 licznik3 = 0 ElseIf Cells(w, 4) =...
Instrukcje blokowe takie jak With..End With , For..Next , If..End If , Select Case..End Select nie mogą się przeplatać. Każdy blok musi być w całości zawarty wewnątrz innego bloku. Aby łatwiej orientować się w strukturze takiego kodu zaleca się stosowanie wcięć – wtedy łatwiej zorientować się, gdzie kończy się który blok. Ponadto po Next zaleca się...
Najprościej tak:) [syntax=vbscript]Dim stDocName As String Dim strStan As AcView Dim intStan As Integer intStan = MsgBox("Czy wydrukować umowę bez podglądu?", vbQuestion + vbYesNo, "Drukowanie umowy") If intStan = 6 Then strStan = acViewNormal Else strStan = acPreview End If stDocName = "Pożyczka_WNIOSEK" DoCmd.OpenReport stDocName, strStan, , "noew=forms![kwestionariusz...
[syntax=vbscript] Public Sub pobierz() Dim lang As String Dim URLStr As String, DLPath As String, UName As String, PWD As String, DontOverWrite As Boolean Dim zakres As Range Dim Lastrow As Integer Lastrow = ActiveSheet.Range("A1").CurrentRegion.Ro... Set zakres = Range("A2:A" & Lastrow) kat = Dir(Environ("USERPROFILE") & "\Downloads\karty\", vbDirectory)...
W buforze wszystkie dane z RSa są z enterem i końcem linii. może nie być początku informacji ale zakończenie zawsze jest Tę kwestię możesz pominąć jest marginalna i nie powinna mieć kluczowego znaczenia dla poprawności odczytu danych jeśli 13 nie wystąpi to po 4096 zerowanie: Dim znak As Integer Dim ciąg As String Dim licznik As Integer licznik = 0...
Witaj [syntax=vb] Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") strNazwa = "projekt" ' tutaj ustawiamy jak ma wyglądać początek nazwy arkusza intName = 0 For Each Sh In ActiveWorkbook.Worksheets shName = Sh.Name If Left(shName, Len(strNazwa))...
Poprawiłem błąd... [syntax=vb]Sub ImportujPlikizWieluLokalizacji() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, x As Integer, y As Integer, NowyWiersz As Long Dim NazwaPliku As String, Zeszyt As String, i As Integer Dim ArkuszWejsciowy As String, ObszarWejsciowy As String, KolumnaGdzieWkleic As String ArkuszWejsciowy = Sheets("Parametry").Range("B1")...
Spróbuj podstawić "kryteria" jako String w cudzysłowach [syntax=vbscript]Sub ZliczNazwiska() Dim OstA As String Dim OstB As String Dim i As Integer Dim Zakres As Range Dim Kryteria As String OstA = Cells(Rows.Count, "A").End(xlUp).Row OstK = Cells(Rows.Count, "K").End(xlUp).Row For i = 2 To OstK Set Zakres = Range("K2:K" & i) Kryteria = """" & Range("K"...
czy da się prawidłowe numery kart wyciągnąć w excelu bez PQ? Podobny problem :cry: , ba chyba nawet gorszy bo z 26 cyfrowymi numerami kont :D rozwiązuje sobie przy imporcie do excela poprzez proste makro :spoko: [syntax=vbscript]Dim intResult As Integer Dim strPathFile As String Application.FileDialog(msoFileDialogOpen... = False intResult...
Kod czego ... pętli ... tablicy ? Pętli przecież masz, a tablica niekoniecznie potrzebna, można np. tak (o ile problem poprawnie opisany): [syntax=vbscript]Option Explicit Private Sub CommandButton2_Click() Const pth = "P:\RAPORT\" Const fle = "Plan wk" Const sht = "Main sheet" Const fsht = "R" Dim x As Integer, week As Integer Dim dzientygodnia As...
Proszę: [syntax=vbscript] Sub Przycisk2_Click() Dim f As Integer Dim g As String f = InputBox("Wprowadź numer (Lp):", "Wprowadź numer zlecenia:") g = InputBox("Wprowadź UWAGI:", "Wprowadź UWAGI:") Range("E" & WorksheetFunction.Match(f, Range("A:A"), 0)).Value = g End Sub [/syntax]
To spróbuj takie makro - wynik wpisywany jest do kolumny D [syntax=vbscript]Public Sub SprawdzFoldery() Dim Sciezka As String Dim i As Long Dim k As Integer Dim OstW As Long Dim NFolder As String Dim NPodFolder As String Sciezka = "C:\StaryFolder\" ' tu wpisz adres starego folderu OstW = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To OstW NFolder...
Może coś takiego: [syntax=vb] Sub ukryjWiersze() Dim i As Integer Dim selRange As String For i = 60 To 70 selRange = "A" & i If range(selRange).Value = 0 Then range(selRange).Select Selection.EntireRow.Hidden = True End If Next i End Sub [/syntax]
Spróbuj rozdzielić parametr userChoice :D Zmniejszysz ilość cases i obsłużysz wszystkie offsety :spoko: [syntax=vbscript]Dim userChoice As String Dim Choice As String Dim k As Integer userChoice = InputBox("Please type PRODUCT name.") Choice = Mid(userChoice, 1, 1) k = CInt(Mid(userChoice, 2)) - 1 Select Case Choice ... Case "Z" Sheets("CAT. Z").Range("F3:F154").Offset(0,...
Fajne te Twoje pytania. ;) Ile sam sie przy nich uczę. ;) Znalazłem rozwiązanie na Twoje pytanie, daj mi 10 min to poskładam to czytanie i wrzucę tu. ;) [syntax=vb] Private Sub txtNazwisko_Change() Call AktualizujListe(txtNazwisko.Text, 0) End Sub Private Sub txtZnaczek_Change() Call AktualizujListe(txtZnaczek.Text, 2) End Sub Private Sub AktualizujListe(ByRef...
Mała poprawka. [syntax=vbscript]Sub Wysyłaniemailipetla() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Dim Sciezka As String Dim Adresat As String Dim licznik As Integer Dim kolejka As Integer kolejka = 1 For licznik = 2 To Range("W1") + kolejka Adresat = Sheets("Dostawy").Cells(licznik,...
Czemu muszę zrobić SET na wart? Bo to zmienna obiektowa. Podobnie jak inne zmienne typu Excel.ObjectName, Np Worksheet, Workbook, etc Możesz oczywiście podstawić String, Np[syntax=vbscript]Dim strRn As String strRn = "B1:B2" 'przypisanie MsgBox Range(strRn).Address 'test[/syntax] 2. Niepoprawnie deklarujesz: "Dim ok, ostk As Integer" Tylko "ostk" jest...
Moja mowa będzie krótka ... Dim Zm As String * 10 , X As Integer X = 2000 'dec X=2000 , hex X=7D0 Zm = Str(x) ' Zm="2000" X = Hexval(zm) 'dec X=8192 hex X=2000 Czy o to Ci chodzi :?: Piotrek PS Ale uważaj , bo dla dec X>7999 wyjdą cuda :D
Wczytuje dane ze wszystkich plików tekstowych znajdujących się w tym samym katalogu, co plik Excela: [syntax=vb] Sub ddd() Dim wiersz As Integer Dim wielkosc As Integer Dim lInputFile As Variant Dim linia As String Dim i As Integer Dim tekst As Variant Dim opis As String wiersz = 1 Dim plik_txt As String plik_txt = Dir(ActiveWorkbook.Path & "\*.txt")...
Problem jest banalny: [syntax=vbnet]Public Class Form1 Dim liczba As Integer Dim aStr As String = String.Empty Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click liczba = Convert.ToInt32(TextBox1.Text) + Convert.ToInt32(TextBox2.Text) aStr = System.Convert.ToString(liczba) TextBox3.Text = aStr...
A może tak: Dim Temp As Integer Dim Disp As String * 5 Temp = 366 'odczytana wartość temperatury Disp = Str(Temp) Disp = Format(Disp , " 0.0") Locate 1 , 1 Lcd Disp Pozdrawiam...
:arrow: adamas_nt :) Ok. Dzięki za nakierowanie. Niemniej tam jest "odwrotna" adresacja komórki i w dodatku od zera :) W takim wypadku będzie tak: Sub Main Dim ciag As String Dim x As Integer Dim y As Integer dim ark As Object ark = Thiscomponent.Sheets.GetByName("... 'x = 0 y = 0 ciag = "" Do Until (ark.GetcellByPosition(0,x)....
Tak jak sivex napisał,zadeklarowałeś A jako integer. Nie pamiętam jak jest w języku basic (odległe czasy), ale w Qbasic są takie deklaracje: INTEGER A 16-bit signed integer variable. LONG A 32-bit signed integer variable. SINGLE A single-precision 32-bit floating-point variable. DOUBLE A double-precision 64-bit floating-point variable. STRING * n% A...
Może i da się to zrobić formułą, ale ja bym to zrobił takim makro: Const Acc = "abcdefghijklmnopqrstuvwxyzABCDEFGH... W tej linijce są zdefiniowane wszystkie znaki, które są dopuszczalne. Możesz sobie dopisać jakiekolwiek inne. Jeśli znaku nie ma na tej liście, to będzie on ignorowany, czyli w tym przypadku jedynie...
Wydaje mi się, że bardziej chodzi o wybieranie wielu w oknie 'GetOpen'. Nie wnikając w "panel" i "remonty" powinno być coś takiego: [syntax=vbscript]Sub Wczytywaniedancyh() Dim otwieranie As String Dim tb() As Variant, test As Boolean, i As Integer Dim plik As String Dim kopiowanie As String Workbooks("Panel").Activate otwieranie = MsgBox("Wybierz plik",...
Jeżeli wszystkie tabele masz w tych 100 arkuszach i masz je numerowane po kolei to wystarczy dodać nad tym formatowaniem pętle z dodaniem zmiennej dla nazwy tabeli: [syntax=vbscript] Dim NazwaTabeli as String Dim NumerTabeli as Integer For NumerTabeli = 2 to 100 ' Czy inny zakres jaki Ci potrzebny NazwaTabeli = "Tabela" & NumerTabeli '... Tutaj Twoje...
Witam [syntax=vb] Sub podzial_pliku() Dim kol As String Dim wiersz As Integer Dim nazwa As String Dim ark As Worksheet kol = InputBox("Podaj litere kolumny na podstawie ktorej nastapi podzial plikow", "Pytanie") wiersz = InputBox("Podaj numer wiersza od ktorego zacznie sie podzial plikow", "Pytanie") Range(kol & wiersz).Select Set ark = ActiveSheet...
vcarter - w pierwszym poście przedstawiłeś kod, w którym wystarczy tylko zmienić wklejanie całej zawartości pliku na odczyt wiersz po wierszu i umieścić wszystko w pętli. VBA posiada wbudowane funkcje. które radzą sobie z własnymi oraz niektórymi obiektami systemowymi, w przeciwieństwie do Np Basica w Open Office, gdzie niemal wszystkie obiekty wymagają...
Proszę bardzo: [syntax=vbscript] Sub test() Dim i As Integer Dim row As Integer Dim col As Integer Dim tablica(3) As String tablica(0) = "Alpha" tablica(1) = "Beta" tablica(2) = "Charlie" For i = 0 To 2 wyjatek = tablica(i) For col = 2 To 7 For row = 5 To 40 If Cells(row, col).Value = wyjatek Then Cells(row, col).Interior.Color = vbRed End If Next row...
Niestety nie zobaczę twojego pliku (pobieranie zabronione), ale mam dla ciebie materiał do przemyśleń: [syntax=vbscript] Private Sub testEl() Dim y As Long, i As Integer, V As Integer, v1 As Integer Dim Tb() As String y = 2 Do While (Cells(y, 1) <> "") Tb = Split(Cells(y, 1), " ") V = 0 For i = LBound(Tb) To UBound(Tb) Step 2 Select Case Tb(i...
Można to osiągnąć np. taką kombinacją komend (do wywołania okna dialogowego potrzebujesz załączyć referencję do Microsoft Office 11 Object Library - w edytorze VBA tools->refrences) 'funkcja pobiera katalog z pełnej ścieżki Function GetDirName(ScanString As String) As String Dim intPos As Integer Dim intPosSave As Integer intPos = 1 Do intPos...
aby pozbyć się tego co po przecinku użyf funkcji INT czyli: Dim A As Double Dim B As String * 2, B1 As String * 2, B2 As String * 2 Dim C As Integer, D As Integer A = 23.6443 C = INT(A) ' funkcja INT pobiera część całkowitą z liczby czyli w tym przypadku 23 następnie zamień otrzymaną liczbę na string B = Str(C) ' funkcja STR zamienia...
Ja bym to zrobił tak: https://obrazki.elektroda.pl/4224112900_... Prosta funkcja, która wyszuka najdłuższego możliwego dopasowania. Jeśli da się dopasować kilka dopasowań tej samej długości, zwracane jest oczywiście tylko jedno z nich (pierwsze znalezione).
(at)grala1Ten Twój kod jest trochę za prosty i z czasem zgubi synchro niemniej jak wrzucisz ten poprawiony na symulator, albo nawet uruchomisz na żywca z tym co Tobie tam nadaje to na chwile powinien podziałać ;) Lepiej byś odbierał znaki w przerwaniu do bufora. Procesor na nic by nie czekał i miał czas na inne sprawy. Do tego synchro, jakis timeout...
Hmmm, w takim razie proszę: http://support.microsoft.com/kb/q166008/ Działa na 100% Wystarczy zaadaptować do swoich potrzeb. A poniżej nieco inny wariant:[syntax=vb] Sub Drukarki() Dim WshNetwork As Object Dim oPrinters As Variant Dim strPrinterList As String Dim i As Integer Set WshNetwork = CreateObject("WScript.Network") Set oPrinters = WshNetwork.EnumPrinterConnections...
Tak jak adamas_nt pisał pewnie podajesz w b2 bez "\" (więc dir nie sprawdzi katalog i plik pusty) [syntax=vbscript] Sub Krok1_Tworzenie_bazy() 'Import danych tekstowych i stworzenie bazy Dim Katalog As String 'wskazany przez użytkownika katalog, w którym znajdują się pliki tekstowe Dim Plik As String 'nazwa wczytywanego pliku tekstowego Dim Sciezka...
... Może ktoś wie jak to zrobić bez sztucznego sprawdzania i dopisywania końcówek. PL Ja chyba wiem ;) 'dla Frm = 0 , kompiluje Fusing() 'dla Frm = 1 , kompiluje Format() 'teraz mozna porównać "pamięciożerność" Const Frm = 0 Dim A As Single , B As Integer , C As String * 10 A = 1.1625 B = A * 10 #if Frm C = Str(b)...
Jako jeden z tych dwóch pozostałych na świecie programistów Delphi, dorzucę swoje dwa grosze. Błąd jaki otrzymałeś mówi dość wyraźnie: ta funkcja 'tu wstaw nazwę funkcji' nie może być wywołana z tymi parametrami. [syntax=delphi]wynik:=inttostr( (strtoint(edit1.text) - strtoint(edit3.text)) / strtoint(edit2.text) );[/syntax] W tym przypadku, próbujesz...
Podejrzewam, że może to być spowodowane niezbyt uporządkowanymi danymi. Zakomentuj na razie MsgBox. Przeleciałeś wszystkie 27 komórek pierwszego wiersza bez błędu? Jeżeli tak, gdy się kod zatrzyma, sprawdź wartość zmiennej RowCounter, będziesz wiedział, z którego wiersza dane powodują błąd. Może taki uchwyt błędu: [syntax=vbscript]Sub ExportToSQL()...
integer string zmienna integer integer eeprom
drgania mostu przeróbka xbox360 instalacja domowa elektryczna styczniki
lodowkie samsunga powerbank samochodowy
Termet EcoCONDENS Silver – opór czujnika temperatury zasobnika NTC 10kΩ Sony STR-DE497 – słabo świecący wyświetlacz VFD, naprawa i wymiana kondensatorów
