Userform에서 Excel 시트로 값 붙여 넣기

Question

Excel Userform의 값을 시트에 붙여 넣으 려합니다. 값은 사용자 폼 내부에 넣는 것에 따라 다른 시트에 붙여 넣을 수 있습니다.

내가 여기까지 온 :

Private Sub Lagginarenda_Click() 
Sheets("KategoriComboBox").Range("B2").Value = TextBoxFragestallare.Value 
End Sub 

KategoriComboBox 당신의 이름을 선택할 수있는 사용자 정의 폼 드롭 다운 목록은이 목록에 포함 된 동일한 값이 비슷한 엑셀 시트가 있습니다..

TextBoxFragestallare은 값을 쓸 수있는 TextBox입니다. 이 값 나는 셀 B2의 내부에 사용자 정의 폼 내부에서 선택하는 시트에 붙여 넣기를 원합니다. 그것이 말하는 때문에

강령은 늘 일 "bound- 런타임 오류에서 인덱스를 '9'"내가 여기까지 와서 관리해야

---

: 나는

Private Sub Lagginarende_Click() 

Dim emptyRow As Long 

'Aktiverar sheet 
Sheets("Byggkonstruktion").Activate 

'Determine emptyRow 
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 

'Överför information 
Cells(emptyRow, 1).Value = TextBoxLopnummer.Value 
Cells(emptyRow, 2).Value = TextBoxFragestallare.Value 
Cells(emptyRow, 3).Value = TextBoxMottagare.Value 
Cells(emptyRow, 4).Value = TextBoxDatum.Value 
Cells(emptyRow, 5).Value = TextBoxFraga.Value 
Cells(emptyRow, 8).Value = TextBoxSvar.Value 
If KanBesvaraFraganJa.Value = True Then Cells(emptyRow, 6).Value = KanBesvaraFraganJa.Caption Else Cells(emptyRow, 6).Value = KanBesvaraFraganNej.Caption 

Unload Me 
End Sub 

유일한 문제가 이제는 시트 ("Byggkonstruktion") 대신에을 활성화하면 userform에있는 드롭 다운 목록의 값을 사용할 수 있습니까? 그것은 당신이 나타납니다

Answer 1

아래의 Sub이 적합합니다. Range을 적합하게 인증해야하며 엄격히 필요하지 않으면 Select 또는 Activate을 사용하지 않는 것이 좋습니다. 1) ComboBox 사전을 사용하여, 2) ComboBox에서 선택한 값이 당신이 원하는 있는지 확인하여 채우기 때문에, 3) 워크 시트가 존재하는지 확인 KategoriComboBox.Value을 사용할 수 있습니다 : 당신이해야

주 ActiveWorkbook에서 사용하거나 적절하게 선택하려고합니다.

Private Sub Lagginarende_Click() 
    Dim emptyRow As Long 

    'Aktiverar sheet 
    Dim ws As Worksheet 
    Set ws = ActiveWorkbook.Sheets(KategoriComboBox.Value) 
    'Sheets("Byggkonstruktion").Activate 

    'Determine emptyRow 
    emptyRow = WorksheetFunction.CountA(ws.Range("A:A")) + 1 
    'emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 

    'Överför information 
    ws.Cells(emptyRow, 1).Value = TextBoxLopnummer.Value 
    ws.Cells(emptyRow, 2).Value = TextBoxFragestallare.Value 
    ws.Cells(emptyRow, 3).Value = TextBoxMottagare.Value 
    ws.Cells(emptyRow, 4).Value = TextBoxDatum.Value 
    ws.Cells(emptyRow, 5).Value = TextBoxFraga.Value 
    ws.Cells(emptyRow, 8).Value = TextBoxSvar.Value 
    If KanBesvaraFraganJa.Value = True Then ws.Cells(emptyRow, 6).Value = KanBesvaraFraganJa.Caption Else ws.Cells(emptyRow, 6).Value = KanBesvaraFraganNej.Caption 

    Unload Me 
End Sub 

Answer 2

은 원하는 : 내가 제대로 질문을 이해한다면

Private Sub Lagginarenda_Click() 
Sheets(KategoriComboBox.Value).Range("B2").Value = TextBoxFragestallare.Value 
End Sub 

Answer 3

, 당신은 사용자가 드롭 다운 컨트롤을 통해 특정 시트 이름을 선택하고 그들이이 시트에 입력 한 텍스트를 붙여 넣을 수 있도록하려면 셀 'B2'.

그래서 당신의 설정은 다음과 같이 보일 수 있습니다

다음

은 당신이 이것을 달성 할 수있는 방법은 다음과 같습니다 (당신이 cbxSheet라는 콤보라는 텍스트 상자가 있다고 가정 txbText 및 사용자 정의 폼의 btnCopyTextToSelectedSheet라는 명령 단추)

Option Explicit 

Private Sub UserForm_Initialize() 

    Dim wksCurrentSheet As Worksheet 

    'Add all available sheet names to dropdown box 
    For Each wksCurrentSheet In Worksheets 
     cbxSheet.AddItem wksCurrentSheet.Name 
    Next wksCurrentSheet 

End Sub 

Private Sub btnCopyTextToSelectedSheet_Click() 

    Dim strText As String 
    Dim strSheetName As String 
    Dim wksDestination As Worksheet 

    'Read sheet name from dropdown box 
    strSheetName = cbxSheet.Value 

    'Try to get sheet with the defined name 
    Set wksDestination = Worksheets(strSheetName) 
    'If there is no sheet with this name you will receive 
    'an 'Index out of bound' (9) runtime error 

    'Get text from textbox 
    strText = txbText.Text 

    'Write to cell in destination worksheet 
    wksDestination.Activate  'Not needed, just to let the user see 
          'that the copying really happens :) 
    wksDestination.Range("B2").Value = strText 

    'Unload form (makes sure the UserForm_Initialize sub is called on 
    '    each use of the form) 
    Unload Me 

End Sub 

샘플을 여기에 올렸습니다 : https://dl.dropboxusercontent.com/u/40951326/SheetSelectionExample.xlsm

희망 사항을 통해 원하는 것을 얻을 수 있기를 바랍니다.

Answer 4

내 질문에 대한 대답은 다음과 같다 :

Private Sub KategoriComboBox_Change() 

    Sheets(KategoriComboBox.Text).Activate 

End Sub 

그것은 당신이 콤보 상자에서 선택한 것과 동일한 이름을 가진 시트를 활성화하는 것이 그것을 무엇.