☰

Excel, 구조화된 방식으로 셀에 더 많은 정보 추가

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 microsoft-excel-2007
Excel, 구조화된 방식으로 셀에 더 많은 정보 추가

1년 계획이 적힌 엑셀 시트가 있습니다. 열에는 주를 사용하고 "일"이 발생하는 주에는 색상 표시기를 사용합니다.

이와 같이:

여기에 이미지 설명을 입력하세요

제 질문은: 이 셀에 좀 더 구조화된 방식으로 정보를 추가할 수 있는 방법(내장 또는 추가 기능 사용)이 있습니까?

나는 아마도 약간의 형태를 생각하고 있습니다.

  • 이름
  • 설명
  • 예산
  • 야다야다
  • 푸

이렇게 하면 개요를 유지하면서 동시에 각 셀에 더 많은 정보를 추가할 수 있습니다.

이것을 달성하는 방법을 아는 사람이 있습니까?

답변1

결국에는 일부 텍스트 상자와 "데이터"라는 다른 시트의 동일한 열/행에 값을 저장하기 위한 버튼이 있는 사용자 양식을 만들었습니다.

이 같은:

Dim xml As String

xml = xml + "<CellDetails>"
xml = xml + "  <Budget>" + UserForm1.txtBudget.Text + "</Budget>"
xml = xml + "  <Comments>" + UserForm1.txtComments.Text + "</Comments>"
xml = xml + "  <StartDate>" + Format(MonthView1.Value, "yyyy-mm-dd") + "</StartDate>"
xml = xml + "  <EndDate>" + Format(MonthView2.Value, "yyyy-mm-dd") + "</EndDate>"
xml = xml + "</CellDetails>"

ThisWorkbook.Sheets("Data").Range(Selection.Address).Value = xml

그런 다음 셀을 "오른쪽 클릭"할 때 이벤트 리스너를 사용하여 시트에서 이를 트리거하고 양식 컨트롤에 값을 채웁니다.

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

오류 발생 시 다음 재개

' Ctrl 키를 누른 경우에만 이것을 트리거합니다 If IsControlKeyDown() = True Then

    If Not ThisWorkbook.Sheets("Data").Range(Selection.Address).Value = "" Then

        Dim XDoc As MSXML2.DOMDocument
        Set XDoc = CreateObject("MSXML2.DOMDocument")
        XDoc.LoadXML (ThisWorkbook.Sheets("Data").Range(Selection.Address).Value)

        ' Setting the form values
        UserForm1.txtBudget.Text = XDoc.SelectSingleNode("//CellDetails/Budget").Text
        UserForm1.txtComments.Text = XDoc.SelectSingleNode("//CellDetails/Comments").Text

        ' Setting the dates
        UserForm1.MonthView1.Value = CDate(XDoc.SelectSingleNode("//CellDetails/StartDate").Text)
        UserForm1.lbStartDate = XDoc.SelectSingleNode("//CellDetails/StartDate").Text
        UserForm1.MonthView2.Value = CDate(XDoc.SelectSingleNode("//CellDetails/EndDate").Text)
        UserForm1.lbEndDate = XDoc.SelectSingleNode("//CellDetails/EndDate").Text
    End If

    UserForm1.Show


    Cancel = True

End If
On Error GoTo 0

서브 끝

관련 정보