excel-vba

    0

    1답변

    아래 첨부 된 스크린 샷에서 12.5 %의 "1 학년"행에서 "Short"라는 높이를 얻으려고합니다. .GetPivotData 메서드를 사용해야하는 것처럼 보일 수 있지만 실제로는 정상적으로 작동하지 않습니다. 피벗 테이블이 필요하다고합니다 .GetPivotData ([DataField], [Field1], [Item1]). 하지만 시도 할 때 x = pv

    1

    4답변

    다른 통합 문서에 두 개의 워크 시트가 있습니다. 각 시트는 몇 줄에서 수천 줄까지만 가질 수 있습니다. 그들은 같은 수의 선을 갖지 않습니다. 자본 워크 시트의 E 열에서 ITS ####를 포함하는 모든 셀을 찾으려고합니다. ####는 숫자 문자입니다. 셀이 식별되면 해당 행의 A 열로 이동하여 해당 값을 식별하려고합니다. 그런 다음 다른 통합 문서에있는

    -2

    1답변

    시트 1에 A 열이 maintasks로 채워지고 B 열이 조회 값으로 채워집니다. 시트 (2)가 조회 값 범위를 갖는다. 시트 1의 B 열은 시트 2의 열 A와 동일합니다. 는 시트 (3)에서, I는 시트 2 서브 태스크 (열 B)과 시트 (2) (열 C)에 예산을 시간 기반으로 채워야 시트 (1) (A 열)에 을 maintask 필요하다. 다음 출력을 확

    1

    1답변

    열 A에 중복 값이있는 경우 Excel에서와 마찬가지로 True = False가 표시되는 코드를 작성했습니다. A1 = A2 우리는 내가 마지막 행을 찾는 방법 확실하지 오전, 그래서 난 T9000의 범위를 코딩,하지만 T3500, 또는 때때로 T15000까지 데이터가있을 수 A.에 데이터가 마지막 행까지. Range("A1:A5000").Sort Key1

    0

    1답변

    Excel VBA를 통해 업데이트해야하는 PowerPoint 프레젠테이션이 있는데 차트의 데이터 시트에 데이터를 추가하는 데 방해가됩니다. 코드 밑. 이 작업을 수행하려면 Excel VBA를 통해 PowerPoint 프레젠테이션을 열고 Excel이 열려 있다고 가정하고 거기에서 범위를 가져 와서 DataChart에 붙여 넣습니다. 저는 아직 객체에 상당히

    1

    1답변

    안녕하세요 저는 Excel의 새로운 기능을 사용하기 때문에 구문을 작성하는 데 어려움이 있습니다. 셀에 지난 달의 지난 금요일 날짜를 표시하려고합니다. 12 월 한 달에 보고서를 실행하면 (2014 년 12 월 22 일) 11 월의 마지막 금요일 날짜 (예 : 24/11/2017)에 A2라고 표시됩니다. 누군가 나를 도와 줄 수 있습니까? 이를 달성하기

    2

    1답변

    통합 문서의 모든 워크 시트에있는 사용자 정의 함수 (UDF)가 있습니다. 함수가있는 워크 시트를 어떻게 참조 할 수 있습니까? 나는 ThisWorkbook.ActiveSheet을 사용하고 있지만 결과는 지속적으로 변경됩니다. Function äëÿñèò(Diapozon As Range) As Long 'äëÿ ñèòóàöèè Appli

    2

    2답변

    개념 증명을 테스트하기 위해 더 큰 프로그램에 대한 코드 작성을 작성했습니다. (따라서 적은 양의 코드입니다.) 주요 코드 뒤에있는 아이디어는 사용자가 CheckBox가있는 사용자 정의 사용자 정의 폼을 사용하여 배열을 작성한 다음 arry가 "1"의 모든 언급 (즉, 확인란을 선택한 경우)을 검색합니다. 그런 다음 arry의 행 번호를 사용하여 어떤 확인

    0

    1답변

    Excel에서 텍스트 영역을 셀에 연결했습니다. 글꼴 값은 셀 값을 기반으로 변경됩니다. 불행히도 연결된 셀이 변경되면 텍스트 영역의 글꼴 색이 변경되지 않습니다. 텍스트 영역을 열고 Enter 키를 누르면 색상이 변경됩니다. 모든 단일 텍스트 영역을 누르고 Enter 키를 누르는 것이 너무 많은 작업이기 때문에 자동화 할 수있는 방법이 있습니까?

    0

    1답변

    에와 기능 "과"코드를 추가 나는이있다 : Dim i As Long Dim numFilas As Long numFilas = Cells(Rows.Count, 1).End(xlUp).Row For i = numFilas To 1 Step -1 If WorksheetFunction.CountIf(Range("h:h"), Cells(i, 8))