userform

    0熱度

    2回答

    我的VBA程序在用戶輸入的輸入上處理某些操作,並最終返回結果。 在某些時候,我想讓一些用戶表單顯示並「調整」研究。例如,如果用戶輸入了不適合的州和城市,則會顯示「您的意思是城市在州?」。然後,點擊是會考慮修改,點擊不會改變任何東西。 我已經試過這一點,因爲在一些教程發現: city = sMain.Range("J12").Value province = sMain.Range("J6").V

    5熱度

    2回答

    我已閱讀並應用了類似主題上找到的解決方案,但似乎沒有任何工作適用於我的案例。 所以,我想從我的Module1的一個子變量傳遞給用戶窗體。這是一個名爲「provinceSugg」的字符串。 這裏是我的代碼的相關部分: Public provinceSugg As String Sub probaCity() [...] If province = "" And city <> "" Then

    0熱度

    1回答

    我有一個excel文檔,在1列上有5個連續的單元格,需要用數據填充。我期待創建一個VBA userForm,它將通過一系列的問題來幫助用戶輸入正確的數據。 可以說5個單元格是A1到A5。一旦調用了用戶表單,它應該顯示一個問題(標籤也許?),一個用於輸入數據的文本框和一個用於在下一個問題上移動的命令按鈕。所有的時間從A1移動到A2等等,直到完成提問。 有沒有人有任何想法如何做到這一點?我的VB知識是

    1熱度

    2回答

    快速問題, 有沒有一種方法可以在模塊中編寫我的Userform代碼? 我問這個問題的原因是因爲我有一個多頁面的用戶表單,其後面的代碼量越來越大。出於組織目的,我希望能夠在不同模塊中分隔代碼。但我不知道這是否可以爲用戶窗體完成(除了從用戶窗體事件中調用子程序)。 有沒有辦法在模塊中編寫UserForm代碼,而無需從用戶窗體代碼調用子例程? 謝謝,

    1熱度

    1回答

    編輯:沒有任何錯誤,此代碼有效。 我使用Django 1.4.5,我的形式不顯示我想要的字段: 我的代碼如下: class MyRegistrationForm(UserCreationForm): email = forms.EmailField(required=True) first_name = forms.CharField(max_length=30) l

    2熱度

    3回答

    社區, 有防止活性組合框從失去其打的向下箭頭時,焦點的方式(或向上箭頭)在結束時(或開始)的一個名單。如果有更好的方法來做到這一點(最好有一個MS標準屬性),請分享。 問題:當在ComboBox列表的末尾,如果你點擊向下箭頭,它會將你移動到物理上位於活動組合框下的任何控件。反之亦然,因爲在組合框頂部並擊中向上箭頭。這是草率的,適得其反。 MS Excel的2013年 解決方法:要防止這些失去焦點,

    1熱度

    1回答

    這是我第一次發佈,所以請讓我知道如果我搞亂了任何論壇禮儀! 我有一個用戶窗體包含一個標籤,兩個組合框和按鈕。標籤的文本設置在一個子文本中,並且是描述遊戲的文本。我要求用戶從兩個組合框中選擇兩個裁判這個比賽的裁判。該按鈕是「下一個遊戲」按鈕。當用戶點擊「下一個遊戲」按鈕時,我將兩個裁判匹配到「裁判」工作表上的名單列表。然後,我希望能夠使用標籤中的文字(說明它是哪個遊戲),並將其粘貼在與裁判姓名相鄰的

    2熱度

    1回答

    我有一個用戶窗體我已經在Excel 2010中使用VBA創建。基於來自特定工作表的數據,控件將以編程方式添加到表單中。我的代碼添加了所有控件,然後確定窗體是否過長。如果是,則表單將被設置爲500px的最大高度,並啓用滾動。 滾動條在單擊滾動條時出現並按預期工作,但鼠標滾輪對窗體上的滾動條沒有影響。 我還沒有看到任何啓用鼠標滾輪滾動的屬性。我在Google上找到的每篇文章都指向滾動UserForm(

    9熱度

    3回答

    VBA用戶窗體中的錯誤(在初始化事件發生的錯誤之外)似乎沒有冒泡到調用方法。有什麼辦法可以強制錯誤冒出來嗎? VBA用戶窗體包含其被定義爲 Private Sub UserForm_Error( ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long,

    4熱度

    5回答

    我的模塊代碼調用用戶窗體: PreInfo.Show 我的用戶窗體代碼: Public Sub PreInfo_Initialize() Dim Invoice, Name, Model, Crank, MyValue1, StrokeL As Variant 'Dim ListBox1 As ListBox Dim c As Range Dim oneControl As Objec