Windows 8.1 사용 중 .Net Framework 3.5 설치 시 0x800F0906 오류가 발생하는 문제로 문의를 주셨습니다. 문의주신 내용의 경우, 해당 오류는 컴퓨터가 Windows Update 에서 필요한 파일을 정상적으로 다운로드 할 수 없을 때 발생할 수 있을 것으로 보입니다. 우선, 아래의 확인 사항을 확인하신 후 그 아래의 작업 방법을 진행 해보시기 바랍니다. 확인 사항 : Windows 기능 켜기 / 끄기를 통한 활성화 ​ ​ .Net Framework 3.5 는 Windows 8.1 의 기능에 포함되어 있으며 먼저 이 기능 활성화를 통해서 설치를 진행 해보실 수 있습니다. ​ Windows 로고키 + X키를 누른 후 나타나는 메뉴에서 [프로그램 및 기능]을 클릭합니다. 프로그램 ..

Sub 이미지붙여넣기() Dim m As Workbook Dim ms As Worksheet Set m = Workbooks(ThisWorkbook.Name) Set ms = m.Sheets("Camera") Dim sht As Worksheet Dim shape As Excel.shape Dim pic As Picture Set pic = ms.Pictures("그림 1") '시트 반복 For Each sht In Workbooks(ThisWorkbook.Name).Sheets ' 조건 If sht.Index > 4 Then ' 이미지 복사 pic.Copy ' 이미지 붙여넣기 sht.Paste For Each shape In sht.Shapes Select Case shap..

'# 이름 정의 하는 법 With ThisWorkbook '# 이름 정의 기존 것 삭제 .Names("TEST").Delete '# 이름 정의 추가 .Names.Add "TEST", RefersTo:="=OFFSET(Sheet2!" & "$E$" & cht_row & ",,,-Sheet2!$C$13)" '# 이름정의 만들고 범위 넣기. End With * cht_row 이 로우는(차트범위임) 항상 바뀌기 때문에 이름정의를 이용하여 구현했음. With ThisWorkbook.Names("Test") .Name = "Test" .RefersTo = "=OFFSET(Sheet2!" & "$E$" & cht_Row & ",,,-Sheet2!$C$13)" End With

Q : 안녕하세요 vba 코드질문입니다. 코드를 추가하고 싶은데 잘안되서 문의드립니다. 검색 기능코드에서 없는이름이있을때 msgbox "이름이 없습니다. 추가 하시겠습니까" 그리고 나이는 현재 년도를 생년월일에서 뺀값이 자동으로 나오게 하고싶습니다. A : 추가하시겠습니까? 를 예, 아니오로 선택할 수 있게 하고 만약 대답이 yes면 조건 안으로 들어가고 ​ 나이의 경우 now() 함수를 사용하여 format을 연도만 구해서 현재연도 - 생년월일 하면 될 것 같습니다. If MsgBox("이름이 없습니다. 추가 하시겠습니까?", vbYesNo) = vbYes Then '만약, "예" 버튼을 눌렀다면 ' 현재 year과 생년월일을 뺀다. txt나이 = Format(Now(), "yyyy") - Format..

Q : 엑셀 VBA 질문드립니다. 만들고 싶은게 이름,나이,성명 을 입력상자에 입력한 후 확인을 누르면 엑셀시트에 열에 맞추어 그대로 입력되게 하고싶은데 어떻게 만들수 있을까요 ? VBA 한번도 사용 안해봤습니다. A : 아래 처럼 구현하면 됩니다. Private Sub CommandButton1_Click() Dim m As Workbook Dim ms As Worksheet Set m = Workbooks(ThisWorkbook.Name) Set ms = m.Sheets(ActiveSheet.Name) Dim START_ROW As Integer Dim LAST_ROW As Integer ' 입력이 시작 될 행 위치 지정 START_ROW = 10 ' 입력할 마지막 행 위치 지정 LAST_ROW = ..

ListBoxItem 각 각 글자색 다르게 하기. listbox fore color 지정하기 void listBox1_SetColor(object sender, DrawItemEventArgs e) { try { e.DrawBackground(); Brush myBrush = Brushes.White; int sayi = Convert.ToInt32(((ListBox)sender).Items[e.Index].ToString()); if (sayi > 100) { myBrush = Brushes.Red; } else { myBrush = Brushes.Green; } e.Graphics.DrawString(((ListBox)sender).Items[e.Index].ToString(), e.Font, myB..