文字操作 文字変換

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。


Sub 文字変換()
'*******************************************************************************
'文字変換
'*******************************************************************************
Dim sht As Worksheet, a As Long, b As Long, c As Long, d As String, e As String

Set sht = ThisWorkbook.Worksheets("Sheet2")

With sht
    b = Fnc最終行(sht)
    For a = 2 To b
        For c = 4 To 4
            d = .Cells(a, c).Value
'            e = UCase(d) 'アルファベット文字列をすべて大文字に変換して返します。
'            e = LCase(d)  'アルファベットの大文字を小文字に変換する。
'            e = StrConv(d, 4)
                        'vbUpperCase  1 大文字に変換
                        'vbLowerCase  2 小文字に変換
                        'vbProperCase 3 各単語の先頭の文字を大文字に変換
                        'vbWide       4 半角文字を全角文字に変換
                        'vbNarrow     8 全角文字を半角文字に変換
                        'vbKatakana  16 ひらがなをカタカナに変換
                        'vbHiragana  32 カタカナをひらがなに変換
            If IsDate(d) = False Then
                
                e = CDate(InputBox(d, "", d))
            Else
                e = CDate(d)
            End If
            .Cells(a, c).Value = e
        Next c
    Next a
End With

End Sub

 

 

 

2000年01月01日|[VBサンプルコード]:[文字操作]