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

• #1761 #90999040 törölt tag vilag #1760

  Új Válasz 2012-05-29 14:30:27 #1761

  Ú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

  

  #90999040

  törölt tag

  válasz vilag #1760 üzenetére

  Gondolom exit eseményt akartál írni, mert az exit sub egy kicsit más.

  A lényeg az, hogy ez nem csak akkor következik be, ha az utolsó aktív vezérlőről van szó, hanem amikor egy frame-n belüli vezérlőről átváltasz egy frame-n kívülire. Ugyanis ilyenkor nem a frame-n belül levő vezérlő exit-je fut le, hanem a frame exit-je.

  Ezt pl. így ki lehet kerülni:

  A userformon belül létrehozol egy Control típusú változót, pl.: Private active As Control

  Ezután az adott frameben levő minden vezérlőjének Enter() eseményébe beírod ezt: Set active = Me.<Frame neve>.ActiveControl

  Az adott vezérlőd exit()-jébe pedig ezt:

  Private Sub <Vezérlőd>_Exit(.........
  If Not active Is Nothing Then
  'itt lehet meghívni az eseményt
  End If
  End Sub

  Ez mellett persze még a frame exit()-jét is le kell kezelni:

  Private Sub <Frame neve>_Exit(.......
  If Me.<Vezérlőd>.Name = Me.<Frame neve>.ActiveControl.Name Then
  Set active = Nothing
  'itt ugyanúgy meghívod a vezérlőd exit()-jénél végrehajtandó kódot
  End If
  End Sub

• #1736 #90999040 törölt tag Oly #1734

  Új Válasz 2012-04-14 08:58:48 #1736

  Ú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

  

  #90999040

  törölt tag

  válasz Oly #1734 üzenetére

  Van rá lehetőség, winapi mouse_event(), vagy SendInput() függvényével.

  A mouse_event() használata egyszerűbb, de a MS már új fejlesztésekhez nem ajánlja. A SendInput() bonyolultabb, de ezzel pl. billentyűlenyomást is lehet generálni, és a MS ezt ajánlja inkább...

• #1492 #90999040 törölt tag öcsi-bácsi #1491

  Új Válasz 2011-10-15 13:20:52 #1492

  Ú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

  

  #90999040

  törölt tag

  válasz öcsi-bácsi #1491 üzenetére

  Pontosan ezekről beszéltem. Ezt a kódot így is meg lehetne csinálni:

  Sheets("munka1").Select
  pass = "123456789"
  Sheets("munka2").Unprotect pass
  Sheets("munka1").Range("a1").Copy Destination:=Sheets("Munka2").Range("A1")
  Sheets("munka2").Protect Password:=pass

  Ez pontosan azt csinálja, amit a Tiéd, csak nem 11, hanem 5 sorban.
  Újra kihangsúlyozom: VBA-ban a Select és az Activate használatát csak elkerülhetetlen esetben célszerű használni, így a legtöbb esetben az Application.ScreenUpdating használata is feleslegessé válik(kivéve, ha az aktív munkalapra másolsz nagy mennyiségű adatot), valamint a kód is áttekinthetőbb.

• #1489 #90999040 törölt tag öcsi-bácsi #1488

  Új Válasz 2011-10-15 09:27:16 #1489

  Ú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

  

  #90999040

  törölt tag

  válasz öcsi-bácsi #1488 üzenetére

  Másolás közben kerüld a Select és az Activate használatát!!!

  Dim munkalap As String
  munkalap = "munka1"
  Worksheets(munkalap).Range("a1:c3").Copy _
  Destination:=Worksheets(munkalap).Range("e1")

  Ha a másolás után a célterületet szeretnéd aktívan látni, akkor arra add ki a Select-et.

• #1487 #90999040 törölt tag Cpt. Flint #1486

  Új Válasz 2011-10-11 17:23:17 #1487

  Ú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

  

  #90999040

  törölt tag

  válasz Cpt. Flint #1486 üzenetére

  És a másik alkalmazás VBA utasításkészletét is? Tehát levezényelhetném az excelből (DDEExecute nélkül) a körlevélkészítést a MailMerge-vel valami módon?

  Természetesen. A legegyszerűbb, ha az excel vba referenciáihoz hozzáadod a "Microsoft Word x.y Object Library"-t. Ez után már használhatod pl. így(vilag #1472-es hozzászólása alapján):

  Dim wrdApp As Word.Application
  Dim wrdDoc As Word.Document
  Set wrdApp = CreateObject("Word.Application")
  With wrdApp
  .Visible = True 'látszik a word alkalmazás
  Set wrdDoc = .Documents.Open(".doc fájl neve") 'megnyitja a word documentumot
  .ActiveDocument.MailMerge.MainDocumentType = Word.wdFormLetters
  .ActiveDocument.MailMerge.OpenDataSource Name:=".xls fájl neve", _
  LinkToSource:=True, _
  Format:=Word.WdOpenFormat.wdOpenFormatAuto, _
  Connection:="Munka1$", _
  SQLStatement:="SELECT * FROM `Munka1$`"
  With .ActiveDocument.MailMerge
  .Destination = Word.wdSendToPrinter
  .SuppressBlankLines = False
  With .DataSource
  .FirstRecord = 14
  .LastRecord = ig2 'saját változó
  End With
  .Execute Pause:=False 'Mailmerge futtatása
  End With
  End With
  'wrdDoc.Close 'documentum bezárása
  'wrdApp.Quit 'word bezárása
  'takarítás
  'Set wrdApp = Nothing
  'Set wrdDoc = Nothing

• #1482 #90999040 törölt tag vilag #1480

  Új Válasz 2011-10-08 22:13:02 #1482

  Ú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

  

  #90999040

  törölt tag

  válasz vilag #1480 üzenetére

  Ha az Excel VBA Tools >> References résznél hozzáadod a Microsoft Word x.y Object Library-t, akkor használhatod a Word objectumait.

  Dim wrdApp As Word.Application
  Dim wrdDoc As Word.Document
  Set wrdApp = CreateObject("Word.Application")
  wrdApp.Visible = True
  Set wrdDoc = wrdApp.Documents.Add
  'wrdDoc.Close
  'wrdApp.Quit

  Ez Excelből elindít egy word alkalmazást, hozzáad egy dokumentumot, és ha az utolsó 2 sor elejéről kiveszed az aposztrofokat, akkor be is zárja.
  Persze lehetne a referencia hozzáadása nélkül is, akkor viszont a Word.Application és a Word.Document helyett Object-eket kellene írni.

  Természetesen a word-ből is lehet az excel objektumait használni.

  Csak mint írtam, ekkor alapból nem "ismerik fel" a másik alkalmazás konstansait. ezért kell ezeket külön definiálni, mert különben teljesen mást csinál a kód, mint amit szeretnénk...

• #1473 #90999040 törölt tag vilag #1472

  Új Válasz 2011-10-03 11:50:15 #1473

  Ú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

  

  #90999040

  törölt tag

  válasz vilag #1472 üzenetére

  ezt kell a kívánt Word doksiba, vagyis a célfájlba írni

  Ha a Word konstansait definiálod az Excelben, akkor Excelben is használható.
  Az Excel ugyanis alapból nem tudja a Word konstansait. Pl.:

  Const wdSendToPrinter = 1

  Ezeket az értékeket meg tudod nézni Wordben úgy, hogy kiiratod őket. Pl.:

  Debug.Print wdSendToPrinter

• #1450 #90999040 törölt tag Zsargon89 #1449

  Új Válasz 2011-09-19 17:05:53 #1450

  Ú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

  

  #90999040

  törölt tag

  válasz Zsargon89 #1449 üzenetére

  A win1.exe-t megtalálod a c:\......\win1\win1\Bin\Debug mappában, amennyiben "win1" a projekt neve. De külön is le tudod fordítani a Build -> Build Solutionnal.

• #1447 #90999040 törölt tag Zsargon89 #1444

  Új Válasz 2011-09-19 16:45:29 #1447

  Ú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

  

  #90999040

  törölt tag

  válasz Zsargon89 #1444 üzenetére

  Elindítod a Vs 2008-at.
  File -> New -> Project...
  A megjelenő ablakban létrehozol egy Forms projektet.
  Project -> Add Module...
  A létrehozott modulba bemásolod a kódodat, majd megcsinálod vele, amiket előzőleg írtam.
  A modulba ezután beleteszed ezt:

  Sub Main()
  TEST()
  End Sub

  Ha ez megvan, akkor Solution Explorer ablakban*** dupla katt a "My project"-re.
  Itt az Application fülön az "Enable Application Framework" elől a pipát kiveszed.
  Ugyanezen a fülön "Startup Object"-nél a "Sub Main"-t választod ki.
  Ha mindent jól csináltál, akkor F5-re indulnia is kellene a programnak.

  ***: ha nem látszik ez az ablak, akkor View -> Solution Explorer

• #1439 #90999040 törölt tag ArchElf #1432

  Új Válasz 2011-09-19 11:19:06 #1439

  Ú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

  

  #90999040

  törölt tag

  válasz ArchElf #1432 üzenetére

  Igen így már lehet...

• #1430 #90999040 törölt tag Zsargon89 #1424

  Új Válasz 2011-09-19 09:39:26 #1430

  Ú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

  

  #90999040

  törölt tag

  válasz Zsargon89 #1424 üzenetére

  Visual Basic 2008-ra javaslom a következőket:

  A Long-okat cseréld le Integer-re.

  Az inputboxokat pedig módosítsd így:
  v = Integer.Parse(InputBox("Válasszon az alábbi lehetősékeg közüll" & Chr(13) & Chr(10) & "1- 6 számjegyű számláló" & Chr(13) & Chr(10) & "2- 7 számjegyű számláló"))

  Az Integer.Parse() (vagy más konverziós függvény) azért kell, mert Vb.net-ben az inputbox stringet ad vissza.

• #1429 #90999040 törölt tag martonx #1426

  Új Válasz 2011-09-19 09:32:48 #1429

  Ú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

  

  #90999040

  törölt tag

  válasz martonx #1426 üzenetére

  Javaslom neked a vbscriptet.

  Vbscriptben Windows API függvény???

• #1422 #90999040 törölt tag ArchElf #1421

  Új Válasz 2011-09-17 13:09:47 #1422

  Ú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

  

  #90999040

  törölt tag

  válasz ArchElf #1421 üzenetére

  Ez így tökéletesen működik:

  Class RelStore
  'Cache Time 5 min
  
  Private d_Timer
  Private b_Member
  Private b_Init
  Private VALIDITY
  
  Private Sub Class_Initialize
  VALIDITY = 300
  d_Timer = 0
  b_Member = False
  b_Init = False
  End Sub
  
  Public Function Initialize(Membership)
  d_Timer = Timer
  b_Member = Membership
  b_Init = True
  End Function
  
  Public Sub Invalidate()
  Class_Initialize
  End Sub
  
  Public Function IsMember()
  IsMember = b_Member
  End Function
  
  Public Function IsValid()
  IsValid = (b_Init AND ((Timer > d_Timer + VALIDITY) OR (Timer < d_Timer)))
  End Function
  End Class
  
  Set rs = new RelStore
  DebugWrite rs.isvalid

  Szerintem ez: htCache(SearchString) nem RelStore classt ad vissza.

• #1418 #90999040 törölt tag ArchElf #1417

  Új Válasz 2011-09-16 19:46:28 #1418

  Ú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

  

  #90999040

  törölt tag

  válasz ArchElf #1417 üzenetére

  Ja és próbáltam már így is

  Valószínűleg nem az IsValid()-el van probléma, hanem hogy a htCache(SearchString) nem megfelelő típust vagy esetleg Nothing-ot ad vissza. Első lépésben vizsgálnám Nothing-ra:
  if (rs is Nothing) then
  'ide pl. valami kiiratás
  End If

• #1365 #90999040 törölt tag dani850430 #1364

  Új Válasz 2011-03-29 14:14:44 #1365

  Ú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

  

  #90999040

  törölt tag

  válasz dani850430 #1364 üzenetére

  Ha csak 1-szerű sorbarendezést szeretnél:

  Private Sub Command2_Click()
  Dim rendezendoe As Boolean
  Dim szamlalo As Integer
  Dim temp As String
  Do
  rendezendoe = False
  For szamlalo = 0 To List1.ListCount - 2
  If (List1.List(szamlalo) > List1.List(szamlalo + 1)) Then
  rendezendoe = True
  temp = List1.List(szamlalo)
  List1.List(szamlalo) = List1.List(szamlalo + 1)
  List1.List(szamlalo + 1) = temp
  End If
  Next
  Loop Until rendezendoe = False
  End Sub

• #1363 #90999040 törölt tag martonx #1362

  Új Válasz 2011-03-27 20:55:19 #1363

  Ú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

  

  #90999040

  törölt tag

  válasz martonx #1362 üzenetére

  Én azért szeretem ezt a megoldást jobban, mert így anélkül lehet inicializálni, hogy az az Excel-ben vizuális felületen megjelenne, valamint nem kell a munkalap elrejtésével sem foglalkozni.

• #1361 #90999040 törölt tag ezredes #1359

  Új Válasz 2011-03-27 15:58:36 #1361

  Ú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

  

  #90999040

  törölt tag

  válasz ezredes #1359 üzenetére

  Vagy:

  1. Eszközök >> Makró >> Visual Basic Editor (ill. ALT+F11)
  2. A megjelenő ablakban: Insert >> UserForm

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