Функция Replace и знаки-операторы VBA

@prettyfly · Регистрация: 15.11.2010

Author24 — интернет-сервис помощи студентам

Хочется заменить с помощью Replace все знаки двойных кавычек(") на две одинарных('') для удобства сохранения из xls. в .txt (в первом случае добавляется еще пара кавычек)

Visual Basic

1	.Replace What:=""", Replacement:= ''"

так не получатся по той причине что ' распознается как начало комментария

@Helen_fire · 19.11.2010, 14:49

Visual Basic

1	Replace What:="""""", Replacement:=""""

@Terminators · 19.11.2010, 14:52

Visual Basic

1	Replacement:="''"

@Ципихович Эндрю · 26.11.2010, 16:42

скажите, где сожно взять полный список Chr(...) от Chr(1) до Chr(миллион)

@Terminators · 26.11.2010, 16:57

Ципихович Эндрю, откройте пустой документ Word и запустите следующий код:

Visual Basic

Sub Макрос2()
Dim vСчётчик As Long
For vСчётчик = 0 To 255
    Selection.Text = vСчётчик & "-" & Chr(vСчётчик)
    Selection.MoveRight
    Selection.TypeParagraph
Next
Selection.Sections.PageSetup.TextColumns.SetCount 3
End Sub

Максимальное число - 255.

@Ципихович Эндрю · 26.11.2010, 17:30

Умно. Самое интересное, что их 255, а не 256, и зачем нужны повторения

15-
16-
17-
18-
19-
20-
21-
22-
23-
24-
25-
26-
27-
28-
29-
Это таие квадратики, могли бы иероглифы поставить

Добавлено через 9 минут
ну да надо было счётчик с нуля ставить и было бы 256

@ironegg · 27.11.2010, 03:51

Сообщение от Ципихович Эндрю

где сожно взять полный список Chr(...) от Chr(1) до Chr(миллион)

в справке VBA поищи по запросу "ASCII" или "Character Set". посмотри также: пуск - программы - стандартные - служебные - таблица символов

@XoFfiCEr · 27.11.2010, 04:30

Visual Basic

1	.Replace What:=Chr(14), Replacement:= Chr(39)

@Helen_fire · 27.11.2010, 23:12

Сообщение от Ципихович Эндрю

скажите, где сожно взять полный список Chr(...) от Chr(1) до Chr(миллион)

В справке VBA к Excel

@Ципихович Эндрю 1386 / 528 / 66 Регистрация: 10.04.2009 Сообщений: 8,710
	26.11.2010, 16:42	4
	скажите, где сожно взять полный список Chr(...) от Chr(1) до Chr(миллион) 0

@Ципихович Эндрю 1386 / 528 / 66 Регистрация: 10.04.2009 Сообщений: 8,710
	26.11.2010, 17:30	6
	Умно. Самое интересное, что их 255, а не 256, и зачем нужны повторения 15- 16- 17- 18- 19- 20- 21- 22- 23- 24- 25- 26- 27- 28- 29- Это таие квадратики, могли бы иероглифы поставить Добавлено через 9 минут ну да надо было счётчик с нуля ставить и было бы 256 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	27.11.2010, 03:51	7
	Сообщение от Ципихович Эндрю где сожно взять полный список Chr(...) от Chr(1) до Chr(миллион) в справке VBA поищи по запросу "ASCII" или "Character Set". посмотри также: пуск - программы - стандартные - служебные - таблица символов 0

@Helen_fire 204 / 43 / 6 Регистрация: 15.10.2010 Сообщений: 125
	27.11.2010, 23:12	9
	Сообщение от Ципихович Эндрю скажите, где сожно взять полный список Chr(...) от Chr(1) до Chr(миллион) В справке VBA к Excel 0

Опции темы