Új hozzászólás Aktív témák

• Postas99 őstag

  #3187

  #3186 F1DO

  2024-01-30 14:08:49

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3186 F1DO

  #3186 F1DO

  Beletettem ezt, de nem jelenik meg semmi, csak a várakozási idő

  Set InfoShape = ws.Shapes.AddTextbox(Orientation:=1, Left:=100, Top:=100, Width:=200, Height:=50)
  InfoShape.TextFrame.Characters.Text = "A keresett érték (" & SearchValue & ") megtalálva."
  
  ' Várakozás 2 másodpercig
  Application.Wait (Now + TimeValue("0:00:02"))
  
  ' Alakzat törlése
  InfoShape.Delete

  A megoldás amit kerestél:

  Sub MessageBoxTimer()
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
'Set the message box to close after 10 seconds
AckTime = 10
Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
AckTime, "This is your Message Box", 0)
Case 1, -1
Exit Sub
End Select
End Sub

• Postas99 őstag

  #3183

  #3182 Postas99

  2023-01-16 15:52:33

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3182 Postas99

  #3182 Postas99

  Szia!

  Csak egy combobox vagy FORM-on levő combobox?

  A gond azzal van, hogy nem az excel megnyitásra teszed be a combobox populate opciót, hanem a combobox.change opcióra.
  Használd ezt:
  
  Sub Workbook_Open()
'ide tedd a kododat
Dim i As Long
        If Not Comb_Arrow Then
        With Me.ComboBox1
            .List = Worksheets("szerepkorok").Range("AL4", Worksheets("szerepkorok").Cells(Rows.Count, "AL").End(xlUp)).Value
            .ListRows = Application.WorksheetFunction.Min(6, .ListCount)
            .DropDown
               If Len(.Text) Then
                    For i = .ListCount - 1 To 0 Step -1
                       If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
                         Next
                          .DropDown
                           End If
         End With
         End If

End Sub

• Postas99 őstag

  #3182

  #3181 Sátán44

  2023-01-16 15:35:50

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3181 Sátán44

  #3181 Sátán44

  Van egy excel táblázatom, amiben elhelyeztem egy Combox-ot. Amikor lenyitom a legördülő menüt üres a táblázat egészen addig, amíg egy karaktert nem írok be. Utána működik a találati lista szűrése.
  Szeretném, ha a táblázat megnyitást követően a legördülő gombra kattintva látható legyen az AL oszlopban feltöltött szöveg listám, majd ezután gépelve szűkítse a találatokat. Ez hogy oldható meg?

  Kód:
  
  Option Explicit
Private Comb_Arrow As Boolean

Private Sub ComboBox1_Change()
Dim i As Long
        If Not Comb_Arrow Then
        With Me.ComboBox1
            .List = Worksheets("szerepkorok").Range("AL4", Worksheets("szerepkorok").Cells(Rows.Count, "AL").End(xlUp)).Value
            .ListRows = Application.WorksheetFunction.Min(6, .ListCount)
            .DropDown
               If Len(.Text) Then
                    For i = .ListCount - 1 To 0 Step -1
                       If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
                         Next
                          .DropDown
                           End If
         End With
         End If
 End Sub
 
 Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Comb_Arrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown)
    If KeyCode = vbKeyReturn Then Me.ComboBox1.List = Worksheets("szerepkorok").Range _
    ("AL4", Worksheets("szerepkorok").Cells(Rows.Count, "AL").End(xlUp)).Value
End Sub

  Szia!

  Csak egy combobox vagy FORM-on levő combobox?

• Postas99 őstag

  #3150 2020-11-18 19:00:12

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  Matek guru vagy XOR guru segítsége kéne.

  Adott a következő proléma:
  X= Y XOR (Y>>1)
  X értékét tudom.
  Van-e erre nem BRUTE FORCE megoldás valamilyen bit eltolásos módszerben.
  Igazán azért lenne fontos mert ezt a műveletet egymásra épülően kell elvégezni. A kiszámolt Y érték a következő X értéke.
  Előre is köszönöm.

• Postas99 őstag

  #3145

  #3144 Bazs87

  2020-06-20 23:24:18

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3144 Bazs87

  #3144 Bazs87

  Sziasztok!

  Talán él még valaki, aki a témával foglalkozik

  A következő problémában szeretném az esetleges segítségeteket kérni:

  Mintát szeretnék kérni egy 4*4-es mátrix invertálásához.
  Valaki csinált már esetleg hasonlót?

  a mátrix elemeket akarod felcserélni ? 1-16 csere 1->16->1 erre gondolsz? Jól értem?

• Postas99 őstag

  #3139

  #3138 Mr. Y

  2020-05-20 19:52:08

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3138 Mr. Y

  #3138 Mr. Y

  Most lefordul és visszajött az eredeti probléma, ami az egyes gépen nem állt fent.

  

  Válasszuk ketté:

  1, Megszámolod a COM portokat.
  2, hozzádadod a combobox elemeihez.

   For Each sp As String In My.Computer.Ports.SerialPortNames
            ComboBox1.Items.Add(sp)
        Next
        ComboBox1.Sorted = True

  _________________________________________
  HA van COM PORT (COM1,COM2,COM3)
  akkor kiválasztod az alapértelmezettnek a legelsőnek megtalált értéket, természetesen ha az kell akkor a sorted-et ki lehet venni, ha sorba akarod rendezni akkor ezzel szebb lesz az eredmény.

   If ComboBox1.TabIndex <> 0 Then
            ComboBox1.SelectedIndex = 0
        End If
  Mi lenne ha ezt használnád?

• Postas99 őstag

  #3137

  #3135 Mr. Y

  2020-05-20 16:03:49

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3135 Mr. Y

  #3135 Mr. Y

  Független kérdés:

  Van módja annak, hogy egy szöveget ne ASCII formátumban jelenítsen meg, hanem HEX vagy BIN-ben?
  Vagy ezt a fordítót nekem kell megírnom?

  2 textbox kell pl.

  majd ennyit tegyél hozzá (dupla katt a texbox1-re majd kód beillesztés:
  TextBox2.Text = ""
        For Each c As Char In TextBox1.Text
            TextBox2.Text &= Convert.ToString(Convert.ToInt32(c), 16)
        Next

• Postas99 őstag

  #3133

  #3132 Mr. Y

  2020-05-19 20:26:06

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3132 Mr. Y

  #3132 Mr. Y

  Szintén ugyan az. Fordításnál Error

  Ezeket próbáltad már?

  [link] [link]
  Valójában mindkettő azt mondja, zárd be a VS-t majd töröld a .vs könyvtárat és a .suo fájlt madj indítsd el a VS-t és próbáld újra

• Postas99 őstag

  #3131

  #3129 bsh

  2020-05-19 20:15:20

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3129 bsh

  #3129 bsh

  A VBA mint írtad az office közös makró nyelve
  hol írtam én ilyet?
  combobox feltöltése sql adatokkal az megy, köszi.
  multicolumn combobox-hoz építő jellegű hozzászólás?
  vagy ha az nem megoldható, akkor mi legyen helyette?

  Mi lenne a cél?

  Miért nem használsz inkább DGV-t?
  Vagy az lenne a fontos hogy a comboboxba feltöltött elemeket ki tudd választani?
  Mert ha túl nagy a populate érték ez a combobox dolog elfajulhat és qrva szar onnan bármilyen adatot könnyen kiválasztani.
  Ehhez képest a datagridview ugyanúgy feltölthető ha sok az elem benne akkor még scrollozható is és onnan is ki lehet szedni current cell value-t.

  Szóval mi lenne a cél?

• Postas99 őstag

  #3130

  #3129 bsh

  2020-05-19 19:43:19

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3129 bsh

  #3129 bsh

  A VBA mint írtad az office közös makró nyelve
  hol írtam én ilyet?
  combobox feltöltése sql adatokkal az megy, köszi.
  multicolumn combobox-hoz építő jellegű hozzászólás?
  vagy ha az nem megoldható, akkor mi legyen helyette?

  VBA-t írtál. VBA!=VB.NET
  Idézlek ha nem gond: "De lenne egy VBA-ban írt form és kód hozzá, ami egy adatbázisos mókát képez."

  [Gugliztam helyetted] gondolom erre lenne szükséged

• Postas99 őstag

  #3128

  #3126 Mr. Y

  2020-05-19 19:18:33

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3126 Mr. Y

  #3126 Mr. Y

  Szerintem igen (egyszerre sosincs itt a két gép). Mindkettő 64Bites, így azt gyanítom, hogy azonosak a beállítások is. A debug meg a futtatás, csak más környezetből jöttem

   For Each sp As String In My.Computer.Ports.SerialPortNames
            ComboBox1.Items.Add(sp)
        Next

• Postas99 őstag

  #3127

  #3123 bsh

  2020-05-19 19:10:47

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3123 bsh

  #3123 bsh

  nem excelről van szó, honnan veszitek ezt? köze nincs hozzá. miért gondol mindenki excel-re ha VBA merül fel? egy mysql adatbázis turkáló program ez. (és az a része működik is. bár az se volt egyszerű...) egyetlen függőség egy mysql odbc connector driver ado-n keresztül, de lehet anélkül is meg lehetne oldani a kapcsolatot.
  igazából nem nagyon tudom, mi a vb.NET. nem nagyon akarnék .net függőségeket.
  nem akarom winforms-ba átrakni, hanem a visual studió ilyen userformot hoz létre miután létrehoztam egy VB projektet, és csak winforms elemek vannak. comboboxra nem is találok multicolumn-ról semmit, egyáltalán, tulajdonságainál sincs. a winforms-os CB az ennyire más?
  sokszáz szintaktikai eltérés és hiba volt, ezeket végigjavítottam vagy kikommenteltem, most lefordíja hiba nélkül a programot és megjelenik a form és látom, hogy az sql lekérdezések is mennek rendben. most igazából csak a triviális dolgokkal van egyelőre gond: a különböző comboboxok feltöltése (statikus) szövegekkel, eredmények megjelenítése (na az szép lesz, vba listbox helyett listview vagy datagrid lesz...)

  akkor úgy kérdezem: hogy fogjak hozzá egy ilyen VBA->standalone exe művelethez? a net szerint a visual studio a módja. azt se ismerem.

  A VBA mint írtad az office közös makró nyelve aminek nincs köze a VB.NET-hez.

  [Informálódj]

• Postas99 őstag

  #3125

  #3118 Mr. Y

  2020-05-19 18:53:12

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3118 Mr. Y

  #3118 Mr. Y

  Eddig futtatásnál volt a probléma.
  Most, hogy használtam a feltételt, már meg sem jelöli a gondot, fordításnál dobja ezt ki:

  

  Ugyan ez, ha az egészet belerakom

  Mindkért fordítás ugyanúgy van beállítva?
  ANYCPU vagy X86, X64?
  Itt lesz a kutya elásva, mi van a debug résszel?

• Postas99 őstag

  #3114

  #3113 Mr. Y

  2020-05-18 06:12:46

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #3113 Mr. Y

  #3113 Mr. Y

  Sziasztok!

  Remélem nem halt ki a topik fél év inaktivitás után, így próbálkozom.
  Adott egy program, amit megírtam a céges laptopon (MS VisualStudio alatt). Ez egy Soros kommunikációs diagnosztikai program, ami hibátlan volt.
  Áthoztam az itthoni gépre és folyamatossan hibára fut, valamiért nem képes beolvasni a COM portokat.
  Van erre valakinek valami ötlete, hogy miért nem működik az itthoni gépen?

  Előre is köszönöm

  

  Fordításnlál azt dobja ki, hogy a Selected.Index = 0 értéke nem valós. De semmi sem az szerinte

  Nem akarlak h.lyenek nézni van sorosport a gépeden? Csak mert ha az index nullát ad vissza az is egy érték ellenben ha n tudja kérdezni az lehet a probléma.
  Mi a catch lekezelése?

  Ugyazon vs verzióról van szó?
  A .net szintén azonos a két gépen? Os verzió?

• Postas99 őstag

  #3060 2018-09-28 20:47:43

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  Sziasztok!

  Lenne egy érdekes problémám:

  Using rdr As New System.IO.StreamReader(openFileDialog1.FileName.ToString())


Do While rdr.Peek() >= 0
InputLine = rdr.ReadLine
InputLine = InputLine.Replace("',", Chr(9))
InputLine = InputLine.Replace("'", "")
InputLine = InputLine.Replace(";", Chr(9))
oRow = oRow + 1
szazalek = oRow

System.Windows.Forms.Clipboard.SetDataObject(InputLine, True)

Try
oBook.Worksheets(1).Range("A" + oRow.ToString).Select()
Catch ex As Exception
End Try

Try
oBook.Worksheets(1).Paste()
Catch ex As Exception
End Try

ProgressBar1.Value = szazalek
Loop
rdr.Close()
End Using

  Ami semmi mást nem csinálna ha nem hibázna, hogy beolvas .CSV fájlokat.
  Ez idáig tiszta, de a fájlok más más felépítésűek ezért egy kódban kellene megoldanom a feldolgozást..

  1, CSV
  'Label S.r.l.',
  'Via Don Mazzucotelli, 6/A',
  '24020 Gorle (BG) Italia',
  'Tel. +39-035-302.812 Fax +39-035-302.815',
  '',
  'Dátum: ','06/08/2018 08:24','FOGYASZTÁS RECEPTENKÉNT','Oldal: ','1 - 5',
  '',
  'Dátum: ','2018.08.01. - 2018.08.01.','Recept:',' - ',
  'Kifejezés értékben: ','Nem','Azonosító:',' - ',
  'Tűrés: ','Letiltva','Eszköz:',' - ',
  '',
  'Recept: ','FOGAD4','Leírás: ','',
  '',

  2, CSV
  'Label S.r.l.';
  'Via Don Mazzucotelli, 6/A';
  '24020 Gorle (BG) Italy';
  'Phone +39-035-302.812 Fax +39-035-302.815';
  '';
  'Date: ';'02/08/2018 12:40';'USAGES by RECIPE';'Page: ';'1 - 6';
  '';
  'Date: ';'01/08/18 - 01/08/18';'Scale:';' - ';
  'Valuation: ';'No';'Operator:';' - ';
  'Tolerance: ';'No';'Customer:';' - ';
  'Recipe:';' - ';
  '';

  A kód kiszedi soroknént és értékenként az aposztróf ' jeleket ha vessző követi ','
  SCV2 esetében viszont a ';' értéket kell feldolgozni.
  Az értékek a sztringbe visszairódnak, majd ezek excel meghívásával cellánként bemásolásra kerülnek a csv fájl teljes feldolgozásáig.

  A HIBA
  hogy excelbe való másoláskor, néha téveszt és RANDOM üres sorokat is berak. Oszlopokat nem téveszt.
  Ezt szeretném kiküszöbölni.
  Elakadtam, hogy hol rontottam el a feldolgozást.

  Esetleg valaki tudna segítséget adni?

  Köszönöm

• Postas99 őstag

  #2467 2014-06-19 16:09:35

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  Ment privi.

• Postas99 őstag

  #2466

  #2465 sztanozs

  2014-06-19 15:57:27

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  #2465 sztanozs

  #2465 sztanozs

  Ez csak akkor működik, ha nem ajax kéréssel megy fel a szerverre:
  WebBrowser1.ReadyState <> WebBrowserReadyState.Complete

  Ha ajax (és nincs page redirect - pl login miatt), akkor hasznosabb volna az xmlhttprequest-et használni.

  Amúgy a fenti miért járhatatlan út?

  For x = 1 To többezer
  '... html input kitöltés
  '... html submit
  While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
  Application.DoEvents()
  End While 'Loop
  Next

  Eddig pont igy írtam meg.
  Csak tippelem, hogy nem működik megfelelően. Mert 1000 lefutást produkálva viszonylag hamar lefut (max 1 perc corei5 8giga ram gigabites háló)

• Postas99 őstag

  #2464 2014-06-19 14:48:48

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Postas99

  őstag

  Sziasztok!

  Kicsit elakadtam egy projektben.
  A program egyszerű lenne mint a faék, viszont a tippem az, hogy a többszöri utánolvasásra sem úgy működik amint kéne.

  Adva van egy webbrowser box amiben egy adott oldalt nyitnék meg.

  Majd a megnyitott WEB oldalon kellene az adott input boxokba adatokat préselni. a végén SUBMIT.
  Viszont tudnom kéne, hogy a submit után az adott WEB oldal újratöltődött és küldhetem a következő csomagot.

  Eddig ilyet találtam a vizsgálatra, de mivel az egész ciklust szeretném néhány ezerszer lefuttatni ezért ez járhatatlan út.

  While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
  Application.DoEvents()
  ' MsgBox("busy")
  End While 'Loop

  Valakinek ötlete?
  Akár megshare-elném a programot is, csak működjön szépen, azaz tegye a dolgát.

Új hozzászólás Aktív témák