Jumlah nombor dalam pilihan -

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

Sub sum_selection () Dim dim As Range Dim sum As Double 'Iterate through setiap sel dalam pilihan Untuk Setiap sel Dalam Seleksi' Tambahkan nilai ke jumlah pemboleh ubah jumlah = jumlah + sel. Nilai Sel sel seterusnya (1, 1) = jumlah Akhir Sub