Как поделиться макросом с коллегами? - Microsoft Office Excel - Страница 2

Questru · 21.01.2011, 09:39

Цитата:

Сообщение от VictorM

Перед тем как копировать, включите РУССКУЮ коавиатуру

Код:

FormulaR1C1 - не помогло.

попробуйте еще просто Formula
было как-то и такое у меня

Просто формула не помогает - после действия в ячейку вставляется формула и в ячейке отображается не результат, а сама формула. А в дальнейшем скрипт работает с привязкой к значениям в этих ячейках. А из-за того что там стоит не результат, то получается ошибка уже у меня на компе и остановка работы скрипта

kuklp · 21.01.2011, 09:48

Тогда поробуйте на всех остальных компах поотключать "Missing" библиотеки. Menu-Tools-References. Поснимайте галочки.

Questru · 21.01.2011, 10:46

Цитата:

Сообщение от kuklp

Тогда поробуйте на всех остальных компах поотключать "Missing" библиотеки. Menu-Tools-References. Поснимайте галочки.

не помогло. да у меня все теже галочки стоят и все работает...

VictorM · 21.01.2011, 11:38

Цитата:

Как поделиться макросом с коллегами

в таком случае, может и с нами поделитесь?
Вроде все уже перепробовали

Questru · 21.01.2011, 11:54

Цитата:

Сообщение от VictorM

в таком случае, может и с нами поделитесь?
Вроде все уже перепробовали

Вот макрос

Hugo121 · 21.01.2011, 12:08

В 2000 вот это не катит, поэтому не проверю:

.ThemeColor = xlThemeColorLight2
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0

Да и NEEIOEAEA(AI?(INO?(B5,1...
Но запятые точно мне лично не подходят.

Questru · 21.01.2011, 12:33

Там где кракозябры вот это стоит

Цитата:

'Zabivaem info o moldah
Cells(5, 23).FormulaLocal = "=ЕСЛИОШИБКА(ВПР(ПСТР(B5,1,10), '" & iPath & "[2011 SERK mold list_(Full).xlsx]Sheet1'!$H$3:$AE$1500,4,0),"""")"
Cells(5, 24).FormulaLocal = "=ЕСЛИ(W5="""","""",(ЕСЛИ(W5=""Impo rt"",""-"",ЕСЛИ(ВПР((ПСТР(B5,1,10)),'" & iPath & "[2011 SERK mold list_(Full).xlsx]Sheet1'!$H$3:$AE$1500,15,0)=0,""No Date"",ЕСЛИОШИБКА((ВПР((ПСТР(B5,1,1 0)),'" & iPath & "[2011 SERK mold list_(Full).xlsx]Sheet1'!$H$3:$AE$1500,15,0)),""-"")))))"
Cells(5, 25).FormulaLocal = "=ЕСЛИ(W5="""","""",(ЕСЛИ(W5=""Impo rt"",""-"",ЕСЛИ(ВПР((ПСТР(B5,1,10)),'" & iPath & "[2011 SERK mold list_(Full).xlsx]Sheet1'!$H$3:$AE$1500,16,0)=0,""No Date"",ЕСЛИОШИБКА((ВПР((ПСТР(B5,1,1 0)),'" & iPath & "[2011 SERK mold list_(Full).xlsx]Sheet1'!$H$3:$AE$1500,16,0)),""-"")))))"
Cells(5, 26).FormulaLocal = "=ЕСЛИ(W5="""","""",(ЕСЛИ(W5=""Impo rt"",""-"",ЕСЛИ(ВПР((ПСТР(B5,1,10)),'" & iPath & "[2011 SERK mold list_(Full).xlsx]Sheet1'!$H$3:$AE$1500,18,0)=0,""No Date"",ЕСЛИОШИБКА((ВПР((ПСТР(B5,1,1 0)),'" & iPath & "[2011 SERK mold list_(Full).xlsx]Sheet1'!$H$3:$AE$1500,18,0)),""-"")))))"
Cells(5, 27).FormulaLocal = "=ЕСЛИ(W5="""","""",(ЕСЛИ(W5=""Impo rt"",""-"",ЕСЛИ(ВПР((ПСТР(B5,1,10)),'" & iPath & "[2011 SERK mold list_(Full).xlsx]Sheet1'!$H$3:$AE$1500,19,0)=0,""No Date"",ЕСЛИОШИБКА((ВПР((ПСТР(B5,1,1 0)),'" & iPath & "[2011 SERK mold list_(Full).xlsx]Sheet1'!$H$3:$AE$1500,19,0)),""-"")))))"

Range("W5:AA5").Select
Selection.AutoFill Destination:=Range("W5:AA" & LastRow), Type:=xlFillValues

VictorM · 21.01.2011, 12:42

Не, что-то и у меня тормозит на этой строке...

VictorM · 21.01.2011, 12:58

Все сработало с вариантом формул от Hugo121.
см. пост 4

Questru · 21.01.2011, 15:32

Цитата:

Сообщение от VictorM

Все сработало с вариантом формул от Hugo121.
см. пост 4

С таким вариантом тогда у меня перестает работать...

21.01.2011, 09:48	#12
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Тогда поробуйте на всех остальных компах поотключать "Missing" библиотеки. Menu-Tools-References. Поснимайте галочки. mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

21.01.2011, 12:08	#16
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,170	В 2000 вот это не катит, поэтому не проверю: .ThemeColor = xlThemeColorLight2 .TintAndShade = -0.249977111117893 .PatternTintAndShade = 0 Да и NEEIOEAEA(AI?(INO?(B5,1... Но запятые точно мне лично не подходят. webmoney: E265281470651 Z422237915069 R418926282008 Последний раз редактировалось Hugo121; 21.01.2011 в 12:11.

21.01.2011, 12:42	#18
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Не, что-то и у меня тормозит на этой строке... "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499 Последний раз редактировалось VictorM; 21.01.2011 в 12:59.

21.01.2011, 12:58	#19
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Все сработало с вариантом формул от Hugo121. см. пост 4 "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как убрать галочки из Checkbox макросом	novak_26	Microsoft Office Excel	7	09.05.2018 06:12
как макросом открыть html страницу	mars56	Microsoft Office Excel	3	18.02.2010 12:58
Как макросом посчитать и отразить НДС на форме ВБА	ХочуЗнать	Microsoft Office Excel	31	25.11.2009 14:11
Как макросом скопировать столбес В в столбец F	Apostolx	Microsoft Office Excel	1	20.10.2009 16:12
Как запустить запрос макросом?	Glusch&Co	Microsoft Office Access	1	19.02.2009 15:41