«vba» 태그된 질문

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

0
Excel 2013-VBA가 갑자기 비활성화되었습니다
VBA가 갑자기 비활성화 된 것처럼 Excel 2013에 문제가 있습니다. "이 통합 문서는 Excel 통합 문서를 열 때 VBA 프로젝트, ActiveX 컨트롤 및 기타 프로그램 관련 기능을 잃어 버렸습니다. View / Macros로 이동하면 View Macros가 회색으로 표시됩니다. MS office를 제거하려고했지만 오류 코드 30038-4가 발생했습니다. Excel AddIn으로 실행되고 VBA를 활성화해야하는 계정 소프트웨어를 …
1
LibreCalc 또는 OpenOfficeCalc의 MS Excel Vba / 매크로
libre calc에이 루틴을 수행하는 동등한 매크로 / vba가 있습니까? -경로에서 xls 파일을 읽고 / 열고 읽은 시트를 일괄 가져 오기 / 복사하고 현재 열려있는 통합 문서와 병합합니다. MS Excel에서 사용한 vba는 다음과 같습니다. 미리 감사드립니다 Sub Consolidate_Sheets() 'Folder Path to read the xlsx files from Path = "F:\WIP2\Below 25\" filename …
1
명명 된 범위를 다른 통합 문서로 복사
하나의 통합 문서에서 다른 통합 문서로 명명 된 셀을 복사하는이 VBA 코드가 있지만 나에게 제공합니다 Error 9: Subscript out of range. 어떤 아이디어가 있습니까? Sub namexfr() wbs = "C:\Users\MousaviM\Desktop\Book1.xlsm" wbd = "C:\Users\MousaviM\Desktop\Book2.xlsm" For Each nam In Workbooks(wbs).Names Workbooks(wbd).Names.Add Name:=nam.Name, RefersToR1C1:=nam.RefersToR1C1 Next End Sub
2
날짜 함수를 사용하여 일과 월에 0이 앞에 오는 문자열을 만듭니다.
VBA에서 날짜를 만들려고합니다. 오늘 날짜는 13.04.2018로 표시하고 싶습니다. 그러나 현재는 13.4.2018로만 표시 할 수 있습니다. 단일 숫자로 일과 월에 선행 0을 포함시키는 방법은 무엇입니까? 나는 현재 : stDateDay = Day(Date) stDateMonth = Month(Date) stDateYear = Year(Date) stDateFull = stDateDay & "." & stDateMonth & "." & stDateYear
1
PDF로 내보낼 MS Excel VBA가 갑자기 종료되고 컴퓨터가 강제로 재부팅됩니다
기본적으로 Excel 파일의 명명 된 범위를 PDF로 인쇄하는 VBA 코드 (아래 참조)가 있습니다. 각 매크로마다 명령 버튼이 있으며 정상적으로 작동하지만 group6에 도착하면 순차적으로 인쇄 할 때 (group1, group2, group3 ....) 파일이 갑자기 닫히고 컴퓨터가 강제로 다시 시작됩니다 ?? ? 내가 뭘 잘못하고 있죠? 도움을 주시면 감사하겠습니다. 감사 크리스 Option Explicit …
1
이 매크로를 Excel 파일의 모든 페이지에 적용하는 방법
페이지의 일부 셀을 특별히 수정하는 코드가 있습니다. 한 번의 클릭 으로이 코드를 Excel 파일의 모든 페이지에 적용하고 싶습니다. VBA를 사용하고 있으며 초보자입니다. 내 코드는 다음과 같습니다. Sub H() Dim B As Range, H As Range, I As Range For Each B In Range("B7:B49").Cells If IsNumeric(B) And B <> "" Then …
1
값이 일치하는지에 따라 sheet2에서 sheet1로 복사
이 코드의 목표는 열을 반복 sheet1하고 각 값이의 행 값과 일치하는지 확인하는 것입니다 sheet2. 값이 일치하는 경우, 정보의 5 개 행을 복사 sheet2에 이상 sheet1이 시간에 그 순간에있는 특정 행에. 문제 : if 문이있는 첫 번째 행의 오류 1004 나는 Next b또한 오류를 던질 것이라고 생각한다 VBA 코드 : For …
vba 
0
ExecuteMso-사진 변경> 파일에서
그림 변경 기능을 Excel로 가져올 수있는 버튼을 만들고 싶습니다. 사용자가 그림 위의 버튼을 클릭하여 필요할 때 그림을 변경할 수 있기를 원합니다. 이 매크로가 작동하지 않는 이유를 누군가에게 알려줄 수 있습니까? Sub ChangePicture() ActiveSheet.Shapes.Range(Array("PIC_RENTCOMP1A")).Select CommandBars.ExecuteMso ("PictureChange") End Sub 마우스 오른쪽 버튼 클릭> 그림 변경> 파일에서와 같은 기능을 원합니다. 미리 감사드립니다.
0
Excel의 조건에 따라 다른 시트에서 다른 시트로 값 가져 오기
데이터가있는 시트가 있는데 다른 시트에 있지만 조건이있는 데이터를 가져오고 싶습니다. ------------------------------------------------- | Cell A | Cell B | Cell C | Cell D|Cell E | |------------------------------------------------| | Sku |Order_ID|Customer_ID | Price |Status | |------------------------------------------------| | TW22 | 123 | 1 |221 | D | |------------------------------------------------| | TS44 | 124 | …
0
Excel 삽입 기능이 자동으로 작동하지 않습니다
vba를 통해 수식을 삽입합니다. Range("B6").Formula = "=SUMMENPRODUKT(TEILERGEBNIS(109,INDIREKT(""Daten!I""&ZEILE($2:$238)))*((Tabelle1[Artikel]=""10F0553s"") + (Tabelle1[Artikel]=""10F0553""))*(Tabelle1[Fertig]<>1))" 이것은 잘 작동하지만 수식은 #Name을 반환합니다. 그러나 셀을 클릭하고 Enter 키를 누르면 올바른 값이 반환됩니다. Excel에서 자동 계산이 "on"으로 설정되어 있습니다.
2
IFNA (또는 ISNA)가 VBA 모듈에서 작동하지 않는 이유는 무엇입니까?
다음 코드가 있습니다. Sub TestNA2() IsThisNA = Sheets("sheet1").Range("D:D").Select 'Sheets("sheet1").Range("E:E").Select Range("E2").Formula = "=IF(ISNA(D1),""Delete"","""")" Range("E2").AutoFill Destination:=Range("E:E"), Type:=xlFillDefault 'ActiveCell.Value = "=IF(ISNA(D:D), ""Delete"","""")" 'ActiveCell.Value = IsThisNA 'MsgBox IsNA End Sub 그러나이 줄에서 오류가 발생합니다 : ActiveCell.Value = IfNa (D6, "삭제") D6이 #NA 인 경우 셀 E6에 "삭제"라는 단어를 입력하는 것이 좋습니다. 누군가이 코드로 나를 …
당사 사이트를 사용함과 동시에 당사의 쿠키 정책과 개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.