Kod makro Excel tidak sukar, pakar sila angkat tangan anda

Tidak sukar untuk pakar memprogramkan kod makro excel

Sub ujian Swasta()

Hasil malap Sebagai String 'Nombor rawak yang mengandungi sepuluh nombor dari 0 hingga 9

Malapkan nilai rawak Sebagai Integer

Malapkan data rawak(10) Sebagai Integer

Malapkan bendera Sebagai Boolean

Untuk i = 0 Hingga 9

bendera = Benar

While flag = Benar

Rawakkan

RandomValue = Int((9 - 0 + 1) * Rnd + 0)

Jika i = 0 Atau cari(randomValue, randomData, i) = False Then

hasil = hasil & CStr(RandomValue)

Data rawak(i) = nilai rawak

bendera = Palsu

Tamat Jika

Wend

Seterusnya

Tamat Sub

Carian Fungsi Peribadi(kunci ByVal Sebagai Integer, data ByRef() Sebagai Integer, Panjang ByVal Sebagai Integer) Sebagai Boolean

Jika panjang = 0 Maka

cari = Benar

Fungsi Keluar

Tamat Jika

cari = Palsu

Untuk i = 0 Kepada panjang - 1

Jika data(i) = kunci Kemudian

cari = Benar

Fungsi Keluar

Tamat Jika

Seterusnya

Fungsi Tamat

Ini adalah untuk menjana nombor rawak Anda meletakkannya sekiranya mengklik butang

Sila bantu dengan kod makro EXCEL, terima kasih!

Menggunakan objek kamus akan menjadi lebih pantas Kodnya adalah seperti berikut: (Jika anda rasa ia tidak cukup pantas, baca semua lajur A helaian3 ke dalam tatasusunan untuk mengurangkan bilangan bacaan kerap lembaran kerja dan mempercepatkan banyak perkara. )

Sub pilih pendua()

Malap Sht2Dic, CongFuArr()

Dim N As Long

Malapkan Rng2 Sebagai Julat, Rng3 Sebagai Julat

Tetapkan Sht2Dic = CreateObject(＂Scripting.Dictionary＂)

Untuk Setiap Rng2 Dalam Helaian2.Julat(＂A1:A＂ & Helaian2.Julat Terpakai.Baris. Kira)

Sht2Dic(Rng2.Value) = Sht2Dic(Rng2.Value) + 1

Seterusnya

Untuk Setiap Rng3 Dalam Helaian3.Julat(＂A1:A＂ & Helaian3.Julat Terpakai.Baris. Kira)

Jika Sht2Dic.wujud(Rng3.Nilai) Kemudian

N = N + 1

ReDim Preserve CongFuArr(1 Hingga N)

CongFuArr(N) = Rng3.Nilai

Tamat Jika

Seterusnya

Helaian1.Lajur(＂A＂) = ＂＂

Helaian1.Julat(＂A1＂).Ubah Saiz(N, 1) = Lembaran KerjaFungsi.Transpose(CongFuArr)

Tamat Sub

Cara menggunakan makro pada jadual dalam excel

Klik Alat Pembangunan--Rekod Makro, tetapkan nama makro yang bermakna dan tetapkan kekunci pintasan untuk menggunakan makro Jika perlu, anda boleh memasukkan penerangan terperinci tentang makro dan klik OK

Mulai sekarang, setiap langkah operasi anda mesti dijamin memenuhi keperluan anda, kerana excel telah mula merekodkan langkah operasi anda, dan kini anda mendapati bahawa kedudukan rakaman makro pada bar alat telah berubah untuk menghentikan rakaman.

Kemudian ikuti contoh, kita pilih semua jadual, tetapkan fon kepada italik, tetapkan saiz fon kepada saiz 16, dan tetapkan warna latar belakang kepada turquoise, seperti yang ditunjukkan dalam gambar, setiap langkah ditetapkan dengan betul.

Selepas langkah selesai, klik untuk menghentikan rakaman, supaya makro untuk menetapkan format jadual dalam kelompok direkodkan Apabila kita mengklik pada makro, kita dapati bahawa makro yang baru kita rakam telah disimpan.

Apabila kita perlu menetapkan format yang sama untuk jadual lain, kita hanya perlu memanggil makro ini, seperti yang ditunjukkan dalam rajah, format sebelum memanggil makro.

Pilih jadual yang ingin anda format, kemudian klik Makro, kotak senarai makro akan muncul, pilih makro yang anda rakam, klik Jalankan, dan anda akan mendapati bahawa format jadual menjadi format yang kita mahu.

Atas ialah kandungan terperinci Kod makro Excel tidak sukar, pakar sila angkat tangan anda. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!