http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FData_Type%2FTypeNameVBA/Excel/Access/Word/Data Type/TypeName - История изменений2026-04-07T13:23:54ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Data_Type/TypeName&diff=1849&oldid=prev в 16:33, 26 мая 20102010-05-26T16:33:00Z<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Data_Type/TypeName&diff=1850&oldid=prevAdmin: 1 версия2010-05-26T12:48:21Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Check the selection type==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub EnterSquareRoot4()<br />
Dim Num As Variant<br />
If TypeName(Selection) <> "Range" Then<br />
MsgBox "Select a range first."<br />
Exit Sub<br />
End If<br />
Num = InputBox("Enter a value")<br />
If Not IsNumeric(Num) Then<br />
MsgBox "You must enter a number."<br />
Exit Sub<br />
End If<br />
If Num < 0 Then<br />
MsgBox "You must enter a positive number."<br />
Exit Sub<br />
End If<br />
ActiveCell.value = Sqr(Num)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Get the type name==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Sub TestActiveControl()<br />
If TypeName(ActiveSheet) <> "Worksheet" _<br />
Or TypeName(Selection) <> "Range" Then<br />
MsgBox "You can only run this macro in a range", vbCritical<br />
Exit Sub<br />
End If<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Get the type name of an array==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub ArrayTest4()<br />
Dim intNum1 As Integer<br />
Dim intNum(1 To 10) As Integer<br />
Debug.Print "intnum1: " & TypeName(intNum1)<br />
Debug.Print "intnum: " & TypeName(intNum)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Loop all table definitions in Database==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub exaCheckTableDefs()<br />
Dim db As Database<br />
Dim tbl As TableDef<br />
Set db = CurrentDb<br />
Debug.Print db.TableDefs.Count<br />
For Each tbl In db.TableDefs<br />
Debug.Print tbl.Name & " - " & TypeName(tbl)<br />
Next<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Returning the Active Window, Inspector, or Explorer==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
"Displays a message box that states which window type is active, as long as there is an active window:<br />
Sub state()<br />
If Not TypeName(ActiveWindow) = "Nothing" Then<br />
MsgBox "An " & TypeName(ActiveWindow) & " window is active."<br />
End If<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Uses VBA"s handy TypeName function to determine the data type of the FormulaTest variable==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub hasFormula()<br />
Dim FormulaTest As Variant<br />
FormulaTest = range("A1:A2").hasFormula<br />
If TypeName(FormulaTest) = "Null" Then MsgBox "Mixed!"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Use TypeName to get the object data type==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub TypeSheet()<br />
MsgBox "This sheet is a " & TypeName(ActiveSheet)<br />
End Sub<br />
</source></div>Admin