userform

问题 Is it better to show ProgressBar UserForms in VBA as modal or modeless? What are the best practices for developing progress indicators in VBA? Modeless UserForms require the use of Application.Interactive = False , whereas Modal UserForms by their very nature block any interaction with the application until the core procedure has finished, or is cancelled. If Application.Interactive = False is used, however, the Esc key interrupts code execution, so the use of Application.EnableCancelKey =

问题 Write VBA code that calls a UserForm of one Excel file to all the other Excel files present in a folder called john and the master Excel (consists of the following code and the user form) is present in a different location: Private Sub Workbook_OnClick() Dim mypath As String Dim file As String Dim wb As Workbook Dim pat As String Application.ScreenUpdating = False ChDrive "C:" ChDir "C:\Users\Administrator\Desktop\John" 'john is a folder that consists of the excel files mypath = Range("B1")

问题 Are there disadvantages in putting code into a VBA Userform instead of into a "normal" module? This might be a simple question but I have not found a conclusive answer to it while searching the web and stackoverflow. Background: I am developing a Front-End Application of a database in Excel-VBA. To select different filters I have different userforms. I ask what general program design is better: (1) putting the control structure into a separate module OR (2) putting the code for the next

问题 My obstacle is trying to get multiple subs to recognize class variables. When I try to declare them globally, I get a compile error: "Invalid outside procedure". Then, when I run a public function or sub to declare the variables, they remain undefined in the other subs. I want multiple subs to recognize the variables because their values are supposed to be altered via UserForm, and then utilized in a different sub. If it could work in this manner, great, but I understand that my design could

问题 Can someone please help me. I have a userform which has a number of numeric fields. The issue is that my Total box will not calculate them as it is recognising a number as text. So for example if I was to say HE.Value (10) + ME.Value (10) for example should = 20 however is the Total is coming to 1010. and if I * it instead I am receiving an error to debug as it recognises the value as text format. I have never had this issue in a userform before. Is someone able to assist please? Thanks, 回答1:

问题 Consider the following: I have an excel userform that contains image objects that have been reduced in size. When the user hovers on an image, I would like the image to popup and display the same image but in its original size. An example of how it would work is by adding text to ControlTipText and when the cursor is hovering the image, it would display the text, but instead of text, I would like it to display the image. How it would look like The userform: When cursor hovers on the image: I

问题 I want to load some data from Access into Excel Userform ListBox. What I am doing now is creating ADODB.Connection to connect access and create ADODB.Recordset to store data, firstly. Secondly, I use Range("xx").CopyFromRecordset to copy the data to excel sheet. Thirdly, name that excel range as " ResultSet ". Fourthly, use Me.ListName.RowSource="ResultSet" to copy data from excel sheet to ListBox. As you can see, I use four steps to finish this job. Is there a way to skip step 2 and step 3,

问题 I am trying to create a userform. After I select the product code and enter the quantity, I want this code to appear in the frame as many as the number entered, and I want a TextBox to be created for entering the expiration date. You can see what ı am aiming at the pictures. This is the main structure of my user form. It must look like this after adding the product code and quantity. 回答1: Your goal is ambitious and isn't simple at all. I can give you some hints but you will have to complete

问题 I have some employee Names on column "A" and employee Numbers on column "B" in sheet1. On userform I have a combobox that shows employee names,i want when a name is selected on combobox his/her employee Number shown on a nearby txtbox and i dont know how. Me.cboNames Me.txtEmployeeNumber 回答1: Something like this maybe (assuming your data is in sheet "Employee"): Private Sub UserForm_Initialize() lLastRowEmployee = Worksheets("Employee").Cells(1, 1).End(xlDown).Row 'find las row with data For

问题 I have a userform in which user can insert data and data will insert in column B to M. I need a code, either in worksheet or in userform to auto fill serial number starting with "RD 00001" which will fill in column A everytime data has enter. Please someone give me an idea. 回答1: The code behind this is very simple and designed for you to start on a blank sheet with Row 1 being your header row. It's dynamic so essentially plug and play. Just call on the sub with whatever code you have for