目安箱 IV

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

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

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

【14】つづき
Excel  ぴかる  - 02/9/2(月) 21:20 -

引用なし
パスワード
     Set myCBCtrl = myCB.Controls.Add(Type:=msoControlPopup)
  myCBCtrl.Caption = "文字変換"
    
   Set myCBCtrl = myCB.Controls("文字変換").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .FaceId = 984
     .Caption = "操作説明"
     .Style = msoButtonIconAndCaption
    If Val(Application.Version) <> 8 Then
     .OnAction = "文字変換操作説明"
    Else
     .OnAction = "文字変換操作説明97"
    End If
   End With
   
   Set myCBCtrl = myCB.Controls("文字変換").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "・全角"
     .OnAction = "全角"
     .BeginGroup = True
   End With
   
   Set myCBCtrl = myCB.Controls("文字変換").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "・半角"
     .OnAction = "半角"
   End With
   
   Set myCBCtrl = myCB.Controls("文字変換").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "・大文字"
     .OnAction = "大文字"
   End With
   
   Set myCBCtrl = myCB.Controls("文字変換").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "・小文字"
     .OnAction = "小文字"
   End With
   
  Set myCBCtrl = myCB.Controls.Add(Type:=msoControlPopup)
  myCBCtrl.Caption = "小ワザ集"
    
   Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "コピー・貼り付け"
    If Val(Application.Version) <> 8 Then
     .OnAction = "小技コピー貼り付け"
    Else
     .OnAction = "小技97コピー貼り付け"
    End If
     .FaceId = 984
   End With
   
   Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "文字表示"
    If Val(Application.Version) <> 8 Then
     .OnAction = "小技文字表示"
    Else
     .OnAction = "小技97文字表示"
    End If
     .FaceId = 984
   End With
   
   Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "表示形式"
    If Val(Application.Version) <> 8 Then
     .OnAction = "小技表示形式"
    Else
     .OnAction = "小技97表示形式"
    End If
     .FaceId = 984
   End With
   
   Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "[Shift][Ctrl]キー"
    If Val(Application.Version) <> 8 Then
     .OnAction = "小技シフトコントロール"
    Else
     .OnAction = "小技97シフトコントロール"
    End If
     .FaceId = 984
   End With
   
   Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "関数"
    If Val(Application.Version) <> 8 Then
     .OnAction = "小技関数"
    Else
     .OnAction = "小技97関数"
    End If
     .FaceId = 984
   End With
   
   Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "条件付き書式"
    If Val(Application.Version) <> 8 Then
     .OnAction = "小技条件付き書式"
    Else
     .OnAction = "小技97条件付き書式"
    End If
     .FaceId = 984
   End With
   
   Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "入力規則"
    If Val(Application.Version) <> 8 Then
     .OnAction = "小技入力規則"
    Else
     .OnAction = "小技97入力規則"
    End If
     .FaceId = 984
   End With
   
   Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "セルの保護"
    If Val(Application.Version) <> 8 Then
     .OnAction = "小技セルの保護"
    Else
     .OnAction = "小技97セルの保護"
    End If
     .FaceId = 984
   End With
   
   Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "データベース"
    If Val(Application.Version) <> 8 Then
     .OnAction = "小技データベース"
    Else
     .OnAction = "小技97データベース"
    End If
     .FaceId = 984
   End With
   
   Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "マクロ"
    If Val(Application.Version) <> 8 Then
     .OnAction = "小技マクロ"
    Else
     .OnAction = "小技97マクロ"
    End If
     .FaceId = 984
   End With
   
   Set myCBCtrl = myCB.Controls("小ワザ集").Controls _
    .Add(Type:=msoControlButton)
   With myCBCtrl
     .Caption = "おまけ"
    If Val(Application.Version) <> 8 Then
     .OnAction = "小技おまけ"
    Else
     .OnAction = "小技97おまけ"
    End If
     .FaceId = 984
   End With
   
  Set myCBCtrl = myCB.Controls.Add(Type:=msoControlButton)
  With myCBCtrl
    .Style = msoButtonCaption
    .Caption = "元に戻す"
    .OnAction = "元に戻す"
  End With
    
  myCB.Visible = True

  Set myCB = Nothing: Set myCBCtrl = Nothing: Set myCBBtn = Nothing: Set myCBpup = Nothing

End Sub

5,444 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[未読]

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