Excel VBA ノート(サンプルコード)

Hide Tamura の Excel VBA ノート

Excel-VBA コンボボックスに月を設定

VBAProject --> フォーム --> UserFormXX

ComboBox1のStyleプロパティ = 2-fmStyleDropDownList
(入力不可、リスト選択のみ)

Private Sub UserForm_Initialize()
    Dim i As Long
    
    For i = 1 To 12
        ComboBox1.AddItem i & "月"
    Next i
    
    '1月を表示
    ComboBox1.ListIndex = 0
    
End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ


 

Excel-VBA ユーザーフォームのクローズボックスを消す

32bit 以外ではエラーになるので、最近は使わない

最近は、こちらで対応する事が多い
ユーザーフォームのクローズボタン[×]を無効にする

VBAProject --> 標準モジュール --> ModuleXX

Public Declare Function FindWindow Lib "user32" _
      Alias "FindWindowA" (ByVal lpClassName As String, _
      ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib "user32" _
      Alias "GetWindowLongA" (ByVal hwnd As Long, _
      ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" _
      Alias "SetWindowLongA" (ByVal hwnd As Long, _
      ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" _
      (ByVal hwnd As Long) As Long
Public Const GWL_STYLE = -16&
Public Const WS_SYSMENU = &H80000


VBAProject --> フォーム --> UserFormXX

Private Sub UserForm_Activate()

    Dim hwnd As Long
    Dim lngs As Long
    Dim rc As Long
    
    hwnd = FindWindow("ThunderDFrame", Me.Caption)
    lngs = GetWindowLong(hwnd, GWL_STYLE)
    rc = SetWindowLong(hwnd, GWL_STYLE, lngs Xor WS_SYSMENU)
    rc = DrawMenuBar(hwnd)

End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ


 

Excel-VBA ユーザーフォームを一定時間表示して閉じる

VBAProject --> 標準モジュール --> ModuleXX

Sub Sample()

    UserForm1.Show
    
End Sub


VBAProject --> フォーム --> UserFormXX

Private Sub UserForm_Activate()
    
    Dim 指定時刻 As String

    '現在時刻より3秒
    指定時刻 = Now + TimeValue("00:00:03")
    
    Application.Wait (指定時刻)
    
    Unload Me

End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ


 

Excel-VBA ブックを自動保存しない(自動回復は行わない)

保存時間が長くかかるファイルの場合、一定時間間隔で自動で行われる保存を止めたいことがある。

VBAProject --> 標準モジュール --> ModuleXX

Sub Sample0120412()

    'Excelブックの自動保存を行わない
    ActiveWorkbook.EnableAutoRecover = False
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ


 

Excel-VBA ユーザーフォームを表示し、ウィンドウを最小化して起動

VBAProject --> Microsoft Excel Objects --> ThisWorkbook

Private Sub Workbook_Open()

    ' Excelを最小化
    Application.WindowState = xlMinimized
            
    ' Excelをアクティブなアプリケーションとする
    VBA.AppActivate Excel.Application.Caption
            
    UserForm1.Show

End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ


 

Shiftキーを押しながらドラグしてセルの間にデータを挿入する

Shiftキーを押しながらセルの間にドラグすると、ドロップした位置にデータを挿入することができる


Shiftキーを押しながら神奈川県をドラグして、東京都と千葉県の間にドロップする

名称未設定 1

東京都と千葉県の間に神奈川県を挿入することができる。
名称未設定 2

フィルハンドルをダブルクリックして連続データをコピー

フィルハンドルをドラグせずに、ダブルクリックすると、隣接するセル列の最終行まで連続データがコピーされます。


2月1日の「火」曜日セルを選択状態にして、フィルハンドルをダブルクリック

名称未設定 1

10日まで曜日が連続データとしてコピーされます
名称未設定 2



記事検索
Excel VBA ノートについて(注意事項)
このExcel VBA ノートは、Hide Tamura の個人的なVBAノートです。プログラムを再利用したり、コピペで入力の手間を省く為に作ったネット上のノートです。 その為、詳しい解説は書いておりません。エラー等のトラブルには責任は負いません。利用者の環境に合わせて書き換えてご利用ください。
ExcelVBA教室
Excel VBA 担当 Hide Tamura

Excel95? マクロシートがあった頃からExcelVBAを独学で利用しています。現在は、様々な企業様からVBAによる業務効率UPの為のお仕事を頂いております。既にお使いになっているファイルにVBAを利用することで、作業が楽になったり、時間も大幅に短縮されたなど、大変喜ばれています。

■VBA Expert
VBA Expert Standard Crown
ExcelVBA Standard(Odyssey)
Access VBA Standard(Odyssey)
Excel2002 VBA Standard(日本VBA協会)
■MICROSOFT OFFICE USER SPECIALIST
Microsoft Excel version2002 Expert
Microsoft Excel version2002


最新記事
Excelで作る経営計画
Excelで利益計画を立てましょう!会社にいくらの利益が必要で、その為の売上高は?

Excelで作る経営計画
Excel 関数 ノート
Excel関数を中心に、Excelの便利機能や、意外としらない使い方など書いていきます。

Excel 関数 ノート
Access VBAノート
Hide Tamura の個人的なVBAノートです。

頻繁に使うVBAコードなどを記録しコピペして使う為に作りました。お役に立てるようでしたら、お使いください。

Access VBAノート
アクセスカウンター

    • ライブドアブログ