多分、以下の内容で検索できます Public UID As String Public TgRow As Long Public TgCol As Long Private Sub LDAPserch() ' Dim strLDAP As String Dim oLDAP As Object Dim mail As String Dim sei As String Dim mei As String Dim name As String Dim…