VBA Excel에서 유용한 열을 추출하여 정렬합니다.
stData ,rngConfig
Public Function Run(ByRef stData As Worksheet, ByRef rngConfig As Range) As Worksheet
'On Error GoTo Proc_Err
Dim r_Config As Integer, str_ColumnName As String
Dim stNew As Worksheet
'stData.Copy After:=stData
stData.Activate
stData.Parent.Sheets.Add After:=stData
Set stNew = ActiveSheet
stNew.Name = rngConfig.Worksheet.Name
Dim col As Range, errMsg As String, c_new As Integer
c_new = 0
For r_Config = 2 To rngConfig.rows.Count
str_ColumnName = rngConfig.Cells(r_Config, 1)
If str_ColumnName <> "" Then
'MsgBox str_ColumnName
Call myFun.getColumnByName(stData, 1, str_ColumnName, col, errMsg, False)
col.Copy
c_new = c_new + 1
stNew.Activate
stNew.Cells(1, c_new).Select
stNew.Paste
End If
Next r_Config
Exit Function
End Function
:
Rem ,
Public Function getRow(sheet As Worksheet, tag As String, Optional beginRow As Long = 1) As Long
Dim r As Long
With sheet.UsedRange
For r = beginRow To .rows.Count
If .Cells(r, 1).Value = tag Then
getRow = r
Exit Function
End If
Next
End With
getRow = 0
End Function
Rem ,
Public Function getColumn(opSheet As Worksheet, headerRow As Long, tag As String) As Integer
Dim c As Integer
Dim msg As String
With opSheet
For c = 1 To .UsedRange.Columns.Count
If .Cells(headerRow, c) = tag Then
getColumn = c
Exit Function
End If
Next
End With
getColumn = 0
End Function
Rem ,
Public Function getColumnByName(opSheet As Worksheet, headerRow As Long, tag As String, returnColumn As Range, Optional ByRef errMessage As String, Optional showErrMsg As Boolean = False) As Boolean
getColumnByName = False
Dim c As Integer
c = getColumn(opSheet, headerRow, tag)
If (c = 0) Then
' showErrMsg = True
errMessage = " [" & opSheet.Name & "] [" & tag & "], !"
If (showErrMsg) Then
MsgBox errMessage, vbInformation, " "
End If
Exit Function
Else
Set returnColumn = opSheet.Columns(c)
End If
getColumnByName = True
End Function
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.