文字操作 文字変換

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 文字変換]

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





Production Japan Import Application. Since 1998