Excel VBA Sort Metodu

'Sayfa1deki A1 ve E100 aralığı B kolonu referans alınmak suretiyle artan biçiminde sıralanıyor

Sheet1.Range("A1:E100").Sort Key1:=Range("B1"), Order1:=xlAscending

Excel VBA: AutoFill

'kopyalanacak formulun bulundugu hucre
Dim f As String
f = "B1"

'formulun kopyalanacagi alan
Dim r As String
r = "B1:B10"


Range(f).AutoFill Range(r)

Excel VBA: Bir tablodaki satır sayısını bulma

'satir sayisini tutacagimiz long tipindeki degisken
dim i as long

'satir sayisini alacagimiz kolon icin tanimladigimiz string tipindeki degisken
dim c as string
c = "A"

'tablodaki A kolonunda bulunan toplam satir sayisi i ye ataniyor
i = Cells(Rows.Count, c).End(xlUp).Row

JavaScript Kullanarak Excel Dosyalarını Okumak

// İlgili örnekte MS ADO kütüphanesi kullanılacaktır.

// öncelikle bir connection nesnesi oluşturuluyor ve gerekli parametreler veriliyor
var cn = new ActiveXObject("ADODB.Connection");
cn.Provider = "MSDASQL";

// connection string için DSN tanımlamak en zahmetsiz yöntem
// dileyen ConnectionStrings.Com adresinden
// bağlantı stringini alabilir
cn.ConnectionString = "DSN=BAGLANTIM;";

// bağlantımızı açıyoruz
cn.Open();

// alert(cn.State); koduyla bağlantınızı sınayabilirsiniz.

// sıradaki işlemimizde
// SQL cümleciklerini çalıştıracağımız recordseti oluşturuyoruz
var rs = new ActiveXObject("ADODB.Recordset");
rs.CursorLocation = 3;
rs.Open("SELECT * FROM [Sheet1$]", cn, 1, 3, 1);

// verilerimiz artık oluşturduğumuz recordsette
// buradan istediğiniz satırı veya satırları 
// döngüler yardımıyla alabilirsiniz

Torrey Canyon Kazası

Torrey Canyon 120.000 ton petrol taşıma kapasitesine sahip olan bir süper tankerdi. 1967'de İngiltere sahilinde batması sonucu büyük deniz kirliliğine yol açtı. İngiltere ve Fransa kıyıları petrole bulandı, on binlerce deniz canlısı öldü veya zarar gördü. Boyu 297 metre, eni 38,2 m, derinliği 20,9 metre olan tanker, BP tarafından kiralık olarak kullanılıyordu.

Geçtiğimiz sene Meksika Körfezi'nde bir petrol platformu batan ve dünyanın en büyük çevre felaketlerinden birine neden olan BP şirketnin sabıka kaydı, ciltler dolduracak suçlarla dolu. Dünyanın ilk büyük çevre felaketlerinden biri olarak kabul edilen Torrey Canyon kazasında da tanker BP tarafından kiralık olarak kullanılıyordu.

Torrey Canyon'un son yolculuğu 19 Şubat 1967 tarihinde başladı. Kuveyt'in Mena el-Ahmedi limaından aldığı petrolle, 14 Mart'ta Kanarya Adaları'na ulaştı. Oradan da Milford Haven'e doğru yola koyuldu.
18 Mart 1967'de Torrey Canyon bir navigasyon hatası yüzünden İngiltere ile Fransa arasında kayalıklara oturarak ağır hasar aldı. Gemiden sızan petrol İngiltere ve Fransa kıyılarında büyük bir felakete neden oldu.

O dönemde böylesi bir durumda neler yapılması gerektiğine dair planlar henüz yeterince olgunlaşmadığından, tankeri yüzdürmeye çalışan Hollandalı kurtarma ekibinde bulunan bir işçi öldü. Gemi günlerce kayalığın üzerinde bekledikten sonra 26 Mart'ta parçalandı. İngiliz donanmasına ait uçaklar gemiyi bombalayarak denize dökülen petrolün yanmasını ve oluşacak zararın azalmasını sağlamaya çalıştılarsa da, atılan bombaların çoğu hedefi bulamadığı için felaketi daha da ağırlaştırmaktan başka bir işe yaramadı.

İngiltere'de 190, Fransa'da da 80 kilometrelik sahil şeridi petrolle kaplandı. Yaklaşık 15.000 deniz kuşu ve canlısı öldü. Deniz yüzeyindeki petrol tabakasının temizlenmesi için kullanılan tonlarca kimyasal madde, felaketin boyutlarını daha da artırdı.

Torrey Canyon kazası sonunda Civil Liability Convention (CLC) veya die International Convention for the Prevention of Pollution from Ships gibi uluslararası anlaşmalar imzalandı, ancak çevre felaketleri son bulmadı. Petrol nedeniyle oluşan çok sayıda çevre gelaketi nedeniyle, dünya her geçen gün daha da yaşanmaz bir hale geliyor.

Kaynak: http://marksist.org/tarihte-bugun/6713-26-mart-1967-torrey-canyon-tankeri-dunyanin-en-buyuk-cevre-felaketlerinden-birine-yol-acti

SQL Joins

Excel Kullanıcı Tanımlı Fonksiyon

- Excel'i aç

- Alt + F11 ile VB Editor'ünü aç

- Projeye bir modül ekle

- Fonksiyonunu yazmaya başla

Örnek fonksiyon;

Function YuzdeHesapla(ByVal Sayi As Double, ByVal Oran As Double) As Double

YuzdeHesapla = (Sayi / 100) * Oran

End Function