VBA Rubberducking

If you were truly motivated you could create a deep copy function, but it would not work with generic dictionary objects. You would need to create a custom dictionary class that only accepted objects that Implemented a DeepCopy method. You could do this by having an iDeepCopy class with an empty Function DeepCopy() As iDeepCopy function. Then any objects you added to the dictionary would have to include Implements iDeepCopy in the declarations section of their class module. At that point, though, you start pushing the limits of what you can/should be doing in VBA. — mwolfe02 5 hours ago

@Mat'sMug did you see that? Makes me want to invite him to chat. =;)-

Mat's Mug

lol that reminds me of something...

RubberDuck

@mwolfe02 I don't know that I agree with your assessment that it would be pushing the limits of what can or should be done in VBA. The custom dict class sounds very reasonable to me. It depends on what OP really wants to store in the dict. Now this is pushing the limits of what can/should be done in VBA. — RubberDuck 25 secs ago

=;)-

Mat's Mug

LOL

RubberDuck

I thought you'd like that.

Mat's Mug

I do ;)

Dim accumulator As Delegate
Set accumulator = Delegate.Create("(work,value) => value & "" "" & work")

Debug.Print LinqEnumerable.FromList(List.Create("the", "quick", "brown", "fox")) _
                          .Aggregate(accumulator)

unreal

RubberDuck

2:53 AM

Yeah. It really is.

All done in pure VBA...

Mat's Mug

looking back at that... I need to continue blogging about how it got to this

RubberDuck

I need to get back to writing a bit. Been busy learning things though.

I tend to only write when I come across a cool VBA problem. I need to do the same when I'm working on other things.

Mat's Mug

3:16 AM

screw that. I need that parser up yesterday.

Duga

12:23 PM

[Zomis/test] Zomis pushed commit 0a83d667 to master

> engarde, VBA!

4

Simon André Forsberg

@Mat'sMug in the webhook configuration, change room= to roomId=

RubberDuck

1:23 PM

Hello @kapu!

Duga

1:44 PM

[Zomis/test] Zomis created branch test

RubberDuck

@Duga O! Hai there!

Chrismas007

2:27 PM

Did the font change on SO overnight?

Seriously... what happened...

RubberDuck

2:40 PM

Oh. Yeah. They had been testing the css changes on MSO for a little while. Must have finally rolled it out.

Chrismas007

292

Q: Feedback Requested: Stack Overflow design update

As you can see, Meta.SO looks a bit different today. Over the years I've gotten a lot of requests to "redesign" Stack Overflow. I've always felt SO's site design had good usability and was very functional. However, I did and do agree, aesthetically, it could use some polish. Today's new Meta the...

RubberDuck

@Chrismas007 Yup. That one.

Mat's Mug

@SimonAndréForsberg webhook updated, thanks!

Duga

[retailcoder/Rubberduck] ckuhn203 commented on issue #115: Testing Duga

> Is Duga back yet?

RubberDuck

Awesome.

Duga

2:46 PM

[ckuhn203/VBEX] ckuhn203 commented on issue #14: Testing Duga

> Now, let's see if VBEX shows up.

RubberDuck

Man, I wish all SO questions looked like this. — RubberDuck 52 secs ago

Chrismas007

@Chrismas007 you should notice there's something in my event that would create an infinite loop if I did that. — ComputerNerd3579617 2 hours ago

Well maybe that is your problem then...

Mat's Mug

lol

RubberDuck

3:06 PM

Random checky on a question I probably should have flag for closure.....

0

A: Print a Custom doc property

You need to call CustomDocumentProperties with a string. You forgot the quotes. PropVal = ActiveDocument.CustomDocumentProperties("MasterTime").Value

smh

245 points from close voting privileges though. =)

Ugh.... motivation levels nil. Need to make changes to this process and all I want to do is play with C#.

Malachi

in VB can I do this

For Dim i = Number To 5 Step 1

or do I have to declare the variable elsewhere?

RubberDuck

.net or vbscript?

Malachi

VBA

RubberDuck

I think the dim has to be on it's own line. checking now.

separate line

Mat's Mug

no you can't

RubberDuck

3:11 PM

But I think you can do it in .net.

Pretty sure I've seen that....

Malachi

FTR I think VBA, VBScript and VB.NET should all be the same. don't call them VB if they aren't the same!

Mat's Mug

yeah VB.net is awkward like that

Malachi

@Mat'sMug Awkward?

that is how it should be, a local variable only used for looping

Mat's Mug

yes, awkward. it tries to .netify a COM language, and makes it look like C# with a VBA syntax. awkward.

Malachi

I see what you are saying.

VB.NET is Awkward

Mat's Mug

3:13 PM

in VBA a variable is local if it's declared in a procedure. there's no smaller scope.

YES

RubberDuck

VB# FTW

Any idea how often I write code like this now?

Dim i As SomeThing;

Or

Mat's Mug

lol

RubberDuck

For i = 0 To 100
{
    'fml
}

Mat's Mug

I often do this:

If (condition) Then

RubberDuck

All the damn time....

Or, alternatively this

Malachi

3:17 PM

quick before I get down votes

0

A: Modifying excel code to speed up the process

Formatting the code can help when you are trying to look at the bigger picture, so I suggest that you start with making sure that your code is much, much more readable, this will help you discover other things that you can change to make this code more efficient, let's just start with the formatt...

RubberDuck

if condition
{

Malachi

oh sorry @RubberDuck

RubberDuck

lol no worries.

I'm about ready to flag that one for migration....

Chrismas007

@RubberDuck So now you want to migrate it? :P

@RubberDuck My migration flag got declined... :(

Mat's Mug

2nd sub is missing an End Sub

RubberDuck

3:19 PM

@Chrismas007 Seems it wants to be migrated.

Mat's Mug

and @Malachi's answer is so not SO-like...

RubberDuck

The answers look acceptable here too.

Malachi

@Mat'sMug I noted that in my answer

Mat's Mug

eh, napalm'd

Malachi

@RubberDuck you invalidate part of my answer....lol JK

Chrismas007

3:22 PM

0

Q: Exception When trying to execute a R script in java using Renjin

I created a R Script "script.R" df <- data.frame(x=1:10, y=(1:10)+rnorm(n=10)) print(df) print(lm(y ~ x, df)) Tried to invoke using renjin in Java as engine.eval(new FileReader("src/javaSrc/script.R")); Got the following Exception: Exception in thread "main" java.lang.NoSuchMethodError: or...

java r renjin

Go look at the character before the at

in the error

Malachi

Hey this is a VBA room!

Chrismas007

Is that a TAB Character?

@Malachi No... not my point

Malachi

lol

I was messing with you

Chrismas007

Didn't think we could have tab characters? Hasn't that been a sticking point before in meta?

RubberDuck

@Mat'sMug Fixed and made the question more in line with CR (but still acceptable for SO). We'll see what happens.

Malachi

3:27 PM

I flagged it for Migration as well @RubberDucky

@RubberDucky
Rubber Duckie you're the one,
You make bathtime lots of fun,
Rubber Duckie I'm awfully fond of you
Vo-vo-dee-o!

Rubber Duckie, joy of joys,
When I squeeze you, you make noise,
Rubber Duckie you're my very best friend it's true.

Oh, every day when I, make my way to the tubby
I find a little fellow who's cute and yellow and chubby!
Rub-a-dub-dubby!

Rubber Duckie you're so fine,
And I'm lucky that you're mine,
Rubber Duckie, I'd love a whole pond of,
Rubber Duckie, I'm awfully fond of you!

sorry I couldn't help it

RubberDuck

Growing up is realizing that Burt & Ernie are gay, not just roommates.

Stack Exchange

2

Q: Modifying excel code to speed up the process

I'm currently trying to create a macro, to edit a document that is around 280k rows and 12 columns. For the first steps I found a macro to delete the rows I don't want based on certain criteria, but the code repeats itself a lot. Every time I run it, I change the criteria and link the macros. A...

excel vba macros

RubberDuck

@StackExchange Burnt that macros tag.

Killed it with fire I did.

Chrismas007

3:43 PM

@StackExchange I want my flag reversed...

Mat's Mug

@StackExchange re-napalm'd

Chrismas007

Mat's Mug

aw

RubberDuck

@Chrismas007 Sorry, my comment probably stopped it.

If anyone feels like reviewing some .net

2

Q: Optimize multiple ifs (big case)

I have a list of tasks I get from my database (as strings) and then execute. However I'm uncertain on how to implement this correctly. Currently I have implemented this in the following way: Private Sub Monitoring(installationCode As String, drive As String, syncFolder As String) Initia...

design-patterns .net conditions vb.net

Stack Exchange

0

Q: Improving the code

This code is working fine, but it looks awful (yes, I am a rookie on this thing). How can I improve it to look better? Private Sub Worksheet_Change(ByVal Target As Range) 'Conditional Formatting Application.ScreenUpdating = False If Target.Column > 6 And Target.Column < 8 And (Target.Value = ...

excel vba macros

RubberDuck

3:53 PM

@StackExchange Let's just fix that up a little bit.

1

Q: Copy Cell on Worksheet_Change event if some criteria is met

This code is working fine, but it looks awful (yes, I am a rookie on this thing). How can I improve it to look better? Private Sub Worksheet_Change(ByVal Target As Range) 'Conditional Formatting Application.ScreenUpdating = False If Target.Column > 6 And Target.Column < 8 And (Target.Value = ...

vba event-handling excel

Chrismas007

4:06 PM

2

Q: Rules on Migration to Code Review

The following Stack Overflow question, Modifying excel code to speed up the process was just migrated over to Code Review. When it was first posted 23ish hours before it was migrated, I read it over and thought it would be a good candidate for migration. The user is basically asking for a way t...

discussion migration codereview-se

Chrismas007

4:22 PM

@ChrisF Is it possible that some vba users feel that SO is getting to cluttered with bad questions so if we are active on SO, we are looking to be more judicial in the question being on-topic? Getting it out of the queue of unanswered where I am active might be more important to some than being active at the destination (as long as the destination is valid). — Chrismas007 23 secs ago

RubberDuck

4:37 PM

Like operator FTW

0

A: Copy Cell on Worksheet_Change event if some criteria is met

Indent everything one level inside of the Sub...End Sub block. Go one more inside of If blocks and loops. Private Sub Worksheet_Change(ByVal Target As Range) ' all code starts at this level of indentation If condition Then ' one more level End If End Sub There shouldn't ...

Chrismas007

4:49 PM

@RubberDuck You used Like in the first one but not the second one?

RubberDuck

@Chrismas007 Thanks! I fixed it.

Chrismas007

5:22 PM

@RubberDuck "Who reviews the reviewers?" :-D

RubberDuck

More reviewers!

Chrismas007

6:06 PM

I feel like I just saw this code yesterday... — Chrismas007 1 min ago

Chrismas007

6:24 PM

@ticker is asking someone to write code on topic for Super User?

RubberDuck

@Chrismas007 I guess so. I saw someone the other day saying that "Super User is not a code writing service. Please try before.. blah blah blah".

Just like I've seen on SO a bazillion times.

Mat's Mug

6:40 PM

overkill

RubberDuck

++

I think that's the reason I prefer answering VBA questions on CR. It's an opportunity to teach people how to fish instead of just giving them a tasty trout.

Mat's Mug

7:29 PM

and OP accepted the unvoted other answer. oh well.

Thank you, this led me to finding the issue. It turned out to be when I changed the name of the text boxes, I didn't change it in the initialize sequence. Strength.Value = 0 should have been StrengthTextBox.Value = 0, which i don't think you could have known without seeing the properties for the userform. But you just saved me a lot of aggravation. Thank you so much — Miksoko 39 mins ago

I thought I mentioned that...

and Option Explicit FTW

Duga

7:52 PM

[retailcoder/Rubberduck] mwolfe02 forked us into mwolfe02/Rubberduck

Mat's Mug

@Duga no shit! awesome!

@RubberDuck traffic is pretty nice, too - getting referrals from Google now! github.com/retailcoder/Rubberduck/graphs/traffic

RubberDuck

@Duga Woah. Seriously?

Mat's Mug

huh.. forks count went from 3 to 4, to 3... wtf?

RubberDuck

mwolfe02 must have deleted his fork.

Mat's Mug

aw

RubberDuck

7:58 PM

github.com/retailcoder/Rubberduck/network

Duga

8:16 PM

[retailcoder/Rubberduck] Chrismas007 starred us

3

Mat's Mug

@Chrismas007 thanks!

RubberDuck

8:38 PM

Okay. This one's driving me crazy. It's got a terrible bug, but I don't know how to fix it.

3

Q: Join two collections by date with no duplicate

Data I have 4 Collection objects of the following kind: dates1=(12/01/02, 15/01/03, 17/01/03, 25/04/04...) dates2=(15/02/02, 17/06/07, 10/05/10, ...) numbers1 = (3,5,2,7,...) numbers2 = (1,-3,-1,...) The rules of the game are: dates1 will always have the same length of numbers1, dates2 will...

algorithm datetime vba

> You've got a pretty big bug here. You don't actually end up with unique items in your final list. In fact, with the sample data you gave, 1/15/14 ends up in the final output twice. You should be entering that Else block, but you're not. This is because you're not comparing what's already stored in datesTot to that value in dates2, you're comparing it to what is at the current index of dates1.

My first thought was to suggest a type to get away from the parallel collections, but it doesn't seem you can pass a type to a collection.

Chrismas007

@RubberDuck Not to stir the pot but possibly migrate to SO or even Programming Puzzling?

RubberDuck

I'd rather find a way to fix the bug.

Mat's Mug

I don't see how PPCG will ever accept migrations. Anyone tried just posting a question there? it seems like they have a meta-discussion about every single post that ends up on the main site...

Chrismas007

@RubberDuck Are you still trying to figure out a way to solve his problem? or Debug is code? Because I think I have a different solution to solve his original problem

RubberDuck

@Mat'sMug Dude, I've tried to post questions there. Eff those guys.

Chrismas007

8:47 PM

Have 4 arrays. Then check for dups by looping though DataA Array, if dups are found pass that loop number to the Number arrays to add the values together and combine the non-dupes into the final array as the loop progresses.

Mat's Mug

@RubberDuck yeah that

> I have been trying to figure out a solution, even thought of using a class module somehow?

ish

Phrancis

9:02 PM

    1+⌈/+/2≠/∘.≤⍨ ¯1 3 1 ¯2 5 2 3 4
6

~~Programming~~ Code Golfing

I frankly don't see the point.

Chrismas007

:19576869
Something like this to get the dupes out:

    For i = 1 to Date1Index.Count
        For j = 1 to Date2Index.Count
            If Date1(i) = Date2(j) Then
                numbersTot.Add (numbers1(i) + numbers2(j))
                DateTot.Add Date1(i)
                'Date1.Remove/Delete? Date1(i)
                'Date2.Remove/Delete? Date2(j)
                'numbers1.Remove/Delete? numbers1(i)
                'numbers2.Remove/Delete? numbers2(j)
            End If
        Next j
    Next i

@RubberDuck My code was a reply to this.

RubberDuck

@Chrismas007 Yeah. Something like that, but that's a nightmare with the parallel collections...

Chrismas007

@RubberDuck Isn't he saying the parallel collections will always match up (array number)?

RubberDuck

That's a big if.

Duga

9:23 PM

[ckuhn203/VBEX] ckuhn203 opened issue #15: Add Join method to Enumerable

[ckuhn203/VBEX] ckuhn203 assigned ckuhn203 to issue #15: Add Join method to Enumerable

RubberDuck

Meh. As good as it's going to get.

RubberDuck

10:06 PM

dictionary-ftw

0

A: Join two collections by date with no duplicate

You've got a pretty big bug here. You don't actually end up with unique items in your final list. In fact, with the sample data you gave, 1/15/14 ends up in the final output twice. You should be entering that Else block, but you're not. This is because you're not comparing what's already stored i...

Mat's Mug

10:20 PM

@RubberDuck tss.. I'd have gone with a Delegate and an LinqEnumerable.Aggregate call ;)

RubberDuck

10:38 PM

I didn't have that code quite handy. I wanted to tell him to go clone VBEX, but Enumerable doesn't have a Join method yet.

Which also got me to thinking. I need to create an IComparer and an IKeyValuePair for that project.

Transcript for