danwagnerco

Wifey Alpha Research Threads

@WifeyAlpha on Twitter

1. Regimes & Correlations
2. Risk On/Off Bull/Bear Markets
3. The Vix
4. Normie Starter Pack
5. Piglet Pack
6. Pig Pack

danwagnerco

Lecture 1: Introduction to Research — [📝Lecture Notebooks] [▶️Video]
Lecture 2: Introduction to Python — [📝Lecture Notebooks] [▶️Video]
Lecture 3: Introduction to NumPy — [📝Lecture Notebooks] [▶️Video]
Lecture 4: Introduction to pandas — [📝Lecture Notebooks] [▶️Video]
Lecture 5: Plotting Data — [📝Lecture Notebooks] [[▶️Vide

danwagnerco

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.FormulaR1C1 = ""
End Sub

danwagnerco

'don't do this anymore:
DataBlock.SpecialCells(xlCellTypeVisible).Copy Destination:=Target.Cells(1, 1)

'instead try this:
Dim rngDestination As Range 'this should be way up at the top with all the other declarations

' ... all the other code
Set rngDestination = Target.Cells(1, 1)
DataBlock.SpecialCells(xlCellTypeVisible).Copy
rngDestination.PasteSpecial xlPasteType:=xlPasteValuesAndNumberFormats

danwagnerco

Option Explicit
Public Sub CombineManyWorkbooksIntoOneWorksheet()
    
    Dim strDirContainingFiles As String, strFile As String, _
        strFilePath As String
    Dim wbkDst As Workbook, wbkSrc As Workbook
    Dim wksDst As Worksheet, wksSrc As Worksheet
    Dim lngIdx As Long, lngSrcLastRow As Long, _
        lngSrcLastCol As Long, lngDstLastRow As Long, _
        lngDstLastCol As Long, lngDstFirstFileRow As Long

danwagnerco

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim wksLookups As Worksheet
    Dim lngFirstRow As Long, lngLastRow As Long
    
    'Get the Worksheet so we can confidently identify
    'the Range that we'll be highlighting (if need be)
    Set wksLookups = Target.Parent
    

danwagnerco

Dim dicCoolDictionary As Scripting.Dictionary
Set dicCoolDictionary = New Scripting.Dictionary
' then start assembling the dictionary

danwagnerco

Dim variable as SomeObjectType
Set variable = New SomeObjectType

danwagnerco

Dim variable as Object
Set variable = CreateObject("SomeObjectType")

danwagnerco

Option Explicit
Public Sub TestCreateGUID()

    'Dim t As Scriptlet.TypeLib <~ error, user type not defined
    'Dim t As Scriptlet.IGenScriptletTLib <~ at least compiles
    'Debug.Print t.Name <~ error, object or with block variable not set
    '                      i.e. doesn't understand t as a variable
    'Debug.Print t.GUID <~ same
    'Debug.Print t.AnyOtherListedMethodOnThisObject