如何將UserForm中的值導出到新的Excel表單中？

我有一個UserForm，我不想複製三個不同的值，並將它們放在我的新表中，並在每個值的前面加上一個解釋，但它不起作用，有人能幫我理解爲什麼嗎？如何將UserForm中的值導出到新的Excel表單中？

Private Sub cmbExport_Click() 

Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Export" 

Export.Range("A1").Value = "Riskpremie" 
Export.Range("A2").Value = "Teknisk premie" 
Export.Range("A3").Value = "Slutpremie" 

Export.Range("B1").Value = TxtRiskpremie.Value 
Export.Range("B2").Value = TxtTeknpremie.Value 
Export.Range("B3").Value = txtSlutpremie.Value 

End Sub

預先感謝您！

來源

2017-07-24 AnnieFrannie

嘗試使用'表（「Export」）。Range（「A1」）。Value'而不是'Export.Range..'。 – Soulfire

應該總是說錯誤發生在哪個代碼行。你應該使用'WorkSheets（「Export」）。Range（「A1 ......）'bla-bla – MacroMarc

我們Export是不確定的，所以它不會工作：

Private Sub cmbExport_Click() 
Dim Export as wWorksheet 
Set Export = Sheets.Add(After:=Sheets(Sheets.Count)) 
Export.Name = "Export" 

Export.Range("A1").Value = "Riskpremie" 
Export.Range("A2").Value = "Teknisk premie" 
Export.Range("A3").Value = "Slutpremie" 

Export.Range("B1").Value = TxtRiskpremie.Value 
Export.Range("B2").Value = TxtTeknpremie.Value 
Export.Range("B3").Value = txtSlutpremie.Value 

End Sub

來源

2017-07-24 14:28:53 avb

這取決於您Sub的位置。如果它在模塊中，則必須參考FORM。即：

Dim oF as UserForm1

之後就可以引用在FORM領域：

Sheets("Export").Range("B1").Value = oF.TxtRiskpremie.Value

來源

2017-07-24 14:13:23 Zac

如何將UserForm中的值導出到新的Excel表單中？

回答

相關問題