excel-vba

    1

    1답변

    두 일치 및 색인 수식을 사용하여 일부 VBA 코드를 작성했습니다. 시트에서 고유 한 값을 선택하여 다른 시트와 비교해야합니다. 그러나 그것은 작동하지 않습니다. 약간의 오류가 있습니다. 여기 내 코드입니다 -합니다 (worksheetfunction 클래스 VBA의 일치 성을 얻을 수 없습니다이 오류입니다) : Sub Post_Attendance() S

    0

    1답변

    VBA에서 범위의 대체 행을 색칠하기 위해 strugling했습니다. 문제는 Range 메서드가 적절한 범위를 선택하지 않는 것 같아서 인접한 셀에 색칠하게됩니다. 이것은 내 원하는 출력 : 그러나, 이것은이 실제로 무엇을 얻을 : Sub limpar_aniversariantes() Worksheets("Aniversariantes").Range(

    0

    2답변

    API를 사용하여 현재 가격을 얻기 위해 웹 사이트에서 데이터를 가져 오는 매크로를 작성했습니다. 10 분마다 자동으로 실행되도록하고 라이브 가격에 대한 대략적인 아이디어를 얻으려고합니다. 나는 다음과 같은 사용하여이 작업을 수행하는 것을 시도했다 : 그것은 작동하지 않는 것 그러나 Sub Test() Application.OnTime Now +

    -2

    1답변

    개인 프로젝트에서 웹 사이트에서 정보를 얻고 있습니다. 웹 사이트에 테이블이 있습니다. 각 행을 반복하는 방법을 알고 있습니다. 각 행에 대해 첫 번째와 네 번째 열의 내용과 정보를 비교하고 싶습니다. 둘 다 내 테이블의 정보와 일치하면 해당 행의 다섯 번째 열의 내용을 내 테이블을 만들지 만이 일을하는 법을 모르겠다. 테이블 html의 각 행은 다음과 같

    0

    2답변

    아래의 다음 VBA 코드를 사용하여 카운티, 인구 및 중간 값을 웹 스크 레이 핑하려고했습니다. 이 문제가 발생하지만 다음과 같은 문제가 발생합니다. 아래의 블록 따옴표에있는 항목 번호가 다양합니다. 즉, 특정 우편 번호에 대해 잘못된 데이터 요소를 검색합니다 (아래 스프레드 시트 이미지 참조). 나는 변수 항목 번호를 연구했지만, 가깝게 유일한 경우는 클

    1

    1답변

    행, 열 A부터 CA (79 열)까지 하나의 통합 문서 행에서 데이터를 추출합니다. 새 통합 문서의 테이블에 각 행을 추가하는 중입니다. 열 B는 CB입니다. 열 A는 수식입니다. 새 통합 문서를 Excel 테이블로 설정했습니다. 원본 통합 문서 행을 배열로 추출한 다음 해당 배열을 새 행의 테이블에 할당합니다. (listrows.add). (행 1에서 열

    -3

    2답변

    나는 vba에 대해 조금 알고 있습니다. 나는 이것을 vba를 사용하여 얻고 싶습니다. 특별한 경우를 제외하고 시트에서 다른 시트로 데이터를 전송합니다. B10 D2 : 나는이 범위 A4가 다른 시트에서 :이 상황을 감안할 때 E10를 G2 : H10 내 데이터가이 같은 것입니다 AXX | Contact no. AXX | Address AXX | Nam

    0

    4답변

    을 만들어 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$10" Then Call mymacro End If End Sub 질문은 :는 나는 모듈에이 코드를 저장할 수 있습니까? 코드 모듈에서 새로 만든 워크 시트 로 코드 전송을 할

    0

    2답변

    I 클래스 Client의 100 000 객체를 생성하는 프로그램은, 각 Client 다른 임의의 숫자를 할당 할 때마다 100 시간을 배열에두고 다음 해당 배열을 통과해야 홈페이지 하위 : Sub start() Dim i As Long Dim j As Long Dim clientsColl() As Client ReDim

    0

    1답변

    클래스에 추가하는 경우 느려집니다 : 100 번 100 000Clients와 배열을 생성하고 배열을 통해 루프마다 설정 서로 다른 난수를 각 Client에 입력하십시오. Sub start() Application.ScreenUpdating = False Dim i As Long Dim j As Long Dim cli