Unicode string literals in VBA

by

Faking the Const by creating Private Property Get returning the string, because the string will be recreated every time I access the property (plus, is confusing and ugly… but, okay, the last two things are rather a matter of taste).

You need not recreate the string each time you access the property.

While this is still ugly as a matter of taste, make a read-only property (essentially Const, since it doesn’t have a Property Let procedure), and construct the string in the Class_Initialize event:

'## CLASS MODULE
Private pUnicodeString As String

Sub Class_Initialize()
    pUnicodeString = ChrW(22793) & ChrW(25968)
End Sub

Property Get UnicodeString() As String
    UnicodeString = pUnicodeString
End Property

And then invoke it like:

'## STANDARD MODULE
Sub Test()
Dim c As myClass
Set c = New myClass

[A1].Value = c.UnicodeString

End Sub

More Related Contents:

  1. Call a Sub with a String
  2. Print function selecting wrong Type of Change option excel vba
  3. Format Cell Contents
  4. Excel formula checklist in employees
  5. How do I put double quotes in a string in vba?
  6. What is the difference between .text, .value, and .value2?
  7. How can I URL encode a string in Excel VBA?
  8. What is the difference between “Form Controls” and “ActiveX Control” in Excel 2010?
  9. Check if the file exists using VBA
  10. How can I create a progress bar in Excel VBA?
  11. VBA rounding problem
  12. Pasting an Excel range into an email as a picture
  13. Excel VBA to Export Selected Sheets to PDF
  14. 2 ways for “ClearContents” on VBA Excel, but 1 work fine. Why? [duplicate]
  15. Excel 2013 VBA Clear All Filters macro
  16. Rounding in MS Access
  17. Count unique values in Excel
  18. Sum function in VBA
  19. Excel error 1004 “Unable to get …. property of WorksheetFunction class” appearing inconsistently
  20. Error13 in Excel VBA in data file
  21. Change font color for a part of text in cell
  22. Create a new object using the text name of the class
  23. Excel cell from which a Function is called [duplicate]
  24. How to extract text within a string of text
  25. GET pictures from a url and then rename the picture
  26. Excel VBA like operator [closed]
  27. VBA: Modify chart data range
  28. VBA Excel simple Error Handling
  29. How to do a “Save As” in vba code, saving my current Excel workbook with datestamp?
  30. How to save semi-colon delimited csv file using VBA?

Leave a Comment