目安箱 IV

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

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

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

【26】Class1
Excel  ぴかる  - 02/9/3(火) 7:57 -

引用なし
パスワード
   Public WithEvents WBK As Workbook
Public WithEvents App As Application
Private Sub App_SheetActivate(ByVal Sh As Object)
   
  If フラグ <> 1 Then
   If Sh.Type = xlWorksheet And Sh.ProtectContents = False Then
    WBK_SheetSelectionChange ActiveSheet, Selection
   Else
    ShiyoKa False
   End If
  End If
  
End Sub
Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
   
   InitializeBook WBook:=Wb
   App_SheetActivate ActiveSheet

End Sub
Private Sub App_WorkbookDeactivate(ByVal Wb As Workbook)
  
   ShiyoKa False

End Sub
Private Sub WBK_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  
   If (ThisWorkbook.Name = "ピカつーる.xla") And (Sh.ProtectContents = False) Then
   ShiyoKa True
   With Application.CommandBars("Cell")
     With .Controls(11)
       If .BuiltIn = False Then .Enabled = True
     End With
   End With
   With Application.CommandBars("オリジナル書式設定")
   If Target.VerticalAlignment = xlBottom Then
    .Controls(12).State = msoButtonDown
   ElseIf Target.VerticalAlignment = xlCenter Then
    .Controls(13).State = msoButtonDown
   ElseIf Target.VerticalAlignment = xlTop Then
    .Controls(14).State = msoButtonDown
   End If
   End With
   Else
   ShiyoKa False
   With Application.CommandBars("Cell")
     With .Controls(11)
       If .BuiltIn = False Then .Enabled = False
     End With
   End With
   End If
  
  If Application.CutCopyMode = xlCopy Then
   With Application.CommandBars("Cell")
     With .Controls(7)
       If .BuiltIn = False Then .Enabled = True
     End With
   End With
  Else
   With Application.CommandBars("Cell")
     With .Controls(7)
       If .BuiltIn = False Then .Enabled = False
     End With
   End With
  End If

End Sub

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

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