array in excel

Article View: free.it.visual-basic

Article #3794

Back to free.it.visual-basic Previous Next

#3794

From: mankey
Date: Wed, 03 Apr 2002 09:23

30 lines
1717 bytes

Ciao a tutti,

Ho definito una funzione che da due range di tre cellule mi calcola il
prodotto vettoriale.  La funzione restituisce tre valori che scrivo in un
variant di dimensione 3.  La domanda �:  come faccio scrivere il risultato
nelle tre cellule selezionate a cui assegno questa funzione?

ecco il codice:

Function ProdVettoriale(v1 As Range, v2 As Range) As Variant

Dim prodotto(2) As Double

prodotto(0) = v1.Value(1, 2) * v2.Value(1, 3) - v1.Value(1, 3) * v2.Value(1,
2)
prodotto(1) = v1.Value(1, 3) * v2.Value(1, 1) - v1.Value(1, 1) * v2.Value(1,
3)
prodotto(2) = v1.Value(1, 1) * v2.Value(1, 2) - v1.Value(1, 2) * v2.Value(1,
1)

'ProdVettoriale = prodotto
????

End Function

grazie a chiunque mi pu� dare una mano!


piero

Technical Details

Message-ID: <JSzq8.54206$S52.1873799@news2.tin.it>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!supernews.com!newsfeed.online.be!news2.euro.net!news.mailgate.org!news-out.tin.it!news-in.tin.it!news2.tin.it.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,4e77ba342a8fa571,start
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2002-04-03 01:24:20 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!supernews.com!newsfeed.online.be!news2.euro.net!news.mailgate.org!news-out.tin.it!news-in.tin.it!news2.tin.it.POSTED!not-for-mail
From: "mankey" <arcofante@yahoo.com>
Newsgroups: free.it.visual-basic
Subject: array in excel
Lines: 32
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <JSzq8.54206$S52.1873799@news2.tin.it>
Date: Wed, 03 Apr 2002 09:23:53 GMT
NNTP-Posting-Host: 62.211.145.30
X-Complaints-To: newsmaster@tin.it
X-Trace: news2.tin.it 1017825833 62.211.145.30 (Wed, 03 Apr 2002 11:23:53 MET DST)
NNTP-Posting-Date: Wed, 03 Apr 2002 11:23:53 MET DST
Organization: TIN