Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

62151 / 76732

←次へ　｜　前へ→


	【19189】Re:文字列の大文字の前に特定文字を挿入したい

かみちゃん - 04/10/24(日) 22:21 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>マクロを用いて、半角の大文字があれば、その前にアンダーバーを入れ
>すべて大文字にしたいのですがどうすればよいですか？
>誰か教えてください
>例　aaBfffDhhhhUmm
>
>マクロ実行
>　　AA_BFFF_DHHHH_UMM

すでに、ichinoseさんからもコメントがついていますが、私も作成してみましたので、書いておきます。

Option Explicit

Sub Macro1()
　Dim strValue As String, strValueTmp As String
　Dim i As Integer
　
　strValue = "aaBfffDhhhhUmm"
　strValueTmp = ""

　For i = 1 To Len(strValue)
　　If Asc(Mid(strValue, i, 1)) >= 65 And Asc(Mid(strValue, i, 1)) <= 90 Then
　　　strValueTmp = strValueTmp & "_" & Mid(strValue, i, 1)
　　Else
　　　strValueTmp = strValueTmp & UCase(Mid(strValue, i, 1))
　　End If
　Next
　'変換結果表示
　MsgBox "変換前　" & strValue & vbCrLf & "変換後　" & strValueTmp
End Sub

0 hits

▼

【19185】マクロ ｆｆｆ 04/10/24(日) 21:44