トップ «前の日記(2008-08-30) 最新 次の日記(2008-09-03)» RDF

hogemoge diary ハナレテモトモダチダヨ


2008-09-01 [長年日記]

_ [comp] ユーザーフォーム表示(テケトーVBA)

ユーザーフォームの表示なんだって俺に振るかな?

例によってググッてコピペで、でっちあげ。後は知らないので、よろしく。

'----------------------------------------------------------
Private Sub Workbook_Open()
    If ActiveSheet.Name = "月別入力" Then Sheet1_Open_Macro
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "月別入力" Then
        Sheet1_Open_Macro
    Else
        Unload コード表
    End If
End Sub

Sub Sheet1_Open_Macro()
    'ここに処理したいコードを記述します。
    '表示の位置をなんとかしれ
    With コード表
        .StartUpPosition = 0
        .Top = 80 '上からの位置 テケトー
        .Left = 30 '左からの位置 テケトー
    End With
    コード表.Show
End Sub
'----------------------------------------------------------


書いているひと: YOSHID@ TMy Gmail address

2001|06|07|08|09|10|11|12|
2002|04|05|06|07|08|09|10|11|12|
2003|01|02|03|04|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|09|10|11|12|
2011|01|02|03|04|05|06|07|08|09|10|11|12|
2012|01|02|03|04|05|06|07|08|09|10|11|12|
2013|01|02|03|04|05|06|07|08|09|10|11|12|
2014|01|02|03|04|05|06|07|08|09|10|11|12|
2015|01|02|03|04|06|07|09|12|
2016|01|04|05|10|11|
2017|02|03|05|06|07|11|
2018|04|
2019|02|
2021|03|04|05|08|
track feed Search Engine Optimization
  • ブログSEO対策 : track word 
  • SEO 
  •  
  •  
  •