Salin jumlah sél anu dipilih ka Clipboard

Kadang-kadang butuh waktu anu pohara lila pikeun datang nepi ka sababaraha hal. Tapi lamun maranéhna geus geus nimukeun, sanggeus kanyataan aranjeunna sigana atra komo banal. Ti séri "naon, éta mungkin?".

Tina vérsi anu pangheulana, bar status di handapeun jandela Microsoft Excel sacara tradisional nampilkeun total pikeun sél anu dipilih:

Salin jumlah sél anu dipilih ka Clipboard

Upami hoyong, malah mungkin pikeun klik katuhu dina hasil ieu tur pilih tina ménu kontéks persis fungsi nu urang hoyong ningali:

Salin jumlah sél anu dipilih ka Clipboard

Sareng nembé nembé, dina apdet Excel panganyarna, pamekar Microsoft nambihan fitur anu sederhana tapi akalna - ayeuna nalika anjeun ngaklik hasil ieu, aranjeunna disalin kana clipboard!

Salin jumlah sél anu dipilih ka Clipboard

Beauty. 

Tapi kumaha upami anu henteu acan (atanapi parantos?) gaduh versi Excel sapertos kitu? Ieu tempat macros basajan bisa mantuan.

Nyalin jumlah sél anu dipilih ka Clipboard nganggo makro

Buka dina tab pamekar (Pamekar) jelema nu nyunting visual Basic atanapi nganggo potong kompas keyboard ieu Alt+F11. Selapkeun modul kosong anyar via menu Selapkeun - Modul sareng salin kodeu ieu di dinya:

Sub SumSelected() Lamun TypeName(Selection) <> "Range" Lajeng Kaluar Sub With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Selection) .PutInClipboard

Logikana basajan:

  • Mimitina asalna "perlindungan ti fool" - urang pariksa naon kahayang disorot. Upami sél henteu dipilih (tapi, contona, bagan), teras kaluar makro.
  • Lajeng ngagunakeun paréntah Getobyek urang nyieun hiji objek data anyar mana jumlah sél dipilih urang bakal disimpen engké. Kode alfanumerik anu panjang sareng teu kaharti, saleresna, tautan kana cabang pendaptaran Windows dimana perpustakaan aya. Microsoft Bentuk 2.0 Perpustakaan Objék, anu tiasa nyiptakeun objék sapertos kitu. Kadang trik ieu disebut oge telat ngariung implisit. Upami anjeun henteu nganggo éta, maka anjeun kedah ngadamel tautan ka perpustakaan ieu dina file ngalangkungan ménu Pakakas - Rujukan.
  • Jumlah sél anu dipilih dianggap paréntah WorksheetFunction.Sum(Selection), lajeng jumlah hasilna disimpen dina clipboard jeung paréntah PutInClipboard

Pikeun gampang dianggo, anjeun tiasa, tangtosna, napelkeun makro ieu ka potong kompas keyboard nganggo tombol Macros tab pamekar (Pamekar - Macros).

Sareng upami anjeun hoyong ningali naon anu leres-leres disalin saatos ngajalankeun makro, anjeun tiasa ngaktipkeun panel Clipboard nganggo panah leutik di pojok katuhu handap grup anu aya. utama (Bumi) tab:

Salin jumlah sél anu dipilih ka Clipboard

Henteu ngan jumlah

Upami, salian jumlah banal, anjeun hoyong anu sanés, maka anjeun tiasa nganggo salah sahiji fungsi anu disayogikeun ku obyék. Fungsi Lembar Kerja:

Salin jumlah sél anu dipilih ka Clipboard

Contona, aya:

  • Sum – sum
  • Rata-rata - arithmetic mean
  • Cacah – jumlah sél jeung angka
  • CountA - jumlah sél dieusian
  • CountBlank - jumlah sél kosong
  • Min - nilai minimum
  • Max - nilai maksimum
  • Median - median (nilai sentral)
  • … Jsb.

Kaasup saringan sareng baris-kolom disumputkeun

Kumaha upami baris atanapi kolom disumputkeun (sacara manual atanapi ku saringan) dina rentang anu dipilih? Pikeun henteu nganggap éta dina total, urang kedah rada ngarobih kode urang ku nambihan kana obyék. pilihan sipat Sél Husus(xlCellTypeVisible):

Sub SumVisible() Lamun TypeName(Selection) <> "Rentang" Lajeng Kaluar Sub With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Selection.SpecialCell)Tx PutInClipboard Tungtung Jeung Tungtung Sub

Dina hal ieu, itungan sagala fungsi total bakal dilarapkeun ka sél katempo wungkul.

Upami anjeun peryogi rumus hirup

Lamun ngimpi nepi, anjeun bisa datang nepi ka skenario lamun eta leuwih hade nyalin teu angka (konstan), tapi rumus hirup kana panyangga, nu Etang jumlahna urang kudu pikeun sél dipilih. Dina hal ieu, anjeun kudu lem rumus tina fragmen, nambahkeun kana éta ngaleupaskeun tanda dollar tur ngaganti koma (anu dipaké salaku pamisah antara alamat sababaraha rentang dipilih di VBA) ku titik koma:

Sub SumFormula () Lamun TypeName (Pilihan) <> "Rentang" Lajeng Kaluar Sub Jeung GetObject ("Anyar: {1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText "= СУММ (" & ngagantikeun (Ganti (Pamilihan. Alamat, ",", ";"), "$", "") & ")" .PutInClipboard End With End Sub

Summation kalawan kaayaan tambahan

Sareng, tungtungna, pikeun maniacs lengkep, anjeun tiasa nyerat makro anu bakal nyimpulkeun henteu sadayana sél anu dipilih, tapi ngan ukur anu nyugemakeun kaayaan anu dipasihkeun. Janten, contona, makro bakal katingali sapertos anu nempatkeun jumlah sél anu dipilih kana panyangga, upami nilaina langkung ageung tibatan 5 sareng dina waktos anu sami aranjeunna ngeusi warna naon waé:

 Sub CustomCalc() Taram myRange Salaku Range Lamun TypeName(Selection) <> "Range" Lajeng Kaluar Sub Pikeun Unggal sél Dina Pilihan Lamun cell.Value > 5 Jeung cell.Interior.ColorIndex <> xlEuweuh Lajeng Mun myRange Henteu aya nanaon Lajeng Setel myRange = sél Lain Setel myRange = Union(myRange, cell) Tungtung Mun Tungtung Lamun Salajengna sél Jeung GetObject("Anyar:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(myRange) .PutInClipboard End With End

Sakumaha anjeun tiasa bayangkeun, kaayaan tiasa diatur leres pisan - dugi ka format sél - sareng dina jumlah naon waé (kaasup ku ngaitkeun aranjeunna sareng operator logis atanapi atanapi sareng). Aya loba rohangan pikeun imajinasi.

  • Ngarobih rumus kana nilai (6 cara)
  • Naon macros, kumaha carana make eta, dimana nyelapkeun kode Visual Basic
  • Inpormasi mangpaat dina bar status Microsoft Excel

Leave a Reply