GaramX

사용자 도구

사이트 도구

현재 위치: home » vba
추적: • typescript • qemu • gcloud
vba:home

차이

문서의 선택한 두 판 사이의 차이를 보여줍니다.

차이 보기로 링크

양쪽 이전 판이전 판
다음 판		이전 판
vba:home [2020/06/22 01:30] – [AK Array] taekguvba:home [2025/04/15 10:05] (현재) – 바깥 편집 127.0.0.1
줄 2: 줄 2:
 ===== GetHangulTitle ===== ===== GetHangulTitle =====
  
-<code vba>+<code vb>
 Function GetHangulTitle(value as String) Function GetHangulTitle(value as String)
  dim idx  dim idx
줄 14: 줄 14:
 </code> </code>
 ===== GetDataType ===== ===== GetDataType =====
-<code vba>+<code vb>
 Function GetDataType(colName As String, dataType As String, customerType As String) Function GetDataType(colName As String, dataType As String, customerType As String)
     If customerType > " " Then     If customerType > " " Then
줄 32: 줄 32:
 </code> </code>
 ===== CopyCellContents ===== ===== CopyCellContents =====
-<code vba>+<code vb>
 Sub CopyCellContents() Sub CopyCellContents()
     Dim objData As New DataObject     Dim objData As New DataObject
줄 38: 줄 38:
     Dim str As String     Dim str As String
    
-    Set rMulti = Selection.Cells() +    If Selection.Cells.Count Then 
-    For Each rCell In rMulti.Cells +        strTemp = “” 
-        str = rCell.Value +    ElseIf Selection.Cells.Count = 1 Then 
-        If str > "" Then +        strTemp = Selection.Value 
-            If strTemp > "" Then +    Else 
-                strTemp = strTemp + Chr(10) + str +        rMulti = Selection.Value2 
-            Else +        For j = LBound( rMulti, 2) To UBound(rMulti, 2) 
-                strTemp = str +            For i = LBound(rMulti, 1) To UBound(rMulti, 1) 
-            End If +                str = rMulti(i, j) 
-        End If +                If str > “” Then 
-    Next rCell +                    If strTemp > “” Then 
-    objData.SetText (strTemp)+                        strTemp = strTemp + Chr(10) + str 
 +                    Else 
 +                        strTemp = str 
 +                    End If 
 +                End If 
 +            Next i 
 +        Next j 
 +    End If 
 +     
 +    objData.SetText(strTemp)
     objData.PutInClipboard     objData.PutInClipboard
 End Sub End Sub
 +</code>
 +===== GetRowNumber =====
 +<code vb>
 +Function GetRowNumber(tCell As Range, idx As Integer)
 +    Dim tableName As String
 +    tableName = tCell.Cells(1, idx)
 +    
 +    GetRowNumber = 1
 +    
 +    For i = 2 To 1000
 +        If tCell.Cells(i, idx) = tableName Then
 +            GetRowNumber = GetRowNumber + 1
 +        Else
 +            Exit Function
 +        End If
 +    Next
 +End Function
 </code> </code>
 ===== Hungarian ===== ===== Hungarian =====
-<code vba>+<code vb>
 Function Hungarian(colNm As String) Function Hungarian(colNm As String)
     Dim WrdArray() As String     Dim WrdArray() As String
줄 68: 줄 94:
  
 ===== AK Array ===== ===== AK Array =====
-<code vba> +<code vb>
 Function getAKArray(tCell As Range, kIdx As Integer) Function getAKArray(tCell As Range, kIdx As Integer)
     Dim tableName As String     Dim tableName As String
줄 92: 줄 117:
     End If     End If
     tableName = tCell.Cells(1, 1)     tableName = tCell.Cells(1, 1)
-    idx = getRowNum(tCell)+    idx = GetRowNumber(tCell, kIdx - 1)
     For i = 1 To idx     For i = 1 To idx
-        If tCell.Cells(i, kIdx) > "" Then+        If tCell.Cells(i, 1) > "" Then
             akCnt = akCnt + 1             akCnt = akCnt + 1
-            curNo = tCell.Cells(i, kIdx) +            curNo = tCell.Cells(i, 1) 
-            If ordNo > curNo Then+            If curNo > 0 And  ordNo > curNo Then
                 ordNo = curNo                 ordNo = curNo
-                myCols = tCell.Cells(i, -7)+                myCols = tCell.Cells(i, kIdx)
             End If             End If
         End If         End If
줄 107: 줄 132:
         For i = 1 To idx         For i = 1 To idx
             If tCell.Cells(i, kIdx) > "" Then             If tCell.Cells(i, kIdx) > "" Then
-                If tCell.Cells(i, kIdx) >= ordNo And tCell.Cells(i, kIdx) < curNo Then +                If tCell.Cells(i, 1) >= ordNo And tCell.Cells(i, 1) < curNo Then 
-                    If InStr(myCols, tCell.Cells(i, -7)) = 0 Then +                    If InStr(myCols, tCell.Cells(i, kIdx)) = 0 Then 
-                        tmp = tCell.Cells(i, -7) +                        tmp = tCell.Cells(i, kIdx) 
-                        curNo = tCell.Cells(i, kIdx)+                        curNo = tCell.Cells(i, 1)
                     End If                     End If
                 End If                 End If
줄 137: 줄 162:
 UserForm 추가). 파일을 찾을 수 없으면 어떻게 든 얻을 수 있습니다 UserForm 추가). 파일을 찾을 수 없으면 어떻게 든 얻을 수 있습니다
 지워지고 Excel을 다시 설치해야 할 수도 있습니다. 지워지고 Excel을 다시 설치해야 할 수도 있습니다.
 +===== Module생성하고 =====
 +
vba/home.1592789459.txt.gz · 마지막으로 수정됨: 2025/04/15 10:05 (바깥 편집)

문서 도구