2008年3月21日金曜日

Excelでの小技

どこかのサイトで見た内容で、右クリックメニューにセルの結合・解除を追加するというのがあってやってみた。まぁマクロとして組み込んでおけ、というハナシなんだけどね。これが非常に便利だったりする。

Sub auto_open()  
'auto_open に既に他のマクロが記述されている場合には、  
'この1行だけを追加する  
    Add_RightClickMenu_2 1  
EndSub  

Sub Add_RightClickMenu_2(num%)'標準メニューの下に追加  
  Dim iAsLong  
  Dim cstBarAs CommandBar 
  Dim wcbAs CommandBar 

  i = 0 
  For Each wcb In CommandBars 
    i = i + 1 
    SelectCase wcb.Name 
      Case "cell","Cell","column","Column","row","Row" 
           Application.CommandBars(i).Reset 
           Set cstBar = CommandBars(i) 
           cstBar_sub_2 cstBar 
    EndSelect 
  Next 
EndSub 
Sub cstBar_sub_2(cstBarAs CommandBar) 
  Dim i% 
  i = cstBar.Controls.Count + 1 

  With cstBar 
      .Controls.Add Type:=msoControlButton 
      .Controls(i).Caption ="セルの結合(&B)" 
      .Controls(i).OnAction ="CellMerge" 
      .Controls(i).FaceId = 798 
      .Controls(i).BeginGroup =True 
  EndWith 

  i = i + 1 
  With cstBar 
      .Controls.Add Type:=msoControlButton 
      .Controls(i).Caption ="セルの結合解除(&R)" 
      .Controls(i).OnAction ="CellDivide" 
      .Controls(i).FaceId = 800 
  EndWith 
End Sub


これを個人用マクロとして組み込んでおけば、常に右クリックしたときにセルの結合とセルの結合解除が出てきます。
個人的にはこれはもう必須(w
ないとやってけないくらい。

0 件のコメント:

コメントを投稿