您好,我正在用VBA編寫用戶表單代碼。 代碼找到具有給定名稱的列,然後它應該填充列,直到包含數據的最後一行包含用戶表單中的值。 任何想法我該怎麼做? Dim intBB As Integer
Do While Worksheets("Sheet1").Cells(1, intBB) <> ""
If Worksheets("Sheet1").Cells(1, intBB).Value
我試圖創建一個用戶窗體,輸入格式爲.25X2.00X2.50的相關數據後,將部件號輸出到文本框中。我在將尾隨零保留在兩個位置(即使添加的數據沒有尾隨零或兩個以上)並將值保持在「X」之間存在問題。下面是我有的一小部分代碼,它不斷給我25X2X25。任何指針或建議將不勝感激。 Dim AngleThicknessRound As Decimal = Decimal.Parse(AngleThickne
我有一個用戶窗體在多頁上的各種選項卡。我使用datepickers(Microsoft Date and Time Picker Control 6.0)和不同選項卡上的文本框。 當我想從隱藏的,未啓用的或簡單地不活動的乘法數據輸出到工作表時,會出現問題。 例如,Multipage1有一個出生日期,Multipage 2有一個開始日期。 當我按下命令按鈕執行所有數據到工作表的所有數據輸出時,它只會
我試圖格式化我的每個用戶窗體上的控件,但是我的格式是用戶窗體上的所有控件而不是僅僅是標籤或僅僅是文本框。 以下是我有: Private Sub UserForm_Initialize()
FormatUserForms UFNewRequest
End Sub
Sub FormatUserForms(UF As UserForm)
UF.BackColor = RGB(51, 51
我正在嘗試永久更改用戶窗體,以便我只需運行一次代碼而不是每次單擊按鈕以打開用戶窗體時都會運行該代碼。 我發現這適用於某些人。我不確定對我來說可能是錯的。 Sub FormatUserForms(UF As UserForm)
UF.BackColor = RGB(51, 51, 102)
Dim ctrl As Control
With ThisWorkbook.VBProject.VB
我的用戶窗體中有兩個「組合框」和一個「txtbox」。在工作簿「工作表1」中,列B的列A和月份的名稱爲C,而列C的列N爲Jan。到/特定月份十二月含有生產時間對於每個名稱 我使用以下代碼來填充txtHours Private Sub cboName_Change()
Dim EName As String
Dim Row, Col As Integer
ENam