josephlei

Sub PHONECLEAN()
    Dim rngActiveRange As Excel.Range
    Set rngActiveRange = Selection
    rngActiveRange.Select
    
    ' REMOVE ALL NON-NUMERICAL CHARACTERS
    Selection.Replace What:=".", Replacement:=""
    Selection.Replace What:="-", Replacement:=""
    Selection.Replace What:=" ", Replacement:=""
    Selection.Replace What:="(", Replacement:=""

josephlei

Sub COMMA()
    Selection.NumberFormat = "#,###;[RED]-#,###;0"
    Selection.HorizontalAlignment = xlLeft
End Sub

josephlei

OPTIONS NOMPRINT MCOMPILENOTE=ALL NOSYMBOLGEN NOMLOGIC;

DATA SASUSER.COUNTY_SAWS_REF;
LENGTH COUNTY $13 SAWS $3;
INFILE DATALINES DSD DLM=",";
INPUT COUNTY $ SAWS $;
DATALINES;
ALAMEDA,CW
ALPINE,CIV
AMADOR,CIV

josephlei

*MODIFY THESE GLOBAL OPTIONS AS NEEDED FOR DEBUGGING;
OPTIONS NOMLOGIC NOSYMBOLGEN NOMPRINT;

/***************************************************
CALL/INVOKE MACRO AFTER COMPILATION AS SHOWN HERE;

SYNTAX: %UPCASEALL(LIBRARY_REFERENCE, DATASET_NAME);
EXAMPLE: %UPCASEALL(WORK,_PRODSAVAIL);

***************************************************/

josephlei

#########################################
# Lesson 1 - R Basics
#
# Learning Objectives
# 1. R Data Types
# 2. Indexing
# 3. Boolean Logic and Filtering
# 4. Importing/Exporting
# 5. The R Environment
#########################################