Penjelasan terperinci tentang cara menulis semula formula dalam Excel ke dalam VBA

Cara menulis semula formula dalam Excel ke dalam VBA

Tetapkan nama jadual kepada helaian1, dengan lajur A ialah nama negara dan lajur B ialah nombor yang sepadan (ubah suai mengikut situasi sebenar).

Untuk membantu pemain yang belum melepasi tahap, kami boleh menggunakan makro berikut untuk menyelesaikan teka-teki. Buat dan laksanakan makro ini untuk mencapai matlamat anda.

Sub aaaa()

Malapkan Sasaran Sebagai Julat

Lakukan

i = i + 1

Untuk membantu pemain yang belum melepasi tahap itu, mari kita belajar tentang kaedah penyelesaian teka-teki khusus. Dalam kod, kami menggunakan "Sheet1.Range("A" & i).Teks" untuk mendapatkan kandungan teks dalam sel A. Kaedah ini boleh membantu kami mendapatkan maklumat yang kami perlukan dan kemudian melaksanakan operasi yang sepadan. Semoga petua ini membantu anda semua!

Pilih Sarung aaa

Kes ＂China＂

Helaian1.Julat(＂B＂ & i) = 2

Kes ＂AS＂

Helaian1.Julat(＂B＂ & i) = 1

Kes ＂Jepun＂

Helaian1.Julat(＂B＂ & i) = 0

Pilih Tamat

Gelung Sementara aaa ＂＂

Tamat Sub

Formula Excel kepada kod VBA

Ada yang salah dengan hubungan logik formula anda

Sila lihat jika ini maksudnya

Sub test()

Malapkan i&, n, n1

Untuk i = 1 Hingga 5

Jika Sel(i, "D") * Pi / 180 >= 0 Kemudian

Jika Cos(Sel(i, "B") * Pi / 180 - Sel(i, "I") * Pi / 180) <

n = Benar

Lain

n = Salah

Tamat Jika

Jika Cos(Sel(i, "B") * Pi / 180 - Sel(i, "I") * Pi / 180) >

n1 = Benar

Lain

n1 = Salah

Tamat Jika

Jika n1 = Betul Dan n = Betul Maka k = ＂-1＂ Lain k = ＂1＂

Lain

k = ＂1＂

Tamat Jika

Sel(i, "A") = k

Seterusnya i

Tamat Sub

Atas ialah kandungan terperinci Penjelasan terperinci tentang cara menulis semula formula dalam Excel ke dalam VBA. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!