របៀបបង្កើត ល្បែង ខ្លាខ្លោក ក្នុងកម្មវិធី ម៉ៃក្រូសហ្វ អ៊ិចសែល
How to create Kla Kloak Game in Microsoft Excel
1-ជាដំបូងយើងត្រូវមាន សន្លឹកកិច្ចការចំនួន២ ដោយដាក់ឈ្មោះ
Firstly, We need two sheets and name each one like this
.សន្លឹកកិច្ចការ១ ថា KlaKloakSpin សម្រាប់ក្រឡុក Rename Sheet1 to KlaKloakSpin for
spinnig
.សន្លឹកកិច្ចការ២ ថា KlaKloakPic សម្រាប់ដាក់រូបភាព Rename Sheet2 to KlaKloakSpin for pictures
2-នៅក្នុង KlaKloakPic យើងត្រូវ៖ In KlaKloakPic Sheet We need to do:
.ដាក់រូបភាព នៅក្នុងក្រឡារ៉ង់ A1:A6 . Load the following pictures
.កែទំហំកម្ពស់ ទទឹងក្រឡាឲ្យប៉ុននឹងទំហំរូបភាព.Adjust Width and
Height of eac cell for pictures
. ក្នុ្ងងក្រឡារ៉ង A 1:A6 វាយពាក្យOne,
Two ,Three, Four, Five ,Six ចូលក្នុងក្រឡានីមួយៗ
.Type : One, Two ,Three, Four, Five ,Six in the cell A1 to A6
3-នៅក្នុង KlaKloakSpin យើងត្រូវប្រើរូបមន្តនៅក្នុង៖ In KlaKloakPic Sheet We write the functions:
-ក្រឡា A3,B3,C3 កំណត់ ទទឹង width: 18.57 កម្ពស់ Height: 105 សម្រាប់ដាក់រូបភាព
-ក្រឡា B2,B3,B4 សរសេររូបមន្ត =RANDBETWEEN(1,6) ចូលដូចគ្នា
-សរសេររូបមន្តចូលក្រឡា A5 ,B5,C5
-ចំពោះ ក្រឡា Cell A5
=IF(B6="សូមចាក់","",IF(B2=1,"ខ្លា",IF(B2=2,"ខ្លោក",IF(B2=3,"មាន់",IF(B2=4,"ត្រី",IF(B2=5,"ក្ដាម",IF(B2=6,"បង្កង","")))))))
In the Cell A5
:(In English) =IF(A6="Please Bet
it","",IF(B2=1,"Tiger",IF(B2=2,
"Kloak",IF(B2=3,"Cock",IF(B2=4,"Fish",IF(B2=5,"Crab",
IF(B2=6,"Lobster","")))))))
-ចំពោះ ក្រឡា Cell B5
=IF(C6="សូមចាក់","",IF(B3=1,"ខ្លា",IF(B3=2,"ខ្លោក",IF(B3=3,"មាន់",IF(B3=4,"ត្រី",IF(B3=5,"ក្ដាម",IF(B3=6,"បង្កង","")))))))
-ចំពោះ ក្រឡា Cell C5
=IF(A6="សូមចាក់","",IF(B4=1,"ខ្លា",IF(B4=2,"ខ្លោក",IF(B4=3,"មាន់",IF(B4=4,"ត្រី",IF(B4=5,"ក្ដាម",IF(B4=6,"បង្កង","")))))))
-ក្រឡា
A6,B6,C6
បង្កើតបញ្ជី List ដោយចុចលើមីនុយ Dataà Data ToolsàData ValidationàList រួច
វាយក្នុងប្រអប់ ៖ សូមចាក់,ខ្លា,ខ្លោក,មាន់,ត្រី,ក្ដាម,បង្កង
In
the cell A6 create List from Data Validation with the following list words:
Please
Bet it,Tiger,Kloak,Cock,Fish,Crab,Lobster
-សរសេររូបមន្ត ក្នុងក្រឡា A7 ,B7,C7
ចំពោះក្រឡា A7
=IF(A6="សូមចាក់"," ",IF(AND(A5=A6,$E$3=TRUE),"សង "&TEXT(A7*2,
"[$-12000453]0"),IF(AND(A5=A6,$E$4=TRUE),"សង "& TEXT(A7*3,
"[$-12000453]0"),IF(AND(A5=A6,$E$5=TRUE),"សង "& TEXT(A7*4,
"[$-12000453]0"),IF(OR(AND(A5=A6,$E$3=FALSE),AND(A5=A6,
$E$4=FALSE),AND(A5=A6,$E$5=FALSE)),"សង "& TEXT(A7,
"[$-12000453]0"),"មេស៊ីខ្ទេច")))))
ចំពោះក្រឡា B7
=IF(B6="សូមចាក់"," ",IF(AND(B5=B6,$E$3=TRUE),"សង "&
TEXT(B7*2,"[$-12000453]0"),IF(AND(B5=B6,$E$4=TRUE),"សង "& TEXT(B7*3,"[$-12000453]0"),IF(AND(B5=B6,$E$5=TRUE),"សង "&
TEXT(B7*4,"[$-12000453]0"),IF(OR(AND(B5=B6,$E$3=FALSE),AND(B5=B6,$E$4=FALSE),AND(B5=B6,$E$5=FALSE)),"សង "& TEXT(B7,"[$-12000453]0"),"មេស៊ីខ្ទេច")))))
ចំពោះក្រឡា C7
=IF(C6="សូមចាក់"," ",IF(AND(C5=C6,$E$3=TRUE),"សង "& TEXT(C7*2,
"[$-12000453]0"),IF(AND(C5=C6,$E$4=TRUE),"សង "& TEXT(C7*3,
"[$-12000453]0"),IF(AND(C5=C6,$E$5=TRUE),"សង "& TEXT(C7*4,
"[$-12000453]0"),IF(OR(AND(C5=C6,$E$3=FALSE),AND(C5=C6,$E$4=FALSE),
AND(C5=C6,$E$5=FALSE)),"សង "& TEXT(C7,"[$-12000453]0"),"មេស៊ីខ្ទេច")))))
4-បង្កើតឈ្មោះ សម្រាប់ភ្ជាប់រូបភាពចូលជាមួយក្រឡា B2,B3,B4.
Define
three names to spin with cells B2,B3,B4 contain formulas RandBetween()
-
ឈ្មោះ
Name: Dice1
-
ភ្ជាប់យោងទៅក្រឡា
Refers to: =INDIRECT("KlaKloakPic!$A$"&$B$2)
-
ឈ្មោះName: Dice2
-
ភ្ជាប់យោងទៅក្រឡា
Refers to: =INDIRECT("KlaKloakPic!$A$"&$B$3)
-
ឈ្មោះName: Dice3
-
ភ្ជាប់យោងទៅក្រឡា
Refers to: =INDIRECT("KlaKloakPic!$A$"&$B$4)
5-បន្ថែមកាមេរ៉ាចូលក្នុងរបាឧបករណ៍រហ័សតាមតម្រូវការ Add Camera tool on Quick Access Tollbar
សេឡិចលើក្រឡា B2 .
Select cell B2
ចុចលើកាមេរ៉ា រួចយកមកគូសលើផ្ទៃសន្លឹកកិច្ចការ
Click on camera and draw it on the sheet
ក្នុងរបារូបមន្ត វាយឈ្មោះDice1
នោះវាបង្ហាញរូបភាព
Type Dice1 in the formula bar it will show the picture
ធ្វើរបៀបនេះដូចគ្នាចំពោះ ក្រឡា
B3 និង B4
Do the same for the cells B3 and B4
6-បង្កើត ប្រអបើធីក ដើម្បីស៊ីសងតាមមេគុណ
ប្រអប់ទី1 1x2 ភ្ជាប់វាទៅក្រឡា E3 បើត្រូវ មេសង គុណនឹង 2
ប្រអប់ទី2 1x3 ភ្ជាប់វាទៅក្រឡា E4 បើត្រូវ មេសង គុណនឹង 3
ប្រអប់ទី3 1x4 ភ្ជាប់វាទៅក្រឡា E5 បើត្រូវ មេសង គុណនឹង 4
7-នៅពេលដែលលទ្ធផលចេញត្រូវ នោះឲ្យវាបង្ហាញពណ៌ពីលើក្រឡាចាក់
-សេឡិចលើក្រឡា A6
ចុចទៅ Conditional FormattingàNew RuleàUse a Formula to determine
which cells to format វាយរូបមន្តចូល
=AND(ISNUMBER(SEARCH($A$6,A5)),$A$6<>"")
-សេឡិចលើក្រឡា B6
ចុចទៅ Conditional FormattingàNew RuleàUse a Formula to determine
which cells to format វាយរូបមន្តចូល
=AND(ISNUMBER(SEARCH($B$6,B5)),$B$6<>"")
-សេឡិចលើក្រឡា C6 ចុចទៅ Conditional
FormattingàNew RuleàUse a Formula to determine
which cells to format វាយរូបមន្តចូល
=AND(ISNUMBER(SEARCH($C$6,C5)),$C$6<>"")
8-បង្កើតប៊ូតុងក្រឡុក
-ចុច InsertàShapes àRounded Rectangle យកមកគូស រួចសរសេរអក្សរ “ក្រឡុក” ចូល
-ម៉ៅស្តាំឲ្យចំរួចចុចយក Assig Macro…àNew
-វាយពាក្យ Calculate ឲ្យបាន ៣ ដង
Sub
RoundedRectangle1_Click()
Calculate
Calculate
Calculate
End Sub
-រួចចុច Save
