2009/04/28
2009/04/24
2009/04/19
Office TANAKA - Excel VBA(ブックが開かれているかどうか調べる)
Office TANAKA - Excel VBA(ブックが開かれているかどうか調べる): "Sub Sample4() On Error Resume Next Err.Clear Open 'C:\Book1.xls' For Append As #1 Close #1 If Err.Number > 0 Then MsgBox 'すでに開かれています' Else MsgBox 'ブックは開かれていません' End If End Sub"
Office TANAKA - Excel VBA(共有ブックを開いているユーザーを調べる)
Office TANAKA - Excel VBA(共有ブックを開いているユーザーを調べる): "Sub Sample3() Dim Users, buf As String, i As Long Users = ActiveWorkbook.UserStatus For i = 1 To UBound(Users) buf = buf & Users(i, 1) & Chr(9) & Users(i, 2) & Chr(9) & Users(i, 3) & vbCrLf Next i MsgBox buf End Sub"
2009/04/15
2009/04/12
登録:
投稿 (Atom)