airstrike

" VIM user interface
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
set so=2 " Show at least 2 lines around cursors when moving vertically
set ruler "Always show current position
set cmdheight=1 "The commandbar height

" Set backspace config
set backspace=eol,start,indent
set whichwrap+=<,>,h,l

airstrike

#========================================================================
# Description: Tokenise an Excel formula using an implementation of
#              E. W. Bachtal's algorithm, found here:
#
#                  Blog post:                https://ewbi.blogs.com/develops/2004/12/excel_formula_p.html
#                  See also:                 https://ewbi.blogs.com/develops/popular/excelformulaparsing.html
#                  Direct link to this port: http://www.ewbi.com/ewbi.develop/samples/jsport_nonEAT.py 
#
#              Originally written for Python v2.5 (win32)
#      Author: Robin Macharg

airstrike

SetCapsLockState, AlwaysOff
; The above lets you use hotkeys at the bottom end of the file on keyboards other than Anne and emulate the Fn Caps behavior
Menu, Tray, Icon, %A_WorkingDir%\anne.ico,, 1

<+J::Send, +{Left}
<+K::Send, +{Down}
<+L::Send, +{Right}
<+I::Send, +{Up}

<+#J::Send, +#{Left}

airstrike

;
; AutoHotkey Version: 1.x
; Language:       English
; Platform:       Win9x/NT
; Author:         Matt Heath <[email protected]>
;
; Script Function:
;	Remaps keys when using an Apple Keyboard with a Windows PC
;

airstrike

Option Explicit

Public Function GetIf(ByRef Rng As Range, ByVal If1 As Variant, ByVal If2 As Variant, Optional ByVal Indx As Variant) As Variant
    Dim i As Long, cell_count As Long
    cell_count = Rng.Cells.Count
    Dim Results As New Collection
    
    For i = 1 To cell_count
        If GetObject(If1, i) = GetObject(If2, i) Then Results.Add Rng.Cells(i)
    Next

airstrike

airstrike

'from http://peltiertech.com/Excel/Charts/LabelLastPoint.html
Sub LastPointLabel()
  Dim mySrs As Series
  Dim iPts As Long
  Dim bLabeled As Boolean
  If ActiveChart Is Nothing Then
    MsgBox "Select a chart and try again.", vbExclamation, "No Chart Selected"
  Else
    For Each mySrs In ActiveChart.SeriesCollection
      bLabeled = False

airstrike

Sub RemoveUnusedNumberFormats()
  Dim strOldFormat As String
  Dim strNewFormat As String
  Dim aCell As Range
  Dim sht As Worksheet
  Dim strFormats() As String
  Dim fFormatsUsed() As Boolean
  Dim i As Integer

  If ActiveWorkbook.Worksheets.Count = 0 Then

airstrike

' Latest version available at:
'    http://stackoverflow.com/questions/2449755/too-many-different-cell-formats/8933399#8933399
' Description:
'    Borrowed largely from http://www.jkp-ads.com/Articles/styles06.asp

Option Explicit

' Description:
'    This is the "driver" for the entire module.
Public Sub DropUnusedStyles()

airstrike

~+x::
if WinActive("ahk_class AcrobatSDIWindow") {
    SetKeyDelay, 15
    Send, ^+{F10}
    Send, {h}
    Send, {ESC}
    return
} else {
    return
}