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

• martonx veterán

  #1950

  #1948 EkSYS

  2013-01-28 21:30:51

  Ú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

  

  martonx

  veterán

  #1948 EkSYS

  #1948 EkSYS

  Köszönöm . Vb.netben meg nem próbáltam.

  Pedig a VB6-ot igazán időszerű lenne végre elfelejteni.

• sztanozs veterán

  #1947

  #1945 EkSYS

  2013-01-27 20:43: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

  

  sztanozs

  veterán

  #1945 EkSYS

  #1945 EkSYS

  vb6

  Szerintem ez alapján meg tudod csinálni: [link]

• Homer tag

  #1946

  #1943 EkSYS

  2013-01-27 20:42:26

  Ú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

  

  Homer

  tag

  #1943 EkSYS

  #1943 EkSYS

  Sziasztok!

  Olyat hogy lehet csinálni hogy egy userformon lévő textboxon keresztül a user megad egy számot (1-től 10-ig) majd ennek megfelelően a program létrehozza a megadott számú textboxot ugyanezen a formon (vagy akár újon) és hogy lehet dolgozni /azonosítani ezeket a textboxot hogy ezeknek az értékeit tudjam használni?
  köszi
  b

  Pl. vb.NET-ben:

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  x = InputBox("Add meg a textboxok számát", "Program", 1)
  For i As Integer = 0 To x - 1
  Dim teksztboksz As New TextBox
  teksztboksz.Location = New Point(10, 5 + i * 20)
  Me.Controls.Add(teksztboksz)
  Next
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim hanyadik As Integer = 0
  For Each elem As Object In Me.Controls
  If TypeOf elem Is TextBox Then
  hanyadik += 1
  If elem.text <> "" Then
  MsgBox("A(z) " & hanyadik & ". textbox tartalma: " & elem.text)
  End If
  End If
  Next
  End Sub

• sztanozs veterán

  #1944

  #1943 EkSYS

  2013-01-27 18:55: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

  

  sztanozs

  veterán

  #1943 EkSYS

  #1943 EkSYS

  Sziasztok!

  Olyat hogy lehet csinálni hogy egy userformon lévő textboxon keresztül a user megad egy számot (1-től 10-ig) majd ennek megfelelően a program létrehozza a megadott számú textboxot ugyanezen a formon (vagy akár újon) és hogy lehet dolgozni /azonosítani ezeket a textboxot hogy ezeknek az értékeit tudjam használni?
  köszi
  b

  VB6 / VBA?

• sztanozs veterán

  #1786

  #1782 EkSYS

  2012-07-12 10:24: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

  

  sztanozs

  veterán

  #1782 EkSYS

  #1782 EkSYS

  Sziasztok !

  Tudna nekem valaki egy olyan html rövid kis kódsort írni ami egy adatok.xlsx -be bepakol pár adatot amit a html felületen lehet beadni?
  Az számít ha az xlsx egy a hálózaton lévő másik gépen van?

  köszi!
  b

  html-ben (mármint pure html-ben) szerintem nem lehet megoldani. JS vagy VBS már működhet, de ahhoz meg nem szükségszerűen kell html.
  Bár jobban belegondolva elég jól kiegészíthető egy vbs-ből nyitott és generált html oldal a vbs kóddal. Nem egyszerű dolog, de megoldható.
  Google: manipulate excel with vbsript
  Google: vbscript html form
  Mindkét keresésben az első oldal szinte összes találtata releváns.

• martonx veterán

  #1785

  #1784 EkSYS

  2012-07-12 08:13:57

  Ú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

  

  martonx

  veterán

  #1784 EkSYS

  #1784 EkSYS

  Szia!

  Nagyon köszönöm a válaszodat!!
  

  Ez most irónia akart lenni? Semmi konkrétat nem válaszoltam.

• martonx veterán

  #1783

  #1782 EkSYS

  2012-07-11 08:27:57

  Ú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

  

  martonx

  veterán

  #1782 EkSYS

  #1782 EkSYS

  Sziasztok !

  Tudna nekem valaki egy olyan html rövid kis kódsort írni ami egy adatok.xlsx -be bepakol pár adatot amit a html felületen lehet beadni?
  Az számít ha az xlsx egy a hálózaton lévő másik gépen van?

  köszi!
  b

  Persze, biztos vagyunk itt páran akik tudnánk.
  A hálózati elérés nem jelenthet gondot, feltéve hogy a gépek rendben látják egymást.

• martonx veterán

  #1738

  #1737 EkSYS

  2012-04-23 22:35:23

  Ú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

  

  martonx

  veterán

  #1737 EkSYS

  #1737 EkSYS

  Sziasztok!

  Érdekes problémával találkoztam, s nem tudom mi a megoldás:

  Adott egy leltári kivét forma. Az első kombó ami be is van pipálva gyakorlatilag beadja az összes alkatrészgyártót. Majd a nagy kombó ami le is van gördítve meg kiadja minden olyan tétel típusát ami az első kombóban kiválasztott értéknek megfelel. Egyszerű. Ehhez az alábbi megoldásokat használtam:
  1.kombó betöltése:
  Do While Worksheets("alkresz").Range("A" & sor2).Value <> ""
  sor2 = sor2 + 1
  leltar1.ComboBox2.AddItem Worksheets("leltarpivo").Range("I" & sor2).Value
  Loop
  sor2 = sor2 - 1
  Worksheets("alkresz").Activate

  Majd betöltöm a nagy kombót:

  Public Sub alkatcombo5toltes()
  Dim sor As Integer
  Dim xkeres(1 To 10) As String
  xkeres1 = ""
  xkeres2 = ""
  sor = 2

  If leltar1.CheckBox1.Value = True Then
  xkeres1 = leltar1.ComboBox1.Value
  Else
  End If

  If leltar1.CheckBox2.Value = True Then
  xkeres2 = leltar1.ComboBox2.Value
  Else
  End If

  leltar1.ComboBox5.Clear

  Do While Worksheets("alkresz").Range("A" & sor).Value <> ""

  'PME
  If Worksheets("alkresz").Range("I" & sor).Value = xkeres1 Then
  leltar1.ComboBox5.AddItem Worksheets("alkresz").Range("E" & sor).Value
  'Alk.gyártó
  ElseIf Worksheets("alkresz").Range("H" & sor).Value = xkeres2 Then
  leltar1.ComboBox5.AddItem Worksheets("alkresz").Range("E" & sor).Value

  End If
  sor = sor + 1

  Loop

  A probléma az hogy a képen látható a nagy kombóban kiválasztott érték a helyes, csakis az a másik 3 nem. De az mindig benne marad. mindent szépen megtalál, csak ez a nyomorult 3 marad bent mindig.
  Valakinek hasonló tapasztalata? Ötlete?

  hát, tipikusan erre való a debugolás. Üríted rendesen a combobox-ot pl?

• martonx veterán

  #1717

  #1716 EkSYS

  2012-03-27 21:25: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

  

  martonx

  veterán

  #1716 EkSYS

  #1716 EkSYS

  Sziasztok !

  Találkozott már valaki a 2029-es hibával?

  Nálam most jött elő először és nem tudom hogyan lehetne megoldani. Röviden.
  Adott egy xls. amiben van több munkalap. az egyikben az egyik oszlop tartalmát szétszedem (9 oszlopra), majd kikopziok 7-et és átmásolom egy másik munkalapra ahol beszúrom A-tól. J-ig, és J től megint jönnek oszlopok, de az már máshonnan.
  A feladat egyszerű összehasonlítgatós /keresős adott feltétel rendszer alapján.
  A keresés A - F oszloptartományban zajlik. Ma kiderült a H I -ben is kell, átírtam a keresős algoritmust, és amikor ebbe a két új oszlopba kéne nyúlnia kiáll type mismatch-csal error 2029 (megnéztem a neten, de erre nem találtam megoldást)
  valakinek ötlet?

  Szia!

  Az excel hibaüzenetei fájdalmasan semmitmondóak. Éppen ezért ebben segíteni sem tudunk neked. Esetleg annyit, hogy ilyen üzeneteknél a létező legtriviálisabb, legbagatellebb hibákra érdemes gondolni.

• martonx veterán

  #1712

  #1711 EkSYS

  2012-03-15 07:09:45

  Ú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

  

  martonx

  veterán

  #1711 EkSYS

  #1711 EkSYS

  Szia! Ezt a verziot probaltam, nem ment. Ellenben a datumertekkel megy jol :/.

  A lényeg, hogy megy
  Sajnos az excel nagyon finnyás a területi beállításokra, excel verziókra, így sokszor nem könnyű általánosan jó megoldást adni.

• martonx veterán

  #1709

  #1707 EkSYS

  2012-03-14 13:40:21

  Ú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

  

  martonx

  veterán

  #1707 EkSYS

  #1707 EkSYS

  Szia! De azt is meg tudod csinalni hogy mindent szurjon ami adott datumnal kesobbi?

  Ez esetben erre van szükséged:

  Dim lDate As Long
  Dim dDate As Date
  dDate = DateSerial(2011, 3, 12)
  lDate = dDate
  ActiveSheet.Range("$A$1:$A$4").AutoFilter Field:=1, Criteria1:= ">" & lDate

  A dátumot átalakítjuk long-gá, és ezzel megbízhatóan működik mindenféle dátumszűrés.

• martonx veterán

  #1706

  #1705 EkSYS

  2012-03-14 08:13:00

  Ú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

  

  martonx

  veterán

  #1705 EkSYS

  #1705 EkSYS

  Szia! Probaltam felvenni. Meg amit felvett a macro utana sajat maga nem futott le ugy hogy jol szurt volna. Neked mukodik?

  nálam simán működik visszajátszva.

• martonx veterán

  #1704

  #1703 EkSYS

  2012-03-13 21:23:36

  Ú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

  

  martonx

  veterán

  #1703 EkSYS

  #1703 EkSYS

  Sziasztok!

  Van valakinek egy jól működő dátum szűrője (date filter)?
  Jó pár verziót megpróbáltam de mindig ugyanaz lett a vége: nem szűrt

  Dim MyDate

  MyDate = Format(DateSerial(2012, 3, 13), "éééé.hh.nn")

  ActiveSheet.AutoFilterMode = False

  Range("A1").AutoFilter

  Range("A1").AutoFilter Field:=1, Criteria1:=MyDate

  valakinek valami ötlet?

  vedd fel makrórögzítéssel, hogy milyen formátumot szeret az exceled.
  Nálam pl. ezt adja vissza:

  ActiveSheet.Range("$A$2:$A$4").AutoFilter Field:=1, Operator:= _
  xlFilterValues, Criteria2:=Array(0, "10/30/2011")

  A lényeget kivastagítottam.

• martonx veterán

  #1590

  #1589 EkSYS

  2012-01-20 07:04:02

  Ú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

  

  martonx

  veterán

  #1589 EkSYS

  #1589 EkSYS

  sziasztok!

  Ha valaki esetleg tud segíteni abban hogy miként lehet egy makró futása közben egy user inputtal várakoztatni a továbbfutást (mondjuk egy formon van több text és combo, és amikor ezek tartalmát ellenőríztetem egy makróval akkor ha üres textb.-t talál akkor klikkeljen bele a text.-be és egy msgbox vagy ok után menne tovább) , érdekelne
  b

  Lehet nem jól értelek, de pont így ahogy írod.

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