광고

묻고답하기

javascript

  • LV 3 playboy
  • 비추천 0
  • 추천 0
  • 조회 1587
  • 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,576
  • SP : 0
XP (57%)
Lv 3
등록된 서명이 없습니다.
현재 게시판에서 작성한 게시물 더보기
묻고답하기 게시판 게시물 목록
번호 제   목 이름 날짜 조회
33835 일본드라마,오락프로 ak520 11.01 1689
33834 결혼비자. 부탁합니다 1 지금술한잔했어 10.29 1570
33833 팃케![항상 저려한 가격]으로 드릴것을 목표로잡고 노력하고 있습니다 LXGE 10.28 1495
33832 免税について 3 jindanna78 10.26 1784
33831 장기적 일본엔을 한국도 혹은 중국돈 환전 xuemin 10.24 1589
33830 일본내투자 관련해서 잘 아시는분 조언 부탁 드립니다. 그리고 일본에서 가정을… 1 킹스타 10.22 1393
33829 여성분들 예뻐지면서 돈 많이 법시다! smile81 10.21 1222
33828 한국식품 야채배달 업체소개부탁드립니다 록색커피 10.20 1215
33827 친척 일본여행여청에 대해서 1 S시즈쿠S 10.17 1536
33826 일본에서 F4비자 신청하신 분 계십니까? 8 커피love 10.09 2223
33825 법인주소 등록이가능한 사무실을 알아보고 있습니다 깡정러뷰 10.07 1419
33824 한국 온라인쇼핑몰에서 옷사다주실분 부탁드립니다. 구매대행 1 Olivia♪ 10.06 1487
33823 东京的延边料理饭店推荐一下 2 jindanna78 10.04 1736
33822 한국식품,야채사장님들 부탁드립니다 록색커피 10.03 1611
33821 javascript playboy 09.27 1588
33820 多一家选择多一次机会!需要机票请问大安国际旅行社~! 2 LXGE 09.25 1614
33819 맛사지 가게 내놓습니다 군e 09.16 1794
33818 한국에서 일본에송금 1 king 09.12 1767
33817 국제우편 조회에 대해서 알려주세요 2 라라라koko 09.11 1620
33816 中国にリファカラットを送りたい 4 라라라koko 08.22 1710
33815 집에서 육아하고 계시는 엄마님들 ~ 주목해주세요 블랙핑크 08.22 1629
33814 チラシ排版해주실분찾습니다 단비 08.21 1479
33813 메일로 이력서보내는법 아시는분 2 조으디 08.17 2072
33812 ② 教えてください‼︎ (ビザについて) 3 yuka 08.17 1949
33811 엔을 받습니다 2 中日交流センター 08.14 1575
33810 买机票,省钱多,拿好礼,服务好,首选大安国際旅行社 LXGE 08.14 1764
33809 비자상담이요!!! eechingu76 08.09 2030
33808 급!!!급!!!급!!! 2 miraie 08.06 1844
33807 서울에서 임플란트 잘하는 치과 추천해주세요 로MAN스 08.05 1736
33806 免許 1 겨울 08.04 1961
33805 더블침대,오리다다미테블 그냥드립니다. 나비소녀 07.28 1776
33804 教えてください‼︎ (ビザについて) 2 yuka 07.28 1803
33803 중국에 돈을 보낼분 2 우미 07.27 1818
33802 중국 양로금(연금)가입 어떻게 생각함까 복숭아 07.26 1731
33801 민박,기숙사 정보 부탁드립니다. 나비소녀 07.24 1528
33800 여권 연장하려고 하는데 사전에 여약할수있습니까? 2 동경스카이쯔리 07.10 1859
33799 한국비자신청 무슨서류 필요한가요? 1 S시즈쿠S 07.09 1936
33798 와우~~애기 엄마들 빨리 와 보쇼!!! ひょうたん島 07.07 1894
33797 와우~~애기 엄마들 빨리 와 보쇼!!! 1 ひょうたん島 07.07 1660
33796 만약 국적 바뀔때 2 mimirin 07.06 2312