vba

    1

    1답변

    차트에 이미지를 붙여 넣을 때 문제가 있습니다. 이 내 코드 ws.Paste Set MyChart = wb.Charts.Add MyChart.Name = "ImageChart" Set MyChart = MyChart.Location(Where:=xlLocationAsObject, Name:=ws.Name) MyChart.ChartArea.Width

    0

    2답변

    지금까지 내가 계산 통계 매크로를 클릭하면 그러나 그것은 400 오류를 제공 내가 수동으로 행 중 하나에 날짜를 넣지 않으면 실행되지 않습니다. 날짜를 입력하지 않고 실행하면 자동으로 날짜가 계산됩니다. 미안 해요, 프로그래밍에 익숙하지 않고이 말이 더 합리적인 이유가 무엇인지 알 수 없습니다. 이건 내 추측은 당신이 뭘하려는 건지에있다 Sub Calcul

    0

    2답변

    나는 이중 기준에 간단한 카운터를 설정하려고 내가 런타임 오류에 의해 중단하고 13 당신이 우는 소리시피, I 여러 개의 카운터를 모두 Integer로 가지고 있고 열 D와 A의 값에 따라 고정 된 모든 적중 수를 계산하기를 원합니다.) 중요한 경우 : D 열의 텍스트가 다른 두 개의 Dates-comparisson을 통해 생성됩니다 열로 표시되지만 텍스트

    2

    1답변

    현재 워크 시트의 모든 워크 시트 이름을 같은 워크 시트 이름을 가진 새 통합 문서에 붙여 넣기 복사해야합니다. VBA를 다음 내가 시도합니다 (datas없이. 난 단지. 워크 시트 이름이 필요합니다)하지만 오류 표시 "이름은 이미 사용됩니다." (런타임 오류 1004) 당신은 ws 그렇게 Line은 절대 변경 사용하지 않을 'Create new work

    1

    1답변

    나는 비슷한 질문을하기 전에 누군가이 매크로를 가지고 다른 문제를 도왔지만 지금은 다시 붙어 있습니다 (1 주일). 나는 매크로 변수를 범위 (행과 열)의 관점에서 만들고 싶었다. 더 나은 이해를 위해 : 매주 내가 최근 추가 된 열 및 Q:R 사이에 삽입됩니다 (단이 예에서는 변수입니다). 다음은 열을 삽입하는 데 사용하는 매크로입니다. Sub inser

    0

    1답변

    새 시트에 자동으로 피벗 테이블을 삽입하고 싶습니다. 이 작업을 실행하면 피벗 테이블 이름의 새 시트 만 삽입되지만 피벗 캐시는 만들지 않으며 소스 시트에서 데이터를 읽지 않습니다. 이 경우 시트 이름은 Data이고 Pivot이어야합니다. Sub InsertPivotTable() Dim PSheet As Worksheet Dim DShe

    0

    1답변

    시트의 모든 테이블 이름과 마지막 행과 열에있는 테이블의 해당 셀을 나열하려고합니다. 아래 코드는 시트 "A1.6Laster"(테이블 "Lastkategori"제외)에서 테이블 이름을 찾은 다음 시트 "A1.6.5Lastkombinationer"에 나열합니다. 테이블을 추가/삭제할 수 있으므로 "A1.6Laster"시트를 먼저 삭제/삭제합니다. 즉, 아래

    0

    1답변

    다른 위치에 단어 파일을 저장하려고합니다. 내 주요 문제는 내 코드가 저장 부분에 이름을 지정하는 경우에만 작동한다는 것입니다. 나는 이것을 시험해 보았지만 행운은 없었다 : ChangeFileOpenDirectory _ "O:\xxxx" ActiveDocument.SaveAs FileName:= "O:\xxxx" & Split(Acti

    2

    1답변

    excel이 편집 모드인지 확인하려면이 thread을보고 수정하려고 시도했지만 Excel이 있으면 작동하지 않습니다 '********************************************************* '********* define if we need to close excel after sub is done '***********

    0

    1답변

    버튼을 누르면 선택 영역의 임의의 행이 강조 표시됩니다. 내가 범위를 차지하는 헤더가 시트에서 지금 Sub SelectRandom() Dim mrg As Worksheet Set mrg = ActiveWorkbook.Sheets("Merged") Dim PopulationSelect As Range Set PopulationSelect = mrg.