Public Sub Fold()
If testing Then Exit Sub
On Error GoTo ErrorHandler
Dim n As Integer
n = Selection.count
If n > 1 Then
n = Selection.SpecialCells(xlCellTypeVisible).count
End If
If n > 1 Then
Dim curCell As Range
For Each curCell In Selection
If curCell.EntireColumn.Hidden = False And curCell.EntireRow.Hidden = False Then
curCell.Select
'MsgBox subName
RobotRunByParam "Fold"
End If
Next curCell
Exit Sub
End If
Dim strDirectory As String
Dim currentRow As Integer
currentRow = ActiveCell.row
strDirectory = Cells(currentRow, 9)
CreateFolder strDirectory
' Dim cell As Object
' For Each cell In Selection.Cells
' If cell.EntireColumn.Hidden = False And cell.EntireRow.Hidden = False Then
' currentRow = cell.Row
' strDirectory = Cells(currentRow, 9)
' CreateFolder strDirectory
' End If
' Next
'MsgBox "Create standard folder " & strDirectory & " successfully"
'MsgBox "Create standard folder successfully"
ErrorHandler:
If Err.Number <> 0 Then
MyMsgBox Err.Number & " " & Err.Description, 30
End If
End Sub
Create Folder -- VBA
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
