目安箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
245 / 267 ←次へ | 前へ→

【25】文字変換
Excel  ぴかる  - 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

5,830 hits

【4】アドインファイルにてツールバーを表示するには、[ソフト紹介] ぴかる 02/9/2(月) 20:42 Excel[未読]
【5】マクロ構成とセット方法 ぴかる 02/9/2(月) 20:54 Excel[未読]
【6】ThisWorkbook ぴかる 02/9/2(月) 20:56 Excel[未読]
【7】標準モジュール ぴかる 02/9/2(月) 21:02 Excel[未読]
【8】セッティング ぴかる 02/9/2(月) 21:03 Excel[未読]
【9】ツールバー ぴかる 02/9/2(月) 21:06 Excel[未読]
【10】つづき ぴかる 02/9/2(月) 21:07 Excel[未読]
【11】パレート図 ぴかる 02/9/2(月) 21:08 Excel[未読]
【12】メイン ぴかる 02/9/2(月) 21:15 Excel[未読]
【13】メニューバー ぴかる 02/9/2(月) 21:19 Excel[未読]
【14】つづき ぴかる 02/9/2(月) 21:20 Excel[未読]
【15】各種マクロ ぴかる 02/9/2(月) 21:21 Excel[未読]
【16】小ワザ集 ぴかる 02/9/2(月) 21:23 Excel[未読]
【17】つづき ぴかる 02/9/2(月) 21:25 Excel[未読]
【18】つづきのつづき ぴかる 02/9/2(月) 21:25 Excel[未読]
【19】小ワザ集97 ぴかる 02/9/2(月) 21:27 Excel[未読]
【20】つづき ぴかる 02/9/2(月) 21:27 Excel[未読]
【21】つづきのつづき ぴかる 02/9/2(月) 21:28 Excel[未読]
【22】入力設定 ぴかる 02/9/2(月) 21:29 Excel[未読]
【25】文字変換 ぴかる 02/9/2(月) 21:32 Excel[未読]
【26】Class1 ぴかる 02/9/3(火) 7:57 Excel[未読]
【27】最後に ぴかる 02/9/3(火) 12:52 Excel[未読]

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
245 / 267 ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free