フリーページ
全て
| カテゴリ未分類
| ミッションステートメントを作ろう
| 内緒で会社を作るわたしに50の質問
| ダイエット
| 神田語録
| 肥満・肥満児
| しょうが
| 花粉
| 脳力トレーニング
2024年02月08日
カテゴリ： カテゴリ未分類
Sub CalculateHierarchyAndAdjustFor5thLevelCorrected()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("アクセス権情報") ' シート名を指定
Dim lastRow As Long
Dim r As Long
Dim path As String
Dim hierarchy As Long
Dim adjustedHierarchy As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
For r = 3 To lastRow
path = ws.Cells(r, 1).Value
' 階層数を計算（先頭の \\ を考慮）
hierarchy = Len(path) - Len(Replace(path, "\", ""))
' 5階層目を1として階層数を調整
adjustedHierarchy = hierarchy - 4
If adjustedHierarchy < 1 Then adjustedHierarchy = 1 ' 5階層目以下は全て1
' B列に階層数を入力
ws.Cells(r, 2).Value = adjustedHierarchy
' C列にA列とB列の値を結合して入力
ws.Cells(r, 3).Value = path & " " & adjustedHierarchy
End Sub
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("アクセス権情報") ' シート名を指定
Dim lastRow As Long
Dim r As Long
Dim path As String
Dim hierarchy As Long
Dim adjustedHierarchy As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
For r = 3 To lastRow
path = ws.Cells(r, 1).Value
' 階層数を計算（先頭の \\ を考慮）
hierarchy = Len(path) - Len(Replace(path, "\", ""))
' 5階層目を1として階層数を調整
adjustedHierarchy = hierarchy - 4
If adjustedHierarchy < 1 Then adjustedHierarchy = 1 ' 5階層目以下は全て1
' B列に階層数を入力
ws.Cells(r, 2).Value = adjustedHierarchy
' C列にA列とB列の値を結合して入力
ws.Cells(r, 3).Value = path & " " & adjustedHierarchy
End Sub
お気に入りの記事を「いいね！」で応援しよう
【毎日開催】
15記事にいいね！で1ポイント
PR
キーワードサーチ
▼キーワード検索
Helio Japan
みなさん、花粉症対策ってどうしてます??
毎日がエヴリディ！
oyazy44さん
ドラマチックな映画… groomixさん
スッポンの達人 弥右ヱ門さん
アメリカ奮闘記 System of a Downさん
吉川裕一のオースト… 和歌山の風達人 ヒロさんさん
ドラマチックな映画… groomixさん
スッポンの達人 弥右ヱ門さん
アメリカ奮闘記 System of a Downさん
吉川裕一のオースト… 和歌山の風達人 ヒロさんさん
コメント新着
© Rakuten Group, Inc.
