Esta función se encarga de convertir un número del código ANSI(Del 0 al 255) en su carácter correspondiente.
Así por ejemplo, en el procedimiento que escribiremos en un módulo de VBA, se procederá a convertir el código ANSI ubicado en la celda A1 en su carácter correspondiente en la celda B2.
Sub f_chr()
codigo = Range("a1").Value
Range("A2").Value = Chr(codigo)
End Sub
Esta función podría emplearse también si una cadena de texto solo tuviese una relación de caracteres permitidos, se tendría en dicho caso que evaluar si cada uno de los caracteres de dicha cadena pertenecen o no a la relación de caracteres permitidos, en este caso podría usarse en combinación con otras funciones como mid u otras funciones destinadas a la manipulación de textos.
Al igual que las demás funciones esta función no solo de puede emplear desde un módulo sino también desde un formulario o algún otro elemento del explorador de proyectos.
23/03/2013 a las 11:31 pm
función ventajosa para obtener los códigos ascii y que combinado con la función asc, puede ser de gran utilidad.
07/06/2013 a las 11:53 pm
jejje este codigo me gusto desde el principio y mi saco de apuros lo comparte se utiliza chr
Sub breakit()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "La contraseña es: " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
04/10/2016 a las 12:42 pm
como pongo una palomita de aceptado en un textbox
02/03/2020 a las 8:57 am
Puedes usar estas lineas para conocer todoss los caractéres de la función Chr():
For j = 0 To 255
Debug.Print Chr(j) & " Chr(" & j & ")"
Next
Chr(0)
Chr(1)
Chr(2)
Chr(3)
Chr(4)
Chr(5)
Chr(6)
Chr(7)
Chr(8)
Chr(9)
Chr(10)
Chr(11)
Chr(12)
Chr(13)
Chr(14)
Chr(15)
Chr(16)
Chr(17)
Chr(18)
Chr(19)
Chr(20)
Chr(21)
Chr(22)
Chr(23)
Chr(24)
Chr(25)
Chr(26)
Chr(27)
Chr(28)
Chr(29)
Chr(30)
Chr(31)
Chr(32)
! Chr(33)
" Chr(34)
# Chr(35)
$ Chr(36)
% Chr(37)
& Chr(38)
' Chr(39)
( Chr(40)
) Chr(41)
* Chr(42)
+ Chr(43)
, Chr(44)
- Chr(45)
. Chr(46)
/ Chr(47)
0 Chr(48)
1 Chr(49)
2 Chr(50)
3 Chr(51)
4 Chr(52)
5 Chr(53)
6 Chr(54)
7 Chr(55)
8 Chr(56)
9 Chr(57)
: Chr(58)
; Chr(59)
Chr(62)
? Chr(63)
@ Chr(64)
A Chr(65)
B Chr(66)
C Chr(67)
D Chr(68)
E Chr(69)
F Chr(70)
G Chr(71)
H Chr(72)
I Chr(73)
J Chr(74)
K Chr(75)
L Chr(76)
M Chr(77)
N Chr(78)
O Chr(79)
P Chr(80)
Q Chr(81)
R Chr(82)
S Chr(83)
T Chr(84)
U Chr(85)
V Chr(86)
W Chr(87)
X Chr(88)
Y Chr(89)
Z Chr(90)
[ Chr(91)
\ Chr(92)
] Chr(93)
^ Chr(94)
_ Chr(95)
` Chr(96)
a Chr(97)
b Chr(98)
c Chr(99)
d Chr(100)
e Chr(101)
f Chr(102)
g Chr(103)
h Chr(104)
i Chr(105)
j Chr(106)
k Chr(107)
l Chr(108)
m Chr(109)
n Chr(110)
o Chr(111)
p Chr(112)
q Chr(113)
r Chr(114)
s Chr(115)
t Chr(116)
u Chr(117)
v Chr(118)
w Chr(119)
x Chr(120)
y Chr(121)
z Chr(122)
{ Chr(123)
| Chr(124)
} Chr(125)
~ Chr(126)
Chr(127)
€ Chr(128)
Chr(129)
‚ Chr(130)
ƒ Chr(131)
„ Chr(132)
… Chr(133)
† Chr(134)
‡ Chr(135)
ˆ Chr(136)
‰ Chr(137)
Š Chr(138)
‹ Chr(139)
Œ Chr(140)
Chr(141)
Ž Chr(142)
Chr(143)
Chr(144)
‘ Chr(145)
’ Chr(146)
“ Chr(147)
” Chr(148)
• Chr(149)
– Chr(150)
— Chr(151)
˜ Chr(152)
™ Chr(153)
š Chr(154)
› Chr(155)
œ Chr(156)
Chr(157)
ž Chr(158)
Ÿ Chr(159)
Chr(160)
¡ Chr(161)
¢ Chr(162)
£ Chr(163)
¤ Chr(164)
¥ Chr(165)
¦ Chr(166)
§ Chr(167)
¨ Chr(168)
© Chr(169)
ª Chr(170)
« Chr(171)
¬ Chr(172)
Chr(173)
® Chr(174)
¯ Chr(175)
° Chr(176)
± Chr(177)
² Chr(178)
³ Chr(179)
´ Chr(180)
µ Chr(181)
¶ Chr(182)
· Chr(183)
¸ Chr(184)
¹ Chr(185)
º Chr(186)
» Chr(187)
¼ Chr(188)
½ Chr(189)
¾ Chr(190)
¿ Chr(191)
À Chr(192)
Á Chr(193)
 Chr(194)
à Chr(195)
Ä Chr(196)
Å Chr(197)
Æ Chr(198)
Ç Chr(199)
È Chr(200)
É Chr(201)
Ê Chr(202)
Ë Chr(203)
Ì Chr(204)
Í Chr(205)
Î Chr(206)
Ï Chr(207)
Ð Chr(208)
Ñ Chr(209)
Ò Chr(210)
Ó Chr(211)
Ô Chr(212)
Õ Chr(213)
Ö Chr(214)
× Chr(215)
Ø Chr(216)
Ù Chr(217)
Ú Chr(218)
Û Chr(219)
Ü Chr(220)
Ý Chr(221)
Þ Chr(222)
ß Chr(223)
à Chr(224)
á Chr(225)
â Chr(226)
ã Chr(227)
ä Chr(228)
å Chr(229)
æ Chr(230)
ç Chr(231)
è Chr(232)
é Chr(233)
ê Chr(234)
ë Chr(235)
ì Chr(236)
í Chr(237)
î Chr(238)
ï Chr(239)
ð Chr(240)
ñ Chr(241)
ò Chr(242)
ó Chr(243)
ô Chr(244)
õ Chr(245)
ö Chr(246)
÷ Chr(247)
ø Chr(248)
ù Chr(249)
ú Chr(250)
û Chr(251)
ü Chr(252)
ý Chr(253)
þ Chr(254)
ÿ Chr(255)