Isi data secara automatik menggunakan EXCEL VBA

Kandungan pengisian EXCEL VBA

Sub S()

a = [o2].Teks

b = [o7].Teks

na = Len(a)

nb = Len(b)

ReDim arr(1 To na)

Dim Semula brr(1 Hingga nb)

Untuk i = 1 Kepada na

arr(i) = Val(Mid(a, i, 1))

Seterusnya

Untuk i = 1 Kepada nb

brr(i) = Val(Mid(b, i, 1))

Seterusnya

Untuk i = 1 Hingga 9

a = ＂＂

b = ＂＂

Untuk j = 1 Kepada na

a = a & (arr(j) + i) Mod 10

Seterusnya

Untuk j = 1 Kepada nb

b = b & (brr(j) + i) Mod 10

Seterusnya

[o2].Offset(0, i) = a

[o7].Offset(0, i) = b

Seterusnya

Tamat Sub

Soalan tentang autofill VBA

Kod untuk mencari baris terakhir dengan data dalam lajur c ialah:

i=Cells(Rows.Count, 3).End(xlUp).Row

Pilihan.Destinasi AutoIsi:=Julat(＂D5:D＂ & i &＂＂)

Kod lengkap ialah:

Sub jj()

Julat(＂D5＂).Pilih

ActiveCell.FormulaR1C1 = ＂=IF(RC[-2]=RC[-1],＂＂y＂＂,＂＂0＂＂)＂

i = Sel(Baris. Kiraan, 3).Tamat(xlUp).Baris

Pilihan.Destinasi AutoIsi:=Julat(＂D5:D＂ & i & ＂＂)

Tamat Sub

Cara menggunakan kod VBA untuk mengisih sel dalam julat EXCEL dari kecil hingga besar

Oleh kerana tangkapan skrin tidak lengkap, saya akan menganggap bahawa kawasan data ialah A1:F9 dan kawasan pengisian ialah H1:M9

Kod adalah seperti berikut:

Sub Helaian Kerja_PerubahanPilihan(ByVal Sasaran Sebagai Julat)

Malapkan arr1(1 hingga 54), arr2(1 hingga 54)

Malapkan x, y, z Sebagai Integer

Malap b, c

Malapkan Sebagai Varian

z = 1

x = 1

y = 1

c = 1

Untuk x = 1 Hingga 9

Untuk y = 1 Hingga 6

arr1(z) = Sel(x, y)

z = z + 1

Seterusnya y

Seterusnya x

z = z - 1

Untuk z = 1 Hingga 54

a = arr1(z)

b = z

Untuk x = 1 Hingga 54

Jika a

a = arr1(x)

b = x

Tamat Jika

Seterusnya x

arr2(c) = a

c = c + 1

arr1(b) = 0

Seterusnya z

c = c - 1

Untuk x = 1 Hingga 9

Untuk y = 8 Hingga 13

Sel(x, y) = arr2(c)

c = c - 1

Seterusnya y

Seterusnya x

Tamat Sub

Larikan hasil

Jika ini membantu anda, sila klik untuk menerimanya, terima kasih^_^

excel vba mengisi sel

Pemilik: Hello, terdapat prasyarat untuk soalan anda:

Jika versi Excel anda ialah versi 2003, maka anda hanya boleh menggunakan 56 warna yang dipratetap oleh sistem. Warna isian lain yang dilaksanakan menggunakan kod VBA akan ditukar kepada yang paling hampir dengan 56 warna ini.

Jika versi Excel anda adalah 2007 dan ke atas, hampir tiada sekatan pada warna isian sel Anda boleh melaksanakan isian warna tersuai sepenuhnya melalui arahan pengisian sel Ia menyokong mod RGB dan HSL tanpa menggunakan VBA.

Jika menggunakan VBA, kodnya adalah seperti berikut:

Sub test() 'Isi sel A1 dengan merah, RGB (merah, hijau, biru nilai merah, hijau dan biru dari 0 hingga 255. Nilai yang berbeza boleh ditetapkan untuk mendapatkan warna yang berbeza). Julat(＂A1＂).Dalaman.Warna = RGB(255, 0, 0) 'Isi dengan merah 'Jika anda ingin mengalih keluar warna isian, gunakan ayat ini Julat(＂A1＂).Pola Dalaman = xlnoeEnd Sub

Atas ialah kandungan terperinci Isi data secara automatik menggunakan EXCEL VBA. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!