[elektro-etc] VBA help

[Móczik Gábor]

Köszi, ez hasznos infó!

A worksheet_calculate működik. Egyelőre nem értem mitől, de működik. Egész konkrétan azt nem tudom, honnan tudja mi mitől függ, mit számoljon ki először, de végülis jók az eredmények.
-- 
Sent from my Android phone with K-9 Mail. Please excuse my brevity.

Bali Zoltan <eltexto at freemail.hu> írta:

<http://www.cpearson.com/excel/Events.aspx>;

Most hirtelen ezt találtam, de biztos van még több.

Üdv. Zoli

2012. 08. 01. 15:27 keltezéssel, Bali Zoltan írta:
> Hali!
>
> Private Sub Worksheet_Activate()
> Private Sub Worksheet_Calculate()
> Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
>
> Asszem ezek az eseménykezelők vannak a 97-ben.
> Már régen foglalkoztam vele. Valami rémlik, hogy nem
> egészen úgy működött, ahogy vártam, de ez nem biztos.
>
> A Help-ben nincs benne ha rákeresel ezekre ? Nálam
> most valamiért nem megy a help, azt mondja installáljam
> újra. Vagy 'worksheet, event" szavakra keresés.
>
> Üdv. Zoli
>
>
>
>
> 2012. 08. 01. 13:53 keltezéssel, Móczik Gábor írta:
>> 2012.08.01. 13:20 keltezéssel, Kovács József írta:
>>> Ez a matatás kizárólag csak az excelen belülről VBA-ban jó?
>>>
>>> Én jó ideje már csak saját alkalmazásból piszkálok excelt.
>>> Kihasználva, hogy az excel táblát ODBC driverrel megnyitva
>>> sima SQL parancsokkal tudom olvasni-írni .....
>>>
>>> A program logika így nem excel VBA nyűglődés.
>>
>> Lesz majd egy komplett rendszer rendes SQL adatbázisból, dedikált 
>> kliensprogrammal, de addig is excelből matatok sajnos.
>>
>> Sok mindenre jó, de sokmindenre nem annyira, pl. adatbázis kezelésre. 
>> :-)
>>
>> Különben úgy néz ki, hogy sikerült, ha megnyomom a RUN gombot, akkor 
>> elvégzi amit akarok. De hogy futtassam automatikusan?
>> Célszerűen ha bármely forrásadat (Range) változik, le kéne futtatni.
>>
>> Sub CalcWorkdayList()
>> Dim wks As Worksheet
>> Dim daylist As Range
>> Dim dayflag As Range
>> Dim wkdaylist As Range
>>
>> Set wks = Worksheets("alapadatok")
>>
>> Set daylist = wks.Range("MonthDayList")
>> Set dayflag = wks.Range("MonthDayWkdayFlags")
>> Set wkdaylist = wks.Range("WorkdayList")
>>
>> Dim i As Integer
>> Dim j As Integer
>>
>> j = 1
>> For i = 1 To 31
>> If dayflag.Cells(i, 1) = 1 Then
>> wkdaylist.Cells(j, 1) = daylist.Cells(i, 1)
>> j = j + 1
>> End If
>> Next i
>> For i = j To 31
>> wkdaylist.Cells(i, 1) = ""
>> Next i
>>
>> End Sub
>>
>>
>>
>>