Баярын мэнд банкируудаа

Монгол Улсад орчин цагийн банк санхүүгийн байгууллага үүсч хөгжсөний 90 жилийн ой энэ өдөрүүдэд тохиож байна. Үүнтэй холбогдуулан банкны системд ажилладаг мэрэгжил нэгт нөхдүүд маань энэхүү ойн арга хэмжээг угтан ажил мэргэжил, спорт урлагаар өөр хоорондоо өрсөлдөн хөгжилдөж байна. Миний бие банк санхүүгийн системд ажиллаад 7 дахь жилийнхээ нүүрийг үзэж байна. Энэ хугацаанд энэ салбарынхаа хөгжил дэвшилд өчүүхэн ч гэсэн үүрэг роль гүйцэтгэсэн гэдэгт бат итгэлтэй байна. За ингээд ажиллаж буй салбарын маань 90 жилийн ой болж байгаатай холбогдуулан EXCEL.mn сайтынхаа өмнөөс мэргэжил нэгт нөхдүүддээ нэгэн мэндчилгээг бэлтгэсэн юм. Та бүхэн энэхүү мэндчилгээг маань хүлээн авна уу.

Бид энэхүү мэндчилгээг Excel программ дээр хийсэн бөгөөд хэрхэн хийсэн талаар товчхон танилцуулъя. Нэг бүрчлэн тайлбарлабал нэлээдгүй ажил болох тул загварчлалын үндсэн зарчмыг танилцуулах болно.

1. Юуны өмнө бидэнд банкуудын лого байх шаардлагатай. Тэдгээр лого нь ижил хэмжээтэй (Өргөн, уртын хувьд) байх ёстой.
2. Зурагнуудыг нэг бүрчлэн Bank_1, Bank_2, Bank_3 …. гэх мэтчилэн дугаарлана.
3. За тэгээд VBA кодоо бичээд бидний мэндчилгээ ажиллахад бэлнэ болно.

Ашигласан VBA код:

[php]Sub macro_1()
ActiveSheet.Shapes("Group 14").Visible = False
ActiveSheet.Shapes("Picture 17").Visible = False
Range("G9").Select
Call SendKeys(Range("a1"), True)
Call SendKeys("{enter}", True)
width_variable = 5
Do
DoEvents
rep_count = rep_count + 1
width_variable = width_variable + 3
ActiveSheet.Shapes("Group 14").Visible = True
Sheet2.Shapes("Bank_1").Height = rep_count
Sheet2.Shapes("Bank_1").Width = rep_count
Sheet2.Shapes("Bank_2").Height = rep_count
Sheet2.Shapes("Bank_2").Width = rep_count
Sheet2.Shapes("Bank_3").Height = rep_count
Sheet2.Shapes("Bank_3").Width = rep_count
Sheet2.Shapes("Bank_4").Height = rep_count
Sheet2.Shapes("Bank_4").Width = rep_count
Sheet2.Shapes("Bank_5").Height = rep_count
Sheet2.Shapes("Bank_5").Width = rep_count
Sheet2.Shapes("Bank_6").Height = rep_count
Sheet2.Shapes("Bank_6").Width = rep_count
Sheet2.Shapes("Bank_7").Height = rep_count
Sheet2.Shapes("Bank_7").Width = rep_count
Sheet2.Shapes("Bank_8").Height = rep_count
Sheet2.Shapes("Bank_8").Width = rep_count
Sheet2.Shapes("Bank_9").Height = rep_count
Sheet2.Shapes("Bank_9").Width = rep_count
Sheet2.Shapes("Bank_10").Height = rep_count
Sheet2.Shapes("Bank_10").Width = rep_count
Sheet2.Shapes("Bank_11").Height = rep_count
Sheet2.Shapes("Bank_11").Width = rep_count
Sheet2.Shapes("Bank_12").Height = rep_count
Sheet2.Shapes("Bank_12").Width = rep_count
Sheet2.Shapes("Bank_13").Height = rep_count
Sheet2.Shapes("Bank_13").Width = rep_count
timeout (0.01)
Loop Until rep_count = 100
ActiveSheet.Shapes("Picture 17").Visible = True
Range("a1").Select
End Sub[/php]

Туслах VBA код:

[php]Sub timeout(duration_ms As Double)
start_time = Timer
Do
DoEvents
Loop Until (Timer – start_time) >= duration_ms
End Sub[/php]

Бидний хувьд бэлэнчлэх сэтгэлгээг арилгах үүднээс нийтлэлд ашигласан аливаа нэгэн загвар файлыг нийтлэлд хавсаргахыг хориглодог билээ. Энэ удаад энэхүү нийтлэлийн загвар файлыг хавсаргасан болно. Та бүхэн энэ мэндчилгээг хавсралт файлаас дэлгэрүүлж үзээрэй.

Bank_Anima.xlsxm