New Page 1

Xem bai viet bang font Unicode

PCWorld VN

Hi: Ti c mt s bng tnh trong Excel v  ci mt m cho mi bng tnh. Nhng ti li qun mt on m nn khng ti no m c ti liu. Hi c cch g m c tp bng tnh ny khng?

Tr li: V nguyn tc, nu bn  qun (hay khng bit) password ca mt file bng tnh (hay bt k file d liu c password no) th bn khng th truy xut c n. Tuy nhin, nu bng tnh ca bn do Excel 5.0 to ra th bn c th nh Excel 97 m li c d bn  qun password.

Hi: Trong Excel, em c bit nhng hm tm kim v sp xp nh: Vlookup, Hlookup, Lookup, nhng nhng hm ny ch tm kim gi tr khi  c sp xp theo th t tng dn mi cho kt qu chnh xc. Nay em mun bit c cch no lm cho s sp xp bt k vn cho c kt qu tr v tng ng vi tr cn tm chnh xc khng?

Tr li: Hai hm Vlookup v Hlookup cho php tm kim chnh xc ni dung trong mt bng c th t hay khng c th t, ty thuc vo tr thng s c truyn cho n. Th d hm Vlookup c header nh sau:

VLOOKUP (lookup_value, table_array, col_index_num, range_lookup)

Nu bn cn tra trong bng c th t tng dn th bn thit lp thng s range_lookup = TRUE, ngc li nu mun tra trong bng khng c th t th bn thit lp thng s range_lookup = FALSE.

Lu  rng khc vi 2 hm Vlookup v Hlookup, hm Lookup khng c kh nng tm kim trn bng khng c th t. Mt khc nu bn mun t vit cho mnh cc hm tm kim, bn c th dng ngn ng VBA  vit macro th hin hm mong mun.

Hi: Trong Excel, khi m mt bng tnh, c mt s ct khng hin ra trn mn hnh mc d cc cng thc c trong bng tnh u c cha gi tr ca ct  v hng tng ng. Em lm theo mi cch nhng vn khng th no cho ct  xut hin tr li, vy c cch no lm chng xut hin li?

Tr li: Trong Excel, bn c th du mt hay nhiu ct ca bng tnh bng cch chn chng ri thi hnh chc nng Format/ Column/ Hide.  giu cc ct ny, Excel ch lm ng tc rt n gin: thit lp  rng ca chng bng 0. Do   giu cc ct, bn cng c th thit lp trc tip  rng ca chng v 0. Nu mun hin th li cc ct b n, bn c th dng mt trong 2 cch sau :

- Chn cc ct tri v phi ca mt hay nhiu ct b du, thc hin lnh Format/ Column/ Unhide.

- Chn cc ct tri v phi ca mt hay nhiu ct b du, thc hin lnh Format/ Column/ Width ri nhp mt gi tr khc khng (th d nh 10).

Hi: Phng php  vit mt hm ring trong bng tnh Excel 97? Em mun c 1 hm dch s sang ch hoc lm bng hnh thc no   dch c. Th d: S 1.250 dch thnh mt ngn hai trm nm mi ng?

Tr li: Trong bng tnh Excel 97, bn c th dng macro  vit mt hay nhiu hm ring cho mnh, sau  gn macro cn chy vi t hp phm hay vi mt nt no . Macro trong Excel 97 l mt th tc (subroutine) c vit bng ngn ng Visual Basic for Applications. Th d sau l macro chuyn gi tr s ca  ang chn sang dng chui k t ri hin th chui ny trong mt khung hi thoi.

 Khai bao du lieu

Dim chuso(1 To 10) As String

Dim chu_cach(1 To 4) As String

Dim socandich As Long

 Macro doi so sang trang chu

Sub doiso_chu()

Dim ketqua As String

Dim socandoi As Long

Khoidongthongso

socandoi = Int(ActiveCell.Value)  Lay phan nguyen

ketqua = str(socandoi) + " duoc doc la : " + so2chu(socandoi)

MsgBox (ketqua)

End Sub



 Khoi dong cac trang du lieu chu duoc dung trong chuong trinh



Private Sub Khoidongthongso()

chu_cach(1) = "ty"

chu_cach(2) = "ngan"

chu_cach(3) = "trieu"

chuso(1) = "mot"

chuso(2) = "hai"

chuso(3) = "ba"

chuso(4) = "bon"

chuso(5) = "nam"

chuso(6) = "sau"

chuso(7) = "bay"

chuso(8) = "tm"

chuso(9) = "chin"

End Sub



 Ham doi mot so co toi da 3 ky so thanh trang chu tuong ung



Private Function sotram2chu(socandoi As Integer) As String

Dim shangchuc, shangtram, shangdonvi As Integer

Dim str As String

str = ""

 Kiem tra so co hop le khong

If socandoi >= 1000 Then

sotram2chu = "???"

Exit Function

End If

 Tim 3 ky so mieu ta hang tram, hang chuc va hang don vi

shangtram = socandoi/00

socandoi = socandoi Mod 100

shangchuc = socandoi/10

shangdonvi = socandoi Mod 10

If shangtram >= 1 Then

str = chuso(shangtram) + " tram"

End If

If shangchuc >= 2 Then

str = str + " " + chuso(shangchuc) + " muoi"

ElseIf shangchuc = 1 Then

str = str + " muoi"

End If

If shangdonvi = 0 Then

sotram2chu = str

Exit Function

End If

If shangchuc = 0 Then

If shangtram <> 0 Then

str = str + " le " + chuso(shangdonvi)

Else

str = str + " " + chuso(shangdonvi)

End If

sotram2chu = str

Exit Function

End If

If shangchuc = 1 Then

If shangdonvi <> 5 Then

str = str + " " + chuso(shangdonvi)

Else

str = str + " lam"

End If

sotram2chu = str

Exit Function

End If

If shangdonvi = 1 Then

str = str + " mot"

ElseIf shangdonvi = 5 Then

str = str + " lam"

Else

str = str + " " + chuso(shangdonvi)

End If

sotram2chu = str

End Function



 Ham doi mot so nguyen bat ky thanh trang chu tuong ung



Private Function so2chu(socandoi As Long) As String

Dim idx As Integer

Dim ba_kyso As Integer

Dim str, str_tram As String

Dim tu_ngan_cach As String

idx = 0  vi tri dau cham phan cach tung 3 ky so

str = ""

str_tram = ""

While socandoi <> 0

ba_kyso = socandoi Mod 1000

socandoi = socandoi/1000

str_tram = sotram2chu(ba_kyso) nen bo cac khoang trong dan dau

If idx = 0 Then  vi tri don vi

str = str_tram

ElseIf Len(str_tram) <> 0 Then vi tri ngan, trieu, ty

tu_ngan_cach = chu_cach((idx Mod 3) + 1)

str = str_tram + " " + tu_ngan_cach + " " + str

ElseIf (idx Mod 3) = 0 Then

str = "ty " + str

End If

idx = idx + 1

Wend

so2chu = str

End Function

Hi: Trong Excel 7.0,  to mt macro c vng lp loop, ti c s dng lnh IF xong th Macro qua tng bc (Step) thy my khng thc hin c lnh IF nh ti mong mun (c th l khng phn bit c "False Value"). Ton b c php Macro y nh sau (Excel 4.0 macro):

= Select ("R1C1")

= For ("Counter", 1, 10)

= Select ("R[1]C")

= IF ("R[1]C" = "R5c5")

= Copy ("R[1]C")

= Paste ("R15C1")

= End.IF()

= Next ()

= Return ()

Nu Macro trn l khng ng c php vy khi ti mun to mt Macro bng ngn ng "Excel 4.0 macro" vi mc ch tm trong mt ct  nh (v d C1) cc dng (mu tin) c gi tr bng mt   nh (v d  R5C5) v copy cc dng ny vo ch ring th lm th no?

Tr li: Ngn ng macro Excel 4.0  li thi. T Excel 5.0 tr ln bn c th vit macro bng ngn ng VBA (Visual Basic for Applications). Ngn ng VBA l ngn ng chun ca Microsoft v hu ht cc ng dng ca Microsoft u h tr n. Th d mun tm 10  u ca ct 1  Sheet1, nu c  no bng tr tham kho   C1 th copy n sang hng tng ng  ct 2, bn c th to mt macro Excel cha th tc VBA sau:

Sub SearchCopy()

For Row = 1 To 10

If Application.Cells(Row, 1).Value = Application.Cells(1, 3).Value Then

Application.Cells(Row, 2).Value = Application.Cells(Row, 1).Value

End If

Next Row

End Sub

T Sheet1 ca Workbook hin hnh, bn nhp 10 tr vo 10  u  ct 1, nhp tr tham kho vo  u  ct 3, chn menu Insert/ Macro/ Module ri nhp th tc VBA trn vo ca s trng.

Sau khi nhp xong, bn chn button Sheet1  tr v bng cha d liu.  chy macro t Sheet1, bn chn menu Tools/ Macro/ SearchCopy/ Run, kt qu s hin th ngay  ct 2.

Hi: Trong bng tnh Excel (Office 97), khi mun c nhiu dng trong mt  (cell) th dng t hp phm Alt+Enter. C cch no  cc dng c dn u trong  (nh Alignment Justify trong Word) khng? (V trong Excel ch c Left, Right, Center)

Tr li: Nu bn mun chnh dng vn bn  ch  Justify trong tng  ca bng tnh Excel th bn khng c dng t hp Alt-Enter  ct hng bng tay nh bn  lm. Thc vy, bn phi nhp d liu lin tc cho n ht. Mc nh, d liu s c hin th ngang trn mt hng (c th rt di v b che khut bi d liu ca ct bn phi). By gi  chnh dng theo ch  Justify cho  va nhp, bn chn thc n Format.Cells.Alignment, v chn Justify trong hp Horizontal ri nhn OK.

Hi: Ti ang dng font ch Vit ABC. Khi s dng trong Excel th mt s font b li, v d nh font .VnTime khi g 'ngi' th ra 'ngoi', g '' th ra 'do'. Mt s font khc li khng b.

Tr li: Nu bn chc chn ch c mt s font b li cn cc font ABC khc vn hin th ng cng ni dung nhp vo th li l do font  b h hay khng ng m. Trong trng hp ny bn nn xa font b li ri ci li n t a gc xem sao.

Hi: Cng vic ca ti yu cu th hin trong bng tnh c php tnh v kt qu ca php tnh , v vy ti vn phi lm theo cch th cng l nhp php tnh vo mt cell (v d:2*3+5=) sau  sao php tnh ny sang mt cell bn cnh, ri xa du "="  cui php tnh v in du "=" ln u php tnh  c kt qu.  ngh cho bit trong chng trnh Excel c lnh hoc cng c no gip ngi s dng ly nhanh kt qu ca php tnh vi iu kin vn phi th hin c php tnh v kt qu ca php tnh trong bn in ra khng?

Tr li:  gii quyt vn  ca bn, bn c th nhp cng thc theo c php ring ca bn vo mt ct, Excel s coi y nh l chui k t bnh thng. Nu c mt macro vit sn c nhim v c tng  cha cng thc ca bn, di du "=" t cui chui v u chui ri ghi cng thc mi vo  tng ng  ct bn phi th kt qu ca cng thc s c hin th. Macro tinhcongthuc sau y s gii quyt vn  ca bn. Qui trnh to macro v kt hp n vi mt nt lnh  bn d truy xut n nh sau:

- Chn thc n Tools.Macro .Macros, nhp tn macro cn to (th d tinhcongthuc) vo mc Macro Name ri chn Create. Trnh Visual Basic s chy v hin th khung th tc  nhp vo.

- Nhp cc lnh sau vo thn ca th tc tinhcongthuc:

Sub tinhcongthuc()

Dim a, b As String

For Each c In Selection.Cells

a = c.Value

b = Right(a, 1)

If b = = Then

a = Left(a, Len(a) - 1)

c.Offset(0, 1).Value = b+a

Else

c.Offset(0, 1).Value = Error

End If

Next

End Sub

- Chn thc n View .Toolbars.Customize, chn nt Command.Macros. Ko nt Custom button n mt v tr no  trn mt thanh cng c ca Excel. Nhn phm phi vo nt va to, chn Edit button Image trong thc n xut hin  thay i hnh dng  ha ca nt. Chn Assign macro  lin kt nt vi macro tinhcongthuc. Sau cng, chn Name  hiu chnh tn nhn dng ca nt.

By gi bn  c mt nt macro mi vi cch dng nh sau :

- Nhp mt hay nhiu cng thc theo c php ring ca bn vo mt ct, Excel s xem y nh l chui k t bnh thng.

- Chn cc cng thc va nhp.

- Nhn nt tinhcongthuc, cc lnh trong macro s c thi hnh v bn s c kt qu ca cc cng thc bn ct ngay bn phi. Lu  vic tnh cng thc khng th t ng c, do  nu c s thay i v cng thc ca bn, bn phi thc hin li bc ny  Excel tnh li kt qu.

Ty yu cu, bn c th hiu chnh li gii thut ca macro bng thc n Tools.Macro.Macros chn macro cn hiu chnh ri nhn nt Edit. Ca s MS Visual Basic cha m lnh ca macro s hin ln  bn hiu chnh.

Hi: Trong qu trnh khai thc s dng cc cng c trong Excel ti c nhu cu sao chp cng thc theo dng/ct. Nhng hin ti ch mi s dng c sao chp tham chiu theo dng/ct, chc nng a ch tng i theo dng/ct hoc a ch tuyt i. Trng hp cn tham chiu rng hn th phi thc hin nh th no?

- Trong Excel ti mi ch thc hin c hm if v mt s hm khc  tm kim theo dng/ct (chng hn: nu  A1 ca sheet 2 bng  A1 ca sheet 1 th  B1 ca sheet 2 bng  B1 ca sheet 1...) ch cha thc hin c yu cu tm kim ton b ct A cho n khi tha mn iu kin.

Tr li: Trong Excel, bn c th tham kho ni dung ca mt hay nhiu  khc theo nhiu mc  khc nhau nh:

- Tham kho n  cc b trn cng Worksheet: ch cn miu t dng v ct ca  cn tham kho. V d nu dng c php miu t  dng A1, th  tham kho   ct C dng 5 th ta vit C5 (a ch tng i) hay $C$5 (a ch tuyt i).

- Tham kho n  ca worksheet khc trong cng mt workbook: miu t tn worksheet, dng v ct ca  cn tham kho. V d nu dng c php miu t  dng A1,  tham kho   ct C dng 5 ca worksheet tn l dulieunhap th ta vit dulieunhap!C5 (a ch tng i) hay dulieunhap!$C$5 (a ch tuyt i).

- Tham kho n  ca worksheet khc ca mt workbook khc: miu t tn workbook, tn worksheet, dng v ct ca  cn tham kho.

V d nu dng c php miu t  dng A1, th  tham kho   ct C dng 5 ca worksheet tn l dulieunhap trong workbook tn l datafile.xls th ta vit [datafile]dulieunhap!C5 (a ch tng i) hay [datafile] dulieunhap!$C$5 (a ch tuyt i).

 tm kim  c ni dung no  theo dng/ct ca bng tnh, bn nn to mt macro vi pht biu lp nh For, Do, While,... theo ct/hng.

Hi: Chng trnh Excel ca Office 97 trong thc n Data c lnh Table. Ti khng bit s dng ra sao tuy  c tm hiu qua chng trnh tr gip cng nh tm cc sch v Excel nhng khng thy ni v lnh ny. Xin cho bit cng dng, cch s dng v v d minh ha.

Tr li: Thc n Data.Table ca chng trnh Excel 97 cho php bn tnh cc gi tr ca mt hm hai bin hay nhiu hm mt bin theo cc tr ca bin . V d bn c mt hm hai bin f(x, y) no  (bn  bit cng thc ca hm) v mun tnh tr hm  theo cc tr ca x, y, bn c th tin hnh cc bc sau :
- Chn mt cell i din gi tr x (v d l A1)
- Chn mt cell i din gi tr y (v d l B1)
- Nhp cng thc ca hm hai bin f(x, y) vo mt cell khc (v d l B2) vi cc bin x, y c thay bng cc a ch cell i in tng ng (ngha l A1 v B1). Lu , cng thc bt u bng du "=".
- Nhp dy cc tr x cn dng  tnh tr hm vo cng hng vi cell cng thc v t cell ny qua phi (t C2)
- Nhp dy cc tr y cn dng  tnh tr hm vo cng ct vi cell cng thc v t cell ny tr xung (t B3)
- Chn khi ch nht c nh trn tri l cell cng thc v hai cnh l phn hng ct cha cc tr x, y
- Chn thc n Data.Table, nhp a ch cell i din bin x vo hp Row input cell v a ch cell i in bin y vo hp Column input cell, ri OK.
Bn s c c mt bng gi tr ca hm s tng ng vi tng cp tr x,y.

Hi: Khi lm vic trong bng tnh Excel, trng hp cc cng thc trong bng khng thc hin c th hin cu thng bo li. V d cng thc chia cho 0 s hin #DIV/0! - xem bng)

Vy c cch no lm cho cu thng bo trn khi in khng hin ra c khng? iu kin cng thc  vn gi nguyn khng xa i, c ngha l ch lm n khng cho in ra m thi).

Tr li: Nu doanh thu thng 4 nm  ct B v doanh thu thng 5 nm  ct C th cng thc so snh nm  ct D l =C2/B2. Tuy nhin cng thc ny khng phi lc no cng cho kt qu ng, v mt ton hc nu mu s ca php chia bng 0 th cng thc trn s v nh v Excel s bo li "#DIV/0!".  trnh vic hin th (v in ra) li sai trn, bn nn sa cng thc trn thnh cng thc phc tp hn nh sau:

=IF(B2<>0,C2/B2,"").

Vi cng thc mi, ta kim tra mu s trc, nu khc khng th dng cng thc c, cn nu mu s bng 0 ta s  trng kt qu.

Hi: 1/ Ti mun lp mt Macro trong Excel 97  v cc  th c cc vng s liu khc nhau v c s phn t thay i. V vy ti  thay i min gi tr ca SourceData bng cch a vo cc bin s. Tuy nhin khi ti khai bo:

ActiveChart.SetSourceData Source:=Sheets ("Do thi"). Range("A24: H48"),
PlotBy:=_xlColumns

th my khng bo lçi, nhng khi ti thay ®æi cch khai bo, ®Ó ®a cc biÕn sè vo:

Source:=Sheets("Do thi"). Range(Cells(24*m,2),Cells(24*(m+1), 2+songuon)),_
PlotBy:=xlColumns

my còng bo lçi:

Run-time error 1004:
Method Range of subject _Global failed

Ti dïng Help th thÊy dßng thng bo sau xuÊt hiÖn:

The topic does not exit
Contact your application vender for an updated hel file.

ThËm chÝ khi ti ® khai bo li, khng cho cc biÕn sè vo na nh sau:

ActiveChart.SetSourceDataSource:= Sheets("Dothi").Range(Cells(24, 2), Cells(48, 8),
PlotBy:=_xlColumns

th my vÉn bo lçi nh trn. Ti khng hiÓu mnh ® mc lçi g trong khai bo Source cña ®å thÞ hay l hiÖn thêi Excel khng cho phÐp khai bo nh ti ® lm v nÕu nh vËy cã cch no ®Ó khc phôc hay khng. ©y l mét phÇn Macro vÏ ®å thÞ m ti ® viÕt :

for m=1 to sothang
Set dothi = Sheets("Do thi").ChartObjects.Add(243 * (m - 1), 512, 243, 512)
dothi.Activate
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData
Source:=Sheets("Do thi").Range(Cells(24*m, 2), Cells(24*(m+1), 2+songuon)),_
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Do thi"
next m

Tr li: Lu  rng "Cells" l mt method (hay thuc tnh) ca i tng, do  bn nn miu t r rng tn ca i tng m bn cn truy xut trc method Cells. Tm li th tc v nhiu  th ca bn c th vit li nh sau :

Dim sothang As Integer
Dim songuon As Integer
Sub vedothi()
sothang = 12
songuon = 3
For m = 1 To sothang
Set dothi = Sheets("Do thi").ChartObjects.Add(243 * (m - 1), 512, 243, 512)
dothi.Activate
ActiveChart.ChartType = xlColumnStacked
Set sRange = Sheets("Do thi").Cells(24*m, 2)
Set eRange = Sheets("Do thi").Cells(24*(m+1), 2+songuon)
ActiveChart.SetSourceData Source:=Sheets("Do thi").Range(sRange, eRange), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Do thi"
Next m
End Sub

Vi on lnh trn, chng ti dng 2 bin sRange v eRange  cha 2 object miu t cell u v cui ca vng s liu cn cho  th. Vic dng 2 bin ny ch vi mc ch lm chng trnh d c (lnh SetSourceData s gn hn v r rng hn).

PcLeHoan 1996 - 2002
Mirror : http://www.pclehoan.com
Mirror : http://www.lehoanpc.net
Mirror : http://www.ktlehoan.com