VBA To Scroll Through ListBox Using Mouse Scroll Wheel

Rick I am feeling very proud at the moment since my limited vba knowledge has inspired you of making an entire new thread
with reference to my question and moreover providing your own work which is an entirely different approach but it might be
more helpful than my own solution, that actually mimics functionality already built-in at newer office versions.
Now that I think about it the only better thing in my replication is that I have made the font a little bit bigger to see ... %p lol :rolleyes:

If you don't mind I will embed the form in my addon. Is it ok with you?

Quote:

---

Originally Posted by MrBlackd

Now that I think about it the only better thing in my replication is that I have made the font a little bit bigger to see ... %p lol :rolleyes:

---

Hmm, you raise an interesting point. I have kept my monitors set to a height of 768 pixel (over the years the width has varied from 1024 to 1366 pixels) because that makes the screen more readable to me given my eyesight, but I'm guessing you, like probably the vast majority of people, use the higher resolutions available on their monitors. That, in turn, affects the display size of the UserForm I designed (more pixels means smaller pixels which means physically smaller UserForms). I might look into modifying the code in my "Go To Sheet" selector UserForm so it dynamically sizes the UserForm to the monitor's display setting. To help me in trying to do that, could you tell me what display size your monitor is set at (you should be able to get that from Windows Control Panel via its Display applet)? Also, what font size did you use for the UserForm you used in your UserForm?

Quote:

---

Originally Posted by MrBlackd

If you don't mind I will embed the form in my addon. Is it ok with you?

---

Of course I do not mind... anything I post in my sub-Forum, or in answers to any online questions (whether in this Forum or others that I volunteer at), is done so with the hope that readers may find a use for them in their own work.

Quote:

---

Originally Posted by Rick Rothstein

Hmm, you raise an interesting point. I have kept my monitors set to a height of 768 pixel (over the years the width has varied from 1024 to 1366 pixels) because that makes the screen more readable to me given my eyesight, but I'm guessing you, like probably the vast majority of people, use the higher resolutions available on their monitors. That, in turn, affects the display size of the UserForm I designed (more pixels means smaller pixels which means physically smaller UserForms). I might look into modifying the code in my "Go To Sheet" selector UserForm so it dynamically sizes the UserForm to the monitor's display setting. To help me in trying to do that, could you tell me what display size your monitor is set at (you should be able to get that from Windows Control Panel via its Display applet)? Also, what font size did you use for the UserForm you used in your UserForm?

Of course I do not mind... anything I post in my sub-Forum, or in answers to any online questions (whether in this Forum or others that I volunteer at), is done so with the hope that readers may find a use for them in their own work.

---

As you can imagine like the most of those that are dealing with vba I usually have multiple monitors, i.e. in my work laptop I have 1366x768 analysis while in the external monitor that I have plugged at work I have 1680x1050. At home I have a different monitor and the display is different (I can't tell you right now since I am at work, I will edit this post later to give you this info as well for your testing purposes...)

Also due to multiple displays I have added to the form the following code to make it appear in the display that excel is currently placed (actually I am using this code in all forms that I add ...)

Code:

---

Private Sub UserForm_Activate()
   
With Me
  .StartUpPosition = 0
  .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
  .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
End With
 
End Sub

---

I think that it would be handy to have this added in your code...

Finally I have used Tahoma 11 font in my userform listboxes and I have also changed your listboxes to this setting in order to have a consistency....
Closing (although not necessary), thanks for your permission....

Quote:

---

Originally Posted by MrBlackd

As you can imagine like the most of those that are dealing with vba I usually have multiple monitors, i.e. in my work laptop I have 1366x768 analysis while in the external monitor that I have plugged at work I have 1680x1050. At home I have a different monitor and the display is different (I can't tell you right now since I am at work, I will edit this post later to give you this info as well for your testing purposes...)

Also due to multiple displays I have added to the form the following code to make it appear in the display that excel is currently placed (actually I am using this code in all forms that I add ...)

Code:

---

Private Sub UserForm_Activate()
   
With Me
  .StartUpPosition = 0
  .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
  .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
End With
 
End Sub

---

I think that it would be handy to have this added in your code...

Finally I have used Tahoma 11 font in my userform listboxes and I have also changed your listboxes to this setting in order to have a consistency....
Closing (although not necessary), thanks for your permission....

---

Thank you so much for your suggestions... I have incorporated them into my code in the "A Neat "Go To Sheet" Selector" thread (see Message #3 in that thread for my acknowledgement to you).

I posted my suggestion to this question here: A Neat "Go To Sheet" Selector