Fråga : överträffa - makroen för alternativ knäppas

Hi har

I skapat alternativ knäppas överträffar in, genom att gå till tools-> forms.

Now i makroen, jag behöver att skriva kodifiera för att verifiera att vilket alternativ knäppas är utvalt och, tilldelaen en värdera till en variable.
But kodifiera som jag har skriftligt, är inte arbetet, och variabeldsourcen inte tilldelas någon value.

Can någon föreslår en lösning för denna?

I har skriftligt något något liknandethis

If ActiveSheet.Shapes (”Option knäppas 11”). Valda Then

dsource = ”CALQA.WORLD-"
ElseIf ActiveSheet.Shapes (”Option knäppas 12”). Valda Then
dsource = ”CALDEV.WORLD-"
avslutar If

 " klar "

Svar : överträffa - makroen för alternativ knäppas

Hi guyneo,

Är här ett exempel av hur man parse xmlen som du levererade och formaterar datera till ditt formaterar.

Jag tog bort gmt-offseten från tillverkat, låt mig vet, om du önskar att inkludera det eller inte.


Kodifiera ska jordbruksprodukter tillverkat detta:
----------------------------------------
avvikelse: Apr 11 2006 04:28 pm
ankomst: Apr 11 2006 05:40 pm



1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:



6974
Airbus Industrie A318/A319/320/321


Economy
';

$xml_array = simplexml_load_string($xml);

foreach($xml_array->avvikelse som $departures) {
	eka ”avvikelsen: ”. datera (”H för M D Y: ia”, strtotime (substr ($departures [”datera”], 0.10). '”. substr ($departures [”tid”], 0.8))). ”,
';
}

foreach ($xml_array->arrival som $arrival) {
	eka ”ankomsten: ”. datera (”H för M D Y: ia”, strtotime (substr ($arrival [”datera”], 0.10). '”.  substr ($arrival [”tid”], 0.8))). ”,
';
}

? >
Andra lösningar  
 
programming4us programming4us