vba

0열

1답변

나는이 코드를 줄이기위한 방법을 찾고 있는데, 각각의 "Case is"인스턴트를 하나의 변수에서 사례 이름을 얻음으로써 인스턴트 메시지로 변환한다.

매크로의 목적은 드롭 다운 메뉴에서 선택한 경우에 따라 올바른 데이터를 선택하는 것이다. 내 "추천"시트에. Private Sub cmbNatCoList_Change() 'Define selected NatCo and variables for loop Dim NatCoList As String Dim ZeileUntersucht As Integer

1열

2답변

모양 색상을 셀 색상과 일치시킵니다.

워크 시트의 각 모양의 색상을 테이블의 해당 셀과 일치하도록 설정하는 기본 루프를 설정하고자합니다 (조건부 서식 지정). 내가 그러나 다음 dim countryShape as shape For Each countryShape In ActiveSheet.Shapes countryShape.Range.Interior.Color = Application.

-5열

1답변

listview 속성을 사용할 수 없습니다.

사용자 지정 하위에 listview를 전달하고 listview 속성 중 일부는 호출 된 하위 내에서 사용할 수 없습니다. .name, .width 및 몇 가지 더. 호출 된 하위에서 입력 listview를 확인하면 모든 속성이 조사 식 창에 표시됩니다. 이러한 누락 된 오류 중 하나를 변경하려고합니다 (둘 다 앱 또는 직접 실행 창에서 발생 함). 호출하는

0열

1답변

제대로 VBA

내가 배열을 필요로 할 때 나는 보통 변종을 사용에서 문자열 배열을 정의 Sub test() 'runs fine Dim s s = Array("a", "b", "c") Debug.Print s(1) End Sub 가 지금은 특정 경우에 대한 성능을 원하는을, 그래서 내가 문자열 배열을 사용하여 몇 millisec을 절약 할

0열

3답변

MS Access : Excel 통합 문서에서 워크 시트 선택

MS Access에서 일부 코드를 작성 중이므로 사용자가 Excel 통합 문서의 워크 시트를 선택해야 할 때까지 작업을 수행해야합니다. 나는이 워크 시트의 이름이 무엇인지 또는 어느 위치에 놓여 있는지 모른다. 나는 사용자에게 모든 시트 이름을 포함하는 목록 상자가있는 양식 (모달 양식)을 보여주는 솔루션에 대해 생각하고있었습니다. ' 사용자가 양식 중 하

0열

1답변

PowerPoint에서 차트 제목을 제거하지 않습니다.

이 코드를 작성했지만 코드를 실행하면 차트 제목이 제거되지 않습니다. step-in 함수를 사용하여 코드를 수동으로 실행하면 완벽하게 작동합니다. newChart.HasTitle = False 줄 앞에 Application.Wait을 사용해 보았지만 작동하지 않는 것 같습니다. 어떤 아이디어? Sub InsertPieCharts() Dim xl As Ex

0열

1답변

WORD 파일을 다른 헤더로 .txt로 변환하는 방법은 무엇입니까?

나는 여러개의 단어 파일 (~ 5000)을 다른 헤더와 함께 가지고 있는데, 매크로로 읽은 다음이 여러 단어 문서를 폴더에 하나의 문서로 병합한다. 여기 관련 코드 : 나는이 .txt로 파일을 저장하려고 할 때 작동되지만, Sub MergeDocs() Dim rng As Range Dim MainDoc As Document Dim

0열

2답변

IE.ExecWB 6,2는 인쇄 대화 상자를 표시합니다. 이 페이지를 인쇄하려면 어떻게합니까?

웹 페이지를 탐색 한 후 PDF를 인쇄하려고합니다. 내가 인쇄 대화 상자에서 인쇄 버튼을 클릭 어떻게 Sub login() Dim IE As Object Dim HTMLDoc As Object, HTMLDoc2 As Object Dim objCollection As Object Dim currentURL As String Const navOpe

0열

2답변

VBA의 자동 완성 수식

Excel에서 다음 수식을 사용하면 효과적입니다. 이 수식은 테이블의 맨 아래로 끌어옵니다. =IF(OFFSET(OriginalData!$A$1,MATCH(TempTable!$A2,OriginalData!$A:$A,0)-1,2,1,1)=0,"",OFFSET(OriginalData!$A$1,MATCH(TempTable!$A2,OriginalData!$A:$A

0열

1답변

셰이프를 선택하여 PowerPoint VBA 스크립트를 적용하려면 어떻게해야합니까?

슬라이드의 여러 셰이프를 선택하고 선택한 모든 셰이프에서 매크로를 실행하고 싶습니다. 예를 들어, 도형의 애니메이션 지연 시간을 주어진 값만큼 늘리고 싶습니다. 참고 : 일부 도형에는 애니메이션이 두 개 이상있을 수 있습니다. 지금까지 다음 코드가 있습니다. 그것은 트릭을 수행하지만 현재 슬라이드의 모든 모양에 적용됩니다. Sub ActiveSlideSha