Sharudin.com

1. Saya kira ustaz sangat faham dengan manusia dari kesimpulan ustaz ” … batu yang dibentuk dengan air”. Malah ada kata-kata menyebut “lebih keras dari itu”. Itulah ‘keistimewaan’ manusia, walaupun mempunyai potensi berfikir, lebih berminat dengan hak kemanusiaannya … menepuk dada dan mengikut selera. Dengan sains, manusia di Barat menggunakan sepenuhnya ciri tersebut dalam membena segalanya, tamaddun, ekonomi, kemajuan dan sebagainya.

2. Walaupun agak berat, saya ingin melangkah setapak mengejar pencapaian pemikiran ustaz, untuk mencari persamaan padang permainan. Secara tersuratnya terdapat banyak persamaan di antara kita dalam pekara-pekara berikut,

a. Ustaz berpendapat bahawa ilmu Falsafah sangat penting untuk dipelajari,
b. Kegagalan mendalami maksud dan tujuan agama dari Pengajian Islam sahaja,
c. Ustaz mendekati falsafah dengan maksud memahami diri sendiri,
d. Keinginan mengenali manusia, mendalamkan tumpuan ustaz kepada sejarah,
e. Bersetuju bahawa masyarakat setakad membaca cerita (sejarah dan banyak buku lain) dengan tidak mengambil natijah,
f. Pengkususan yang sempit di bidang Pengkajian Islam,
g. Keperluan pengimbangan bagi mengatur manusia dibuat dengan lebih teliti,
h. persoalan yang lebih utama dalam hidup seperti TUJUAN HIDUP,
i. Penghafalan teori fizik tanpa melihat falsafahnya,
j. Dakwah memerlukan sumber Rabbani dengan sentuhan manusiawi,
k. Tidak mengharmonikan fitrah manusia dengan nas,
l. Kesan mundurnya bidang sains Kemanusiaan dan Falsafah membantutkan perkembangan ilmu

3. Walaupun saya bersetuju perbezaan ketara antara Indonesia (tidak terdedah secara terus kepada Mesir/Turki) dan Malaysia, berhubung penutupan Jabatan Falsafah di UUIM, saya kurang setuju kepada hasil yang dicapai oleh negara-negara Islam yang mempunyai pemikir-pemikir efektif, seperti yang ustaz utarakan. Saya setuju ustaz mendoakan … agar berjaya membentuk manusia … tetapi agar itu adalah harapan yang belum kesampaian. Dan sekiranya persamaan yang tercatit di perenggan 2 di atas tidak diselesaikan, saya tidak nampak kejayaan akan menyebelahi pehak mereka.

Peta

4. Kesemua perkara Per 2 di atas, mempunyai satu faktor utama. Penggunaan potensi akal secara ilmiah (sainstifik). Ramai yang tidak mahu menggunakan potensinya. Samada telah dimomok-momokkan oleh persekitaran atau diwarisi melalui keturunan. Saya sedih berjumpa dengan golongan professional yang masih dihantui dengan pemikiran kampung, walaupun telah lama di luar negara. Kongkongan budaya (konsep isi dan kulit perlu difahami di sini) nampaknya terlalu kuat menyelubungi golong ini. Hasilnya falsafah dianggap bertentangan dengan Islam. Kebebasan fikiran bertentangan dengan Islam. Iman taklid (yang hendak berimanlah) warisan datuk nenek yang dipegang. Memang ada tajdid dilakukan tetapi kadarnya terlalu sedikit atau terlalu lambat untuk memberi kesan pada masyarakat.

5. Ada yang memberikan alasan hambatan dunia sebagai sebab menolak berfalsafah (fikir). Saya kira di dunia pun tidak berjaya. Seperti kata ustaz “Nak mengaji kena cerdik ke nak cerdik kena mengaji?”. Memang ia dalam bulatan, setiap pusingan menghasilkan sedikit penambahan. Sebab itu saya mengambil DUIT sebagai doa (akan datang tajuk di bawah Teori Darwin untuk ini). Doa (senjata mukmin) hanya mengeluarkan hasil, apabila ada putaran roda dimulakan dengan Doa, yang menimbulkan azam, ikhatiar (membuat pilihan) kemudian Usaha, Iltizam dan seterusnya Tawakkal. Kalau di sendirikan sahaja doa dia menjadi senjata makan tuan (ke arah kemusnahan). Hanya mengarah Zat yang Maha Mengetahui menguruskan urusanNya tanpa melaksana apa yang sepatutnya dilakukan.

6. Saya bersyukur menikmati B.Sc(Hon) percuma dari JPA di UK. Sejak mula bekerja saya bertekad mengenali diri dengan tema “… aku dah jemu kaji system electronics, nak kaji system diri”. 2 tahun sempat mendedahkan diri di Medan, menanggalkan iman, letak di depan dan kaji keimanan itu tulin atau taklid. Pelbagai persoalan pelik boleh ditanya dan cari jawapannya. Berulang ke gereja (tak boleh cerita patutnya kat Malaysia) dengan Pak Indon bersongkok dan bersalib. Mereka kata Allah yang Maha Kudus seperti Paderi Arab di zaman Nabi menyebut Allah. Semuanya tidak dapat dibuat tanpa akal yang mengenal diri dan Haliqnya. Buku falsafah lebih banyak saya rujuk dari buku Electronics. Tetapi system elecronics banyak mengajar ketuhanan. Hukum Fizik banyak kearah Tauhid (satu lagi tajuk di bawah siri Darwin, insyaallah)

Peta

7. Meninggi diri ke tepi, apa yang ingin saya lakukan ialah menguji diri menyampaikan yang tersirat di minda kepada orang lain. Saya sedang menguji diri dengan kelas “Permata999″ untuk 5 orang anak saya, yang akan melepasi tahun pertama menjelang 50t merdeka. Temanya tidak lain dari kepentingan menggunakan akal, mengkaji carakerja Haliq, mengenal diri untuk mengenal Haliq, pentingnya sains (dulunya natural philosophy), penggunaan Pintu untuk keluar ke Kitab Alam (Bhg 3 Per2) dsb.

8. Beragama timbul dari konsep berbudaya (yang kemudian membena tamaddun) di mana buku panduannya datang dari ‘langit’. Keperluan beragama timbul dari ketidakmampuan fiikiran manusia mencari jawapan kepada persoalan yang dihadapinya. Bayangkan di zaman kuno, belum ada guru/buku/internet nak rujuk, bunyi guruhpun satu keajaiban, kemarahan sesuatu/seseorang, terjejasnya mata pencarian dan pelbagai persoalan lain. Mula dengan ketakutan menjadi penghormatan dan akhirnya pendewaan. Timbullah bermacam-macam tuhan. Akhirnya kebenaran datang mengatakan “Tiada tuhan melainkan Allah”, tetapi ramai telah mewarisi ketakutan nenek moyang lampau dan tidak mahu beganjak dari beriman taklid kepada beriman ilmu dengan berfalsafah.

9. Nafsu yang dibekal untuk mencetus kehidupan telah disalahgunakan oleh manusia. Kita tak boleh hidup tanpa nafsu. Jadinya manusia lebih keras daripada batu adalah kerana nafsu. Kepincangan pewarisan tamaddun Nabi saw adalah kerana nafsu. Dari satu sudut, sekiranya makanisma pembentukan manusia dijadikan lebih manusiawi, ianya akan gagal kerana lebih manusiawi itu bermakna melayani kebatunya. Sebab itu Nabi saw menyebut nisbah 1:72 nya, untuk mengingatkan yang terpilih, dimana air dapat membentuk kebatuannya.

10. Soft science, (malah bidang-bidang lain di Barat) berjaya kerana kefahaman orang Barat sekular (masih ramai yang beragama) menerapkan (lebih kepada exploitation) sifat semulajadi kebatuan (mengikut selera) manusia di dalam perlaksanan pemasaran mereka. Bhg 2 Per 13 dan Bhg 5 - menjadi penumpang/pengguna. Pertama mereka membuat pembacaan Alam kemudian mereka gunakan teori-teori yang dapat memberikan kejayaan pemasaran produk mereka. Sebab itu konsep isi dan kulit pisang diutarakan kerana kita akhirnya terpaksa memilih sesuai tujuan. Hanya iman ilmu dapat memberikan jawapan yang tepat sesuai nisbah 1:72.

Allahu a’lam.

1. Ingatlah kita adalah roh, yang diberikan jasad. Sebagai pemandu, yang bertanggung-jawab ke atas kenderaan, kita juga tidak lari dari menjadi penumpang. Lainkah kalau kita bermain kereta kawalan jauh, di mana kita hanya bertanggung-jawab kepada arahtuju tetapi tidak menjadi penumpang. Maka teruslah kita memandu dari belum mendapat lesen (baliq) sehinggalah mendapat lesen dan kemudian menjadi pemandu berhemah terbaik atau sebaliknya di jalan-jalan raya.

2. Kenderaan kita melalui liku-liku jalan dan lorong. Membelok ke kiri kanan, menaiki bukit dan bukau, menuruni lembah dan lurah, dari hari ke hari ke mana sahaja pemandu mengarah. Kalaupun kenderaan diibaratkan sebagai kenderaan laut atau udara sekalipun, dimana tidak memerlukan pembenaan laluan yang khas, laluan itu menumpang di bumi Haliq. Katakanlah kita terpilih menjadi angkasawan muslim pertama ke luar angkasa (di luar dari air, tanah dan udara) kita masih menumpang di ruang Halik. Haliq yang membentuk 3-dimensi ruang dan satu dimensi masa untuk kita menikmati kehidupan di alam ini.

3. Balik mendarat ke daratan, tamaddun manusia berkembang sesuai berkembangnya pemikiran kita. Dari tamaddun kuno kita berkembang menjadi modern. Berpuluh tamaddun silih berganti. Yang besar yang kecil, berubah-ubah setiap masa. Satu tamaddun menguasai tamaddun yang lain, kemudian dikuasai pula oleh tamaddun yang lebih kuat, sesuai teori, dalam penelitian yang dilakukan Darwin. Kita kemudian menjadi penumpang kepada tamaddun berkenaan.

Peta

4. Perkembangan tamaddun pula dipacu oleh sains. Ilmu sains, yang telah banyak disentuh sebelum ini menghasilkan teknologi. Menghasilkan kemudahan, keselesaan, keadaan yang lebih tenang bagi manusia menikmati keindahan alam. Sehinggakan banyak fungsi-fungsi jasad yang ‘tidak diperlukan’ manusia modern sekarang, yang sekiranya tak dikawal menghasilkan kemudaratan kepada jasad. Tanpa disedari kita telah menjadi penumpang (pengguna) di dalam kemajuan sains juga. Ya kita rasa nak pecah otak, menunutut ilmu, bila masuk kelas jurusan sains! (kiralah berapa sahaja kelayakan ke jurusan sains), tidakkah kita terfikir bagaimana susahnya mereka yang memulakannya atau menemuinya?.

5. Akhirnya, perkembangan tamaddun, sains dan kehidupan bergantung pada ekonomi. Apa itu ekonomi? Pada peringkat asasnya (survival) ia tidak lain menceritakan pasal kegiatan utama mahluk yang hidup iaitu makan. Berkembanglah ekonomi dari pemburu-pengumpul (hunter-gatherer), … dan akhirnya ekonomi morden yang dipengaruhi Adam (Adam juga!) Smith. Menumpanglah lagi kita, kali ni sistem ekonomi puka. Jadi bangaimana dengan bank yang islam itu? Akan dibincangkan di topik mendatang.

6. Maka, seterusnya patutkah kita terus menumpang sahaja? Di mana harus kita letakkan sempadan menjadi penumpang semata-mata dengan menjadi penumpang yang memandu? Dengan ilmu apa yang perlu kita gunakan untuk menjadi penumpang yang memandu, yang tahu dengan pasti pada arahtuju? Yang tahu dari mana (asal kita) dan hendak kemana tujuan kita? Apakah ilmu sains atau ilmu arts yang akan menjadikan kita penumpang/pemandu yang berhemah di bumi Haliq ini? Jawapan sudah tentu ilmu sains … ilmu mengenal carakerja Haliq, bukan ilmu arts yang hanya berkisar kepada mengenal carakerja mahluk (jangan buang arts pula!

Peta

7. “Dan mereka berstrategi (makar) dan kemudian Allah. Sesungguhnya Allah yang terbaik dalam berstrategi (Innallah khirun makirin)”. Berstrateginya manusia adalah ilmu arts dan berstrateginya Allah adalah ilmu sains. Berstrateginya manusia (yang bukan manusia kurang sikit) menghasilkan perbezaan, perpecahahan, dari satu ke banyak (divergent) sementara berstrateginya Allah adalah kearah yang satu, penyatuan, convergent. Mengkaji carakerja mahluk sekali lagi dinama ilmu arts dan mengkaji carakerja Haliq ialah ilmu sains. Sebab itu kita perlukan syariat Allah! … lupakah kita bahawa syariat itu berubah-ubah mengikut zaman?

8. Kepentingan dan keutamaan mengetahui carakerja Allah (sunattullah) tidak dapat dipertikai. Sunattullah itu yang membentuk alam ini, iaitu semua mahluk, termasuk kehidupan dan manusia. Al Quran berkali-kali mengatakan berlakunya kejadian-kejadian semulajadi merupakan ayat-ayat Allah, tanda-tanda kehadirannya. Apa yang perlu diingatkan lagi ialah tiada sesuatu berlaku (termasuk kejayaan sains dan teknologi) yang boleh berlaku tanpa kehadiranNya. Tiada kekuatan (tenaga, kuasa) melakukan sesuatu melainkan dengan kehadiranNya. Segala-galanya converge kepada tenaga, ‘tenaga asli’ kepunyaan Zat Allah.

9. Memperingati status menumpang, saya dengan ini meminta izin kepada Ust Hasrizal untuk menumpang di halamannya buat sementara. Walaupun tahu sedikit tentang komputer, penumpangan ini akan mengingati saya status sebagai penumpang di bumi Allah. Belum sentuh pasal yang menumpang carta populariti halaman ini. No 5 keseluruhan tetapi No 1 pada tema yang saya cari, keterbukaan berbincang hal agama. Memang senang nak cari masjid yang buka pintu, tetapi susah nak cari penjaga yang mengizinkan kafirun masuk, melainkan ada munafikun dan sirkun yang terlepas di saf pertama (zaman Nabi saw pun berlaku, jadi tak bimbang).

10. 7:181 … “Dan di antara orang-orang yang Kami ciptakan ada umat yang memberi petunjuk dengan hak, dan dengan yang hak itu (pula) mereka menjalankan keadilan. Dan orang-orang yang mendustakan ayat-ayat Kami, nanti Kami akan menarik mereka dengan berangsur-angsur (kearah kebinasaan), dengan cara yang mereka tak ketahui. Dan Aku memberi tangguh kepada mereka. Sesungguhnya renacanaKu (programKu bahasa modern) amat sungguh.”

Allahu a’lam.

Setelah menghantar dan menggambil anak-anak, saya nak mengenali software ni. Tak tahu yang mana satu bagus sebenarnya dari antara blogger software yang ada, tapi kerana Ust Hasrizal dah recommend yang ini maka saya akan cuba memaksimakan penggunaannya, kalau boleh semua yang kosnya minima.

Selasa 280807 Juzuk 8 Surah Al A’raaf Ayat 65-79
Kisah nabi Hud as dengan kaum ‘Aad (ayat 65-72) dan nabi Shaleh as dengan kaum Tsamud (ayat 73-79)
Keangkuhan kaum ‘Aad yang diberikan tubuh badan yang besar dihapuskan Allah dengan ribut taufan berterusan selama semimggu.
Kedengkian kaum Tsamud membunuh unta yang meminum air bersama mereka.

Assalammualaikum semua,

Atas galakan seorang kenalan maka lahirlah bolg ini.

Tujuannya, seperti yang termaklum, untuk menyurat apa yang tersirat. Hidup yang indah ini perlu di dihargai. Setiap hari medapat ilham untuk melakukan aktibiti hidup harian, sesekali terdapat sesuatu yang patut disuratkan bagi peringatan dihari mendatang. Mungkin kita akan lupa apa yang pernah kita fikirkan, sekiranya tiada catatan. Disamping itu dengan adanya pembaca sekalian dapat dikongsi bersama pengalaman yang dilalui.

1. Pencarian manusia kepada tuhan bermula dari ‘baliq’. Setelah Allah swt mengajarkan nama2 sebagai simbolik kenaikan pangkat kepada khalifah. Perlu juga diingat mulanya Islam (budaya hidup) juga pada saat yang sama. Bukan bermakna yang sebelum itu tidak Islam, (seluruh alam bertasbih kepadaNya) tetapi dengan bermulanya kewarasan akal, mahluk Allah dipertanggung-jawabkan dengan pilihan yang dibuat. Perkembangan pengunaan akal terus meningkat dari saat itu, berinteraksi dengan alam dengan petunjuk (sedar atau tidak) dari Allah swt.

2. Kita adalah roh, yang diberikan jasad sementara di dunia sebagai kenderaan, untuk menjalani ujian mengabdikan diri kepada Allah dengan jiwa (nafs-diri) sebagai perantara roh dan jasad. Roh kita sangat kenal (arif) dan rapat (qarib) kepada Allah swt, tetapi bila dapat saja kereta baru terus bergelar si-pelupa (An-Naas). Maka teruslah kita memandu kereta, dengan kadang2, tak tahu nak kemana dan dari mana kita datang. Memandu terus memandu tanpa mengira hadlaju dan di hadapan polis menunggu. (Ketertiban hilang bila terpandang tanda hadlaju.)

3. Dari bekalan sedikit ilmu yang Allah swt berikan, manusia terus belajar untuk memenuhi ruang kosong di dalam mindanya, dengan memerhatikan persekitarannya (Eienstian pun guna kurang 10%). “Aaa.. macan tu nak tanam mayat rupanya” kata Qabil … sehinggalah “Aku tak suka yang tenggelam timbul, sekejap ada sekejap tak ada, macam matahari/bulan” kata Nabi Ibrahim. Maka Allah swt terus menyalurakan kepakaran2 kepada insan2 pilihanNya. Dari tukang kayu, kemudian tukang besi. Berkomunikasi dengan binatang dan sampailah pandai menulis ‘blog’ di zaman Nabi Ibrahim dan Mesopotamia.

Peta

4. Maka setiap kali manusia berusha memahami alam, dia sebenarnya cuba memahami carakerja Allah swt (sunahtullah) dan ilmunya dipanggil ilmu sains (mula abad 19) atau falsafah semulajadi (natural philosophy) sebelum itu. Sebaliknya, segala tingkahlaku manusia, khasnya dan mahluk lain amnya, dikategorikan kepada arts. Makan, minum, bersosial dan segala macam kegiatan manusia termasuk berbudaya dan beragama adalah contohnya. Begitulah dua kategori besar carakerja - Halik dan mahlukNya.

5. Dalam berbudaya, menusia sering bercakaran antara satu sama lain kerana rambut sama warna tapi hati lain2 (mengikut selera nafsunya). Sesuai perkembangan minda manusia, Allah swt mensyariatkan cara berbudaya (beragama) melalui penurunan kitab2/suhuf2, dengan Al Quran sebagai yang terakhir. Syariat Allah itu kemudian diterjemahkan kepada budaya Islam melalui Nabi Muhammad saw, yang dirujuk sunnah Rasullulah (syariat Allah). Sebelum itu dikatakan terdapat 124,000 nabi2 dan 313 rasul2 yang menjalankan kerja penyampaian!

6. Mencari jawapan kepada persoalan ‘dari mana nak ke mana’ merupakan resah gelish akal yang hidup dan waras. Ahli Falsafah (dari perkataan greek philosophía - lover of wisdom) adalah pencinta kewarasan. Dari SPA (Socrates-Plato-Aristotle) sehinggalah Al-Ghazali, pengetahuan tentang sunattullah berkembang selaras dengan perkembangan minda dan alat pengkajian. Segala kemajuan ini, tidak dapat tidak, perlu dikaitkan dengan petunjuk (hidayah) dari Allah, kerana Allah sajalah Guru yang Maha Mengetahui rashia alam (mahluk) dan hanya dengan Dia sajalah, yang memungkinkan sesuatu berlaku. Laa hawla walaa kuwata, illa billah.

Peta

7. Pewarisan pengetahuan mengenai perkembangan peristiwa dari generasi ke generasi, berlaku secara lisan sebelum adanya cara persuaratan. Kajian yang dinamakan ilmu sejarah ini, tidak terbatas kepada carakerja manusia sahaja, malah ia merangkumi carakerja Allah swt juga. Oleh kerana sejarah penulisan hanya berusia kurang 5,000 tahun sahaja, maka segala sejarah (samada carakerja Haliq dan Mahluk) yang berusia lebih dari itu, terpaksa dibuat berdasarkan ‘penulisan’ Allah (”yang mengajar dengan Qalam”) berbentuk fosil, artifact, kesan sejarah dan sebagainya (dsb).

8. Teori Darwin adalah berkenaan sejarah kehidupan (berusia 4 billion tahun), dari sudut carakerja Allah swt (nature) yang memerlukan pendekatan sains (bagi menapis teori Mat Jenin) berbanding dengan Ilmu Sejarah yang biasa, selalunya mengkaji carakerja manusia (tindak taduk, kelakuan, perangai, ragam, politik, dsb manusia) yang selalunya terbatas kepada peradaban tidak lama dahulu (kurang 5000 tahun). Teori Big Bang pula adalah berkenaan segala yang tidak hidup (untuk menyokong kehidupan), yang mula jauh lebih awal (berusia 14 billion tahun). Memahami kedua2 teori ini merangkumi segala sudut kewujudan alam, pentajjallian Allah.

9. Pewaris Nabi saw sepatutnya mempunyai kedua2 kepakaran Ilmu Sunatullah dan Ilmu Syariat Allah (Sunnah Nabi). Ibarat pada fitrahnya manusia memerlukan dua kaki bagi menstabilkan perjalanan (walaupun ketika memandu), untuk tidak mudah goyang ditiup gelora mendatang. Ingatlah Nabi saw adalah seorang saintist, kerana mengeluarkan kenyataan2 sains disamping gelaran2 lain yang banyak disandangnya. Masakan berkesan fungsi pewaris sekiranya berjalan kali sebelah atau memakai tongkat. Apakah kepincangan muslim dewasa ini tidak disebabkan oleh tongkat yang patah?. Ukurkah kewarasan kita melalui ilmu sains dan arts.

10. Apabila telah siap puji/pinta (solat) bertaburlah kamu di muka bumi, mencari kelebihan2 (carakerja) Allah. Berjalanlah di atas bumi untuk melihat akibat kepada umat2 yang mengengkari ayat2 Allah (sunattullah). Di dalam penciptaan langit/bumi, siang/malam (Teori Big Bang dan Teori Darwin), terdapat ayat2 (Allah) bagi mereka yang berfikir (secara sainstifik bukan cara pak Pandir). Dan akan ada antara kamu yang menyalahgunakan ayat2 mutasyabihat (samar suratannya tetapi jelas siratannya, selepas dikaji semestinya). Semuga dibukakan pintu hati menerima tulisan Allah di alam ini. Blog tertua dalam sejarah.

Allahhu a’lam.

D_Kadir … Al Quran tidak menceritakan dengan jelas berkenaan ummat yang diciptakan sebelum Nabi Adam.

Adros … kefahaman mendalam tentang sains & syariat.

Nyamuk … Apa itu beriman dengan perkara ghaib?

Cidos … membuka ruang pengkajian, bukan menerima sepenuhnya.

Petikan2 di atas menghasilkan kenyataan2 berikut;

1. Kemunculan ICT atau IT memudahkan minda melompat dari satu suasana ke suasana yang lain, tidak terbatas dengan sempadan phisikal dan kekekangan masa. Untuk sampai ke halaman ini, kita ke halaman utama Ust Hazrizal dan kemudian melompat/berpaut ke sini. Halaman utama memaparkan ringkasan tajuk2 dengan butiran lanjutnya disajikan di halaman2 lain dengan terperinci.

2. Kitab Al Quran di turunkan Allah berfungsi memaparkan petunjuk2 (hidayah) utama dan kemudian mengarahkan kita merujuk ke Kitab Alam untuk mendapatkan banyak butiran lain. Al Quran (berbahasa Arab) juga membenarkan kitab2/suhuf2 yang telah diturunkan sebelumnya (yang diturunkan dalam pelbagai bahasa). “Penciptaan langit/bumi, siang/malam merupakan ayat2 Allah” dan banyak lagi ayat2 sains yang mengarahkan lompatan/pautan dari Al Quran kepada Kitab Alam.

3. Al Quran yang mengandungi 6236 ayat boleh dibahagikan kepada 7 tajuk utama antara lain ilmu mentauhidkan Allah, ilmu pengurusan (individu dan masyarakat), cerita2 tauladan dan sempadan dan ilmu sains (perkataan ilmu dan sains itu sinonim dalam bahasa Arab!). Tidak kurang dari 1000 ayat Al Quran adalah ayat2/kenyataan2 berkaitan sains. Sebagaimana Nabi Muhammad saw diagungkan sebagai seorang pembena negara (negarawan yang membena empire yang luas) kita tidak harus lupa Nabi saw juga seorang sainstist (orang yang membuat kenyataan2 sains), walaupun cara memperolehinya adalah laduni berbanding cara empirikal.

Peta

4. Al Quran itu jelas (”tiada keraguan di dalamnya”) dalam hal2 prinsip, asas, usul, fandumental tetapi mengarahkan manusia melompat/memaut (”klik dengan tetikus”) ke Kitab Alam, dengan berbekalkan akal yang diberikan Allah. Oleh kerana keutamaan persekitaran pada zaman Nabi adalah berteraskan pembangunan asas umah dan negara, persoalan2 sains kurang mendapat tempat dalam periwayatan (hadis), bukan kerana ketidakmampuan minda ketika itu tetapi kerana keutamaan yang mendesak. Maka timbullah banyak isu sains tidak jelas di dalam Al Quran atau hadis.

5. Haliq (Allah) membentuk mahluk (pelbagai jenis). Allah itu adalah selain dari mahluk (awas menyebutnya!). Muhalafatu Lil Hawadis. Maka dalam membincangkan carakerja hanya dua kategori besar, carakerja Haliq (Allah) atau carakerja mahluk, dan Sains itu adalah carakerja Allah (sunattul Allah) dan Arts (melayunya disempitkan kepada Seni) adalah carakerja mahluk (terutamanya manusia). Maka syariat itu adalah wahyu (recomendation?) Allah kepada carakerja manusia. Sepanjang penurunan kitab2/suhuf2, sains tidak berubah (termasuklah satunya Allah) tetapi syariat berbuah2.

6. Otak mempunyai pelbagai fungsi. Utamanya sebagai CPU (central prosessing unit), mengkoordinasi segala subsistem yang ada. Akal (+ve rational mind) dan “hati” (-ve emotional mind) adalah dua indera utama bersama2 lima indera biasa -pandang, dengar, rasa, sentuh dan bau, yang digunakan manusia sebagai alat menerima input luaran. Dengan akal kita menerima ilham (secara terus atau melalui sesuatu) dan dengan “hati” kita tersentuh perasaan melihat/mendengar sesuatu berita sedih. Jurang kepekaan (Sensitivity Range) kesemua indera2 adalah terbatas, contoh kelawar dapat mendengar apa yang kita tak dengar dsb. Segala2 yang berasa di luar jurang kepekaan indera adalah sesuatu yang ghaib bagi kita.

Peta

7. Al Quran, pintu yang membolehkan kita menyelami dan menyakini carakerja Allah (sains) memberi peluang kita membuka pelbagai kunci ghaib (rashia) Allah, walauppun kebolehan tersebut banyak dipelopori golongan kafirun. Hasil sains adalah apa yang digelar teknologi. Dengan teknologi kita dapat memperbesar jurang kepekaan indera kita, guna untuk melihat sebahagian dari yang ghaib. Mikroskop diguna untuk melihat kuman. Teleskop untuk melihat cerkawala. Thermometer untuk mengukur kepanasan di dalam relau. Ilmu mantis sebagai teknologi berfikir secara qias (parallel, inductive, etc thinking) membolehkan pemikiran kita menjangkau idea2 yang sebelum ini dilihat sebagai mustahil.

8. Oleh itu berilah keadilan kepada Pintu, dengan menggunakannya sebagai laluan keluar mencari jawapan kepada pelbagai masaalah sains dan teknologi. Ayat2 Allah di Kitab Alam tidak terhingga banyaknya berbanding yang dapat disuratkan di dalam Al Quran. Sekiranya kita sebagai muslim tidak mampu melakukannya, janganlah kita menjadi pembangkang kepada saintist2 yang menggunakan kepakaran dan displin yang kukuh dalam menterjemah Kitab Alam kepada bahasa yang mudah kita fahami (sebenarnya bahasa sains ialah mathematics - susah juga nak faham!). Teori Darwin adalah salah satu hasil dari pengamatan kejadian alam. Sains pernah membuktikan kesalahan sangkaan bahawa matahari mengelilingi bumi. Kalau dulu Corpernicus yang terkorban, janganlah di zaman ini minda muslim yang terkubur disebabkan kesangsian menerima penemuan sains.

9. Allah yang membentuk buruk dan baik, isi dan kulit pisang. Apabila Al Quran menyatakan syaitan itu adalah musuh yang nyata, kita menerima carakerja Allah (yang mencipta jin) tetapi kita disaran untuk tidak mengambil kemudaratan mengikutnya, dalam carakerja kita sebagai khalifah di bumi Allah. Apa yang dikemukakan oleh sains sebenarnya adalah carakerja Allah yang berhak mencipta buruk dan baik. Dari satu sudut kita perlu melihat bahawa Allah hanya perlu membentuk yang baik sahaja (seperti mana di dibancang lalu) kerana yang buruk itu adalah kesan dari pembentukaan yang baik!. Kehalusan senibena Allah.

10. Allahlah yang menurunkan air (senang diterima). Allah jugalah yang menurunkan pakaian (Al A’raf) dan Dialah yang menurunkan besi (Al Hadid). Kedua penurunan pakaian dan besi perlu merujuk kepada saintist untuk mendapatkan penjelasan lanjut bagaimana penurunan air membolehkan penanaman pokok yang mengeluarkan kapas dan proses pembentukan Ferrous Oxide (besi) di permulaan alam ini yang saintist sebut sebagai “Big Bang”.

Allahu a’lam

Saifulislam … Islam akan dianggap mengarut, apabila gagal berinteraksi dengan pencapaian sains dan teknologi.
… Setiap artikel yang ditulis adalah untuk menggalakkan pembaca berfikir, bukan menelan.

Abu Imad … provocating minds without enough reasoning is sometime dangerous.
… Some information can be translated to knowledge, not all information is knowledge, information without understanding is lost, knowledge without understanding is also lost.

Ummu Saif … cepat pesimis dgn sstgh teori barat tanpa analisa yg kukuh.

Petikan2 di atas menghasilkan kenyataan2 berikut;

1. Saya merasa teruja dengan tajuk Darwin ini. Ia bukan sahaja kerana kontrovesinya tetapi menjadi kayu pengukur di mana kedudukan iman dan ilmu kita. Di Barat beberapa blog khas (bukan tajuk sahaja) membincangkan hal ini, secara berterusan. Evolutionist vs Creationist (evc). Evc telah melahirkan “Intelligent design (id)”. Bagaimanapun id kalah dalam beberapa siri tuntutan di mahkamah. Id dilihat seperti “Rufaqa mengantikan Arqam”.

2. Allah menjadikan alam ini dengan berpasangan, paling asas unsur baik dan jahat (+ve vs -ve, singkatnya +v-). Kita harus memadang +v- dengan kacamata monoism bukan dualism, yang menyebabkan nanti adanya dua pentabdir alam (seperti terlihat di dalam beberapa kepercayaan yang ada di dunia). Al Quran mengatakan “Dia yang mengilhamkan fujur (buruk) dan takwa (baik)” yang disalurkan ke alam ini melalui malaikat dan syaitan.

3. Pemberian akal pada manusia adalah untuk tujuan tidak lain membezakan +v-. Keterbukaan kita menerima bahawa baik itu adalah tiadanya jahat dan sebaliknya, akan memberikan erti kesenian yang halus dalam penciptaan Allah. Ibarat see-saw mainan kanak2, naiknya sebelah kanan adalah kerana turunnya sebelah kiri. Banyak mana tahap ketinggian di kanan akan menghasilkan tahap kerendahan yang sama di kiri, dari neutralnya - mendatar.

Peta

4. Pisang itu adalah terdiri dari isi dan kulit (barang dan bungkusannya). Kita tahu (malah Adam-adam juga) mengambil isi dan membuang kulit. Kalau ada yang memberi (menyampaikan) isi sahaja tanpa kulit, kita rasa kurang selesa, walaupun kita akan membuang kulit sebelum mengambil isinya. Kulit itu memastikan isi berada di dalam keadaan terbaik. Walaupun ibarat ini terlalu simpified tetapi itulah hakikat alam.

5. Al Quran mengemukan ayat2 mahkamat (nyata hukumnya) dan mutasyabihat (samar maknanya). Sudah pasti Allah mengemukakannya untuk kita menggunakan nikmat terbesar yang Dia berikan. Akal untuk berfikir. Hasilnya kita berikhtiar (membuat pilihan terbaik). Kita jelas dengan fungsi kulit pada isi kerana ia adalah di tahap asas melihat +v- (tahap tadika). Naik ketahap SRP, SPM, Ijazah seterusnya PhD ia semakin “sukar” untuk memahami/menikmati kesenianNya.

6. KesenianNya yang halus hanya dapat dilihat dengan pemikiran yang tajam. Pemikiran yang datang dari akal yang telatih dan sentiasa dilatih. Minda (sejenis dengan roh) yang sehat memerlukan makanan sebagaimana jasadnya. Berfikir antara makanan utama minda yang perlu terus dijentik (provocating minds) untuk mengatasi lupa (tidak aktif). Manusia itu fitrahnya pelupa (AnNas). IQ, EQ, Intelligent, Sentience, Sapience antara pharsa yang perlu dirujuk.

Peta

7. Kesesatan membuat kita tidak tahu kita dimana. Paling teruk lagi dah tak tahu nak kemana!. Dalam kelam kabut mencari arah, ramai yang mengambil pendekatan yang ramai itu selalunya benar. Popularity. Perlu diingatkan teguran Nabi saw kepada ratio 1:72 dan 1:73. Tanpa kesedaran kepada pentingnya berfikir secara rational (mengikut akal) dan tidak berfikir secara emotional (mengikut hawa-nafsu), manusia akan terus menjadi an-nas (si pelupa). Ingatlah roh kita telah berjanji dengan Tuhannya.

8. Allah itu Maha Adil. Akal yang diberikan pada manusia sehingga ia menjadi “baliq” dan mendapat pangkat Khalifah di Bumi, perlu digunakan dengan melihat kepada hasil (dari pilihan yang dibuat). Kemajuan tamaddun manusia sehingga kini dicapai atas landasan sains, yang menghasilkan teknologi. Pemikiran yang membolehkan pengambilan isi dan “menghargai” fungsi kulit sebelum membuangnya, menghasilkan manusia yang berjaya. Dengan hanya mengatakan kulit itu tidak berguna tanpa mahu berfikir tentang keseniannya tidak mempraktikkan keadilan Allah, kerana keadilan itu adalah meletakkan sesuatu pada tempat/fungsinya.

9. Terlalu awal mengatakan Allahu A’lam tidak menjadikan kita awal ke syurga. Apatah lagi apabila sikap kita selepas itu, menyerahkan segalanya kepada takdir. “Ikat tali untamu dan kemudian bertawakkal”. Kita perlu didedahkan dan belajar mendedahkan diri kepada +v- dan tidak hanyut di arus sangkaan. Hanya dengan ilmu sesuatu pada sangkaan itu menjadi sebaliknya. Persimis akan hanya membuatkan kulit pisang tak berguna lansung, sedangkan ia telah berfungsi buat beberapa ketika.

Peta

10. Kekhuatiran tersesat, tidak membantu dalam mencari arah-tuju. Was-was itu disemai syaitan ke dalam dada (pemikiran) manusia. Berbeza dengan muhasabah, yang lehih berkesan untuk mendapatkan arah-tuju dan sepatutnya dijadikan alat mencapai kemajuan. Melangkahlah dengan cermat berbekal ilmu di dada dan ingatlah tersalah langkah yang pertama, tidak menjadi kesalahan sekiranya tak berulang. Tidak melangkah kerana kekuatiran tak memberi peluang untuk ke mana2.

11. Lambakan maklumat lebih baik dari tiada lambakan. Apakah sebelum lambakan di alam maya, tidak berlambak maklumat di alam nyata? Bukankah Allah yang mencipta pisang dengan kulitnya? Kita tahu yang kita perlukan ialah ilmu. Kanak2 berlatih mengopek kulit pisang setelah belajar tentangnya maka ilmu itu adalah hasil dari mengupas kulit maklumat. Khabil belajar dari burung gagak dan Allah tidak pernah berhenti memenuhi alam ini dengan catatanNya. (Dia mengajar dengan Al-Qalam). Blog tertua di dalam sejarah.

12. Pemerhati2 alam (sainstist) memaksimakan kepekaaan indra untuk menghasilkan kenyataan2. Mereka membaca alam dengan tekun dan teliti. Dengan peredaran zaman terbentuklah satu tata-cara/teknik pemerhatian alam. Perkataan sains hanya timbul awal abad ke 19, sebelum itu ilmu pemerhatian alam dirujuk sebagai “natural philosophy”. Antara kaedah asas pemerhatian ialah empirikal - sesuatu yang boleh diujukaji berulangkali. Tidak ada pembohongan atau sangkaan kerana ujikaji mestilah boleh diulang berkali2 dan boleh dibuat oleh pengkaji yang berbeza. Tidak timbul isu isi menjadi kulit dan kulit menjadi isi. Kedua2 kulit dan isi, dikaji tentang zat, sifat/tingkahlaku (dan perbuatannya sekiranya berkenaan).

Peta

13. Sudah pasti pengalaman sainstist dan pembaca/pengkaji kenyataan sainstist dua pekara berbeza. Lebih pasti kefahaman kepada apa yang dikaji jauh berbeza. Yang pasti sainstist2 ini yang telah menghasilkan teknologi yang kemudian membentuk perubahan kepada tamaddun manusia, sedangkan pehak kedua menjadi penggunanya. Apakah pengguna (atau pengkaji kenyataan) lebih arif dengan alat yang digunanya dari pencipta yang menghasilkannya? Allah Maha Mengetahui apa yang dibentukNya dan Dia telah memberikan keizinanNya kepada semua yang telah dicipta melalui sains dan teknologi.

14. Kegagalan berinteraksi dengan pencapaian sains dan teknologi mempunyai implikasi keimanan yang besar. Tanda nyata iman takliq yang menguasai diri. Tidak ada pencapaian sains dan teknologi yang terkeluar dari genggaman Allah. “Tangan Allah di atas tangan mereka”. “Tiada satu zarrah (atau yang lebih kecil dari itu), walaupun yang didalam gelap gelita, yang terlepas dari pengetahuan Allah”. Maka kegagalan memahami sains adalah kegagalan memahami ayat tersebut, dan kegagalan mengenal Allah yang sebenar. Kegagalan mengenal Allah yang sebenar, bermakna mensyirikkan Dia, lebik teruk dari kafir (kedudukan kebanyakan saintist2 yang berjaya). Allah yang membentuk kulit dan isi pisang.

15. Janganlah terus terbawa2 dengan prasangka buruk pada kulit pisang hanya kerana ianya tidak boleh dimakan. Ada mahluk Allah yang lain berminat kepadanya. Dan seterusnya janganlah kita menyangka mahluk Allah yang berminat dengan kulit tersebut tidak memberikan manfaat kepada kita. “Sesungguhnya ia bagi kamu musuh yang nyata”. Masaalahnya musuh yang nyata itu jauh lebih mudah diperangi dari musuh dalam selimut. Ibarat balik dari perang yang sangat dasyat, ada perang yang lagi sangat dasyat. Belajarlah berinteraksi dengan musuh yang nyata untuk memerangi musuh yang berada di dalam selimut. Ketahuilah minda kita yang berprasangka berpotensi menjadi musuh dalam selimut.

Peta

16. Tuntutlah ilmu bukan belajar, kerana belajar itu untuk lulus periksa dan kemudian dapat kerja. Malangnya setelah dapat kerja yang belajar selalunya berhenti belajar, tetapi yang menuntut berhenti hanya kerana berpindah. Berpindah ke alam lain. Menuntut menjadikan kepekaan indra (5 biasa, akal dan hati) bertambah tinggi kearah mencari kebenaran hakiki (kebenaran kebenaran). Hanya ilmu dapat mengingkatkan tahap keimanan. Hanya ilmu dapat merungkai kehalusan senibena Allah yang diteliti Darwin mengandungi 3 ciri kontroversial, Game of Chances, Natural Selection dan The Fittest Survived.

17. Al Quran ada mengingatkan kita supaya jangan mencemuh Tuhan orang lain, dikhuatiri mereka akan mencemuh Allah. Walaupun ada yang mengatakan ayat tersebut telah dimansuhkan, yakinlah Al Quran itu mengandungi segala yang nyata, “Tiada keraguan padanya”. Hanya kerana kita menyangka kita berada di jalan yang benar, tidak bererti kita berada di jalan yang benar. “Tidak beriman sesorang itu sehingga imannya diuji”. Dengan menyangka sesuatu yang kita buang itu tak berguna, tidak bermakna ia tidak berguna. Ingatlah kulit yang memungkinkan isi berkembang dari tiada kepada ada.

18. Mengatakan Teori Darwin itu mengarut hanya akan membuka peluang kepada mereka mengatakan yang sama kepada kita, seperti petikan dari Ust Hasrizal. Begitu juga setelah ramai yang mengatakan sainstist mengarut, maka keluarlah buku yang mengatakan yang beragama itu mengarut, “The God Delusion”. Ya, kita boleh halang jasad buku2 begini dari masuk kawasan kita, tapi itu sahajalah yang mampu kita buat. Roh boleh berjalan tanpa halangan. Begitu juga “meme”.

Peta

19. Sesungguhnya kehidupan di dunia ini menjadi ujian kepada manusia untuk menentukan kedudukan di akhirat, walau sesingkat mana kedudukannya. Pengukuran tahap makrifat (kenal), karib (dekat) manusia sebagai mahluk kepada haliqnya perlu dibuat di dunia. Terlambat kalau dah berpindah ke alam seterusnya. Siapakah yang lebih kenal dan hampir dengan Allah .. yang menekan butang untuk melepaskan peluru berpandu atau yang menadah tangan memohon sesuatu? Itulah kesannya senjata yang disalahgunakan.

20. Sesungguhnya kita kepunyaan Allah dan pada Dia kita akan kembali. Tiada sesuatu berlaku dan tiada kekuatan melakukan sesuatu melainkan dengan adanya Allah. Tiada tuhan melainkan Allah. Tiada yang wujud melainkan Allah. Allahlah sebaik2 pemberi ilmu dan rezeki. Sebesar-besar rahamtNya ialah memberikan hakguna kepada mahluk apa yang menjadi hakmilikNya.

Allahu a’lam

Jutaan terima kasih kepada ust kerana membincangkan isu ini.

1. Saya menyokong penuh pendapat ust yang mirip kepada mengiakan sains. Tidak ramai yang sanggup mededahkan diri kepada kontrovesi isu Darwin terutama mereka yang memikirkan risiko ekonomi yang mungkin timbul dari mengambil pehak.

2. Allah sentiasa menyuruh kita berfikir … terutama tentangNya (zikrullah) … semasa berdiri duduk dan berbaring (24 jamm walaupun di dalam mumpi) bagaimanapun awas “Jangan berfikir tentang zatNya tetapi fikirkanlah tentang feal-perbuatanNya (Sunahtullah).

3. Sains itu adalah ilmu tentang Alam Semulajadi (Nature) bagi mereka yang tidak beriman dan sebenarnya ilmu tentang Sunahtullah (cara Allah bekerja) bagi mereka yang percaya (beriman). “Di dalam penciptaan langit dan bumi, pertukaran siang dan malam terdapat ayat2 (tanda2 adanya Allah) bagi orang2 yang berfikir (Al-Bab).

Peta

4. Sains mengambil pendekatan empirikal (sesuatu yang boleh diekspiriman berulangkali) dari sesuatu yang hypotetikal (yang diilhamkan oleh akal). Oleh itu kedudukkan sains seperti ilmu membuat rumah, tidak dapat membuktikan tidakadanya Allah dan ilmu sains itu bersifat neutral - tidak kafir. Ketidakfahaman (selalunya prasangka) mereka yang mempelajari sains itu yang sebenarnya boleh mempunyai charge -ve atau +ve.

5. Menggunakan ilmu membuat rumah untuk mengenal Allah sudah pasti tidak dapat diterima ramai kerana ilmu mengenal Allah ialah ilmu Tauhid. Ilmu membuat rumah itu memerlukan ilmu sains (dan teknologi) untuk menjadikannya lebih berkesan. Orang purbapun pandai buat rumah tetapi dengan sains rumah yang dihasilkan jauh berbeza. Begitu juga pengabungan ilmu tauhid dan sains juga memberikan keberkesanan yang lebih dalam mengenal Allah kerana sifat ilmu sains itu.

6. Darwin mengemukakan teorinya melalui ilmu sains dengan membuka kunci2 rashia yang Allah pegang. Allah maha adil dalam memberikan ilmu kepada mahlukNya, samada dia beriman atau tidak kepadaNya. Kita tidak dapat nafikan sainstist2 yang tidak percaya (beriman) kepada Allah itu lebih kenal cara2 Allah bekerja, dengan memerhatikan alam semulajadi (yang semuanya adalah tajjalli Allah).

Peta

7. Penafsiran ayat2 Allah perlu dibuat dengan cermat. Kitab Al-Quran itu adalah pintu kepada Kitab Alam (yang jauh lebih banyak ayat2 di dalamnya) sebagaimana Al-Fatihah itu pintu (pembukaan) kepada Al Quran. Seperti di atas tadi dalam penelitian kita kepada penciptaan langit/bumi siang/malam adalah contoh ayat2 Allah yang perlu diteliti pada setiap masa (Zikrullah). Terlalu ramai yang hanya terpegun dengan kecantikkan Pintu (seniNya yang halus) sehingga tidak mahu keluar mengkaji ayat2 Allah yang di luar. Alangkah malunya umat Islam membiarkan kunci2 rashia ditemuai oleh orang2 yang mereka gelar kafir.

8. Kita sering didedahkan dengan “Kan Al Quran dah kata begitu! … 1400 tahun dahulu”. Malangnya kata2 tersebut kebanyakannya keluar setelah orang Kafir membuat kajian atau penemuan. Kalau nak kata ramai yang tak pandai Arab, mana pergi orang2 berbahasa Arab yang “membaca” Al-Quran. Membaca yang tersurat sahaja dengan meninggalkan yang tersirat, tidak menjadikan Al-Quran itu Rahmatal Lil Alamin (tidak menjadi petunjuk).

9. Hakikatnya ialah membaca alam itu sangat rumit dan memerlukan pemikiran yang tajam. Ketekunan dalam membuat penelitian, keterbukaan dalam menerima ilham, kepekaan kepada kejadian/perubahan semulajadi, kesabaran menegakkan kebenaran adalah antara ciri2 yang diperlukan dalam merungkai kunci2 kepada yang ghaib. Ciri2 ini kurang diterap kepada muslimin oleh penyampai2 ilmu agama. Ramai yang mengasingkan sains dan agama disebabkan ketidakfahaman ilmu sains itu sendiri kerana jauh lebih mudah menghalal-haram sesuatu dari mengkaji alam.

Peta

10. Ramai yang mengatakan mereka suka sains. Tetapi sains yang bagaimana? Ramai yang suka hasil kerja sains (iaitu teknologi). Ramai yang suka BMW, kereta2 mewah, handset2 canggih dan pelbagai consumer products yang dihasilkan oleh sains dan teknologi tetapi jauh lebih ramai yang tidak minat untuk mengetahui cara2 products itu dihasilkan. Mengguna hasil sains tak kafir kata mereka, tetapi ramai yang tidak sedar hasil sains itu banyak dicipta atau ditemui oleh orang2 kafir. Membaca buku orang kafir, menjadi kafir kata mereka (alasan untuk malas membaca). Hasil kerja orang kafir itu kafir kata mereka. Tetapi apabila hasil sains itu memberi manfaat kepada mereka, tolak tepi isu orang kafir yang menghasilkannya.

11. Darwin sendiri mengatakan sekiranya ada yang menemui penjelasan yang lebih baik dari teori yang dia kemukakan maka buanglah teori dia. Begitu “ikhlas” sainstist kafir ni, tetapi oleh kerana belum ada teori lain yang dapat menandingi teori beliau dan telah banyak saintist2 zaman ini mendapati teori itu kearah yang betul, maka keterbukaan muslimin menafsir teori tersebut sangat2 diperlukan. Darwin seperti Newton, Eienstien, dan saintist2 lain bekerja keras membuka satu demi satu kunci2 rasia Allah (walaupun mereka tak percaya kepada Allah) dan hasil dari mereka ini yang memberikan kemewahan hidup kepada muslimin. Kita perlu ingat “La hawla walaa Kuah illa bi-Llah”. Tiada satu teori atau penemuan saintist2 di atas yang boleh menghasilkan sesuatu manfaat tanpa adanya Allah. Allah yang memberikan kunci rasia kepada mereka kerana ketekunan mereka.

12. Darwin mengatakan alam dijadikan secara kebetulan, natural selection, the fittest survive kemudian disokong Karl Mark dengan materialismnya setelah membaca buku Darwin. Kenyataan2 tersebut tidak membuktikan tiadanya Allah. Ianya semua berasaskan sains dan begitulah displine dalam sains dan sebagaimana tadi bukan ilmu sains yang menjadi teras mencari keesaan Allah. Ilmu Tauhid yang patut digunakan tetapi ilmu tauhid sahaja menghasil Iman yang Taqlid dan hanya apabila digabungkan dengan ilmu sains iman yang taklid menjadi iman ilmu dan kearah iman yakin dan seterusnya.

Peta

13. Mewar-warkan ilmu sains (yang mempunyai displin yang tinggi) sebagai tidak relevent dan remeh adalah seperti mengatakan kita mengenal seseorang tanpa mengetahui jasa2 (kerja2) yang telah dia lakukan. Kita kata kita kenal si Ali (contoh) tapi tak pernah nak ambil tahu apa Ali pernah buat atau Ali boleh buat. Maka timbullah konsep mengingati seseorang dengan “Ali, Ali, Ali … x33) dan tidak pernah mahu mengambil tahu apa dia buat (cara dia bekerja). Atau yang baik sedikit dia tahu Ali itu hebat boleh buat rumah tapi tidak mahu mengambil tahu bagaimana susahnya Ali merancang, membena, mengatasi masaalah, menanggung risiko dan sebagainya semasa membuat rumah.

14. “Game of chances (goc)” kata Darwin. Al Quran mengatakan “Tidaklah kehidupan di dunia ini melainkan satu permainan”. Dalam mathematik goc ada probability. Eienstien kata “God plays dice”. Belajar probability (kebarangkalian) dimulakan dengan baling duit syiling atau buah dadu untuk memahami konsep kebarangkalian. Kita nampak macam kebarangkalian tetapi pada tahap quantum ia bukan kebarangkalian. Ia menjadi kebarangkalian kerana keterbatasan pemikiran kita dalam mengolah pekara2 halus (quantum). Contoh kita rasa kedudukan syling sama setiap kali baling - 30.123 darjah dari kuku tetapi Allah mengira dalam 30.12343783975823652366 darjah dan lebih tepat dari itu. Hasilnya berbeza antara 30.123 dengan 30.1234 atau 30.12345 dan seterusnya.

15. “The fittest survived” yang menjadikan Karl Mark kagum pada Darwin, adalah cara Allah menulis (menentukan) super-programNya (yang tiada bugs) sebelum adanya alam ini. Dengan pemberian nikmat yang paling besar kepada manusia dalam bentuk akal, Allah kemudian memberitahu “sekiranya engkau percayakan Aku, Aku tak redha mahluk yang diberikan akal menyalahgunakan keonsep tersebut”. Keizinan diberikan juga sekiranya ada yang mahu menggunakannya tetapi diberi amaran “pembersihan” di hari Akhirat kelak. Jadi tak salah Darwin mengatakan itu setelah membuat penelitian kepada alam semulajadi melalui the school of science.

Peta

16. “Natural Selection” mengatakan mahluk berevolusi, berubah mengikut keadaan persekitaran. Yang tidak boleh berubah mengikut keadaan dan zaman akan pupus. Satu kenyataan yang amat benar. Semua ini adalah code2 program yang terkandung di dalam superprogram Allah yang kemudian dia tajalikan kepada alam semulajadu (nature). Bagi mereka yang faham tajalinya Allah di dalam Nature akan merujuk kepada “Allah Selection” dan yang tak nampak mereka lebih selesa dengan “Natural Selection”. Bukan salah Darwin atau sains … salah kita yang melihat dengan mata tapi tak nampak. Bukankah Allah mengatakan ruginya manusia yang diberikan akal tapi tak dapat berfikir begitu juga indera yang lain.

17. Di Barat, debat Evolusionist vs Creationist (evs) melahirkan idea baru “Intelligent Design (id)” yang mana Turki baru sahaja mengadakan persidangan berhubungnya dengan bantuan sainstist2 kafir dari USA. Setelah bertahun menentang evolusionist, Harun Yahya kini turut mengemukakan id. Apa yang jelas setelah ada orang berlari maka barulah muslim belari kalau tidak kosonglah padang. Ilham2 dari Allah telah turun kepada mahluknya sejak manusia pertama Nabi Adam (Adam-Adam belum balig lagi sebelum itu). Bilakah muslim boleh menerajui ilmu Sunahtullah dan tidak menyorok dibelakang. Pada tahap minimanya muslim patut berfikiran terbuka menerima dan bukan menjadi pembangkang dalam ilmu sains. Yang lebih daif bila muslim mengheret ummahnya sekali dengan terus hanya mendalami ilmu halal-haram berbanding ilmu negenal Allah.

18. Manusia itu dipanggil baliq apabila mencapai kewarasan pemikiran. Jadi manusia-baliq (mb) itu berbesa dari manusia-belum-baliq (mbb), walaupun mbb itu mempunyai tubuh phisikal yang sama dengan mb. Syarat sah kesemua ibadah adalah baliq dan ke syurga semua yang mati sebelum baliq. Apa yang membezakan mb dan mbb hanya kesempurnaan akal. Pada tahap kesempurnaan akal, Allah menngangkat si-pelupa (AnNaas) menjadi khalifah dengan mengajarkan nama2 (sebagai simbol berilmu). Pada masa itu Allah jadikan manusia pertama (tubuh phisikal yang sebelum itu sudah ada), tidak bermakna tubuh phisikal pertama.

Peta

19. Mengatakan Adam dijadikan dari tanah dan dari (unsur2) tanah, mempunyai implikasi berbeza. Al-Quran juga mengatakan semua mahluk melata (termasuk manusia) dari air. Secara lafaziah air bukan air-mani dan tanah bukan (unsur2) tanah. Di sinilah yang tersirat membantu menghurai yang tersurat. Di sini juga membezakan antara Al Bab (ayat atas tadi) dengan mereka yang tidak mahu berfikir. Al-Quran menanya “Adakah sama mereka yang berilmu dengan yang tidak?”. Untuk mendapat jawapan muslim tidak dapat tidak, perlu keluar menggunakan Pintu (Al-Quran) untuk merujuk kepada Kitab Alam.

20. Mengkaji Al-Quran adalah Fardu Ain sementara keluar melalui Pintu Al Quran ke Kitab Alam adalah Fardu Kifayah. Janganlah muslim hanya mementingkan diri sendiri sahaja dengan tidak mengambil tahu keutamaan/kepentingan ummah. Lidi perlu bergabung membentuk penyapu untuk keuatan bersama dan mengurangkan kepentingan diri, kerana penyapu yang dapat menghalang kemusnahan lidi yang satu.

Allahu A’lam

Peta Software.

Sub BLN() ‘m7
x = Range(”A1″): If x “” Then Application.ScreenUpdating = False
wb = “ShaQuR.xls”: n = “‘[SHA.XLS]MAC’!”: n1 = “‘[" & wb & "]MAC’!”: aa = ActiveSheet.Name
t = Timer: w = ActiveCell: c = ActiveCell.Column: r = ActiveCell.Row: s = Selection.Count
p = Range(n & “A4″).End(xlDown).Row + 1: Range(n & “A” & p) = ActiveSheet.Name()
Range(n & “B” & p) = c & ” ” & r & ” ” & s & ” ” & w: Range(n & “C” & p) = Now
If Range(n1 & “E1″) “OK” Then GoTo SHE
If p / 10 - Int(p / 10) = 0 Then Workbooks(”SHA.XLS”).Save
If s > 3 Then Application.Run (”GEN.GEN”): GoTo SHE
‘EOI ——————————————————————————-EOI

SOD:
‘d = Range(”MIX!E3″).End(xlDown).Row: cts = 0

If aa = “PVA” And c = 1 Then GoTo SHB
If c = 5 And r = 4 Then GoTo SHA
‘If c = 5 And r = 4 Then GoTo SHA
GoTo SHE
‘———————————————————————————
SHA: If s = 3 Then Stop
Windows(”PRS”).Activate: SendKeys (”~”): Range(”E5:H60000″).ClearContents
Range(”B5:B6241″).TextToColumns Destination:=Range(”E5″), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=Chr(10), FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
For i = 1 To 14
Range(”E5″).End(xlToRight).Select: Range(Selection, Selection.End(xlDown)).Cut
ActiveCell.End(xlToLeft).End(xlDown).Offset(1, 0).Select: ActiveSheet.Paste
Next i
GoTo SHE
‘———————————————————————————
SHB: If s = 3 Then Stop
Sheets(”TES”).Select
Range(”TES!D3:D” & Range(”TES!B1″) + 2).Find(w, Range(”TES!D3″), , xlWhole).Activate
GoTo SHE

For i = 41 To 47
w = “‘[" & wb & "]LET’!B” & i: Range(”PVA!D5:D” & Range(”PVA!B2″)).Replace Range(w), “”
Next i
‘———————————————————————————
SHE: Application.ScreenUpdating = True: Range(n & “D” & p) = Timer - t: End Sub

Peta Software.

Sub ARC()
x = Range(”A1″): If x “” Then Application.ScreenUpdating = False
wb = “ShaQuR.xls”: n = “‘[SHA.XLS]MAC’!”: n1 = “‘[" & wb & "]MAC’!”: aa = ActiveSheet.Name
t = Timer: w = ActiveCell: c = ActiveCell.Column: r = ActiveCell.Row: s = Selection.Count
p = Range(n & “A4″).End(xlDown).Row + 1: Range(n & “A” & p) = ActiveSheet.Name()
Range(n & “B” & p) = c & ” ” & r & ” ” & s & ” ” & w: Range(n & “C” & p) = Now
If Range(n1 & “E1″) “OK” Then GoTo SHE
If p / 10 - Int(p / 10) = 0 Then Workbooks(”SHA.XLS”).Save
If s > 3 Then Application.Run (”GEN.GEN”): GoTo SHE
‘EOI ——————————————————————————-EOI

SOD:
‘w = Cells(ActiveCell.Row, 1)
If c = 1 And r = 2 Then GoTo SHZ
If (c = 1 Or c > 5) And r > 2 And x > 0 Then GoTo SHH ‘
If c > 5 And r > 2 And x = “” Then GoTo SHJ
If c = 2 And r < 4 Then GoTo SHC
If c = 3 And r 2 Then GoTo SHK
If c = 4 And r = 2 Then GoTo SHF
If c = 5 And r = 1 Then GoTo SHD
If c = 6 And r = 1 Then GoTo SHI
If c > 9 And r = 1 Then GoTo SHJ ‘find TRN key word in SUM
If c = 6 And r = 2 Then GoTo SHB

GoTo SHE:

SHA:
ActiveCell.Copy: AppActivate “Program Al Quran”
SendKeys (”{esc 3}%cp{tab 3}{up}{tab 4}~{tab 8}”)
GoTo SHE:

SHB:
r = Range(”G1″): Cells(r, 2).ClearContents
‘For r = 3 To 6239
For j = 6 To Range(”E” & r).End(xlToRight).Column
w = Left(Cells(r, j), 1)
If w = “Ç” Or w = “Ô Or w = “” Or w = “Å” Then GoTo bhs
w1 = Range(”LET!B3:B39″).Find(w).Offset(0, 1)
If Left(Range(”TRM!A” & r).Offset(0, j - 1), 1) w1 Then _
Cells(r, j).Font.ColorIndex = 3: Cells(r, 2) = Cells(r, 2) + 1
bhs:
Next j
Sheets(”TRM”).Select: Range(”TRM!A3:A6239″).Find(Range(”A” & r)).Activate
Sheets(”ARC”).Select
‘Next r
GoTo SHE

SHC:
Range(”F3:EZ6239″).ClearContents
If r = 2 Then rge = “E3:E6239″ Else rge = “E3:E” & Range(”B3″).End(xlDown).Row
If r = 1 Then stf = False Else: stf = True
Range(rge).TextToColumns Destination:=Range(”F3″), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=stf, Other:=True, _
OtherChar:=Chr(10), FieldInfo:=Array(1, 1)
If r = 1 Then Range(”B3:B6239″).FormulaR1C1 = “=COUNTA(RC[4]:RC[31])”: _
Range(”B3:B6239″).Copy: Range(”B3″).PasteSpecial xlPasteValues _
Else: Range(”F3:F6239″).Delete Shift:=xlToLeft
GoTo SHE

SHD:
If Range(”D3″) = “” Then GoTo SHE
hin = Range(”E1″) + 2: Range(”D3:D” & hin).Copy: Range(”E3″).PasteSpecial xlPasteValues
Range(”E3:E” & hin).Replace ” ” & Chr(10), “”
Range(”E3:E” & hin).Replace Chr(10) & Chr(10), Chr(10): Range(”E3:E” & hin).WrapText = False
‘GoTo SHE
Range(”B3:B” & hin).FormulaR1C1 = “=”" “” &TRIM(RC[3])&”" “”": Range(”B3:B” & hin).Copy
Range(”E3″).PasteSpecial xlPasteValues: Range(”B3:D” & hin).ClearContents
GoTo SHE

SHF:
rgc = “C3:C6239″: wod = ” ” & Range(”C1″) & ” “: woe = Chr(10) & Range(”C1″) & ” “
Range(”D3:D6239″).Copy: Range(”C3″).PasteSpecial xlPasteAll
Range(rgc).Replace wod, woe, xlPart: Range(rgc).WrapText = False: Range(rgc).Copy
Range(”D3″).PasteSpecial xlPasteValues: Range(rgc).ClearContents
GoTo SHE

SHG:
Range(”F3:EZ6239″).ClearContents
If r = 1 Then stf = False Else: stf = True
Range(”D3:D6239″).TextToColumns Destination:=Range(”F3″), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=stf, Other:=True, _
OtherChar:=Chr(10), FieldInfo:=Array(1, 1)
If r = 1 Then Range(”B3:B6239″).FormulaR1C1 = “=COUNTA(RC[4]:RC[31])”: _
Range(”B3:B6239″).Copy: Range(”B3″).PasteSpecial xlPasteValues _
Else: Range(”F3:F6239″).Delete Shift:=xlToLeft
GoTo SHE

SHH: ’serch multi length word
Application.ScreenUpdating = False
fil = “CAM”: rs = 3

If c = 1 Then w1 = Range(”C1″): GoTo HHS
Range(”J1:Z1″).ClearContents: Selection.Copy
Range(”J1″).PasteSpecial xlPasteValues
If Range(”J2″) “C5″ Then Range(”J2″) = “C5″: GoTo hha
w1 = “”
For i = 10 To 9 + Range(”I1″)
w1 = w1 & ” ” & Cells(1, i)
Next i
HHS:
Range(”C1″) = Trim(w1)
Range(”G1″).FormulaR1C1 = “=CODE(RC[-4])”
If Range(”G1″) 17842 Then rf = Range(”D3:D17842″).Find(Range(”D” & rf), _
Range(”D3″), xlFormulas, xlWhole).Row
Range(”Y” & rf).Select
Range(”A1″) = 1
Application.Run “MIX.MIX”
GoTo SHE

SHI:
Range(”C1″).Copy
AppActivate “Program Al Quran”
SendKeys (”{esc 3}%cp{tab 3}{up}{tab 4}~{tab 8}”)
GoTo SHE

SHJ: ‘if s=3 then stop
Windows(wb).Activate: Sheets(”MIX”).Select
Range(”C3:C20000″).Find(w, Range(”C3″), xlFormulas, xlWhole).Activate
GoTo SHE

SHK:
If r = 3 Then sr = Range(”D1″): fr = 6239 Else sr = r: fr = r
For r = sr To fr
Range(”C” & r).FormulaR1C1 = “=COUNTA(RC[3]:RC[131])”
wp = “”: rgm = “MIX!C3:C20000″: rm = “MIX!C3″
For i = 1 To Range(”C” & r)
w = Range(”E” & r).Offset(0, i)
rf = Range(rgm).Find(w, Range(rm), xlFormulas, xlWhole).Row
If rf > 17842 Then rf = Range(”MIX!D2:D17842″).Find(Range(”MIX!D” & rf), _
Range(”MIX!D2″), xlFormulas, xlWhole).Row
wt = Range(”MIX!B” & rf)
wa = Range(”MIX!C” & rf)
wb = Range(”MIX!AB” & rf)
wr = Range(”MIX!Y” & rf)
wm = Range(”MIX!AA” & rf)
we = Range(”MIX!Z” & rf)
wc = Range(”CHK!A6:A3000″).Find(wr, Range(”CHK!A6″), xlFormulas, xlWhole).Offset(0, 22)
‘ws = wb & wc & we & ” v ” & “[" & wa & " x " & wt & "]“
ws = wb & wc & we & ” v ” & “[" & wa & "x]“
wp = wp & ” ” & ws & “_”
Next i
Range(”C” & r).Value = wp & Chr(10) & Chr(10) & Range(”D” & r)
Range(”C” & r).WrapText = False
Next r
GoTo SHE

SHZ:
Sheets(”ARC”).Select
Range(”D3:D6239″).Copy
Range(”B3″).PasteSpecial xlPasteAll
For i = 3 To 3
If i = 1 Then wod = “, “
If i = 2 Then wod = “. “
If i = 3 Then wod = “: “
Range(”B3:B6239″).Replace wod, wod & Chr(10), xlPart
Next i
Range(”B3:B6239″).WrapText = False
GoTo SHE

SHE: Application.ScreenUpdating = True: Range(n & “D” & p) = Timer - t: End Sub

Antara yang ada

ShaQur Code Arc

ShaQur Code Bln

ShaQur Code Mix

ShaQur Code

ShaQur Code

Peta

Peta Software.

Sub MIX() ‘m7
x = Range(”A1″): If x “” Then Application.ScreenUpdating = False
wb = “ShaQuR.xls”: n = “‘[SHA.XLS]MAC’!”: n1 = “‘[" & wb & "]MAC’!”: aa = ActiveSheet.Name
t = Timer: w = ActiveCell: c = ActiveCell.Column: r = ActiveCell.Row: s = Selection.Count
p = Range(n & “A4″).End(xlDown).Row + 1: Range(n & “A” & p) = ActiveSheet.Name()
Range(n & “B” & p) = c & ” ” & r & ” ” & s & ” ” & w: Range(n & “C” & p) = Now
If Range(n1 & “E1″) “OK” Then GoTo SHE
If p / 10 - Int(p / 10) = 0 Then Workbooks(”SHA.XLS”).Save
If s > 3 Then Application.Run (”GEN.GEN”): GoTo SHE
‘EOI ——————————————————————————-EOI

SOD:
d = Range(”MIX!A3″).End(xlDown).Row: cts = 0: Range(”A17843:E18743″).ClearContents

If c = 1 And r = 2 Then GoTo SHW ’sync word in clm A for MIX and SUM
If c = 1 And r > 2 Then GoTo SHF ‘ref sht ALN?
If c = 2 And r = 2 Then GoTo SHA ‘prepare word and check for repeat
If c = 3 And r > 2 Then GoTo SHQ ‘Summary in TEM and 2 Refer to ALQuran
If c = 4 And r = 1 Then GoTo SHR ‘chk arb MIX, TRN, ARC
If c = 6 And r = 2 Then GoTo SHY ‘replace snd code to ARC
If c = 7 And r = 2 Then GoTo SHX ‘general purpose use clm G
If c = 8 Then GoTo SHO ‘produce snd code
If c = 9 And r > 2 Then GoTo SHM ‘Check ROT to CHK
If c = 11 And Range(”Q1″) “” Then GoTo SHS
If c = 16 And r = 1 Then GoTo SHU ‘prep temp PVS and trf to CHK
If c = 17 And r = 1 Then GoTo SHV
If c = 23 Then GoTo SHN ‘prod let words
If c = 25 And r = 2 Then GoTo SHG ‘confirm ROT word to CHK
If c = 25 Then GoTo SHC
If c = 26 And r = 2 Then GoTo SHH ‘place details of BegEnd
If c = 27 Then GoTo SHJ ‘confirm MID BEG ROT END
If c = 29 Then GoTo SHK
If c = 30 And r > 2 Then GoTo SHP
If c = 32 Then GoTo SHT ‘further snd code
If c = 33 And r = 2 Then GoTo SHD ‘AG SHA code putter
If c = 36 And r = 2 Then GoTo SHB ‘replace SND words with TRM
If c = 37 And r = 2 Then GoTo SHI ‘
MsgBox “Nothing To Do”: GoTo SHE
‘———————————————————————————

SHA: If s = 3 Then Stop
‘GoTo tex
d = 17842
If Range(”A1″) = “m” Then Range(”A1″) = “”: Stop ‘Prep wrords & Check for repeat
Range(”LET!H2″).Sort Key1:=Range(”LET!H2″), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range(”A3:E20000″).Font.ColorIndex = 0: Range(”A3″).End(xlDown).Offset(1, 0).Select
Range(”A” & ActiveCell.Row & “:A” & ActiveCell.End(xlDown).Row - 1).EntireRow.Delete

‘For j = 1 To 1
For j = 4 To 4
‘For j = 1 To 3
If j = 1 Then d1 = 3: d2 = 60: d = 60 ‘for test
If j = 2 Then d1 = 6001: d2 = 12000
If j = 3 Then d1 = 12001: d2 = 17842
If j = 4 Then d1 = 3: d2 = 17842

Range(”B” & d1 & “:D” & d2).ClearContents
Range(”A” & d1 & “:A” & d2).Copy: Range(”B” & d1).PasteSpecial xlValues
Selection.TextToColumns Destination:=Range(”B” & d1), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=”_”, FieldInfo:=Array(Array(1, 1), Array(2, 1))
With Selection: .HorizontalAlignment = xlLeft: End With
Range(”C” & d1 & “:C” & d2).Copy: Range(”D” & d1).PasteSpecial xlValues

For i = 40 To 47
wha$ = Range(”LET!B” & i): rep$ = “”
Range(”D” & d1 & “:D” & d2).Replace wha$, rep$, xlPart
Next i
Next j

Range(”H3:H” & d).Clear
For j = 1 To 4
Range(”G3:G” & d).Clear
If j = 1 Then pos = “A”: ofs = -6
If j = 2 Then pos = “B”: ofs = -5
If j = 3 Then pos = “C”: ofs = -4
If j = 4 Then pos = “D”: ofs = -3
Range(pos & “2″).Sort Key1:=Range(pos & “2″), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range(”G3:G” & d).FormulaR1C1 = _
“=IF(R[1]C[" & ofs & "]=RC[" & ofs & "],R[1]C+1,0)”
Range(”G3:G” & d).Copy: Range(”G3:G” & d).PasteSpecial xlValues
If j 4 Then GoTo ahs
Range(”H3:H” & d).FormulaR1C1 = “=IF(R[-1]C[-1] 4 Then co = 5
If i = 3 Then co = 3
If i = 2 Then co = 41
If i = 1 Then co = 43
TEN:
Range(”G3:G” & d + 3).Find(i, Range(”G3″), xlFormulas, xlWhole).Activate
r1 = ActiveCell.Row: If r1 = d + 3 Then GoTo TEM
Range(pos & r1 & “:” & pos & r1 + i).Font.ColorIndex = co
Range(”G” & r1 & “:G” & r1 + i) = i + 1: GoTo TEN
TEM: Range(”G3″).Select:
Next i
Next j
tex:
Range(”G3:G” & d).ClearContents
Range(”H2″).Sort Key1:=Range(”H2″), Order1:=xlAscending, _
Key1:=Range(”A2″), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range(”H3:H” & d).Find(1).Activate: r = ActiveCell.Row
Range(”H3:H” & r).ClearContents

Range(”E3″).Value = 1
Range(”E3:E17842″).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Trend:=False
Range(”H3″).End(xlDown).Select
Range(”H” & ActiveCell.Row & “:H” & ActiveCell.Row + 10).EntireRow.Insert

GoTo SHE
‘———————————————————————————

SHB: If s = 3 Then Stop
Range(”F3:F” & d).Copy: Range(”AJ3″).PasteSpecial xlPasteValues
For i = 7 To Range(”CHK!AQ7″).End(xlDown).Row
Range(”AJ3:AJ” & d).Replace Range(”CHK!AQ” & i), Range(”CHK!AX” & i), xlPart
Next i
GoTo SHE
‘———————————————————————————

SHC: If s = 3 Then Stop
Application.ScreenUpdating = True
GoTo tema
Sheets(”PVT”).Select
Range(”A6:A1000″).Find(w).Activate
Application.Run “PVT.PVT”
GoTo SHE
Sheets(”MIX”).Select
ActiveCell.Offset(0, 2).Copy
AppActivate “Program Al Quran”
SendKeys (”{esc 3}%cp{tab 3}{up}{tab 2}{down}{tab 2}~{tab 8}”)
GoTo SHE
tema:
Sheets(”CHK”).Select
Range(”A6:A3000″).Find(w).Activate
GoTo SHE
‘———————————————————————————

SHD: If s = 3 Then Stop ‘GoTo tdm
Range(”AG3:AG” & d).ClearContents
For k = 2 To 3
If k = 2 Then st = 7: fi = 85
If k = 3 Then st = 8: fi = Range(”CHK!A6″).End(xlDown).Row
For i = st To fi
If k = 2 Then w = Range(”CHK!V” & i)
If k = 3 Then w = Range(”CHK!A” & i)
Range(”Y” & d + 2) = w
Range(”Y3″).Select
dhs:
Range(”Y3:Y” & d + 2).Find(w, ActiveCell, xlFormulas, xlWhole, xlByRows, xlNext).Activate
r1 = ActiveCell.Row
If r1 = d + 2 Then GoTo dhu
rj = Range(”CHK!J” & i) ‘P,O,T
ro = Range(”CHK!S” & i) ‘No of MID variation
rt = Range(”CHK!T” & i) ‘1, 2 or 3 disturbance code
rp = Range(”CHK!P” & i) ‘Len of WOD

If rp = 1 Then rg = 10: GoTo dhs
If k = 2 Then Range(”AG” & r1) = 20: GoTo dhs
If rp = 2 And rt = 1 Then rg = 21: GoTo dhs
If rp = 2 And rt = 2 Then rg = 22: GoTo dhs
If Left(rj, 1) = “P” Then Range(”AG” & r1) = 31: GoTo dhs
If rj = “O” Or rj = “T” Then Range(”AG” & r1) = 32: GoTo dhs
If ro = 2 Then Range(”AG” & r1) = 33: GoTo dhs
If ro = 1 Then Range(”AG” & r1) = 34: GoTo dhs
If rt = 1 Then Range(”AG” & r1) = 30: GoTo dhs
dhu:
Range(”Y” & d + 2).ClearContents
Next i
Next k

tdm:
Range(”AF2″).Sort Key1:=Range(”AF2″), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
If Range(”AF3″) “x” Then _
Range(”AF3:AF” & Range(”AF2:AF” & d).Find(”x”).Row - 1).ClearContents
Range(”PVT!B2″) = “(All)”
For i = 1 To 1 Step 4
fi = Range(”PVT!A6″).Offset(0, i - 1).End(xlDown).Row - 1
For j = 6 To fi
w = Range(”PVT!A” & j).Offset(0, i - 1)
Range(”D” & d + 2) = w
Range(”D3:D” & d + 2).Find(w, Range(”D3″), xlFormulas, xlWhole, xlByRows, xlNext).Activate
r1 = ActiveCell.Row
If r1 = d + 2 Then GoTo dhv
If Range(”AF” & r1) = “” And Range(”AH” & r1) = ” ” And Range(”AH” & r1) = ” ” _
And Range(”Y” & r1) = Range(”AA” & r1) Then Range(”AF” & r1) = “z” & Len(w)
Range(”AG1″) = “MAK” & i & ” ” & j & “/” & fi & ” ” & r1
dhv:
Next j
Next i
GoTo SHE
‘———————————————————————————

SHF: If s = 3 Then Stop
w = ActiveCell.Offset(0, 2): Sheets(”ALN”).Select
Range(”C3:J6238″).Find(w, Range(”C3″), xlFormulas, xlPart).Activate
GoTo SHE
‘———————————————————————————

SHG: If s = 3 Then Stop
‘GoTo tgm
If Range(”MIX!Y1″) = “r” Then Sheets(”PVT”).Select: Range(”K2″).Select: _
Application.Run “PVT.PVT”: Sheets(”MIX”).Select
r2 = Range(”CHK!A6″).End(xlDown).Row

For k = 1 To 3
If k = 1 Then Range(”CHK!S7:S” & r2).ClearContents: _
Range(”CHK!B7:B” & r2).ClearContents
If k = 1 Then Range(”PVT!B2″) = “(All)”
If k = 2 Then Range(”PVT!B2″) = “z2″
If k = 3 Then Range(”PVT!B2″) = “z3″
fi = Range(”PVT!A7″).End(xlDown).Row - 1
For i = 7 To fi
w = Range(”PVT!A” & i)
If w = “(blank)” Or w = “” Then GoTo ghs
‘If Len(w) = 1 Then GoTo SHE

r = r2 + 1: Range(”CHK!A” & r) = w
r1 = Range(”CHK!A6:A” & r).Find(w, Range(”CHK!A6″), xlFormulas, xlWhole).Row
If r1 < r Then Range(”CHK!A” & r).ClearContents Else r2 = r2 + 1
If k = 1 Then Range(”CHK!A” & r1) = Range(”PVT!A” & i): _
Range(”CHK!B” & r1) = Range(”PVT!B” & i)
Range(”CHK!S” & r1) = k: rt = Range(”CHK!T” & r1)
If rt = “” Then rt = 3
Range(”Y1″) = k & ” ” & i & “/” & fi & ” ” & r1
ghs:
Next i
Next k
tgm:
Sheets(”CHK”).Select
Range(”S6″).Sort Key1:=Range(”S6″), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
r1 = Range(”S6″).End(xlDown).Offset(1, 0).Row: r2 = Range(”A6″).End(xlDown).Row
If Range(”A” & r1) “” Then Range(”A” & r1 & “:X” & r2).ClearContents
GoTo SHE
‘———————————————————————————

SHH: If s = 3 Then Stop ‘GoTo the
‘d = 100
Range(”K3:T” & d).ClearContents
fi = Range(”CHK!AC6″).End(xlDown).Row
For i = 7 To fi
wf = Range(”CHK!AC” & i)
‘If Range(”CHK!AA” & i) = “” Or Range(”CHK!AC” & i).Font.ColorIndex = 3 _
Then GoTo hhs
Range(”Z” & d + 2) = wf
Range(”Z3″).Select
HHT:
Range(”Z3:Z” & d + 2).Find(wf, ActiveCell, xlFormulas, xlWhole, xlByRows, xlNext).Activate
rf = ActiveCell.Row
If rf = d + 2 Then GoTo HHS
Range(”K” & rf) = Range(”CHK!Z” & i)
Range(”L” & rf) = Range(”CHK!AA” & i)
Range(”M” & rf) = Range(”CHK!AB” & i)
GoTo HHT
HHS:
Next i

fi = Range(”CHK!AH6″).End(xlDown).Row
For i = 7 To fi
wf = Range(”CHK!AH” & i)
Range(”AB” & d + 2) = wf
Range(”AB3″).Select
hhu:
Range(”AB3:AB” & d + 2).Find(wf, ActiveCell, xlFormulas, xlWhole, xlByRows, xlNext).Activate
rf = ActiveCell.Row
If rf = d + 2 Then GoTo hhv
Range(”P” & rf) = Range(”CHK!AL” & i)
Range(”Q” & rf) = Range(”CHK!AM” & i)
Range(”R” & rf) = Range(”CHK!AN” & i)
Range(”S” & rf) = Range(”CHK!AO” & i)
GoTo hhu
hhv:
‘Range(”Z1″) = “END ” & i & “/” & fi & ” ” & rf
Next i
the:
Range(”N3:N” & d).FormulaR1C1 = _
“=IF(AND(LEN(RC[11])=2,LEN(RC[13])=3),MID(RC[13],2,1),”"”")”
Range(”O3:O” & d).FormulaR1C1 = _
“=IF(AND(LEN(RC[10])=3,LEN(RC[12])=4),MID(RC[12],2,2),”"”")”
Range(”N3:O” & d).Copy
Range(”N3″).PasteSpecial xlPasteValues
‘GoTo SHE
For i = 14 To 15
Cells(2, i).Sort Key1:=Cells(2, i), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
r1 = Range(Cells(2, i), Cells(d, i)).Find(”").Row
Range(Cells(r1, i), Cells(d, i)).ClearContents
Next i
GoTo SHE
‘———————————————————————————

SHI: If s = 3 Then Stop
For i = 3 To d
For j = 1 To 3
le = Mid(Range(”AE” & i), j, 1)
If j = 1 Then sp = 1
If j = 2 Then sp = 1 + Mid(Range(”AE” & i), j - 1, 1)
If j = 3 Then _
sp = 1 + Mid(Range(”AE” & i), j - 1, 1) + Mid(Range(”AE” & i), j - 2, 1)
Range(”AK” & i).Offset(0, 3 - j) = Mid(Range(”D” & i), sp, le)
Next j
Next i
GoTo SHE
‘———————————————————————————

SHJ: If s = 3 Then Stop
If r = 1 Then GoTo SHE
r2 = r: If r = 2 Then GoTo jhs
For i = r To r + s
If Left(Range(”Y” & i), 1) = “,” Then Range(”Y” & i + 1).Select Else GoTo jht
Application.Run “GEN.GEN”
jht:
Next i
jhs:
r = r2
If r = 2 Then r0 = 3 Else r0 = r
If r = 2 Then r1 = d Else r1 = r + s - 1

Range(”Y” & r0 & “:AI” & r1).Copy: Range(”Y” & r0 & “”).PasteSpecial xlPasteValues

Range(”AA” & r0 & “:AA” & r1).FormulaR1C1 = _
“=MID(RC[2],LEN(RC[1])+1,LEN(RC[2])-LEN(RC[-1])-LEN(RC[1]))”
Range(”AA” & r0 & “:AA” & r1).Copy
Range(”AA” & r0 & “”).PasteSpecial xlValues ‘MID

Range(”G” & r0 & “:G” & r1).FormulaR1C1 = “=RIGHT(RC[22],LEN(RC[19]))”
Range(”G” & r0 & “:G” & r1).Copy
Range(”Z” & r0 & “”).PasteSpecial xlValues ‘END

Range(”G” & r0 & “:G” & r1).FormulaR1C1 = “=Left(RC[22],LEN(RC[21]))”
Range(”G” & r0 & “:G” & r1).Copy
Range(”AB” & r0 & “”).PasteSpecial xlValues ‘BEG

Range(”AH” & r0 & “:AH” & r1).FormulaR1C1 = “=RC[-6]&”" “”&RC[-8]“
Range(”AH” & r0 & “:AH” & r1).Copy
Range(”AH” & r0 & “”).PasteSpecial xlValues ‘BNE

Range(”AI” & r0 & “:AI” & r1).FormulaR1C1 = “=RC[-7]&”" “”&RC[-8]&”" “”&RC[-9]“
Range(”AI” & r0 & “:AI” & r1).Copy
Range(”AI” & r0 & “”).PasteSpecial xlValues ‘WOS

Range(”AE” & r0 & “:AE” & r1).FormulaR1C1 = _
“=LEN(RC[-3])&LEN(RC[-4])&LEN(RC[-5])&”".”"&100+LEN(RC[-27])&”".”"&100+LEN(RC[-28])”
Range(”AE” & r0 & “:AE” & r1).Copy
Range(”AE” & r0 & “”).PasteSpecial xlValues ‘LEN

Range(”G” & r0 & “:G” & r1).FormulaR1C1 = “=IF(RC[21]&RC[20]&RC[19]=RC[22],1,0)”
Range(”G” & r0 & “:G” & r1).Copy
Range(”G” & r0 & “”).PasteSpecial xlValues ‘CHK

Range(”I” & r0 & “:I” & r1).ClearContents
For i = r0 To r1
lf = Len(Range(”Y” & i))
If lf 3 Then GoTo jhu
If lf = 2 Then j1 = 1: J2 = “A”
If lf = 3 Then j1 = 2: J2 = “V”
For j = 1 To j1
For k = 1 To 4
If k = 1 Then le = “Ç”
If k = 2 Then le = “Ê”
If k = 3 Then le = “æ”
If k = 4 Then le = “í”
wm = Left(Range(”Y” & i), j) & le & Right(Range(”Y” & i), lf - j)
wn = Range(”AA” & i)
If wn = wm Then Range(”I” & i) = J2 & k * j
If wn = Range(”Y” & i) Then Range(”I” & i) = J2 & 0
Next k
Next j
jhu:
p1 = Len(Range(”AB” & i)) + 1
p2 = Len(Range(”AC” & i)) - Len(Range(”AB” & i)) - Len(Range(”Z” & i))
If lf = 0 And Range(”AF” & i) = “” Then Range(”Y” & i) = Mid(Range(”AC” & i), p1, p2)
Next i
If r 2 Then GoTo SHE
Range(”X3:X” & d).ClearContents
Range(”Z1″).FormulaR1C1 = “=COUNTA(R[2]C[-3]:R[" & d & "]C[2])”

For i = 23 To 28
Cells(2, i).Sort Key1:=Cells(2, i), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
r1 = Range(Cells(2, i), Cells(d, i)).Find(”").Row
Range(Cells(r1, i), Cells(d, i)).ClearContents
Next i

Range(”AA” & r1 + 1).Select
Range(”G2″).Sort Key1:=Range(”G3″), Order1:=xlAscending, Key2:=Range(”Y3″) _
, Order2:=xlAscending, Key3:=Range(”AC3″), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
If Range(”G3″) 1 Then Range(”G3″).Select
GoTo SHE
‘———————————————————————————

SHK: If s = 3 Then Stop
If r = 2 Then GoTo SHK1
wr = ” ” & Range(”C” & r) & ” “: r1 = Range(”H” & r) + 2: Sheets(”RED”).Select
If r1 = 2 Then r1 = Range(”SUR!L3:L6300″).Find(wr, Range(”SUR!L3″), , xlPart).Row
Range(”AA2″) = Range(”SUR!L” & r1): Range(”AB2″) = Range(”SUR!AD” & r1)
Range(”AB4″) = Range(”SUR!T” & r1): Range(”AA1″) = Range(”MIX!C” & r)
GoTo SHE
SHK1:
For i = Range(”H1″) To Range(”A3″).End(xlDown).Row
If Range(”AC” & i) = Range(”AC” & i - 1) Then GoTo khs1 Else wr = ” ” & Range(”C” & i) & ” “
Range(”H” & i) = Range(”SUR!A” & Range(”SUR!L3:L6300″).Find(wr, Range(”SUR!L3″), , xlPart).Row)
Range(”H1″) = i
khs1: Next i
GoTo SHE
‘———————————————————————————

SHL: If s = 3 Then Stop
r1 = Range(”R3″).End(xlDown).Row + 1: Range(”R” & r1 & “:V” & r1 + 2).Delete xlUp
rgh = “T3:T” & Range(”T3″).End(xlDown).Row: Range(rgh).ClearContents: Range(”T1″) = w
Range(rgh).FormulaR1C1 = “=if(or(EXACT(RC[1],R1C20),EXACT(RC[2],R1C20)),1,0)”
Range(rgh).Copy: Range(”T3″).PasteSpecial xlValues
Range(”T3″).Sort Key1:=Range(”T3″), Order1:=xlDescending, Header:=xlGuess
r1 = Range(rgh).Find(0, Range(”T3″), xlValues, xlWhole).Row
Range(rgh).ClearContents: Range(”R” & r1 & “:V” & r1 + 2).Insert xlDown
GoTo SHE
‘———————————————————————————

SHM: If s = 3 Then Stop
w = Range(”Y” & r)
Sheets(”CHK”).Select
Range(”A6:A” & Range(”A6″).End(xlDown).Row).Find(w, Range(”A6″), xlFormulas, xlWhole).Activate
GoTo SHE
‘———————————————————————————

SHN: If s = 3 Then Stop
Range(”AA3:AA” & d).Copy
Range(”W3″).PasteSpecial xlPasteValues
si = 3: fi = 38: rw = “W3:W” & d
For i = si To fi
If Range(”LET!J” & i) = “” Then GoTo ohu
wha$ = Range(”LET!B” & i): rep$ = “”
Range(rw).Replace wha$, rep$, xlPart
ohu:
Next i

Range(”W2″).Sort Key1:=Range(”W2″), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
r1 = Range(”W2:W” & d).Find(”").Row
Range(”W” & r1 & “:W” & d).ClearContents

GoTo SHE

‘———————————————————————————
SHO: If s = 3 Then Stop
If r = 1 Then GoTo oha
If r = 2 Then GoTo ohb
GoTo SHE
oha:
GoTo SHE
ohb:
‘d = 1000
rgx = “I3:I” & d: rgy = “”: rgz = “C3:C” & d
Sheets(”MIX”).Select:
If c = 9 Then Range(rgz).Copy
Range(”I3″).PasteSpecial xlValues

stt = 3: fin = 38
For i = stt To fin
If Range(”LET!J” & i) = “x” Then GoTo oht
wha$ = Range(”LET!B” & i): rep$ = “Ï”
Range(rgx).Replace wha$, rep$, xlPart
oht: Next i:
‘GoTo SHE
stt = 60: fin = 82
For i = stt To fin
wha$ = Range(”LET!B” & i): rep$ = Range(”LET!C” & i)
Range(rgx).Replace wha$, rep$, xlPart
Next i

GoTo SHE
‘———————————————————————————

ohs: ‘not used anymore
Range(rgx).Replace Range(”LET!F86″), “x”, xlPart
Range(rgx).Replace Range(”LET!F85″), Range(”LET!F85″) & ” “, xlPart
Range(rgx).Replace “X”, Range(”LET!F86″), xlPart

For i = 50 To 53 ‘mati dan tanwin
wha$ = Range(”LET!B” & i): rep$ = Range(”LET!B” & i) & ” “
Range(rgx).Replace wha$, rep$, xlPart
Next i

Sheets(”LET”).Select
‘ nun mati and mad ya wau
rge = “MIX!” & rgx: stt = 85: fin = 94: fij = 4
For j = 2 To fij
For k = 1 To 3
For i = stt To fin
If k = 1 Then wha = Cells(i, j): rep = Cells(i, 1)
If k = 2 Then wha = Cells(84, j): rep = Cells(84, j) & ” “
If k = 3 Then wha = Cells(i, 1): rep = Cells(i, j)
Range(rge).Replace wha, rep, xlPart, xlByRows, MatchCase:=True
Next i
Next k
Next j

Sheets(”MIX”).Select: Range(”Y3:AE20000″).Clear
Range(rge).Copy: Range(”Y3″).Select: ActiveSheet.Paste: SendKeys (”~”)
Selection.TextToColumns Destination:=Range(”Y3″), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1))

Range(”Y3:Y20000″).Cut: Range(”AE3″).Select: ActiveSheet.Paste
Range(”AD3:AD20000″).Cut: Range(”Y3″).Select: ActiveSheet.Paste
Range(”Z3:Z20000″).Cut: Range(”AD3″).Select: ActiveSheet.Paste
Range(”AC3:AC20000″).Cut: Range(”Z3″).Select: ActiveSheet.Paste
Range(”AA3:AA20000″).Cut: Range(”AC3″).Select: ActiveSheet.Paste
Range(”Y3:Z20000″).Cut: Range(”Z3″).Select: ActiveSheet.Paste
Range(”Y3:AD20000″).Select
With Selection.Font: .Name = “Tahoma (Arabic)”: .Size = 10: End With
With Selection: .Orientation = 0: End With

GoTo SHE

For i = 25 To 29
Cells(3, i).Sort Key1:=Cells(3, i), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next i

GoTo SHE
‘———————————————————————————

SHP: If s = 3 Then Stop
w = Range(”C” & r): Sheets(”ARC”).Select
Range(”F3:ED6238″).Find(w, Range(”F3″), xlFormulas, xlWhole, xlByRows).Activate
Application.Run “ARC.ARC”
GoTo SHE
‘———————————————————————————

SHQ: If s = 3 Then Stop
If s = 2 Then GoTo SHQ1
w = ” ” & w & ” “: Range(”SUR!I1″) = w: Sheets(”SUR”).Select
Range(”A2:AL6240″).Sort Key1:=Range(”I3″), Order1:=xlAscending, Key2:= _
Range(”A3″), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal

If Range(”TEM!A1″) = “” Then Range(”TEM!A3:H5500″).ClearContents
If Range(”TEM!A1″) = “” Or Range(”TEM!A3″) = “” Then sl = 3 Else _
If Range(”TEM!A4″) = “” Then sl = 4 Else sl = Range(”TEM!A3″).End(xlDown).Row + 1
nb = Range(”SUR!J1″) + 2: cm = “AA” ‘L
Range(cm & “3:” & cm & nb).Copy: Range(”TEM!A” & sl).PasteSpecial xlValues
Range(”A3:A” & nb).Copy: Range(”TEM!B” & sl).PasteSpecial xlValues
Range(”H3:H” & nb).Copy: Range(”TEM!C” & sl).PasteSpecial xlValues
Range(”AC3:AC” & nb).Copy: Range(”TEM!E” & sl).PasteSpecial xlValues
Range(”TEM!D” & sl & “:D” & sl + Range(”SUR!J1″) - 1) = w

Sheets(”TEM”).Select: ActiveWindow.DisplayHeadings = False: Range(”C1″).Select
GoTo SHE
SHQ1:
If Range(”A1″) = “m” Then Stop
ActiveCell.Copy: AppActivate “Program Al Quran”
SendKeys (”{esc 3}%cp{tab 3}{up}{tab 4}~{tab 8}”), True
GoTo SHE
‘———————————————————————————

SHR: If s = 3 Then Stop
For i = 7930 To d
w = Range(”B” & i)
r = Range(”ARC!F3:ED6238″).Find(w).Row
c = Range(”ARC!F3:ED6238″).Find(w).Column
w1 = Range(”TRM!A” & r).Offset(0, c - 1)
Range(”AA” & i) = r & ” ” & c: Range(”AC” & i) = w1
m = Range(”SUM!A3″).End(xlDown).Row + 1: Range(”SUM!A” & m) = w
If Range(”SUM!A3:A” & m).Find(w, Range(”SUM!A3″)).Offset(0, 10) = w1 _
Then Range(”SUM!A” & m).Clear Else Range(”SUM!K” & m) = _
Range(”SUM!A3:A” & m).Find(w, Range(”SUM!A3″)).Offset(0, 10)
If Range(”A” & i) w1 Then Range(”A3″).End(xlDown).Offset(1, 0) = w1: _
Range(”A3″).End(xlDown).Offset(0, 1) = w
rhs:
Next i
GoTo SHE
‘———————————————————————————

SHT: If s = 3 Then Stop
Range(”AG3:AG20000″).Copy: Range(”AF3″).PasteSpecial xlValues
For j = 3 To 100
‘If Range(”LET!C” & j) = “x” Or Range(”LET!A” & j) = “” Then GoTo ths
Range(”AF3:AF20000″).Replace Range(”PVS!J” & j), j, xlPart, xlByRows, MatchCase:=True
ths:
Next j
For i = 1 To 5
If i = 1 Then w5 = “Ç”
If i = 2 Then w5 = “Ô
If i = 3 Then w5 = “È”
If i = 4 Then w5 = “Ê”
If i = 5 Then w5 = “Ë”
Range(”AF3:AF20000″).Replace w5, “”, xlPart, xlByRows, MatchCase:=True
Next i
Range(”AF2″).Sort Key1:=Range(”AF2″), Order1:=xlAscending, _
Key2:=Range(”AG2″), Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
GoTo SHE
‘———————————————————————————

SHU: If s = 3 Then Stop ‘GoTo uhs
Sheets.Add: ActiveSheet.Name = “PVS”
Range(”F3″) = “a”: Range(”G3″) = “b”: Range(”G4″) = “1″: Range(”F4″) = “a”
Range(”F3:G4″).Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
“PVS!R3C6:R4C7″, TableDestination:=”R4C9″, TableName:=”PArOne”
ActiveSheet.PivotTables(”PArOne”).AddFields RowFields:=”a”
ActiveSheet.PivotTables(”PArOne”).PivotFields(”b”).Orientation = xlDataField
Range(”MIX!I1″).FormulaR1C1 = “=COUNTA(R[2]C[2]:R[17841]C[11])”
Range(”MIX!I1″).Copy: Range(”MIX!I1″).PasteSpecial xlValues

Range(”PVS!F2″) = “x”: Range(”PVS!F3″) = “a”: Range(”PVS!G3″) = “b”
Range(”PVS!G2″).FormulaR1C1 = “=SUM(R[2]C:R[19998]C)”

Range(”PVS!F4:H20000″).ClearContents
For i = 1 To 8
Sheets(”PVS”).Select
ActiveSheet.PivotTables(”ParOne”).PivotSelect “”, xlDataAndLabel
Selection.ClearContents
Sheets(”MIX”).Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
“MIX!R2C11:R18000C18″, TableDestination:=”[ShaQuS.xls]PVS!R2C1″, TableName _
:=”ParOne”
ActiveSheet.PivotTables(”ParOne”).AddFields RowFields:=i
ActiveSheet.PivotTables(”ParOne”).PivotFields(i).Orientation = _
xlDataField
Range(”A4:B” & Range(”A4″).End(xlDown).Row - 2).Copy
Range(”F2″).End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Next i:
uhs:
Sheets(”PVS”).Select
ActiveSheet.PivotTables(”ParOne”).PivotSelect “”, xlDataAndLabel
Selection.ClearContents
Range(”F3:G” & Range(”F3″).End(xlDown).Row).Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
“PVS!R3C6:R3978C7″, TableDestination:=”R2C1″, TableName:=”ParOne”
ActiveSheet.PivotTables(”ParOne”).AddFields RowFields:=”a”
ActiveSheet.PivotTables(”ParOne”).PivotFields(”b”).Orientation = _
xlDataField
ActiveSheet.PivotTables(”ParOne”).PivotSelect “‘ð’”, xlDataAndLabel
Range(”A4:B” & Range(”A4″).End(xlDown).Row - 1).Copy

Range(”CHK!AQ7″).PasteSpecial xlValues
Sheets(”CHK”).Select: Range(”AT6″).Select
Application.Run Macro:=”CHK.CHK”

GoTo SHE
‘———————————————————————————

SHS: If s = 3 Then Stop
If Range(”O1″) > 20 Then Application.ScreenUpdating = False
For i = ActiveCell.Row To ActiveCell.Row + Range(”O1″)
Range(”L” & i & “:Z” & i).ClearContents: w4 = “”
flg = 0: Range(”C” & i).Copy: Range(”K” & i).PasteSpecial Paste:=xlValues
Range(”J” & i).FormulaR1C1 = “=LEN(RC[1])”: Range(”J” & i).Copy
Range(”J” & i).PasteSpecial Paste:=xlValues
Range(”L” & i & “:AL” & i).ClearContents
Range(”K” & i).TextToColumns Destination:=Range(”L” & i), DataType:=xlFixedWidth _
, FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), _
Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), _
Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array( _
18, 1), Array(19, 1), Array(20, 1))

For j = 12 To 12 + Range(”J” & i)
ats = “ó”: bwh = “ö”: dep = “õ”: mat = “ú”: sab = “ø”: alf = “Ç”: yaa = “í”: wau = “æ”
nun = “ä”: lam = “á”: alg = “Ô: baa = “È”: taa = “Ê”: saa = “Ë”
ann = “ð”: inn = “ò”: unn = “ñ”
c1 = j + 1: c2 = j + 2: c3 = j + 3: t1 = j - 1: t2 = j - 2: t3 = j - 1: q = “”

If Cells(i, j) = mat _
Then Cells(i, j) = Cells(i, j) & ” “: _
w4 = w4 & q & “m”

If Cells(i, j) = sab Then Cells(i, t1) = Cells(i, t1) & mat & ” ” & Cells(i, t1): _
Cells(i, j).ClearContents: w4 = w4 & q & “s”: GoTo ddd

ddd:

If Cells(i, j) = alf And Cells(i, c1) = nun _
And Cells(i, c2) ats And Cells(i, c2) bwh And Cells(i, c2) dep _
And Cells(i, c2) sab And Cells(i, c2) mat _
And Cells(i, c2) ann And Cells(i, c2) inn And Cells(i, c2) unn _
Then Cells(i, c1) = Cells(i, c1) & ” “: w4 = w4 & q & “b”: GoTo eee

If Cells(i, j) = alf And Cells(i, c1) = lam _
And Cells(i, c2) = mat _
Then Cells(i, c2) = Cells(i, c2) & ” “: w4 = w4 & q & “c”: GoTo eee

If Cells(i, j) = alf And Cells(i, c1) = lam And Cells(i, t1) = ats _
And Cells(i, c3) sab And Cells(i, c3) mat _
Then Cells(i, j) = Cells(i, j) & ” “: w4 = w4 & q & “d”: GoTo eee

If Cells(i, j) = alf And Cells(i, t1) = ats _
And Cells(i, c1) lam _
And Cells(i, t2) sab And Cells(i, c2) sab And Cells(i, c2) mat _
Then Cells(i, j) = Cells(i, j) & ” “: w4 = w4 & q & “a”

eee: If Cells(i, j) = wau And Cells(i, t1) = dep And Cells(i, c1) sab _
And Cells(i, c1) mat And Cells(i, c1) ats _
Then Cells(i, j) = Cells(i, j) & ” “: w4 = w4 & q & “w”

If Cells(i, j) = yaa And Cells(i, t1) = bwh And Cells(i, c1) sab _
And Cells(i, c1) ats _
And Cells(i, c1) mat And Cells(i, c2) alf And Cells(i, t2) wau _
Then Cells(i, j) = Cells(i, j) & ” “: w4 = w4 & q & “y”

If Cells(i, j) = nun And Cells(i, t1) alf _
And Cells(i, c1) ats And Cells(i, c1) bwh And Cells(i, c1) dep _
And Cells(i, c1) sab And Cells(i, c1) mat _
And Cells(i, c1) ann And Cells(i, c1) inn And Cells(i, c1) unn _
Then Cells(i, j) = Cells(i, j) & ” “: w4 = w4 & q & “n”
Next j

w = “”
For j = 12 To 12 + Range(”J” & i)
w = w & Cells(i, j)
Next j
Range(”K” & i) = Trim$(w): Range(”L” & i & “:AL” & i).ClearContents
Range(”J” & i).ClearContents:
Range(”K” & i).TextToColumns Destination:=Range(”K” & i), DataType:=xlDelimited _
, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1))
Range(”J” & i) = w4
Next i

ActiveCell.Offset(0, 1).Select: ActiveCell.Copy
Range(”Q1″) = ActiveCell.Row: Range(”Q1″).Select
Application.Run Macro:=”MIX.MIX”
GoTo SHE
‘———————————————————————————

SHV: If s = 3 Then Stop
If Range(”Q1″) “” Then r1 = Range(”Q1″): r0 = r1 - Range(”O1″) Else _
r0 = 3: r1 = Range(”A3″).End(xlDown).Row
For j = 11 To 16
Range(Cells(r0, j), Cells(r1, j)).Copy: Range(”Q” & r0).PasteSpecial xlValues
Range(”R1″).FormulaR1C1 = “ú”
Range(”S1:T1″).Copy: Range(”S” & r0 & “:T” & r1).Select: ActiveSheet.Paste
Selection.Copy: Selection.PasteSpecial xlValues
Range(”T” & r0 & “:T” & r1).Copy: Range(”U” & r0).Select: ActiveSheet.Paste
For k = 1 To 6
If k = 1 Then w2 = “ó” ‘ats
If k = 2 Then w2 = “ö” ‘bwh
If k = 3 Then w2 = “õ” ‘dep
If k = 4 Then w2 = “ð” ‘ann
If k = 5 Then w2 = “ò” ‘inn
If k = 6 Then w2 = “ñ” ‘unn
Range(”U” & r0 & “:U” & r1).Replace w2, w2 & ” “, xlPart
Next k
Range(”R” & r0 & “:R” & r1).FormulaR1C1 = “=TRIM(RC[3]& “” “” &RC[1])”
Range(”R” & r0 & “:R” & r1).Copy: Range(”R” & r0).PasteSpecial xlValues
Range(”S” & r0 & “:U” & r1).ClearContents
Range(”R” & r0 & “:R” & r1).Copy: Cells(r0, j).PasteSpecial xlValues
Next j

Range(”F” & r0 & “:F” & r1).FormulaR1C1 = _
“=trim(RC[5]& “” “”&RC[6]& “” “”&RC[7]& “” “”&RC[8]& “” “”&RC[9]& “” “”&RC[10])”
Range(”F” & r0 & “:F” & r1).Copy
Range(”F” & r0).PasteSpecial xlValues
Range(”K” & r0 &a