目安箱 IV

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

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

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

【4】アドインファイルにてツールバーを表示するには、[ソフト紹介] ぴかる 02/9/2(月) 20:42 Excel[未読]

【25】文字変換 ぴかる 02/9/2(月) 21:32 Excel[未読]

【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

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