Saltar al contenido

poner comillas dobles en un string en ejemplo de código vba

Bienvenido a nuestra página, en este lugar hallarás la respuesta a lo que estabas buscando.

Ejemplo 1: fórmula de Excel cómo crear cadenas que contienen comillas dobles

'The double quotation mark (") is ASCII character 34, so the 'following Excel formula works:=CHAR(34)&"Excel rocks."&CHAR(34)'This formula will display:  "Excel rocks."'Using triple double quotes has the same result:="""Excel rocks."""

Ejemplo 2: comillas dobles de Excel vba en string literal

'Including double-quote characters in VBA string literals can be confusing.'First, realize that VBA (unlike many languages) does not recognize the'apostrophe as a quotation mark. In JavaScript, for example you can simply 'do this:'	var s = 'The " is called the double-quote character.''And since the single-quote character and the double-quote character'are both recognized for quotation, there is no ambiguity for the compiler.'But VBA only recognizes the double-quote character as a quotation mark. As'a result, the following VBA would be ambiguous and WILL NOT compile:'   s = "The " is called the double-quote character."'The solution is to realize that the INTERNAL double-quote character must be 'escaped by another double-quote character:

s ="The "" is called the double-quote character."
MsgBox s    '<--displays:   The " is called the double-quote character.'Of course, the entire string literal, like all string literals, must include 'quotes both at the beginning and the end of the literal.'Some examples:
MsgBox ""'<--displays:         (Nothing... an empty string)
MsgBox " "" "'<--displays:  "      (1 quote w/1 space before and after)
MsgBox " """'<--displays:  "      (1 quote w/1 space before)
MsgBox """ "'<--displays: "       (1 quote w/1 space after)
MsgBox """"'<--displays: "       (1 quote)
MsgBox """"""'<--displays: "" 
MsgBox """"""""'<--displays: """
MsgBox """Quoted text"""'<--displays: "Quoted text"'Remeber that the very first quote and the very last are required to denote'the entire string literal. All of the INTERNAL quotes are escaped (doubled-up).'-------------------------------------------------------------------------------'Another method is to break the text into multiple string literals and'concatenate:

MsgBox """"&"Quoted text"&""""'<--displays: "Quoted text"'Or using a constant...Const Q AsString=""""
MsgBox Q &"Quoted text"& Q  			  		'<--displays: "Quoted text"'-------------------------------------------------------------------------------'Another method is to use ASCII character 34:

MsgBox Chr(34)&"Quoted text"& Chr(34)'<--displays: "Quoted text"'Or...

q = Chr(34)
MsgBox q &"Quoted text"& q  			  		'<--displays: "Quoted text"'-------------------------------------------------------------------------------'Another method is to use substitution:

MsgBox Replace("/qQuoted text/q","/q","""")'<--displays: "Quoted text"'The substitution method can really pay off if there are a lot of internal'quotation marks that need to be included in the string literal. We are 'simply replacing embedded /q with actual double-quote characters.''There is nothing special about /q. You could use a different code, but be'sure to pick something unique so that you do not unintentionally replace'inappropriate text.'''

Ejemplo 3: use “dentro de strin vba

'Method 1
Worksheets("Sheet1").Range("A1").Formula ="IF(Sheet1!A1=0,"""",Sheet1!A1)"'Method 2
Worksheets("Sheet1").Range("A1").Formula ="IF(Sheet1!A1=0,"& CHR(34)& CHR(34)&",Sheet1!A1)"

Te invitamos a amparar nuestra ocupación dejando un comentario o dejando una puntuación te damos la bienvenida.

¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)


Tags : /

Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *