Note: The other languages of the website are Google-translated. Back to English

Jak zkontrolovat, zda je první písmeno v zadané buňce v aplikaci Excel velké?

Může být snadné vytvořit všechna písmena v buňce v aplikaci Excel. Víte však, jak zkontrolovat, zda je první písmeno velké nebo ne ve specifikované buňce v aplikaci Excel? Tento článek představí kód VBA, který vám ho pomůže dosáhnout.

Zkontrolujte, zda je první písmeno v zadané buňce velké s kódem VBA

Karta Office Povolte úpravy a procházení na kartách v Office a vaše práce bude mnohem jednodušší ...
Kutools pro Excel vyřeší většinu vašich problémů a zvýší vaši produktivitu
80%
  • Znovu použít cokoli: Přidejte do svých oblíbených nejpoužívanější nebo nejsložitější vzorce, grafy a cokoli jiného a rychle je v budoucnu znovu použijte.
  • Více než 20 textových funkcí: Extrahovat číslo z textového řetězce; Extrahovat nebo odebrat část textů; Převádějte čísla a měny na anglická slova.
  • Sloučit nástroje: Více sešitů a listů do jednoho; Sloučit více buněk / řádků / sloupců bez ztráty dat; Sloučit duplicitní řádky a součet.
  • Rozdělené nástroje: Rozdělit data do více listů na základě hodnoty; Jeden sešit pro více souborů Excel, PDF nebo CSV; Jeden sloupec na více sloupců.
  • Vložit přeskakování Skryté / filtrované řádky; Count And Sum podle barvy pozadí; Posílejte hromadně osobní e-maily více příjemcům.
  • Super filtr: Vytvořte pokročilá schémata filtrů a použijte je na jakékoli listy; Typ podle týdne, dne, frekvence a dalších; Filtr tučně, vzorce, komentovat ...
  • Více než 300 výkonných funkcí; Funguje s Office 2007-2021 a 365; Podporuje všechny jazyky; Snadné nasazení ve vašem podniku nebo organizaci.

Zkontrolujte, zda je první písmeno v zadané buňce velké s kódem VBA

Chcete-li použít kód VBA ke kontrole, zda je první písmeno v buňce velké nebo ne v aplikaci Excel, postupujte takto.

1. zmáčkni Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Modul. A pak zkopírujte a vložte následující kód VBA do okna Kód.

Kód VBA: Zkontrolujte, zda je první písmeno v buňce velké

Sub UpperCaseCheck()
    Dim xRg As Range
    Dim xAsc As Integer
    Set xRg = Range("A1")
    xAsc = Asc(Mid(xRg.Value, 1, 1))
    If xAsc > 64 And xAsc < 91 Then
        MsgBox "First alpha character is capital"
    Else
        MsgBox "First alpha character is not capital"
    End If
End Sub

Note: In the code, A1 is the cell which you will check if the first letter is capital. Please change it as you need.

3. Press the F5 key to run the code. Then a Microsoft Excel dialog box pops up to tell you whether the first letter in that specified cell is capital or not as below screenshots shown.


Related Articles:


The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by
80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than
    300
    powerful features
    . Supports Office/Excel
    2007-2019 and 365
    . Supports all languages. Easy deploying in your enterprise or organization. Full features
    30
    -day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by
    50%
    , and reduces hundreds of mouse clicks for you every day!
officetab bottom
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations

Follow Us

Copyright © 2009 - www.extendoffice.com. | All rights reserved. Powered by ExtendOffice. | Sitemap
Microsoft and the Office logo are trademarks or registered trademarks of Microsoft Corporation in the United States and/or other countries.
Protected by Sectigo SSL