Diyelim ki iki tane listemiz var:
ve iki listenin tüm kombinasyonlarını oluşturmak istiyoruz. Bu makroyu çalıştırıyor:
Sub generateCombinations()
Dim nA As Long, nB As Long, K As Long, i As Long, j As Long
Dim rc As Long
rc = Rows.Count
nA = Cells(rc, "A").End(xlUp).Row
nB = Cells(rc, "B").End(xlUp).Row
K = 1
For i = 1 To nB
vb = Cells(i, "B").Value
For j = 1 To nA
Cells(K, "C").Value = vb & " " & Cells(j, "A").Value
K = K + 1
Next j
Next i
End Sub
sütununda üretecek C :
Makroların kurulumu ve kullanımı çok kolaydır:
- ALT-F11 VBE penceresini açar
- ALT-ı
ALT-M yeni bir modül açar
- öğeleri yapıştırın ve VBE penceresini kapatın
Çalışma kitabını kaydederseniz, makro onunla birlikte kaydedilir.
Excel'in daha sonra 2003 sürümünü kullanıyorsanız, kaydetmeniz gerekir.
dosya olarak .xlsm ziyade .xlsx
Makroyu kaldırmak için:
- VBE penceresini yukarıdaki gibi açın
- kodu temizle
- VBE penceresini kapatın
Makroyu Excel'den kullanmak için:
- ALT-F8
- Makroyu seç
- ÇALIŞTIR'a dokunun
Genel olarak makrolar hakkında daha fazla bilgi için bkz.
http://www.mvps.org/dmcritchie/excel/getstarted.htm
ve
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Bunun çalışması için makrolar etkinleştirilmelidir!
B1
veB2
değil mi?