Best Photo

광고

묻고답하기

javascript

  • LV 3 playboy
  • 비추천 0
  • 추천 0
  • 조회 1084
  • 2017.09.27 22:14
Private Const sheetTblName As String = "data"
Private Const SetCellsName As String = "$E$5"
Private Const ColumnsName As String = "$B$2"
Private Const ToCell As String = "$A$1"

Sub select_match()
    Dim iRow As Integer
    Dim iRow2 As Integer
    Dim iColumn As Integer
    Dim iColumn2 As Integer
    Dim iRowCount As Integer
    iRowCount = 0
    With ActiveSheet
        For iRow = .UsedRange.Row To .UsedRange.Row + .UsedRange.Rows.Count
            iColumn = Range(SetCellsName).Column
            iColumn2 = Range(ColumnsName).Column
            shearch_str = Trim(.Cells(iRow, iColumn).Value)
            If shearch_str <> "" Then
                With Sheets(sheetTblName)
                    For iRow2 = .UsedRange.Row To .UsedRange.Row + .UsedRange.Rows.Count
                        ind_str = Trim(.Cells(iRow2, iColumn2).Value)
                        If shearch_str = ind_str Then
                             tt = cpyRange(iRowCount, iRow2, .UsedRange.Column, .UsedRange.Column + .UsedRange.Columns.Count)
                             iRowCount = iRowCount + 1
                            Exit For
                        End If
                    Next
                End With
            End If
        Next
    End With
End Sub
Function cpyRange(toRow As Integer, Row As Integer, startColumn As Integer, endColumn As Integer) As String
    Dim iColumn As Integer
    Dim iColumnCount As Integer
    iColumnCount = 0
    For iColumn = startColumn To endColumn
        ThisWorkbook.Sheets("tmp").Cells(Range(ToCell).Row + toRow, Range(ToCell).Column + iRowCount) = Sheets(sheetTblName).Cells(Row, iColumn)
        iRowCount = iRowCount + 1
    Next
End Function

추천 0 비추천 0

 微信扫一扫(위챗공유)
  • 트위터
  • 페이스북
  • 구글플러스
LV 3playboy
  • MP : 5,476
  • SP : 0
XP (49%)
Lv 3
등록된 서명이 없습니다.
현재 게시판에서 작성한 게시물 더보기
묻고답하기 게시판 게시물 목록
번호 제   목 이름 날짜 조회
33256 39세 한은정 판타롱부추빵 08.22 2
33255 가이드해주실분 zhixing0504 08.22 13
33254 일본엔-중국위안 송금 환전문의 ak520 08.02 400
33253 돈바꿀 사람없습가 무크 08.02 410
33252 연길 집 살때 세금에 대하여 1 SmileWorld 07.10 524
33251 연길에 있는부보님이 부양가족으로 있는데 연길에서 치료한 비용을 일본 社会保険… 4 행복한 사람 07.03 1092
33250 영주권신청 보증인에 관해서 2 エキストラ 06.26 1470
33249 国民年金は払うべき? 4 hhh88 06.25 1570
33248 화룡 동성 비암촌3대 박광철씨 찾습니다 20060612 06.23 1456
33247 「国外居住親族の扶養控除」의 송금금액에 관하여 4 jindanna78 06.22 1545
33246 쉼터광고 어떻게 내는지요? 대박이 06.12 1762
33245 일본에서금처리 해주실분찾습니다. 수수료랑 연락처 댓글/쪽지 주세요~ 2 영마니 06.12 1784
33244 중국에서 아기의 호구를 올리신 분 2 jindanna78 06.05 1772
33243 일본에 있는 2살짜리 애 이름 고칠때 3 yiruka 06.04 1754
33242 옛날 유학할때 전화비 다 못내고 귀국했는데...... 2 TAEK 06.02 1867
33241 돈바꾸실분 군e 06.01 1613
33240 일본취직비자만들고싶어요 홍대지 05.28 1331
33239 이케부쿠로 연변음식 맛집추천 부탁드려요 ^^ 1 Henzn 05.24 1439
33238 결혼식에 관하여(연변) 2 그대뿐 05.24 1122
33237 장인한테선물 도리도리 05.23 967
33236 오작교 2 revolution 05.22 1182
33235 요즘 일본에서 북경경유 연길 들어가신분 잇습니까? 바라사꾸라 05.21 896
33234 일본에서 화장품 구매합니다 아~~싸 05.19 870
33233 조선족이 운영하고있는 대안국제여행사에 연락주세요. LXGE 05.10 891
33232 연길에서 꽃 배달하는곳 연락처 아는분 있나요 あけおめ 05.08 387
33231 목디스크 颈椎 볼수있는 中医찾고싶습니다. 2 あけおめ 05.08 515
33230 동경에서 엔을받고싶습니다 1 2020 05.01 499
33229 일본돈 100만에 받고 중국에서 인민페 드립니다. 장물거리 04.27 485
33228 电脑维修 하는곳 알려주쇼 믹키잰내 04.27 419
33227 整体院을 양도하려 합니다. 奈亞孒 04.12 697
33226 엔송금 .바꿔치기하실분 연락주세요 1 처량한달빛 04.04 838
33225 아시는 분 꼭 알려주세요 2 부자e 04.01 978
33224 카나다 이민비자,미국 유학비자 미국여행 03.31 740
33223 업데이트방법 高島 03.29 723
33222 출생의학증명에 대하여 ... 2 giga 03.28 823
33221 저려한팃케 필요하시면 저의들한테 연락주세요. LXGE 03.22 805
33220 영어 가능하신분 도와주세요!!!! horino 03.22 768
33219 양꼬치굽는 가마.고기.양념 거래처 Wkrtkfkd 03.22 833
33218 일본에 새만숀 구매할떄 諸費用가 얼마 정도 드나요 ? 1 あけおめ 03.20 1052
33217 仁和药业 恩视明眼贴 대리&판매 합니다. 민지 03.14 818