フリーページ
全て
| カテゴリ未分類
| ミッションステートメントを作ろう
| 内緒で会社を作るわたしに50の質問
| ダイエット
| 神田語録
| 肥満・肥満児
| しょうが
| 花粉
| 脳力トレーニング
| 楽天 ベストバイ ワーストバイ
2024年02月09日
カテゴリ： カテゴリ未分類
Sub FindTopFolderForUser()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("アクセス権情報") ' シート名を指定
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 4).End(xlUp).Row ' D列以降にIDが含まれていると仮定
Dim folderColumn As Integer
folderColumn = 1 ' フォルダのパスが含まれている列（A列を示す場合）
Dim r As Long
Dim folderFound As Boolean
For r = 3 To lastRow ' 開始行を適切な行に変更してください
If ws.Cells(r, 23).Value = "○" Then ' W列に権限のマークがあると仮定
' 権限がある最上位のフォルダを取得する関数を呼び出して、結果を表示
Dim topFolder As String
topFolder = GetTopFolder(ws.Cells(r, folderColumn).Value)
If topFolder <> "" Then
MsgBox "権限がある最上位のフォルダ: " & topFolder
folderFound = True
Exit For
End If
End If
If Not folderFound Then
MsgBox "指定されたユーザーに権限があるフォルダが見つかりませんでした。"
End If
End Sub
Function GetTopFolder(folderPath As String) As String
Dim folders() As String
folders = Split(folderPath, "\")
GetTopFolder = folders(UBound(folders) - 1)
End Function
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("アクセス権情報") ' シート名を指定
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 4).End(xlUp).Row ' D列以降にIDが含まれていると仮定
Dim folderColumn As Integer
folderColumn = 1 ' フォルダのパスが含まれている列（A列を示す場合）
Dim r As Long
Dim folderFound As Boolean
For r = 3 To lastRow ' 開始行を適切な行に変更してください
If ws.Cells(r, 23).Value = "○" Then ' W列に権限のマークがあると仮定
' 権限がある最上位のフォルダを取得する関数を呼び出して、結果を表示
Dim topFolder As String
topFolder = GetTopFolder(ws.Cells(r, folderColumn).Value)
If topFolder <> "" Then
MsgBox "権限がある最上位のフォルダ: " & topFolder
folderFound = True
Exit For
End If
End If
If Not folderFound Then
MsgBox "指定されたユーザーに権限があるフォルダが見つかりませんでした。"
End If
End Sub
Function GetTopFolder(folderPath As String) As String
Dim folders() As String
folders = Split(folderPath, "\")
GetTopFolder = folders(UBound(folders) - 1)
End Function
お気に入りの記事を「いいね！」で応援しよう
【毎日開催】
15記事にいいね！で1ポイント
PR
キーワードサーチ
▼キーワード検索
Helio Japan
みなさん、花粉症対策ってどうしてます??
毎日がエヴリディ！
oyazy44さん
ドラマチックな映画… groomixさん
スッポンの達人 弥右ヱ門さん
アメリカ奮闘記 System of a Downさん
吉川裕一のオースト… 和歌山の風達人 ヒロさんさん
ドラマチックな映画… groomixさん
スッポンの達人 弥右ヱ門さん
アメリカ奮闘記 System of a Downさん
吉川裕一のオースト… 和歌山の風達人 ヒロさんさん
コメント新着
© Rakuten Group, Inc.
