VBA Robot

README.md

@@ -1,5 +1,5 @@
 # XLKitLearn
-## Version: 11.01
+## Version: 11.02
 <!-- DO ***NOT*** EDIT ANYTHING ABOVE THIS LINE, INCLUDING THIS COMMENT -->
 
 This repo contains the latest version of [XLKitLearn](https://www.xlkitlearn.com). Please see the website for authorship, license, installation, and usage information - this repo provides information for those interested in seeing the add-in's code and/or contributing to it.

docs/index.html

@@ -71,7 +71,7 @@
         </div>
         <h1>Welcome to XLKitLearn!</h1>
         <!-- Important - do not edit the line below - it is automatically modified by the push script -->
-<h2>Latest Version: 11.01</h2>
+<h2>Latest Version: 11.02</h2>
         <!-- Important - do not edit the line above -->
 
         <p>XLKitLearn was designed to teach machine learning to non-technical students without the distraction of code - it exposes the power of <a href="https://scikit-learn.org/stable/">scikit-learn</a> through Excel, and works on PC and Mac computers. This page contains installation instructions - for more background, demos, and pedagogical notes, click on "more info" below.</p>

~VBA Code/frm_file

@@ -24,8 +24,8 @@ private sub lst_files_dblclick(byval cancel as msforms.returnboolean)
 end sub
 
 private sub userform_activate()
-    lst_files.width = me.width - 99
-    lst_files.height = me.height - 97
+    lst_files.width = me.width - 21.1
+    lst_files.height = me.height - 54.1
 end sub
 
 private sub userform_initialize()

~VBA Code/frm_pred

@@ -571,12 +571,9 @@ public sub validate_parameters_pred()
         if header_errors.count > 0 then
             lbl_training_data.width = formula_width_small
             lbl_training_data.controltiptext = t_bad_headers
-            lbl_training_data.backcolor = red
 
-            lbl_training_errors.backcolor = red
             lbl_training_errors.visible = true
 
-            pred_errors = true
         end if
     end if
 

~VBA Code/mdl_dev

@@ -107,6 +107,9 @@ public sub prepare_for_prod()
     ' hide the sheets, etc...
     check_debug_mode
 
+    ' select email box
+    activeworkbook.sheets("add-in").range("f17").select
+
     ' end
     msgbox "please immediately save and close the workbook", vbinformation
 end sub

~VBA Code/mdl_form_utils

@@ -530,6 +530,12 @@ public function validate_formula(formula_text as string) as string
                 this_term = split(formula_parts(j) & " ", "(")
                 this_term = split(this_term(ubound(this_term)), ")")(0)
 
+                ' if there is a comma inside the parentheses, assume it's a function with many
+                ' arguments and only take the first argument
+                if instr(1, this_term, ",") > 0 then
+                    this_term = split(this_term, ",")(0)
+                end if
+
                 ' if we have interaction terms, split them out
                 this_term = split(this_term, "*")