Jumlahkan nomor dalam seleksi -

Menjumlahkan semua angka di wilayah yang dipilih dan menempatkan jumlahnya di "A1"

Sub sum_selection () Dim cell As Range Dim sum As Double 'Iterasi melalui setiap sel dalam seleksi Untuk Setiap sel Dalam Pilihan' Tambahkan nilai ke variabel jumlah jumlah = jumlah + sel Nilai Sel berikutnya Sel (1, 1) = jumlah Akhir Sub