Matrix film serisinin büyük bir hayranıyım. Zamanının harika bir eseri ve en sevdiğim bilim kurgu film serilerinden biri.
Matrix'i gördüyseniz, düşen kod dizisini hatırlamamanız mümkün değil.
Bunu Excel'de oluşturmayı düşündüm, ama biri beni yendi. Zaten oluşturuldu ve burada mevcut.
Bunu yaratan Nitin Mehta, bu efekti oluşturmak için birkaç Excel işlevi, koşullu biçimlendirme ve bir kaydırma çubuğu kullandı.
Kaydırma çubuğunu kaldırmak için değiştirdim ve bunun yerine bir VBA kodu kullandım. Şimdi sadece oynat düğmesine tıklayabilirsiniz ve sayılar kendiliğinden düşmeye başlar. Aşağıda gösterildiği gibi bir şey:
Excel'de Matris Düşen Sayılar Etkisi
Excel'de matris düşen sayılar efekti oluşturma adımları şunlardır:
- A1:AP1 aralığındaki ilk satıra 0 ile 9 arasında rasgele sayılar girin. Bu sayıları RANDBETWEEN işlevini kullanarak manuel olarak da girebilirsiniz. Bu sayıları değerlere dönüştürmeyi unutmayın.
- Sütun genişliğini, tek bir ekranda görünecek şekilde azaltın.
- A2:AP32 aralığında, şu formülü girin: =INT(RAND()*10)
- Aşağıdaki kodu VBA'daki bir modüle kopyalayıp yapıştırın
#If VBA7 Then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '64 Bit Sistemler için #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '32 Bit Sistemler için #End If Sub MatrixNumberRain () i = 1 Do while i <= 40 DoEvents Range("AR1").Value = ii = i + 1 Sleep 50 Loop End Sub
Bu yukarıdaki kod, AR1 hücresine 1'den 4o'ya kadar olan sayıyı girecektir. Sleep 50 kodu, sayıların girilmesini 50 milisaniye geciktirir. Bu kodu çalıştırırsanız, AR1'deki değerin 1'den 40'a çıktığını görebileceksiniz.
Şimdi bu sayılara renk vermek için üç koşullu biçimlendirme kuralı belirlememiz gerekiyor.
Koşullu Biçimlendirme Kuralı #1
- A2:AP32 aralığını seçin, Ana Sayfa -> Koşullu Biçimlendirme -> Yeni Kural'a gidin
- Yeni Biçimlendirme Kuralı iletişim kutusunda, 'Hangi hücrelerin biçimlendirileceğini belirlemek için bir formül kullan' seçeneğini tıklayın ve aşağıdaki formülü girin:
=MOD($AR$1,15)=MOD(SATIR()+A$1,15)
- Biçim düğmesine tıklayın ve yazı tipi rengini beyaza ayarlayın
- Tamam'ı tıklayın
Koşullu Biçimlendirme Kuralı #2
- A2:AP32 aralığı seçiliyken Ana Sayfa -> Koşullu Biçimlendirme -> Kuralı Yönet seçeneğine gidin
- Koşullu Biçimlendirme Kuralları Yöneticisi iletişim kutusunda Yeni Kural'a tıklayın.
- Yeni Biçimlendirme Kuralı iletişim kutusunda, 'Hangi hücrelerin biçimlendirileceğini belirlemek için bir formül kullan' seçeneğini tıklayın ve aşağıdaki formülü girin:
=MOD($AR$1,15)=MOD(SATIR()+A$1+1,15) - Biçim düğmesine tıklayın ve yazı tipi rengini açık yeşil olarak ayarlayın
- Tamam'ı tıklayın
Koşullu Biçimlendirme Kuralı #3
- A2:AP32 aralığı seçiliyken Ana Sayfa -> Koşullu Biçimlendirme -> Kuralı Yönet seçeneğine gidin
- Koşullu Biçimlendirme Kuralları Yöneticisi iletişim kutusunda Yeni Kural'a tıklayın.
- Yeni Biçimlendirme Kuralı iletişim kutusunda, 'Hangi hücrelerin biçimlendirileceğini belirlemek için bir formül kullan' seçeneğini tıklayın ve aşağıdaki formülü girin:
=VEYA(MOD($AR$1,15)=MOD(SATIR()+A$1+2,15),MOD($AR$1,15)=MOD(SATIR()+A$1+3,15), MOD ($AR$1,15)=MOD(SATIR()+A$1+4,15),MOD($AR$1,15)=MOD(SATIR()+A$1+5,15)) - Biçim düğmesine tıklayın ve yazı tipi rengini açık yeşil olarak ayarlayın.
- Tamam'ı tıklayın.
İlk satırdaki satır numarasına ve değerine bağlı olarak, koşullu biçimlendirme metni yeşil, açık yeşil veya beyaz renklendirir.
Şimdi tüm hücre aralığını seçin (A1:AP32) ve arka planı siyah yapın.
Son adım olarak, bir şekil/düğme ekleyin ve bu makroyu o şekle/düğmeye atayın.
Not: Bunun içinde bir VBA kodu olduğundan, dosyayı .xls veya .xlsm uzantılı olarak kaydedin.
Bu kadar! Şimdi kendinize bir fincan kahve alın, gölgede durun ve Matrix düşen sayılar dijital yağmurunun tadını çıkarın 🙂
