excel-vba

    0

    1답변

    .txt 파일 가져 오기를 자동화하고 열 너비를 특정 조건으로 설정해야합니다. 구분 된 데이터를 사용하여이 작업을 수행 할 수 있음을 알고 있지만 아직 고정 폭의 소스를 찾지 못했습니다. 어떤 제안?

    3

    1답변

    슬라이서에서 선택한 항목을 변경하는 Excel 차트가 있습니다. 플롯 영역과 범례 영역이 선택한 선택 사항에 따라 변경되었음을 확인했습니다. vba를 사용하여 플롯 영역의 위치와 크기를 수정하려고했지만 간단히 불행하게도 작동하지 않습니다. 플롯 영역과 범례는 크기 조정을 계속하므로 범례가 플롯 영역과 겹치게됩니다. 나는 분명히 원하지 않는다. 내가 VBA

    2

    1답변

    SQL 쿼리에 ADODB를 사용하여 데이터를 반환하고 잠시 동안 레코드 집합에서 통합 문서로 복사 했으므로 새로운 작업은 레코드를 업데이트하는 것이지만 어떻게해야합니까? 레코드를 업데이트하십시오. 이 내 코드의 예입니다 Dim con As ADODB.Connection Dim rec As ADODB.Recordset Set con = New ADODB

    0

    2답변

    저는 vb.script를 처음 사용하기 때문에이 답변을 찾을 수없는 서식 지정 질문 일 수 있습니다. 문제는 같은 통합 문서의 다른 시트에있는 셀의 데이터의 유효성을 검사하는 것입니다. 워크 통해 반복하고 셀 영역을 만들며 : Private Sub Validate(ByRef objWorkbook As Workbook) Dim strPattern As S

    0

    1답변

    셀 d2 = Qtr 1 (Qtr 2 일 수도 있고 j = 1, 2 또는 3. 그러나 내 코드를 내게 오류 대신 날짜, 셀 문자열이 있습니다. 셀이 비어 있으면 행을 건너려고 가져옵니다 있지만 셀에 문자열 ("시작 날짜 입력 . ") 다음 코드가 중지되고 디버거가 열립니다 어떻게 내가 셀에 문자열이있는 경우 건너 뛸 내 코드를 요청할 수 있습니다 내가 조건부

    0

    2답변

    글쎄, 나는 VBA에서 초보자이기 때문에 도움이 필요하다. 그래서 저는 많은 데이터를 가진 실험 파일을 가지고 있습니다. 기본적으로 21 가지 측정 단계가 있으며 N 단계마다 N 포인트가 기록됩니다. 모든 단계는 하나의 워크 시트에 있으며 "단계"라는 단어로 그 단어를 발견 할 수 있습니다. N 포인트를 복사하여 다른 시트로 보내려는 각 단계마다 매크로를

    0

    1답변

    첫 번째 : 나는 VBA와 거의 시간을 보지 못해 사과드립니다. 다음과 같은 데이터가 있습니다. 금액 | 범주 2.00 | cat1 4.00 | cat1 3.00 | cat2 5.00 | 내가 좋아하는 것 CAT3 그것이처럼 결국 가지고 : 금액 | 범주 2.00 | cat1 4.00 | cat1 합계 : 6.00 | cat1 3.00 | cat2 합계 :

    0

    1답변

    매우 쉽게 수행 할 수 있어야하지만 내 GoogleFu에 대한 도움말을 찾을 수 없다고 생각합니다. VBA의 객체 참조 가이드 문제를 이해하지 못합니다. 내가하고 싶은 것은 칼럼을 선택할 수있는 매크로를 만든 다음 그 칼럼에있는 각 셀을 행별로 비교하여 칼럼 오른쪽의 셀 (예 : A1 : B1 A1이 선택되면 F1 : G1이 F1이 선택됩니다). 다른 열

    3

    2답변

    내 궁극적 인 목표는 피벗 테이블 결과로 폼 TreeView를 채우는 것입니다. 즉, 부모 노드와 자식 노드를 갖게됩니다. 이의 말을하자 나는이 (테이블에서) 다음 피벗 테이블 결과 FirstNames [+] Bill [+] Bob [-] Charles Charles Jameson Charles Johnson Char

    0

    1답변

    Private Sub RefreshBenchmarks_Click() Dim ws As Worksheet Set ws = Worksheets("INDEX CHANGES") If Not IsError(Application.Offset(ws!S3, _ Application.Match(Worksheets("ASX200").B8, _