de-vraag
  • Pertanyaan
  • Tag
  • Pengguna
Notifikasi
Imbalan
Registrasi
Setelah Anda mendaftar, Anda akan diberitahu tentang balasan dan komentar untuk pertanyaan Anda.
Gabung
Jika Anda sudah memiliki akun, masuk untuk memeriksa pemberitahuan baru.
Akan ada hadiah untuk pertanyaan, jawaban, dan komentar tambahan.
Lebih
Sumber
Sunting
 SpyJournal
SpyJournal
Question

Menentukan jumlah baris dalam suatu rentang

Saya tahu nama rentang awal daftar - lebar kolom 1 dan kedalaman x baris.

Bagaimana cara menghitung x?

Ada lebih banyak data di kolom daripada hanya daftar ini. Namun, daftar ini bersebelahan - tidak ada apa pun di sel mana pun di atas atau di bawah atau di kedua sisi di sampingnya.

17 2008-09-22T12:15:03+00:00 3
 ashleedawg
ashleedawg
Pertanyaan edit 27 Juni 2018 в 2:42
Pemrograman
vba
excel
excel-vba
Pertanyaan ini memiliki :value jawaban dalam bahasa Inggris, untuk membacanya masuk ke akun Anda.
Solution / Answer
 GSerg
GSerg
22 September 2008 в 12:21
2008-09-22T12:21:54+00:00
Lebih
Sumber
Sunting
#8494547
Function ListRowCount(ByVal FirstCellName as String) as Long
    With thisworkbook.Names(FirstCellName).RefersToRange
        If isempty(.Offset(1,0).value) Then 
            ListRowCount = 1
        Else
            ListRowCount = .End(xlDown).row - .row + 1
        End If
    End With
End Function

Tetapi jika Anda sangat yakin tidak ada apa-apa di sekitar daftar, maka cukup thisworkbook.Names(FirstCellName).RefersToRange.CurrentRegion.rows.count

Mateen Ulhaq
Mateen Ulhaq
Jawaban edit 13 November 2011 в 3:18
11
0
 wcm
wcm
22 September 2008 в 12:36
2008-09-22T12:36:56+00:00
Lebih
Sumber
Sunting
#8494556

Saya yakin Anda mungkin menginginkan jawaban yang diberikan @GSerg. Ada juga fungsi lembar kerja yang disebut rows yang akan memberi Anda jumlah baris.

Jadi, jika Anda memiliki rentang data bernama Data yang memiliki 7 baris, maka =ROWS(Data) akan menampilkan 7 di sel itu.

Mateen Ulhaq
Mateen Ulhaq
Jawaban edit 13 November 2011 в 3:23
3
0
 SpyJournal
SpyJournal
22 September 2008 в 12:41
2008-09-22T12:41:04+00:00
Lebih
Sumber
Sunting
#8494566

Satu baris terakhir itu bekerja dengan sempurna @GSerg.

Fungsi lain adalah apa yang telah saya kerjakan tetapi saya tidak suka harus menggunakan UDF' kecuali benar-benar diperlukan.

Saya telah mencoba kombinasi excel dan vba dan telah berhasil - tetapi kikuk dibandingkan dengan jawaban Anda.

strArea = Sheets("Oper St Report CC").Range("cc_rev").CurrentRegion.Address
cc_rev_rows = "=ROWS(" & strArea & ")"
Range("cc_rev_count").Formula = cc_rev_rows
Mateen Ulhaq
Mateen Ulhaq
Jawaban edit 13 November 2011 в 3:23
1
0
Tambahkan pertanyaan
Kategori
Semua
Teknologi
Budaya / Rekreasi
Kehidupan / Seni
Ilmu Pengetahuan
Profesional
Bisnis
Pengguna
Semua
Baru
Populer
1
Asilbek Qadamboyev
Terdaftar 1 hari yang lalu
2
Akshit Mehta
Terdaftar 4 hari yang lalu
3
me you
Terdaftar 1 minggu yang lalu
4
Никита иванов
Terdaftar 1 minggu yang lalu
5
Alex1976G_06
Terdaftar 1 minggu yang lalu
ID
JA
RU
© de-vraag 2022
Sumber
stackoverflow.com
di bawah lisensi cc by-sa 3.0 dengan atribusi