目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

255 / 277

←次へ　｜　前へ→

【25】文字変換

ぴかる - 02/9/2(月) 21:32 -


	引用なし

	パスワード

Dim タイトル As String
Dim スタイル As String
Dim メッセージ As String
Dim YESNO As String
Dim 変換数 As Long
Sub 文字変換操作説明()

　　With Assistant.NewBalloon
　　　　.BalloonType = msoBalloonTypeBullets
　　　　.Icon = msoIconTip
　　　　.Button = msoButtonSetOK
　　　　.Heading = "{ul 1}{cf 1}《文字変換操作説明》{cf 0}{ul 0}　　　"
　　　　.Text = String(30, "　")
　　　　.Labels(1).Text = "選択範囲すべてを指定の文字に変換します。"
　　　　.Labels(2).Text = "選択数が2000を越えるとメッセージが出ます。"
　　　　.Labels(3).Text = "マクロにての動作の為、元に戻せません。"
　　　　.Show
　　
　　End With

End Sub
Sub 文字変換操作説明97()

　　With Assistant.NewBalloon
　　　　.BalloonType = msoBalloonTypeBullets
　　　　.Icon = msoIconTip
　　　　.Button = msoButtonSetOK
　　　　.Heading = "《文字変換操作説明》"
　　　　.Text = String(30, "　")
　　　　.Labels(1).Text = "選択範囲すべてを指定の文字に変換します。"
　　　　.Labels(2).Text = "選択数が2000を越えるとメッセージが出ます。"
　　　　.Labels(3).Text = "マクロにての動作の為、元に戻せません。"
　　　　.Show
　　
　　End With

End Sub
Sub 全角()
　　　　　
　　Dim セル As Range
　　
　　If (ActiveSheet.ProtectContents) Or (TypeName(Selection) <> "Range") Then
　　エラーメッセージ
　　Else
　　
　　変換数 = Selection.Count
　　 If 変換数 > 2000 Then
　　　メッセージ = "変換数が" & 変換数 & "と多くなっています。" & vbLf & _
　　　　　　　　　 "時間が掛かりますが、実行しますか？。"
　　　スタイル = vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal
　　　タイトル = " 【文字変換】"
　　　YESNO = MsgBox(メッセージ, スタイル, タイトル)
　　
　　　If YESNO = vbYes Then
　　　Else
　　　 MsgBox "キャンセルしました。", vbInformation, タイトル
　　　 Exit Sub
　　　End If
　　 End If
　　
　　
　　Application.ScreenUpdating = False　 '画面固定
　　 For Each セル In Selection
　　　　セル = StrConv(セル, vbWide)
　　 Next

　 Set セル = Nothing
　 End If
　
End Sub
Sub 半角()
　　
　　Dim セル As Range
　　
　　If (ActiveSheet.ProtectContents) Or (TypeName(Selection) <> "Range") Then
　　エラーメッセージ
　　Else
　　
　　変換数 = Selection.Count
　　 If 変換数 > 2000 Then
　　　メッセージ = "変換数が" & 変換数 & "と多くなっています。" & vbLf & _
　　　　　　　　　 "時間が掛かりますが、実行しますか？。"
　　　スタイル = vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal
　　　タイトル = " 【文字変換】"
　　　YESNO = MsgBox(メッセージ, スタイル, タイトル)
　　
　　　If YESNO = vbYes Then
　　　Else
　　　 MsgBox "キャンセルしました。", vbInformation, タイトル
　　　 Exit Sub
　　　End If
　　 End If
　　
　　Application.ScreenUpdating = False　 '画面固定
　　 For Each セル In Selection
　　　　セル = StrConv(セル, vbNarrow)
　　 Next
　　End If

　 Set セル = Nothing
　
End Sub
Sub 大文字()
　　
　　Dim セル As Range
　　
　　If (ActiveSheet.ProtectContents) Or (TypeName(Selection) <> "Range") Then
　　エラーメッセージ
　　Else
　　
　　変換数 = Selection.Count
　　 If 変換数 > 2000 Then
　　　メッセージ = "変換数が" & 変換数 & "と多くなっています。" & vbLf & _
　　　　　　　　　 "時間が掛かりますが、実行しますか？。"
　　　スタイル = vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal
　　　タイトル = " 【文字変換】"
　　　YESNO = MsgBox(メッセージ, スタイル, タイトル)
　　
　　　If YESNO = vbYes Then
　　　Else
　　　 MsgBox "キャンセルしました。", vbInformation, タイトル
　　　 Exit Sub
　　　End If
　　 End If
　　
　　Application.ScreenUpdating = False　 '画面固定
　　 For Each セル In Selection
　　　　セル = UCase(セル)
　　 Next
　　End If

　 Set セル = Nothing

End Sub
Sub 小文字()
　　
　　Dim セル As Range
　　
　　If (ActiveSheet.ProtectContents) Or (TypeName(Selection) <> "Range") Then
　　エラーメッセージ
　　Else
　　
　　変換数 = Selection.Count
　　 If 変換数 > 2000 Then
　　　メッセージ = "変換数が" & 変換数 & "と多くなっています。" & vbLf & _
　　　　　　　　　 "時間が掛かりますが、実行しますか？。"
　　　スタイル = vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal
　　　タイトル = " 【文字変換】"
　　　YESNO = MsgBox(メッセージ, スタイル, タイトル)
　　
　　　If YESNO = vbYes Then
　　　Else
　　　 MsgBox "キャンセルしました。", vbInformation, タイトル
　　　 Exit Sub
　　　End If
　　 End If
　　
　　Application.ScreenUpdating = False　 '画面固定
　　 For Each セル In Selection
　　　　セル = LCase(セル)
　　 Next
　　End If

　 Set セル = Nothing

End Sub

6,144 hits