投稿/コメントを表示します。

エクセルマクロ・VBA発展編１フォローアップミニセミナー
エクセルマクロ・VBA発展編１フォローアップミニセミナーNo.11

浦山大さんの投稿

(投稿ID: 3485)

折角なので、テキストを見返して色々練習してみました。
ここに何か書くって思うと、色々試そうと思えます。
Sub renshu()
    Worksheets("Sheet3").Range("B2").Value = UCase(Worksheets("Sheet3").Range("A2").Value)  'AE-055
    Worksheets("Sheet3").Range("B3").Value = Trim(Worksheets("Sheet3").Range("A3").Value)   'AE-055(左右のスペースなくなる）
    Worksheets("Sheet3").Range("B4").Value = LTrim(Worksheets("Sheet3").Range("A3").Value)  'AE-055　　（先頭文字以前のスペースがなくなる）
    Worksheets("Sheet3").Range("B5").Value = RTrim(Worksheets("Sheet3").Range("A3").Value)  '　　AE-055（最後の文字以後のスペースがなくなる）
    Worksheets("Sheet3").Range("B6").Value = Trim(UCase(Worksheets("Sheet3").Range("A4").Value))    'AE-055（左右スペースなくなる、且つ小文字を大文字にする）
    Worksheets("Sheet3").Range("B7").Value = StrConv(Worksheets("Sheet3").Range("A4").Value, vbUpperCase)   'AE-055（小文字を大文字にする）
    Worksheets("Sheet3").Range("B8").Value = StrConv(Worksheets("Sheet3").Range("A4").Value, vbProperCase)  'Ae-055（先頭だけ小文字を大文字にする）
    Worksheets("Sheet3").Range("B9").Value = Trim(StrConv(Worksheets("Sheet3").Range("A4").Value, vbProperCase + vbWide))   '　Ａｅ－０５５（左右のスペース削除、先頭だけ小文字→大文字、半角→全角にする）
End Sub

Ucase＝Upper
Lcase＝Lower
LTrim＝Left
RTrim＝Right
StrCovr＝StringConvert

って意味なんですかね？
知ってる言葉と意味づけして憶えました！
多分これで大丈夫かと思っています。
それにしてもテキストは奥深いです。
コード書くのと同じくらい、新しいことを学び、整理する癖もつけていきたいと思います。
2017/10/06 23:06