As a Rubberduck and OOP newbie I'm still learning how to use the software and take advantage of the programming techniques
First time I saw about folder annotations (https://github.com/rubberduck-vba/Rubberduck/wiki/Using-@Folder-Annotations) it was quite intuitive how it worked.
But then came ...
I have a code that turns all comments size to autosize, however as I have quite a few cells with comments, this code runs a little slow, to the point where it will become non responsive for awhile.
Sub AutoSizeComments()
Dim c as range, ws as worksheet
Set ws = ActiveSheet
'Loop th...
I want to manage the Excel Styles in a more flexible way with bulk actions and at the same time improve my newly acquired OOP concepts.
Objectives:
Load the current Styles list (name and type=builtin or custom) in an Excel Structured Table (ListObject)
Allow users to:
Delete
Duplicate (creat...
e.g. if there's annotation but no attribute, then add attribute. If there's attribute but no annotation, then add annotation (or was it remove the annotation?)
How 'bout Adjust attribute annotation becomes Remove annotation from code text and Adjust attribute values(s) becomes Add (hidden) annotation to code (hrm... that's not quite as clear...)
In that case, @this, it could just say Adjust and let the duck figure out what needs to be done. "Adjust" is vague...
How 'bout: Remove visible annotation from code and Set flag based on annotation
Adjust annotation changes the annotation to bring the annotation and attribute into sync and Adjust attribute achieves the same by changing the attribute valu(s).
maybe the problem (i.e. lack of complete clarity) is that the error is "they're not in sync". Maybe if that was more specific: There's an annotation but no attribute or There's an attribute but no annotation or There's an annotation and an attribute, but they don't match
I dunno. I'm think of it from the perspective of the guy who's just learning about all this and doesn't yet have them completely groked and committed to memory.
I dunno... maybe because I've had my head in SQL all morning, not VBA - the sudden switch may have been too much of a shock to the brain so it's not all that clear. I do know that I really have to think about those 2 quick-fixes to really make sure that I'm selecting the right one when I do use them...
As our resident Canadian, @MathieuGuindon, you'll find this amusing. (least, I think you will)
I just received an email from the "Public Affairs Officer, Garrison Petawawa Canadian Armed Forces / Department of National Defence" about their email bingo game to raise funds for Eastern Ontario United Way
I'm not now, nor have I ever been in the Canadian military, so I'm not entirely sure why they have my email address...
The grand prize is 62 Canadian dollars, so maybe I should just play. If I win, I could take the spouse out for a chicken dinner!
Oddly, almost all the addresses in the To: list (no, they didn't BCC everyone for security, that would be obvious) are all @forces.gc.ca email addresses. There are a few gmail.com, hotmail.com and yahoo.com` addresses scattered in.
If this is truly spam, it's got to be one of the best crafted spam messages in the history of the internet. None of the horrible misspellings or terrible grammar, no pleas for urgent action, no clickable links beyond the senders email address in the signature (in English and French, of course).
and a complete set of BINGO numbers to get my card started!
Sigma Xi has [email protected] in their database. Somewhere along the lines, the periods are getting removed and I'm getting the mail. I know that's a legit organization, so I've unsubscribed several times (which isn't working) and I've emailed several of their "contact us" links, though none are really in a technical area. I'm still getting them.
> **Rubberduck version information** Version 2.4.1.4627 OS: Microsoft Windows NT 10.0.18362.0, x64 Host Product: Microsoft Office x86 Host Version: 16.0.11328.20438 Host Executable: MSACCESS.EXE
@MathieuGuindon @this TBF it's probably something organized by the "family relations committee" (or something similar). My son's in the US Army and every post has all sorts of stuff like that they put on to help make it a bit easier on the families. It's not shocking to see non-DOD email addresses, since often times spouses are on the list.
If I have an int Identity(1,1) column in my table, I know that I cannot insert values into it (without specifically enabling that). When I do an INSERT INTO that table, if I'm providing values for all the other columns, do I need to specify the columns, or can I simply use the implicit *?
Whether or not I should specify columns out of completeness/OCD/whatever isn't the question
This is an initial population of configuration tables, so I should be good to go. I just wanted to be sure that I didn't have to specify column names since I've already written about 40 inserts w/o them...
I'll do so as I move forward, but these are a large group of individual INSERT each with different sets of data and looking things up in other tables. I could go back to paste the columns in, just don't wanna if it's not required
even in an administrative script, it's not foolproof (esp. if you need to repeat it for a different database, whatever). A shortcut I use is to use Script As -> INSERT, delete the VALUES part, then use Script As -> SELECT and paste it then remove the identity & rowversion, then done.
wait, I don't think you can even implicitly * if your table has either identity or rowversion since the * will include them and backfire.
Turns out this was user error (DERP) on my part, I had assumed that the parser had completed but it was stuck at pending. Once I clicked it to refresh everything works as it should.
I think, to support the LSP thing, we should think about splitting Parsing into a piece for the symbols and one for the engine, possibly with the (actually not so large) parsing API extracted as well.
This would be so helpful. Just yesterday and today, I opened my Excel1 (initialized RD), - then Excel2 (1. parse), - then I deleted 2 modules (2. parse), - 1 userForm (3. parse), - then worksheet (4. parse) - then I copied worksheet from Excel2 into Excel1 (5. parse) - then I closed Excel2 (6. parse)
I know I can do this before I click on "Pending..." but if I'm in the middle of work and my parse takes 40 seconds, I don't want to reopen Excel.
Small checkbox "Auto-Parse" would be good. Until it's fast enough.
if we put that behavior behind a toggle-switch, what power users gain in performance will be vastly outweighted by new users losing code and (rightfully) blaming RD for it
the solution is to do things faster and smarter, not to stop doing these things
most excellent! In SSMS, when you split the pane to view 2 different parts of your code, Ctrl-Shift-Up and Ctrl-Shift-Down will jump you from split to split!
someone was complaining that 16-bit to 32-bit transition was transparent but I don't think that's correct. Hence my question.
It might have been less painful in comparison to 32-bit to 64-bit but certainly not transparent as I'm pretty sure all pointers had to be declared as Integers back then.
uh, how does one lights up the Implement Interface refactoring again?
I know that COALESCE will take the first non-NULL value from the list provided. Is there a similar function to COALESCE(ColA, ColB), where if ColA is NULL, have it return Fixed Text instead of the actual value of ColB, or is that some code/write your own function?
@this As far as I remember from Raymond Chen's book, when they did the move to 32 bits, they retained all old APIs and used dword for everything 32bit and just word for 16bit.
Is the default member access inspection correct? bar = fooSheet.Cells(inputRow, inputColumn).Value2 is coming up as a result. I'm not using the Excel.Range._Default member since I'm explicitly using the Value2 member. What am I missing?
In my ignorance, I did write a routine to convert a number into a letter for accessing the column. It really chafes me that I had to do it myself when it should have been provided by Excel OM.
Regarding a For Each cell in FooBarArea depending on how FooBarArea is originally set that determines whether it's looping through each Range.Row, Range.Column, or Range.Cells?
If it comes from someRange.Columns, it will iterate over the columns, for someRange.Rowsover the rows, both times only over the first area, and for someRange.Cells`over all individual cells.
Quite enlightening if you're not expecting that. So many times I've done set foo = BarSheet.Range("A1:D15") without realizing implicitly .Cells was part of the For Each loop.
When the methods are only private, i is OK, because you will probably not produce bad ranges in your own code in the module, but for public ones, it might make sense to guard against it.
Well, thinking about this strange behaviour of Range I think one understands why there is the L in SOLID.
The most stupid thing about this mess is that supplying both arguments to Item for a range obtained via Columns actually causes an error.
Public Sub TestingVariousRanges()
Dim sourceArea As Range
Set sourceArea = Sheet1.Range("A1:J7")
Dim rowRange As Range
Set rowRange = sourceArea.Rows
Dim columnRange As Range
Set columnRange = sourceArea.Columns
Dim cellsRange As Range
Set cellsRange = sourceArea.Cells
PrintNthItem rowRange, 1
PrintNthItem columnRange, 1
PrintNthItem cellsRange, 1
End Sub
Private Sub PrintNthItem(ByVal printRange As Range, ByVal NthItem As Long)
Debug.Print printRange.Item(NthItem).Address
@M.Doerner ^ That returned the results I was expecting. Thanks for this enligtenment.
That's the behavior I've always seen. And sort of expect now that I'm thinking about it.
Public Sub ButWhy()
Dim sourceArea As Range
Set sourceArea = Application.Union(Sheet1.Range("B2:C3"), Sheet1.Range("Z14:AA15"))
Debug.Print sourceArea.Item(6).Address & "|" & sourceArea.Areas(1).Item(6).Address
Dim cell As Range
For Each cell In sourceArea
Debug.Print cell.Address
Next
End Sub
mumble mumble :shrug: is best I can offer.
Storing a rowRange/columnRange in another range object causes it to be a cellsRange.
Enum RangeType
NotSet
RowRangeType
ColumnRangeType
CellsRangeType
MultiAreaType
End Enum
Public Sub TestingVariousRanges()
Dim unsetArea As Range
Debug.Print DetermineRangeType(unsetArea)
Dim singleArea As Range
Set singleArea = Sheet1.Range("A1:J7")
Dim rowRange As Range
Set rowRange = singleArea.Rows
Dim columnRange As Range
Set columnRange = singleArea.Columns
Dim cellsRange As Range
Set cellsRange = singleArea.Cells
Debug.Print DetermineRangeType(rowRange)
@M.Doerner ^ if that helps you with any of your checking.
You've now made me paranoid to trust any Range objects without explicitly adding .Rows | .Columns | .Cells.
As a Rubberduck and OOP newbie I'm still learning how to use the software and take advantage of the programming techniques
First time I saw about folder annotations (https://github.com/rubberduck-vba/Rubberduck/wiki/Using-@Folder-Annotations) it was quite intuitive how it worked.
But then came ...
I have a code that turns all comments size to autosize, however as I have quite a few cells with comments, this code runs a little slow, to the point where it will become non responsive for awhile.
Sub AutoSizeComments()
Dim c as range, ws as worksheet
Set ws = ActiveSheet
'Loop th...
VBA Rubberducking
VBA Rubberducking