Bagaimana Menggunakan Objek Kamus Di VBA Untuk Mengubah Struktur Meja Excel

[ad_1]

Sering kali Anda akan dihadapkan pada tabel di mana struktur datanya menyulitkan untuk memfilter informasi yang Anda butuhkan. Ini tidak berarti meja tidak diatur dengan benar, hanya saja analisis Anda tidak diantisipasi.

Objek kamus VBA adalah alat yang ideal untuk merestrukturisasi tabel sehingga akan lebih berguna. Mari kita lihat contoh nilai ujian siswa, tetapi itu juga bisa menjadi daftar pembelian pelanggan:

Skor Tes Nama

john Test1 10

andrew Test1 22

john Test2 12

andrew Test2 25

Meskipun tabel ini mungkin berguna, mungkin Anda perlu memetakan skor komparatif dan format ini mungkin lebih disukai:

Nama Test1 Test2

john 10 12

andrew 22 25

Menggunakan Objek Kamus VBA

Objek kamus mirip dengan larik atau koleksi tetapi dengan lebih banyak fungsi dan lebih mudah dimengerti. Setelah Anda membuat kamus, sintaks dasar untuk menambahkan item adalah seperti ini:

tombol dict1.add, item

Itu kunci properti adalah nilai unik untuk item yang Anda simpan ke kamus. Jadi jika Anda menambahkan nama siswa, kode mungkin seperti berikut:

dict1.add "john", testcores

Kami akan melakukan dua hal untuk mengubah tabel nilai ujian kami:

  1. Buat kamus nama-nama siswa yang unik
  2. Kaitkan nilai tes dengan nama siswa

Mengidentifikasi Nilai-Nilai Unik Dengan Objek Kamus

Kami akan mengambil keuntungan dari fakta itu kunci nilai harus unik dengan membuat daftar nama siswa dan kemudian menambahkan skor tes ke nama. Tujuan dari kode ini adalah untuk membuat array nama siswa dan nilai tes, ditambah larik nama tes.

Pertama, kita akan membuat instance kamus, pilih rentang dan buat variabel untuk menahan nama tes.

Set dict1 = Kamus Baru

dict1.CompareMode = BinaryCompare

Lembar (1) .Aktifkan

Range ("a1"). CurrentRegion.Columns (1). Pilih

tes = ""

Sekarang kita dapat mengulang melalui tabel dan menetapkan nilai untuk nama, nama pengujian, dan skor.

Untuk x = 2 Ke Seleksi.Nomor

myName = Pemilihan (x) .Teks

myTest = Pemilihan (x) .Oset (0, 1) .Teks

myScore = Seleksi (x) .Offset (0, 2) .Nilai

'tambahkan nama tes untuk tes jika belum ditambahkan

Jika InStr (tes, myTest) = 0 Kemudian tes = tes & myTest & "|"

Kami akan menggunakan kasus tertentu untuk menentukan apakah nama siswa telah ditambahkan, dan jika tidak, kami akan menambahkan nama dan skor tes pertama ke item kamus untuk siswa.

Kemudian, yang terpenting, jika nama siswa ada dalam kamus, kami hanya akan menambahkan skor ke teks yang dikaitkan dengan nama siswa.

Pilih Case dict1.Exists (myName)

Case False

dict1.Add myName, myName & "|" & myScore

Kasus Benar

dict1 (myName) = dict1 (myName) & "|" & myScore

Akhiri Pilih

Berikutnya

Kami sekarang punya serangkaian pipa "|" string teks yang dibatasi untuk dikonversi menjadi tabel baru, yang dapat Anda lakukan dengan berbagai cara, misalnya dalam lembaran baru:

ActiveCell.Value = "Nama |" & tes

Untuk Setiap c Dalam dict1

ActiveCell.Offset (1, 0) .Aktifkan

ActiveCell.Value = dict1 (c)

Berikutnya

Kemudian kita dapat menggunakan teks Excel untuk alat kolom atau beberapa kode VBA untuk mengonversi data baru ke tabel.

Ringkasan

Objek kamus VBA adalah alat yang kuat dan fleksibel untuk memproses data. Beberapa pengkodean yang kreatif dan dirancang dengan baik dapat menghemat banyak jam frustrasi dan menambah produktivitas Anda.

[ad_2]

 Bagaimana Kepemimpinan Dapat Mengubah Sekolah di Sekitar

[ad_1]

Di arena pendidikan, kami terus mencoba mencari cara untuk memutar sekolah-sekolah kami yang berkinerja rendah. Kami bahkan telah membuat sebuah istilah untuk orang-orang yang mengubah sekolah di sekitar-Turn-around Specialists. Kami telah mengembangkan komite untuk meneliti bagaimana kami dapat membuat perubahan dan kami telah mengirim pemimpin ke sekolah-sekolah yang merekrut untuk menemukan cara untuk mengubah sekolah. Terkadang kita berhasil dan terkadang tidak, dan terkadang kita terlalu memikirkan masalah. Artikel ini menunjukkan bagaimana pendekatan sederhana oleh kepala sekolah tahun pertama berakhir dengan meningkatnya nilai ujian hingga lebih dari 50 persen dalam satu tahun sekolah.

Distrik sekolah tidak melakukan hal yang berbeda ketika mereka menyewa kepala sekolah yang baru, selain memberitahukan kepadanya bahwa sekolahnya adalah salah satu dari dua sekolah di kabupaten yang akan ditutup jika nilai ujian tidak meningkat hingga 50 persen pada akhir tahun ajaran. . Skor ujian sekolah adalah 28 persen saat itu. Sayangnya, nilai ujian adalah satu-satunya faktor yang digunakan negara untuk menentukan keberhasilan sekolah, meskipun ada banyak faktor yang menentukan sekolah yang sukses.

Kepala sekolah yang baru sangat positif dan percaya diri bahwa sekolah dapat meningkatkan nilai tesnya. Dia adalah mantan atlet yang percaya bahwa kerja tim adalah cara terbaik untuk memperbaiki sekolah. Dia punya rencana dan sekarang dia harus mendapatkan persetujuan dari staf barunya.

Jadi, dia pergi bekerja pada hari pertama sekolah dan mengumpulkan seluruh staf bersama, termasuk sekretaris, penjaga, dll. Dia sangat berterus terang kepada mereka dan menjelaskan apa yang dipertaruhkan jika para siswa tidak mendapat nilai 50 persen pada tes standar di bulan Februari. Dia menjelaskan bagaimana peningkatan skor tes itu mungkin, tetapi dia membutuhkan dukungan semua orang, termasuk penjaga, sekretaris, dan guru. Para staf tampaknya didorong, karena kebijakan mereka yang seperti diktator arbitrasi sebelumnya, dan tidak pernah meminta bantuan mereka. Kepala sekolah yang baru, bagaimanapun, segera melambaikan seluruh staf tugas: dia meminta masing-masing untuk mulai memikirkan cara dia dapat membantu siswa meningkatkan nilai tes mereka, dan membawa strategi tersebut ke rapat staf berikutnya.

Segera setelah pertemuan, beberapa anggota staf sangat terdorong sehingga mereka mulai membentuk kelompok mereka sendiri untuk menghasilkan strategi untuk meningkatkan prestasi siswa. Apa yang tampaknya terjadi adalah perubahan total dalam sikap staf. Anggota staf bertemu bersama untuk membahas kebutuhan akademik siswa dan bagaimana mereka dapat memenuhi kebutuhan para siswa. Bahkan sekretaris dan penjaga berbicara tentang bagaimana mereka bisa membantu. Kolaborasi staf ini persis seperti apa yang dibutuhkan oleh kepala sekolah baru jika prestasi siswa akan meningkat.

Pertemuan staf berikutnya sangat bermanfaat bagi kepala sekolah karena setiap orang datang dengan ide untuk membantu meningkatkan prestasi siswa. Beberapa ide termasuk penjaga memastikan bangunan bersih dan mendorong siswa untuk masuk ke kelas tepat waktu, para guru seni memutuskan mereka akan membantu siswa dengan kata-kata kosakata yang mungkin pada tes standar, sementara guru olahraga mengembangkan tugas yang memiliki harus diserahkan setiap minggu. Kepala sekolah dapat mulai melihat transformasi sekolah hanya dalam beberapa minggu.

Para guru akademis bekerja sama untuk menghasilkan strategi berbeda yang akan menguntungkan para siswa, seperti siswa yang menulis lebih banyak dan mengajari mereka cara menganalisis apa yang mereka tulis. Beberapa guru memutuskan untuk bekerja pada kosakata, dan beberapa bekerja pada strategi pengambilan tes. Selain itu, beberapa guru membawa siswa mereka ke lab komputer seminggu sekali, di mana mereka bekerja pada program perangkat lunak yang selaras dengan tes negara. Pemerintahan bahkan mengadakan kontes akademis yang selaras dengan siswa materi yang mungkin melihat pada tes. Selain itu, guru menawarkan untuk bekerja dengan siswa yang membutuhkan bantuan tambahan. Kolaborasi yang berlangsung luar biasa dan sangat bermanfaat bagi para siswa.

Begitu fase putaran itu bergerak ke arah yang sukses, kepala sekolah mengarahkan perhatiannya pada para siswa. Dia bertemu dengan para siswa dan menjelaskan masalah yang sama, mengatakan kepada mereka bahwa mereka tidak ingin menjadi kelas yang menyebabkan sekolah ditutup. Sekali lagi, kepala sekolah memberi siswa tugas, dan meminta mereka bekerja untuk meningkatkan nilai ujian mereka dengan mendengarkan di kelas, mengerjakan pekerjaan rumah mereka, membaca lebih banyak, dan dipersiapkan setiap hari. Dia juga memberikan banyak insentif untuk siswa seperti: T-shirt setelah lulus tes dan kesempatan bagi siswa yang telah lulus untuk memiliki kegiatan sekolah pilihan mereka.

Orangtua juga tidak diberitahu tentang apa yang mereka lakukan dan bagaimana mereka bisa membantu. Paket pekerjaan rumah dikirim ke rumah yang memiliki strategi ujian dan bahan bacaan yang direkomendasikan. Idenya adalah untuk memasukkan seluruh komunitas sekolah. Tidak ada orang yang bisa memutar sekolah.

Sekolah bekerja keras selama beberapa bulan berikutnya dengan strategi yang tercantum di atas dan strategi tambahan apa pun yang mereka putuskan penting. Beberapa di antaranya termasuk mengadakan pep rally sehari sebelum ujian, dengan asisten utama menyanyikan lagu rap, yang sangat memotivasi siswa. Lainnya termasuk memiliki lingkungan pengujian yang baik dengan mengatur para siswa ke dalam kelompok-kelompok kecil pada hari pengujian, dan meninjau strategi pengambilan ujian bila memungkinkan menjelang tanggal tes.

Setelah semua persiapan dan kerja keras, sekolah menerima nilai ujian beberapa bulan setelah ujian. Ketika kepala sekolah mengumumkan pada rapat staf bahwa skornya 55 persen, tidak ada mata kering di ruangan itu. Kepala sekolah mengatakan kepada seluruh staf untuk membungkuk untuk pekerjaan yang dilakukan dengan baik.

Pendekatan ini untuk meningkatkan nilai ujian dapat dikembangkan oleh prinsipal apa pun yang bersedia bekerja dalam kolaborasi dengan stafnya. Sekolah yang bekerja sebagai tim umumnya lebih sukses. Selain itu, staf suka bekerja di lingkungan tersebut. Karena pendekatan turn-around kepala sekolah, nilai ujian di sekolah itu naik hingga 72 persen dalam dua tahun; dan ini adalah sekolah dengan 90 persen siswanya menerima makan siang gratis dan dikurangi. Ini menegaskan bahwa kesuksesan terjadi di sekolah yang bekerja sebagai tim.

[ad_2]