Code: Select all
Sub ExportFile()
Dim c
Dim txtString As String
txtString = ""
For Each c In Range("rngGrid")
If c > 0 And c < 10 Then
txtString = txtString & Trim(Str(c))
Else
txtString = txtString & "."
End If
Next c
Range("txtExportString") = Str(txtString)
End Sub
Code: Select all
Sub testit()
Dim txtString As String: Let txtString = "1.2.3.4.5.6"
Let Range("A1").Value = "=" & """" & txtString & """"
' same as Let Range("A1").Value = "=" & """" & "1.2.3.4.5.6" & """"
' "=" is VBA making an = """" is VBA making a " "1.2.3.4.5.6" is VBA making a 1.2.3.4.5.6 so = and " and 1.2.3.4.5.6 and " is finally what is put in the cell which is ="1.2.3.4.5.6" as you see in the formula bar
End SubCode: Select all
Sub testitbackasvalue()
Dim txtString As String: Let txtString = "1.2.3.4.5.6"
Let Range("A1").Value = "=" & """" & txtString & """"
MsgBox Prompt:=Range("A1").Value: Debug.Print Range("A1").Value
End SubCode: Select all
slBase = " "
For lnglN = 0 To lnglBaseNumber
slBase = slBase & CStr(lnglN + 1) & " "
Next lnglN
For Each rlCell In rlAll
slCellValue = rlCell.Value
If Not IsNumeric(slCellValue) _
Or _
Len(Trim$(slCellValue)) = 0 _
Then
rlCell.Value = slBase
subSetBase rlCell
Else
subSetBigBlue rlCell
End If
Next rlCell
Yes... I'm putting that string into all cells that do not have a number in them.. unsolved, and then for example looking at a row. If any of the other cells in the row have 1-9 in them I delete that number from the from the string in the cell I'm looking at.
Code: Select all
Sub subSetBase( _
rpRange As Range _
)
subSetFontSizeAndColour rpRange
' *********************************************************************
End Sub
Sub subSetBigRed( _
rpRange As Range _
)
subSetFontSizeAndColour rpRange, 24, 255
' *********************************************************************
End Sub
Sub subSetBigBlue( _
rpRange As Range _
)
subSetFontSizeAndColour rpRange, 24, 16763904
' *********************************************************************
End Sub
Sub subSetFontSizeAndColour( _
Optional rpRange As Range = Nothing, _
Optional lngpFontSize As Long = 11, _
Optional lngpFontColour As Long = 0 _
)
' This is here solely to make the calling easier.
' For example..
' subSetBigRed
'
' ColorIndex is limited to 0-57.
'
' Normal Fill colour = -4105
' Green = 5287936
' Red = 255
' Blue = 16763904
' Ordinary black = 0
' Normal Fill
' color = 16777215
' index = -4142
' Dark Green
' color =5287936
' index = 14
' Red vbred color colorindex = 255
' vbred = 3
' index = 3
' color = 255
' Blue = 16763904
' Ordinary black = 0
'
' BOLD is set in any case.
' Font TYPE left alone. Default is usually Calibri.
'
Dim rlRange As Range
If rpRange Is Nothing Then '
Set rlRange = Selection
Else
Set rlRange = rpRange
End If
With rlRange
.Font.Size = lngpFontSize
.Font.Color = lngpFontColour
.Font.Bold = True
End With
' *********************************************************************
End Sub