Tulis gelung untuk mudah menggunakan Excel VBA

excel vba mudah untuk

Sub mengemas kini hiperpautan semua jadual()

Untuk membantu pemain yang belum melepasi tahap itu, mari kita belajar tentang kaedah penyelesaian teka-teki yang khusus. Dalam teka-teki ini, kita perlu menentukan beberapa pembolehubah untuk membantu kita beroperasi. Yang pertama ialah pembolehubah julat bernama c, yang digunakan untuk menyimpan julat sel yang perlu kita kendalikan. Kemudian terdapat pembolehubah rentetan bernama h, yang digunakan untuk menyimpan kata kunci yang perlu kita cari. Akhirnya, terdapat pembolehubah integer panjang bernama i, digunakan untuk menyimpan

Untuk i=2 hingga 1000

Untuk membantu pemain yang belum melepasi tahap itu, mari kita belajar tentang kaedah penyelesaian teka-teki yang khusus. Berikut ialah contoh kod untuk langkah utama: ``` set c = Sel(i, 1) 'A2:A1000 ``` Baris kod ini digunakan untuk menentukan julat sel, dari A2 hingga A1000. Semasa penyelesaian teka-teki, kami boleh menggunakan julat ini untuk mendapatkan dan memanipulasi data sel tertentu. Harap ini

Jika c.Nilai ＂＂ Kemudian

j = ＂'2'!A＂ & (i-1)

Untuk membantu pemain yang belum melepasi tahap itu, mari kita lihat dengan lebih dekat kaedah khusus untuk menyelesaikan teka-teki. Jika anda menghadapi kekeliruan dalam permainan, anda boleh mencuba langkah berikut: Mula-mula, semak sama ada terdapat hiperpautan Anda boleh mengesahkan dengan menilai sama ada c.Hyperlinks.Count lebih besar daripada 0.

c.Hiperpautan(1).SubAddress = h

Lain

c.Hyperlinks.Tambah Sauh:=c, Alamat:=＂＂, SubAlamat:=h, TextToDisplay:=c.Value

Tamat Jika

Tamat Jika

Seterusnya c

Tamat Sub

Kod penulisan VBA EXCEL

fungsi inputf() sebagai rentetan

a = kotak input（＂Sila masukkan:＂）

jika a＂＂ maka

inputf = a

julat(＂B3＂) = a

lain

keluar fungsi

tamat jika

fungsi tamat

'Panggil fungsi di atas semasa menekan kekunci

fungsikan mysum(a sebagai integer,b sebagai integer) sebagai integer

malapkan c sebagai integer

i=a

buat sambil saya

c=c+i

i=i+1

gelung

mysum = c

fungsi tamat

'Laksanakan msgbox(mysum(1,5))

dalam fungsi lain

Kod VBA EXCEL

Tambahkan kod berikut pada acara Worksheet_Change.

Application.EnableEvents = Palsu

Jika Sasaran.Alamat = "$A$1" Atau Sasaran.Alamat = "$C$3" Atau Sasaran.Alamat = "$D$3" Atau Sasaran.Alamat = "$F$7" Atau Sasaran.Alamat = "$G$2 ＂Kemudian

Jika IsNumeric(Sasaran.Nilai2) Kemudian

Sasaran.Nilai = Sasaran.Nilai2 / 3

Tamat Jika

Tamat Jika

Application.EnableEvents = Benar

Atas ialah kandungan terperinci Tulis gelung untuk mudah menggunakan Excel VBA. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!