There are as much as 10 columns containing the data, I added header tha
is in Chinese for every column in the row 1, but part of those who nee
to see the worksheet can't understand Chinese, so I want to create
button like"english/chinese", whenever a user clicks the button th
language of the header can be switched to English

--
hanasam
-----------------------------------------------------------------------
hanasamo's Profile: http://www.excelforum.com/member.php...fo&userid=2534
View this thread: http://www.excelforum.com/showthread.php?threadid=39281

Hi Hanasamo,

Try something like:


Public Sub Tester03()

Dim arr As Variant

arr = Array("Header1", "Header2", "Header3", "Header4", "Header5", _
"Header6", "Header7", "Header8", "Header9", "Header10")


Range("A1").Resize(UBound(arr) + 1, 10) = arr

End Sub


---
Regards,
Norman



"hanasamo" wrote in
message ...

There are as much as 10 columns containing the data, I added header that
is in Chinese for every column in the row 1, but part of those who need
to see the worksheet can't understand Chinese, so I want to create a
button like"english/chinese", whenever a user clicks the button the
language of the header can be switched to English.


--
hanasamo
------------------------------------------------------------------------
hanasamo's Profile:
http://www.excelforum.com/member.php...o&userid=25344
View this thread: http://www.excelforum.com/showthread...hreadid=392813

Hi Hanasamo,

To correct:

Public Sub Tester03()

Dim arr As Variant

arr = Array("Header1", "Header2", "Header3", "Header4", "Header5", _
"Header6", "Header7", "Header8", "Header9", "Header10")


Range("A1").Resize(1, UBound(arr) + 1) = arr

End Sub



---
Regards,
Norman



"hanasamo" wrote in
message ...

There are as much as 10 columns containing the data, I added header that
is in Chinese for every column in the row 1, but part of those who need
to see the worksheet can't understand Chinese, so I want to create a
button like"english/chinese", whenever a user clicks the button the
language of the header can be switched to English.


--
hanasamo
------------------------------------------------------------------------
hanasamo's Profile:
http://www.excelforum.com/member.php...o&userid=25344
View this thread: http://www.excelforum.com/showthread...hreadid=392813

name 1 cell as "language"
add datavalidation in that cell
type "list"
source "chinese;english"

This will give you your dropdown.

Now the formulas..

Create a (global) defined name "bENU"
refersto : =language="english"
(via insert/names/define)


in all your "headers" put formulas like
=IF(bENU,"MyEnglish Header","My Chinese Header")

HTH..

--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


hanasamo wrote :


There are as much as 10 columns containing the data, I added header
that is in Chinese for every column in the row 1, but part of those
who need to see the worksheet can't understand Chinese, so I want to
create a button like"english/chinese", whenever a user clicks the
button the language of the header can be switched to English.