web-dev-qa-db-ja.com

Excelのセルの最初の文字を大文字にする方法

最近、小さなケースで満たされたセルでExcelに出くわしましたが、Excelの各単語を大文字にする簡単な方法やマクロはありますか？

たとえば、次の画像を検討してください。

Before conversion

変換後は次のようになります。

After conversion

Excelのすべてのセル[セル全体]を大文字で始める必要がありますか？それを達成する簡単な方法はありますか？

microsoft-excelmicrosoft-excel-2010microsoft-excel-2007macros
2
BlueBerry - Vignesh4303

I need to capitalize every cell in Excel with first letter as capital?any easy way to accomplish it?

はい、このマクロを使用します。最初にファイルのバックアップを取ることを忘れないでください！

Sub uppercase()

For Each cell In Application.ActiveSheet.UsedRange
    If (cell.Value <> "") Then
         cell.Value = UCase(cell.Value) ' this will make the entire cell upper case
    End If
Next

End Sub

使用する各セルの大文字の最初の文字を作成するには

cell.Value = UCase(Left(cell.Value, 1)) & Right(cell.Value, Len(cell.Value) - 1)               'This will make the first Word in the cell upper case

タイトルケースにするためには、

Sub titleCase()

For Each cell In Application.ActiveSheet.UsedRange
    If (cell.Value <> "") Then
         cell.Value = TitleCase(cell.Value) ' this will make the entire cell upper case
    End If
Next

End Sub


Function TitleCase(s) As String
a = Split(s, " ")

For i = 0 To UBound(a)
    If (Trim(a(i)) <> "") Then
      TitleCase = TitleCase & UCase(Left(a(i), 1)) & Right(a(i), Len(a(i)) - 1) & " "
    End If
Next
TitleCase = Trim(TitleCase)
End Function

MS OfficeにVBAを追加するにはどうすればよいですか？

2
Dave

ケースを変更するためにVBAを使用する必要はありません。他の回答で示されているように、これを行うVBA関数は確かにありますが、すでにVBAで何かを書いているのでない限り、これはやり過ぎです。

次の数式でケースが変換されます。

=UPPER(A1)は、すべての文字を大文字に変換します
=LOWER(A1)はすべての文字を小文字に変換します
=PROPER(A1)は、各単語の最初の文字を大文字に変換し、1文字おきに小文字に変換します
（「単語」は文字の連続した文字列です。文字以外の文字は単語の終わりと見なされます。）

結果の例を次に示します。

入力：_Aaa bbb-ccc/ddd=eee9fff"ggg\hhh{iii(jjj_
アッパー：_AAA BBB-CCC/DDD=EEE9FFF"GGG\HHH{III(JJJ_
下：_aaa bbb-ccc/ddd=eee9fff"ggg\hhh{iii(jjj_
適切：_Aaa Bbb-Ccc/Ddd=Eee9Fff"Ggg\Hhh{Iii(Jjj_

セルの最初の文字のみを大文字にする場合は、UPPERを他の関数と組み合わせます。
=UPPER(LEFT(A1)) & MID(A1,2,LEN(A1))

6
Engineer Toast

これは、範囲内のテキストをすべて大文字に変換するための単純なマクロです。 3行目の範囲を変換したい範囲に変更します。

Sub Uppercase()
   ' Loop to cycle through each cell in the specified range.
   For Each x In Range("A1:A25")
      ' Change the text in the range to uppercase letters.
      x.Value = UCase(x.Value)
   Next
End Sub
2
CharlieRB

必要なデータをMicrosoftWord文書にコピーし、[ホーム]> [フォント]タブの[Aa]ボタンを使用して大文字を変更することもできます。次に、コピーしてExcelに貼り付けます。

0
Chelsea Owen

最も簡単なのはあなた自身の機能を作ることです（ニューヨーク、それ故にそれはアメリカの最初の首都でした...）

関数NewYork（InputText As String）

NewYork = UCase(Left(InputText , 1)) & Right(InputText , Len(InputText ) - 1)

終了機能

0
Gabor Szilagyi