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...
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...
Comments
Post a Comment