目安箱 IV

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

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

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

【12】メイン
Excel  ぴかる  - 02/9/2(月) 21:15 -

引用なし
パスワード
   Dim X As New Class1
Sub AUTO_OPEN()

  If ThisWorkbook.Name = "ピカつーる.xla" Then
   Set X.App = Application
   InitializeBook ActiveWorkbook
  ElseIf ThisWorkbook.Name = "ピカせっと.xls" Then
   ピカつーる作成
  End If
  
End Sub
Sub AUTO_CLOSE()

  If (ThisWorkbook.Path = "") And (フラグ <> 1) Then
   ピカせっと作成
  End If

End Sub
Sub InitializeBook(WBook)
  
   Set X.WBK = WBook

End Sub
Sub mySetVerticalAlignment(Ichi As Variant)
  
  Selection.VerticalAlignment = Ichi
  With Application.CommandBars("オリジナル書式設定")
    .Controls(12).State = msoButtonUp
    .Controls(13).State = msoButtonUp
    .Controls(14).State = msoButtonUp
  
   Select Case Ichi
   Case xlBottom
    .Controls(12).State = msoButtonDown
   Case xlCenter
    .Controls(13).State = msoButtonDown
   Case xlTop
    .Controls(14).State = msoButtonDown
   End Select
  End With
 
End Sub
Sub ShiyoKa(Kanou As Boolean)
   
  If ThisWorkbook.Name = "ピカつーる.xla" Then
   With Application.CommandBars("オリジナル書式設定")
    .Controls(12).State = msoButtonUp
    .Controls(13).State = msoButtonUp
    .Controls(14).State = msoButtonUp
    .Controls(12).Enabled = Kanou
    .Controls(13).Enabled = Kanou
    .Controls(14).Enabled = Kanou
   End With
  End If
  
End Sub
Sub オリジナルツールバー作成()

  Application.ScreenUpdating = False 
  右クリック部追加
  既存ツールバーを非表示
  オリジナル標準作成
  オリジナル書式設定作成
  オリジナル図形描画作成
  オリジナル図形描画作成
  オリジナルメニューバー作成
  AUTO_OPEN
 
End Sub
Sub ツールバーを元に戻す()
  
  Dim cb As CommandBar
  
  Application.ScreenUpdating = False  '画面固定
  With Application
    .CommandBars("オリジナル書式設定").Delete
    .CommandBars("オリジナル図形描画").Delete
    .CommandBars("オリジナル標準").Delete
    .CommandBars("PikaBar").Delete
    .CommandBars("Worksheet Menu Bar").Enabled = True
    .CommandBars("Standard").Visible = True
    .CommandBars("Formatting").Visible = True
  End With
  
  For Each cb In Application.CommandBars
   If cb.Name = "Cell" Then cb.Reset
  Next

End Sub
Sub 元に戻す()
  
Dim タイトル As String
Dim スタイル As String
Dim メッセージ As String
Dim YESNO As String
   
   メッセージ = "ツールバーを元に戻します。よろしいですか?" & vbLf & _
          "" & vbLf & _
          "再びピカつーるにしたい時は、ツール→アドインにて" & vbLf & _
          "ピカつーるにチェックを入れて下さい。"
   スタイル = vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal
   タイトル = " 【 ツールバー 】"
   YESNO = MsgBox(メッセージ, スタイル, タイトル)
  
   If YESNO = vbYes Then
    Application.DisplayAlerts = False '警告メッセージオフにする
    AddIns("ピカつーる").Installed = False
   Else
    MsgBox "キャンセルしました。", vbInformation, タイトル
    Exit Sub
   End If
  
End Sub

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

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