«vba» 태그된 질문

응용 프로그램을위한 Visual Basic; 모든 Microsoft Office 응용 프로그램에서 사용되는 Visual Basic의 하위 집합 이 태그를 해당 특정 응용 프로그램의 태그와 함께 사용하십시오. VBA에 대한 좋은 질문에는 일반적으로 몇 가지 코드가 포함되어 있으며 특정 문제의 해결책을 요구합니다. 전체 솔루션을 요구하는 질문 (코드 및 VBA를 사용하는 방법 및 방법을 알려주십시오)은 주제가 아니며 너무 광범위하게 닫힙니다.

0
Outlook 매크로는 하나의 계정에서만 작동합니다
Outlook 매크로를 사용하여 모든 초안을 보낼 편지함으로 직접 이동했습니다. Sub SendAllDrafts() ' Send the messages in the Drafts folder (ignore any subfolders) If MsgBox("Are you sure you want to send ALL the items in your default Drafts folder?", _ vbQuestion + vbYesNo) <> vbYes Then Exit Sub Dim fldDraft As …

1
Excel : 전체 시트의 모든 셀 값을 새 시트로 복사하고 단일 값의 단일 목록으로 정렬 및 중복 제거
내가 가지고있는 데이터 (모든 텍스트 값)는 시트에 흩어져 있으며 (간격이있는 여러 행과 열) 모두 수식을 사용하여 계산됩니다. 이제 고유 한 계산 된 값의 정확한 목록이 무엇인지 알고 싶습니다. 그래서 여기에 내가해야 할 일이 있습니다. 새 시트 에만 값을 복사 단일 목록으로 구성 (열) 정렬 및 중복 제거

1
특정 msgbox가 표시되지 않습니다
한 번에 여러 개의 msgbox를 출력하려고합니다. 그중 하나만 출력하려고 할 때 아무 것도 발생하지 않습니다. 작동하지 않는 것만 보여 드리겠습니다. 셀 값이 정수이고 6과 72 사이가 아닌 경우이 msgbox 만 표시하고 싶습니다. 5. 글꼴 크기는 6에서 72 사이의 정수 여야합니다. 6.Paragraph Spacing Before는 6에서 72 사이의 정수 여야합니다. Private Sub …

1
이 작업을 완료하기위한 메모리가 부족합니다
Excel에 약간의 문제가 있습니다. 시트를 열 때 마다이 오류가 발생합니다. 10-15 분 후에 요 인터넷에 나열된 몇 가지 사항을 시도했지만 여기에 시도한 사항이 있습니다 .32 비트에서 64 비트로 변경 및 반대로 변경되는 추가 메모리 추가, 가상 메모리 추가, DDE 비활성화 및 활성화, 사무실 버전 변경 및 몇 가지 등록 설정 …

1
Microsoft Excel-VBA를 사용하여 루프와 함께 이메일 보내기
이 코드는 성으로 Excel 시트를 필터링하고 해당 데이터를 새 통합 문서에 복사 한 다음 시트 2에서 Vlookup을 수행하여 성과 전자 메일을 일치시키고 해당 사람에게 전자 메일을 보냅니다. 이메일의 본문을 입력하기 위해 코드를 편집했습니다. 다음 오류가 발생합니다 : 잘못된 다음 제어 변수 참조. 내가 뭘 잘못하고있는 아이디어? 전에는 완벽하게 작동했지만 전자 …

0
빈 셀을 효과적으로 분할하는 매크로 또는 VBA 스크립트
Excel에서는 셀을 분할 할 수 없다는 것을 알고 있습니다. 그러나 그 주위의 방법은 아래에 새 행을 삽입하고 왼쪽 및 오른쪽의 모든 이웃을 세로로 병합하는 것입니다 (많은 셀의 경우) 이를 위해 키보드 단축키가 필요합니다. 그래서 나는 이것을하기 위해 매크로를 기록했지만 문제는 매크로가 커서의 위치를 ​​고려하지 않고 항상 같은 지점으로 이동한다는 것입니다. …


1
값이 일치 할 때 셀 선택
아래 코드는 시트 1의 "K2"에 입력 한 값을 찾은 다음 시트 2에서 동일한 값을 찾습니다. 일치하는 것을 찾을 때 해당 특정 셀을 선택하고 싶습니다. 누군가 나를 도울 수 있습니까? Sub Macro() Dim WS As Worksheet Dim rSearchRng As Range Dim EndNum As Long Dim vFindVar As Variant` Set WS = …

2
VBA를 사용하여 Excel의 Solver 참조 셀을 여러 시트에 가질 수 있습니까?
이 질문이 다른 포럼에 게시 된 것을 보았지만 여기에 올랐다고 생각하지 않습니다. Solver 매크로에 할당 한 버튼을 Solver의 대상 및 변수와 다른 시트에 배치하고 싶습니다. 모든 대상과 변수는 동일한 시트에 있습니다. 즉, Sheet1의 버튼을 누르면 Solver가 Sheet2의 값을 사용하여 Sheet2에서 실행됩니다. 다른 포럼은 종종 Solver가 활성 시트 이외의 시트에서 셀을 …

1
Outlook을 다시 설치 한 후 자동 BCC에 대한 VBA가 작동하지 않습니다.
Outlook 2010을 다시 설치하면 BBC 코드가 더 이상 자동으로 작동하지 않습니다! 다시 작동시킬 아이디어가 있습니까? 많은 감사합니다! Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String Dim myOlApp As Outlook.Application Dim myOlMsg As Outlook.MailItem …

1
파워 포인트 재사용 객체
많은 사진과 오디오가있는 ppt를 만들고 싶습니다. 이는 여러 번 재사용 될 것입니다. 예를 들어, 각 슬라이드로드에서 재생할 차임이 있습니다. 내 웹 사이트에서이를 호스팅 할 것이고 웹 호스트의 대역폭과 CPU를 최소화해야하기 때문에 동일한 이미지 또는 오디오가 계속해서로드되는 것을 원하지 않습니다. 마스터 슬라이드에 오디오 또는 이미지를 복사하여 붙여 넣을 경우 실제 개체가 …

1
Excel VBA 오류-Cell (R, C). 붙여 넣기 [닫기]
Workbook1.WorkSheet1의 셀을 Workbook2의 셀로 복사하기 위해 Workbook0.Worksheet1에서 코드를 작성하고 있습니다. 코드는 다음과 같습니다. Sub CopyInfo() Dim WSCopy As Worksheet Dim WSPaste As Worksheet Set WSCopy = Workbooks(Cells(3, 4).Value).Worksheets("Sheet1") Set WSPaste = Workbooks(Cells(4, 4).Value).Worksheets("Sheet1") RowCopy = Range(Cells(11, 3)).Row ColCopy = Range(Cells(11, 3)).Column RowPaste = Range(Cells(11, 4)).Row ColPaste = Range(Cells(11, 4)).Column Data …

3
Excel 또는 배치-텍스트 수정 자동화 시도 (다수의 변경, 각각 하나 이상의 문자)
텍스트 줄이 많습니다. 텍스트 파일이나 Excel 스프레드 시트에 넣을 수 있습니다. 그들은 많은 변화가 필요합니다. 이전과 이후의 예는 다음과 같습니다. Input: I'm buying one! Only $39 ..... Output: I'm buying one - Only USD 39 즉, HTML 코드 아포스트로피로 변환있어, 느낌표는 중복 공간이 밖으로 제거하고, 공간 하이픈되었다 $가되었다 USD, 및 …

2
Access에서 Vb SQL 쿼리가 작동하지 않습니다.
드롭 다운 메뉴에서 주어진 항목 아래에 항목 목록을 채우려 고합니다. 지금까지 나는 전체 테이블을 가져올 수 있습니다 : 여기에 드롭 다운 목록 그러나 나는 드롭 다운에서 선택한 그룹과 쿼리를 구문 분석 할 "WHERE"문에 적합하지 않습니다. "WHERE"추가 할 때 빈 목록 이것은 작동하는 코드입니다. Private Sub catBox_Change() Dim SQL As String …

1
여러 엑셀 워크 시트를 .csv로 변환하십시오
통합 문서의 여러 Excel 워크 시트를 개별 .csv 파일로 변환하기 위해이 매크로를 찾았지만 변환 된 파일 이름에서 통합 문서 이름을 제거하는 방법을 알지 못합니다. 나는 그 단순함을 확신하지만 VBA에 대해서는 아무것도 모른다. Sub exportcsv() Dim ws As Worksheet Dim path As String path = ActiveWorkbook.path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, …

당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.