[elektro-etc] VBA help

[Bali Zoltan]

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
>
>
>
>
> -----
> No virus found in this message.
> Checked by AVG - www.avg.com
> Version: 2012.0.2197 / Virus Database: 2437/5168 - Release Date: 07/31/12
>
>