Visual Basic fungsi untuk menghitung perkalian silang

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 121820 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

  • Microsoft Excel untuk Windows 5.0c|5.0 c
  • Microsoft Excel untuk Windows NT 5.0|5.0
  • Microsoft Excel untuk Windows 95 7.0a|7.0a
  • Microsoft Excel untuk Macintosh 5.0|5.0
  • Microsoft Excel untuk Macintosh 5.0a|5.0a

RINGKASAN

Artikel ini berisi contoh Microsoft Visual Basic untuk fungsi aplikasi yang membutuhkan dua array (tiga baris oleh satu kolom) angka, masing-masing mewakili sebuah vektor, dan mengembalikan array dimensi yang sama mewakili perkalian silang vektor dua.

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Perkalian silang, c = b x, vektor dan b adalah vektor yang tegak lurus dengan bidang dan b. Hal tersebut dapat diilustrasikan oleh Tabel berikut:
            i   j   k
            =========
c = a x b = m   n   o  = [(n*z)-(o*y)]i - [(o*x)-(m*z)]j + [(m*y)-(n*x)]k
            x   y   z
				
Sebagai contoh, mengingat dua vektor dan b:
   a = (1,2,3)
   b = (4,5,6)
				
c vektor dapat dihitung:
   c = [(2*6)-(3*5)]i - [(3*4)-(1*6)]j + [(1*5)-(2*4)]k
     = [12-15]i - [12-6]j + [5-8]k
     = [-3]i - [6]j + [-3]k
     = (-3,6,-3)
				
Di Microsoft Excel, Anda dapat membuat fungsi Visual Basic untuk melakukan perhitungan ini dan kembali hasil ke dalam sebuah array.

Prosedur Visual Basic sampel

   ' The following line must be placed at beginning of module:
   Option Base 1

   ' Returns the cross product of the two input vectors.
   Function Cross_Product_VBA(Vec1 As Object, Vec2 As Object) As Variant
       ' TempArray is a temporary variable to store the cross product.
       Dim TempArray(3, 1)

       ' The following lines put elements of the product into TempArray.
       TempArray(1, 1) = Vec1.Cells(2, 1).Value * _
           Vec2.Cells(3, 1).Value - Vec1.Cells(3, 1).Value * _
           Vec2.Cells(2, 1).Value
       TempArray(2, 1) = Vec1.Cells(3, 1).Value * _
           Vec2.Cells(1, 1).Value - Vec1.Cells(1, 1).Value * _
           Vec2.Cells(3, 1).Value
       TempArray(3, 1) = Vec1.Cells(1, 1).Value * _
           Vec2.Cells(2, 1).Value - Vec1.Cells(2, 1).Value * _
           Vec2.Cells(1, 1).Value

       ' Assigns the TempArray variable to Cross_Product_VBA.
       Cross_Product_VBA = TempArray

   End Function
				
Pastikan untuk memilih tiga sel vertikal sebelum mengetik fungsi, dan Masukkan fungsi sebagai suatu formula array dengan menekan CTRL + SHIFT + ENTER atau PERINTAH + KEMBALI. Sebagai contoh, mengingat rentang a1: a3 (vektor) dan B1:B3 (vektor b), menghitung perkalian silang dengan menyorot C1:C3, jenis fungsi berikut, dan tekan CTRL + SHIFT + ENTER atau perintah + kembali:
=Cross_Product_VBA(a1:a3,B1:B3)
Hasilnya ditunjukkan di bawah ini:
   A1: 1     B1: 4     C1: -3
   A2: 2     B2: 5     C2:  6
   A3: 3     B3: 6     C3: -3
				

Properti

ID Artikel: 121820 - Kajian Terakhir: 14 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 98 for Macintosh
Kata kunci: 
kbdtacode kbhowto kbprogramming kbmt KB121820 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:121820
Sanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan ?sebagaimana adanya? dan tidak akan diperbarui.

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com