Kod z załączonego pliku ma błąd logiczny, bo po przejściu przez wybór zmienna pk_select_case ma wartość, która nigdzie dalej nie jest wykorzystana. P.S. Mój kod działa, ale jest bez sensu właśnie ze względu, który opisałem. Powinno być tak, jak napisałeś [syntax=vbscript]this.Cells(i, 9) = "SEC"[/syntax]
Na pewno błąd jest w wierszu: [syntax=vbscript]Progresywne = Progres + Progres[/syntax] Nie zachowujesz dotychczas obliczonych składników, tylko ostatni pomnożony przez 2. Powinno być: [syntax=vbscript]Progresywne = Progresywne + Progres[/syntax]Nie wykluczam, że mogą być też inne błędy, ale do dokładnej analizy potrzebny jest załącznik w pliku.
Słusznie (at)lanzul zauważył zamieszanie w przyporządkowaniu odniesień w Twoim kodzie :!: Proponuje dla realizacji Twojego celu wypróbowanie kodu typu :spoko: : [syntax=vbscript]Sub CommandButton1_Click() test = ActiveWorkbook.Name Sheets(1).Activate Sheets(1).Range("A3:A4").Copy Workbooks.Open Filename:="C:\Users\Krzysztof\Desktop\AC... Sheets(1).Activate...
Najłatwiej za pomocą kwerendy do arkusza Excel SELECT * FROM `F:\ATS\Ats 1.xlsx`.`Arkusz1$` `Arkusz1$` WHERE (`Arkusz1$`.DataZ <= Date()) AND (`Arkusz1$`.DataZ >= Date()-2) DataZ - jest naglowek kolumny(data) wg ktorej chcesz dane
Select txtcol, count(txtcol) from tabela group by txtcol Oops, zapomniałem, w Excelu ma być... a to jednak nie baza danych.
[syntax=vb]For i = 3 To 31 Select Case i Case 3 To 7, 12 To 27, 30, 31 '[dzialanie] End Select Next [/syntax]
Zmodyfikowany kod: [syntax=vbscript]Sub Grupy2() Dim ow As Long, x As Long, nr As Long, afterP As Boolean ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow If InStr(Cells(x, "A"), "/") > 0 Then ' czy jest "/" ? Select Case Cells(x, "E") Case "P2" nr = Split(Cells(x, "A"), "/")(1) ' pozycja w grupie Cells(x, "H") = IIf(nr = 1 Or afterP, "B",...
Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range If Not Application.Intersect(Rows(5), Range(Target.Address)) Is Nothing Then For Each Komorka In Target.Cells Select Case Komorka.Value Case "TAK": . . . End Select Next End If End Sub
Nowy kod był niedokładnie przepisany, zostały 2 linie ze starego kodu, które należało usunąć. Poza tym została zmieniona struktura logiczna kodu. [syntax=vbscript]Else If[/syntax]to nie jest to samo co [syntax=vbscript]ElseIf[/syntax] Poprawiłem pierwszy blok, tak jak pisałeś, dalej już nie sprawdzałem. Myślę, że to powtarzanie kodu w tej formie jest...
A nie lepiej zamiast trzech przycisków w każdym arkuszu byłoby zrobić jeden przycisk w arkuszu "lista" uruchamiający mechanizm pobierania danych ze wszystkich pozostałych arkuszy? Druga kwestia, że do takiej operacji to nawet nie trzeba makra, wystarczy MSQuery i następująca kwerenda: [syntax=sql]SELECT * FROM [1$] UNION ALL SELECT * FROM [2$] UNION...
Spróbuj odwoływać się do tabel w takiej postaci: W związku z tym, że każda baza to inna firma, a ja chciałbym zagregować te dane (połączyć) i razem je analizować. Jakbym połączył je i miał w jednej tabeli/widoku to mógłbym je sobie już dowolnie analizować. No nie tak dowolnie. Z pewnością są tam jakieś klucze obce. W widoku się to nie utrzyma, więc...
O wiele prościej i elastyczniej masz tu: [syntax=vb]Function Zlozonosc(Wartosc As Integer) As String Wartosc = Int(Wartosc) Select Case Wartosc Case 0 Zlozonosc = "niemożliwe" Case 1 To 2 Zlozonosc = "niska" Case 3 To 4 Zlozonosc = "średnia" Case 5 To 6 Zlozonosc = "wysoka" Case Else Zlozonosc = "brak" End Select End Function Function Zakres(Wartosc...
Wpisać w cudzysłowach te słowa. Function test(k, m) Select Case True Case k > 38 And m < 35 test = "slowo1" Case k > 38 And m > 34 test = "slowo2" Case k < 39 And m < 35 test = "slowo3" Case k < 39 And m > 34 test = "slowo4" End Select End Function
Podepnij sobie następujący kod pod przycisk i przetestuj [syntax=vb]Dim lLstRw& Dim sLiczba$ lLstRw = Cells(Rows.Count, 7).End(xlUp).Row Select Case lLstRw Case Is = 1 Cells(lLstRw, 7).Offset(1, 0).Value = Cells(2, 3).Value & "_xyz_1" Case Is = 2 Cells(lLstRw, 7).Offset(1, 0).Value = Cells(2, 3).Value & "_xyz_10" Case Is > 2 sLiczba = Mid(Cells(lLstRw,...
Musisz napisać instrukcję warunkową If...Then...Else, lub Select Case. Coś na wzór, jak w załączniku. Formatowanie warunkowe nie obejmuje tego typu obiektów...
Zdaje się, że kolega Aldrin wskazuje dobry kierunek. Zginiesz z tymi checkboxami :) Proponuję pętlę sprawdzającą stan ukrycia kolumn, przypisanie argumentów w bloku Select Case i właściwa pętla działająca na kolumnach. Przykład w załączniku.
[syntax=vbnet]Function WiekSlownie(Wiek As Integer) As String Select Case Wiek Case 1 w = "rok" Case 2 To 4 w = "lata" Case 5 To 21 w = "lat" Case Is > 21 j = Right(Wiek, 1) If j = 2 Or j = 3 Or j = 4 Then w = "lata" Else w = "lat" End If End Select WiekSlownie = w End Function [/syntax] P.S. To ma być po czesku?;)
Zaciągnięte kiedyś z sieci: [syntax=vb]Function PlikIstnieje(NazwaPliku As String) As Boolean lngResolveTimeout = 500 lngConnectTimeout = 500 lngSendTimeout = 500 lngReceiveTimeout = 500 strtesturl = "http://moj.pl/" & NazwaPliku Set objHttpRequest = CreateObject("MSXML2.ServerXMLHTTP") With objHttpRequest .SetTimeouts lngResolveTimeout, lngConnectTimeout,...
Moja propozycja - kod do umieszczenia w module arkusza: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 2 Or Target.Value = "" Then Exit Sub Select Case Target.Column Case 1 Call UtworzFolder(Target.Value) Case 2 If Target.Offset(0, -1).Value <> "" Then Call PrzeniesFolder(Target.Offset(0, -1).Value)...
Ile jeszcze będzie tych wariantów? Jeśli adresy list są różne, to najrozsądniej, jak myślę nadać im takie same nazwy i te nazwy wykorzystać do identyfikacji. Przykładowy kod: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wks As Worksheet, nazwa As String If Target.Count > 1 Then Exit Sub If Intersect(Target,...
No tutaj [syntax=vbnet] 'wprowadzenie dzisiejszej daty do komórki P2 Worksheets("licence").Cells(2, 16).Select ActiveCell.FormulaR1C1 = "=TODAY()"[/syntax] za pomocą metody select wybierasz komórkę w ukrytym arkuszu, ale żeby coś do komórki zapisać wcale nie musisz jej wybierać, wystarczy że napiszesz tak: [syntax=vbnet]Worksheets("licence").Cell...
Witam dla arkusza "Objednavka" [syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) ''Sheets("Objednavka") If Target.Address = "$J$4" Then idate = Date - DateValue(Me.Range("J4")) Select Case idate Case Is > 1 cmbStav.Visible = False: cmbObj.Visible = False: cmbDopr.Visible = False: cmbMenu.Visible = False Case 1 cmbStav.Visible = False:...
Można pokombinować z funkcją WYBIERZ a godzinę wstawiać kombinacją Ctrl+Shift+":" Prościej (wygodniej) jednak będzie wykorzystać VBA. Wklej w kod arkusza, wypróbuj i dostosuj do własnych potrzeb Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Target.Offset(0, 2) = Format(Time(),...
W przypadku dwóch nagłówków wystarczyłoby If-Else. Ale jeśli masz już prawie gotowe... Uzupełniłem tylko to i owo [syntax=vb]Function formatowanie(a As Single, naglowek As String) As String Select Case naglowek Case "Cena" formatowanie = Format(a, "####.00 zł") Case "Powierzchnia" formatowanie = Format(a, "#### m2") End Select End Function Sub Proba()...
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...
[syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range For Each Komorka In Target.Cells Select Case Komorka.Value Case "D49", "D48", "D30", "D31", "D32", "D33", "D20", "D21", "D22", "D26", "D27", "D28", "D29" Komorka.Interior.Color = vbBlue Case "PL" Komorka.Interior.Color = vbYellow Case Else Komorka.Interior.Pattern =...
Mimo, że w tytule napisane 'Excel 2010 64bit' to jednak wolę się upewnić, że jest to wersja 64-bit bo: In a default installation of Office 2010, the 32-bit version is installed, even on 64-bit systems . You must explicitly select the Office 2010 64-bit version installation option. http://msdn.microsoft.com/en-us/library/... Można to skontrolować...
Nie uruchamiam makr z nieznanych arkuszy na swoim kompie, a nie chce mi się wirtualnej maszyny tworzyć :) No to użyj COUNT i potem GROUP BY http://obrazki.elektroda.pl/8515402300_1... Dodano po 37 Oba te polecenia znam i wykorzystuję. Ilość dachów ,ilość błędów i suma punktów. (nie mogę tylko wyniku wkleić w textBoxa a było by ładniej :( )...
[syntax=vbscript]Public Function Slownie(L) As String Dim C As Currency, S As String, G As String, Liczba000 As String Dim i As Byte, Wynik As String, L1 As Byte, L10 As Byte, L100 As Byte If Not IsNumeric(L) Then Wynik = "???" ElseIf L > 999999999999# Then Wynik = "+++" ElseIf L < -999999999999# Then Wynik = "---" Else C = CCur(L) Wynik = Switch(C...
problem w tym ze wysyła mi cały arkusz Raczej cały skoroszyt... Skopiuj zakres do nowego pliku tymczasowego, zapisz, wyślij i usuń. P.S. Select Case nie ma tu zastosowania. Tym bardziej w taki (dziwny) sposób. Właściwiej byłoby [syntax=vb]If MsgBox("Czy napewno chcesz wysłać wiadomość?", vbYesNo + vbQuestion, "Wybierz opcje") = vbYes Then 'tu jesli...
"Nie tak" jest, niestety, prawie wszystko... Masz trzy if'y, przy takim sposobie zapisu każdy z nich musi się kończyć End If - a kończy się tylko jeden. Ewentualnie instrukcja musi być w tej samej linijce, co warunek If. Zamiast 3x If wygodniej będzie użyć instrukcji Select Case wartosc.... Parametr "test" też powinien mieć jakiś typ - jak sądzę Range....
... było pieknie, ładnie dopóki był "Maj", a teraz jesrt "Czerwiec" a mi sie log uzupełnia znowu na maj... Ale jest pięknie ... dość ładna pogoda przecież ... :) ... przynajmniej w Polsce Wschodnio-Środkowej-Północnej ... :) ... no i na Karaibach oczywiście ... : Form ' - i wtedy sprawdzanie byłoby podwójne: i po miesiącu wpisanym w arkuszu ' log '...
Przycisk w arkuszu? Umieść procedurę w module standardowym jakoś ją nazywając Np "Sub Kodzik". W kodzie przycisku wpisz tylko wywołanie Call Kodzik
https://obrazki.elektroda.pl/2807245700_... Witam, Temat odgrzany, i nie mojego autorstwa, ale warty przypomnienia. Potrzebowałem aby pewne urządzenie wystawiało mi do PCta kilka klawiszy klawiatury. Słyszałem już kiedyś o projekcie SWUSB pisanym w jedynym języku który choć trochę znam - Bascom. Zaprojektowałem jednostronną niewielką...
Witam, chyba raczej chodzi ci o excel'a - prawy przycisk myszki, select co cie interesuje (np.kolumne) i wybieramy Hide. Pozdrawiam
To wypróbuj najprostsze połączenie kodów :spoko: : [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Cells.Count > 1 Then Exit Sub If IsNumeric(Target) And Target.Address = "$A$5" Then Select Case Target.Value Case 1: Firma_1 Case 2: Firma_2 Case 3: Firma_3 Case 4: Firma_4 Case 5: Firma_5 Case 6: Firma_6 Case 7: Firma_7...
Użyj MSQuery i następującej kwerendy [syntax=sql]SELECT * FROM (SELECT * FROM [Sheet1$] UNION ALL SELECT * FROM [Sheet2$]) WHERE lp >0[/syntax]
Niestety moje tabele maja dane - jest to plik magazynowy używany do ewidencji stanów magazynowych. Moje tabele są zdefiniowane w Excel https://obrazki.elektroda.pl/8003288600_... Wszystkie tabele mają dokładnie ten sam układ (tzn te same nazwy oraz ilość kolumn) - różnią sie tylko danymi. Jest ich ok 100 w jednym pliku i tyle samo w...
Ja sprawdziłam na Excel 2010 i też jest dobrze. Może jednak w tej nieistotnej Twoim zdaniem części coś nie hula? Na marginesie - nie lepiej ten Select zastąpić Activate?
Cześć, mam problem.. mianowicie mam listę 80 comboboxów wg których użytkownik docelowo ma wybierać błędy, następnie za pomocą buttonów, obok ma wybrać zdjęcie ilustrujące dany problem. W poniższym kodzie z wykorzystaniem kształtów wyskakuje błąd, Nie widzi ścieżki zdjęcia : zdj = (wskazplik_metodaexcel) & i wg VB wynosi 1, gdzie faktycznie wartość...
ta struktura jest z mnostwem przecinkow ,gwiazdek I to jest prawidłowa struktura pliku kontaktów w formacie .csv. Musisz utworzyć plik dokładnie w takiej postaci a nie dowolną tabelkę Excela. Konwerter online (ale płatny) może to zrobić za ciebie. kolumnaA: telefon, kolumnaB: nazwa Pokazujesz która komórka jest nazwą, która numerem i gotowe. Follow...
Mam obszar o czterech kolumnach (A:D) i zmiennej ilości wierszy; w kolejnych iteracjach komórki wypełniane są nowymi danymi, więc liczba wierszy w kolumnach się zmienia. Każda z kolumn lub nawet dwie kolumny jednocześnie może w danej iteracji zawierać same puste komórki. Problem jest taki, że gdy korzystam z CurrentRegion a jedna lub więcej kolumn zawiera...
Zdaje się, że wystarczy[syntax=vb]Sub Makro1() ' ' Makro1 Makro Dim wks As Worksheet, shp As Shape, adres As String Set wks = Sheets("Arkusz1") Select Case Range("A4") Case 1: adres = "K6" Case 2: adres = "K7" Case 3: adres = "K8" 'itd End Select For Each shp In wks.Shapes If shp.TopLeftCell.Address(False, False) = adres Then shp.Copy Exit For End If...
Super, ułożenie poleceń w jednej linii zadziałało poprawnie. Rozwiązanie znacznie przyśpieszyło, przez zastąpienie select Dziękuję bardzo
Ja korzystam wtedy z ADO, tutaj taki uniwersalny fragment odwołania do samego siebie, można dostosować connection string do połączenia z jednym tylko plikiem. Wymagana referencja do biblioteki Microsoft ActiveX DataObjects 2.8 Library lub nowszej. [syntax=vb]Dim conn As ADODB.Connection, rst As ADODB.Recordset Set conn = New ADODB.Connection Select...
Może prosta funkcja w VBA? Function test(value As Double) Select Case value Case 1 test = 0.5 Case 2 test = 1 Case 3 test = 2 End Select End Function
WOW!! Super działa. pobieram dane :)) Już zacząłem się bawić w tworzenie zapytań i odrazu już powił się u mnie kłopot :/ zrobiłem proste zapytanie zapomoca funkcji select c.clientid,c.cname from clients c where c.cdisabled =1 formuła w excel wygląda tak ZŁĄCZ.TEKSTY("select ";"c.clientid,";"c.cname";" ";"from ";"clients c";" ";"where";" ";"c.cdisabled...
Posłuży mi on do zaimportowania danych do tabeli Oracle bez dubli To nie lepiej SELECT DISTINCT zrobić?
Coś takiego? [syntax=vb]sSQL = "SELECT * FROM odbiorcy WHERE [" & wyszukaj & "] = '" & wyszukaj_nazwa & "' " [/syntax]
Przepraszam że sie wetne ja bym zaproponował w sekcji Worksheet_Change Private Sub Worksheet_Change(ByVal Target As Range) kod_war = Target.Value Select Case kod_war Case "a": Target.Interior.ColorIndex = 6 Case "b": Target.Interior.ColorIndex = 4 Case "c": Target.Interior.ColorIndex = 45 Case "d":...
motorola select input select alias select
modem e3372 firmware odklejanie układu zmywarka siemens produkowana niemczech
chrysler grand voyager suszarki bosch
Nagrzewnica olejowa nie schładza się po wyłączeniu - przyczyny i rozwiązania Wymiana łożysk w pralce Electrolux EWF1487HDW
