ExtJs,Prototype,Jquery
Sub ConvertToUpperCase()
Dim Rng As Range
Worksheets("Sheet1").UsedRange.Select
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.value = UCase(Rng.value)
End If
Next Rng
End Sub
Private Type Location
Row As Long
Column As Long
End Type
Private Type information
DeatilID As Long
Result As String
Remark As String
FAremark As String
End Type
'Function MyFind(FindText As String, ByVal Range1 As Range) As Range
' Dim v1 As CellFormat
'' v1 = Null
' If FindText = "" Then Exit Function
'' If Range1.Columns.Count > 1 Then Exit Function
' For Each d In Range1
' If d.Value = FindText Then
' v1 = d
' Exit For
' End If
'
' Next
' MyFind = v1
'End Function
Private Function MyFind(SheetName As Worksheet, FindText As String) As Location
Dim a As Location
a.Row = 0
a.Column = 0
For i = SheetName.UsedRange.Row To SheetName.UsedRange.Rows.Count + SheetName.UsedRange.Row
For j = SheetName.UsedRange.Column To SheetName.UsedRange.columns.Count + SheetName.UsedRange.Column
If SheetName.Cells(i, j).Value = FindText Then
a.Row = i
a.Column = j
End If
Next j
Next i
MyFind = a
End Function