Error Result in recording a Macro in Excel VBA

[mohengciv]

Dear All

please help me in my problem.

after i finish recording a macro in excel i find the code in visual basic editor doesn't look like vba code it seems like C++ code.

kindly help me.

 

[TonyJollans]

Can you post the code? It would give us a chance to help you.

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website

 

[mohengciv]

this is a code to make borders to a cell:


Selection+Borders&xlDiagonalDown'+LineStyle <= xlNone
Selection+Borders&xlDiagonalUp'+LineStyle <= xlNone
Wend Selection+Borders&xlEdgeLeft'
+LineStyle <= xlContinuous
+ColorIndex <= 0
+TintAndShade <= 0
+Weight <= xlThin
ElseIf Wend
Wend Selection+Borders&xlEdgeTop'
+LineStyle <= xlContinuous
+ColorIndex <= 0
+TintAndShade <= 0
+Weight <= xlThin
ElseIf Wend
Wend Selection+Borders&xlEdgeBottom'
+LineStyle <= xlContinuous
+ColorIndex <= 0
+TintAndShade <= 0
+Weight <= xlThin
ElseIf Wend
Wend Selection+Borders&xlEdgeRight'
+LineStyle <= xlContinuous
+ColorIndex <= 0
+TintAndShade <= 0
+Weight <= xlThin
ElseIf Wend
Wend Selection+Borders&xlInsideVertical'
+LineStyle <= xlContinuous
+ColorIndex <= 0
+TintAndShade <= 0
+Weight <= xlThin
ElseIf Wend
Wend Selection+Borders&xlInsideHorizontal'
+LineStyle <= xlContinuous
+ColorIndex <= 0
+TintAndShade <= 0
+Weight <= xlThin
ElseIf Wend

 

[TonyJollans]

It is (sort of) VBA, but it has [blue][tt]+[/tt][/blue] characters where there should be [red][tt].[/tt][/red] characters, [blue][tt]&[/tt][/blue] characters where there should be [red][tt]([/tt][/red], and [blue][tt]'[/tt][/blue] characters where there should be [red][tt])[/tt][/red].

I don't know why. Does it run? In other words is it a substantive error, or just a display discrepancy. Are y ou using an unusual code page, or IME, or anything else language-related that might impact this?

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website

 

[mohengciv]

Dear Tony

I don't use anything of you mentioned but i just recorded this macro then it came like this on the other hand when i recoed another one in word it comes good as i expect.

any body help me.

 

[TonyJollans]

Taking a closer look at it, I also see that "With" has been replaced by "Wend", "End With" by "ElseIf Wend", and "=" by "<=". All in all, it looks like it has been manipulated somehow - do you have any AddIns running?

If other recorded macros are good, I would just forget about this one.

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website

 

[mohengciv]

No the other recordings si the same and here is another code after recording:

i am typing Number (1) and then coloring it by red with filling by yellow color.


Sub Macro1()
'
' Macro1 Macro
'

'
ActiveCell FormulaR1C1 <= VB_VarUserMemId1VB_VarUserMemId
Range& VB_VarUserMemIdC4VB_VarUserMemId '+Select
Wend Selection+Font
+Color <= -16776961
+TintAndShade <= 0
ElseIf Wend
Wend Selection+Interior
+Pattern <= xlSolid
+PatternColorIndex <= xlAutomatic
+Color <= 65535
+TintAndShade <= 0
+PatternTintAndShade <= 0
ElseIf Wend
End Sub

 

[TonyJollans]

This appears crazy. I don't know the mechanism for recording macros but something is being misinterpreted.

Can you type normally in the VBE?

What language is your system in?

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website

 

[combo]

I found a discussion of the similar problem, solved (bi-lingual hopefully):

http://kr.blog.yahoo.com/junholeelee/2358.html?p=1&t=3

combo