ritesh code reference

 Coding Room ID -- rk.180497@gmail.com Pass - Ritesh@1804 https://app.codingrooms.com/management/courses/join-by-code/4J6slZE6 https://app.codingrooms.com/management/courses/6387/classes/8480/assignments https://replit.com/account ID - RiteshKumar144 ,  rk.180497@gmail.com Pass -  ================================================================== 1 0 0 D A Y S O F C O D E SYLLABUS BASIC Variables in Python String Manipulation Input and Print Functions Variable Naming Rules Mathematical Operations in Python DataTypes Converting types Conditionals IF/ELIF/ELSE Logical Operators Randomisation Error Handling Functions For Loops Code blocks and Indentation While Loops Flowchart Programming Positional and Keyword Arguments Python Dictionaries and Lists Nested Collections Returning Functions Return vs. Print Doc Strings vs. Comments Scope and Local/Global Variables Debugging Techniques     INTERMEDIATE       Local Development Environment Setup Py...

Option Explicit Const startrow As Byte = 10 Dim lastrow As Long Public Sub For_Next_loop_in_text()     Dim i As Long 'for looping inside each cell     Dim numfound As Long     Dim textfound As String     Dim myValue As String     Dim r As Long 'looping through each rows lastrow = Range("A" & Rows.Count).End(xlUp).Row        For r = startrow To lastrow     myValue = Range("A" & r).Value     For i = 1 To VBA.Len(myValue)        If IsNumeric(VBA.Mid(myValue, i, 1)) Then        numfound = numfound & VBA.Mid(myValue, i, 1)                ElseIf Not IsNumeric(VBA.Mid(myValue, i, 1)) Then        textfound = textfound & VBA.Mid(myValue, i, 1)        End If             Next i     Range("H" & r).Value = numfound     Range...

 Option Explicit Public Sub Count_WB_formulas_error_Handling() Dim Sh As Worksheet Dim CounterWS As Double Dim CounterGlobal As Double For Each Sh In ThisWorkbook.Worksheets     On Error GoTo Errorhandle            CounterWS = Sh.Cells.SpecialCells(xlCellTypeFormulas).Count Lable1:  CounterGlobal = CounterGlobal + CounterWS      Errorhandle:     If Err.Number = 1004 Then     CounterWS = 0     Resume Lable1     End If      Next Sh MsgBox CounterGlobal End Sub

  Private Sub myCalc(Getvalue As Double, myPercent)          Getvalue = Getvalue * myPercent     MsgBox Getvalue      End Sub Public Sub GetMyValue()     Dim myValue As Double     Dim p As Variant     'assign value and percentage from cell     myValue = Range("A8").Value     p = Range("B8").Value     Call myCalc(myValue, p)     MsgBox myValue      End Sub ========================================================================= Private Sub myCalc(Getvalue As Double, myPercent)          Getvalue = Getvalue * myPercent     MsgBox Getvalue      End Sub Public Sub GetMyValue()     Dim myValue As Double     Dim p As Variant     'assign value and percentage from cell     myValue = Range("A8").Value     p = Range("B8").Value     If Excel.WorksheetF...

 Project Activity Show top 3 value Dim myRange As Range Dim Top1 As Double, Top2 As Double, Top3 As Double Dim msg As Long On Error GoTo leave Set myRange = Application.InputBox(Prompt:="Select the range of no to get top 3 values", _ Title:="Top3..", Type:=8) If Application.WorksheetFunction.Count(myRange) > 2 Then     Top1 = Excel.WorksheetFunction.Large(myRange, 1)     Top2 = Excel.WorksheetFunction.Large(myRange, 2)     Top3 = Excel.WorksheetFunction.Large(myRange, 3)          msg = MsgBox _     (Prompt:="Here is the top three values" & vbNewLine & "Top1" _     & " " & Top1 & vbNewLine & "Top2" & " " & Top2 & _     vbNewLine & "Top3" & " " & Top3, _     Title:="Here is the Top 3 values", Buttons:=vbOKOnly) Else MsgBox "please select at least 3 cells with numbers", vbInformation leave: End If End Sub