មាតិកា
មាននរណាម្នាក់ចូលចិត្ត ប៉ុន្តែខ្ញុំផ្ទាល់ត្រូវការរបារស្ថានភាពតែក្នុង 2-3 ករណីប៉ុណ្ណោះ៖
- បន្ទាប់ពីត្រងវាបង្ហាញចំនួនតម្លៃដែលនៅសល់បន្ទាប់ពីការជ្រើសរើស
- នៅពេលដែលជួរមួយត្រូវបានជ្រើសរើស វាបង្ហាញផលបូក មធ្យម និងចំនួនក្រឡាដែលបានជ្រើសរើស
- ក្នុងករណីឯកសារធ្ងន់ អ្នកអាចមើលឃើញវឌ្ឍនភាពក្នុងការគណនាឡើងវិញនូវរូបមន្តក្នុងសៀវភៅ។
មិនច្រើនទេសម្រាប់បន្ទាត់ដែលចាប់យកស្ទើរតែទទឹងទាំងមូលនៃអេក្រង់ ហើយព្យួរនៅលើវាគ្រប់ពេល។ តោះព្យាយាមពង្រីកបញ្ជីតិចតួចនេះ ហើយបន្ថែមមុខងារមានប្រយោជន៍មួយចំនួនទៀតទៅវា 🙂
គោលការណ៍ទូទៅសម្រាប់ការគ្រប់គ្រងរបារស្ថានភាព
ការគ្រប់គ្រងរបារស្ថានភាពដោយប្រើ Visual Basic គឺងាយស្រួលណាស់។ ដើម្បីបង្ហាញអត្ថបទរបស់អ្នកនៅក្នុងវា អ្នកអាចប្រើម៉ាក្រូសាមញ្ញមួយ៖
Sub MyStatus() Application.StatusBar = "Привет!" បញ្ចប់ អនុ
បន្ទាប់ពីដំណើរការវាយើងទទួលបាន៖
ដើម្បីស្ដារស្ថានភាពដើមនៃរបារស្ថានភាព អ្នកនឹងត្រូវការ "ប្រឆាំងម៉ាក្រូ" ខ្លីដូចគ្នា៖
Sub MyStatus_Off() Application.StatusBar = False End Sub
នៅក្នុងកំណែមូលដ្ឋានដូចដែលអ្នកបានឃើញអ្វីគ្រប់យ៉ាងគឺសាមញ្ញណាស់។ ឥឡូវយើងព្យាយាមបង្កើតគំនិត…
អាសយដ្ឋាននៃជួរដែលបានជ្រើសរើសនៅក្នុងរបារស្ថានភាព
នៅជ្រុងខាងឆ្វេងខាងលើនៃបង្អួច Excel ក្នុងរបាររូបមន្ត អ្នកតែងតែអាចមើលឃើញអាសយដ្ឋាននៃក្រឡាបច្ចុប្បន្ន។ ប៉ុន្តែប្រសិនបើជួរទាំងមូលត្រូវបានជ្រើសរើស នោះជាអកុសលយើងនឹងមិនឃើញអាសយដ្ឋានជ្រើសរើសនៅទីនោះទេ - ក្រឡាសកម្មតែមួយត្រូវបានបង្ហាញ៖
ដើម្បីដោះស្រាយបញ្ហានេះ អ្នកអាចប្រើម៉ាក្រូសាមញ្ញដែលនឹងបង្ហាញអាសយដ្ឋាននៃតំបន់ដែលបានជ្រើសរើសនៅក្នុងរបារស្ថានភាព។ ជាងនេះទៅទៀត ម៉ាក្រូនេះគួរតែត្រូវបានបើកដំណើរការដោយស្វ័យប្រវត្តិ ជាមួយនឹងការផ្លាស់ប្តូរណាមួយនៅក្នុងការជ្រើសរើសនៅលើសន្លឹកណាមួយ – សម្រាប់រឿងនេះ យើងនឹងដាក់វានៅក្នុងកម្មវិធីដោះស្រាយព្រឹត្តិការណ៍។ ការផ្លាស់ប្តូរការជ្រើសរើស សៀវភៅរបស់យើង។
បើក Visual Basic Editor ដោយប្រើប៊ូតុងឈ្មោះដូចគ្នានៅលើផ្ទាំង អ្នកអភិវឌ្ឍ (អ្នកអភិវឌ្ឍន៍) ឬផ្លូវកាត់ក្តារចុច ឆ្វេង Alt + F11. ស្វែងរកសៀវភៅរបស់អ្នកនៅជ្រុងខាងឆ្វេងខាងលើនៃបន្ទះគម្រោង ហើយបើកម៉ូឌុលនៅក្នុងវាដោយចុចពីរដង សៀវភៅនេះ (សៀវភៅការងារនេះ):
នៅក្នុងបង្អួចដែលបើក សូមចម្លង និងបិទភ្ជាប់កូដម៉ាក្រូខាងក្រោម៖
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) បញ្ចប់រង
ឥឡូវនេះ នៅពេលដែលជួរណាមួយត្រូវបានជ្រើសរើស (រួមទាំងច្រើនជាងមួយ!) អាសយដ្ឋានរបស់វានឹងត្រូវបានបង្ហាញនៅក្នុងរបារស្ថានភាព៖
ដើម្បីទប់ស្កាត់អាសយដ្ឋាននៃជួរជាច្រើនដែលបានជ្រើសរើសដោយប្រើ Ctrl ពីការបញ្ចូលគ្នា អ្នកអាចបន្ថែមការកែលម្អតូចមួយ - ប្រើមុខងារជំនួស ដើម្បីជំនួសសញ្ញាក្បៀសដោយសញ្ញាក្បៀសជាមួយដកឃ្លា៖
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Replace(Selection.Address(0, 0), ",", ", ") បញ្ចប់រង
ចំនួនក្រឡាដែលបានជ្រើសរើសនៅក្នុងរបារស្ថានភាព
នៅពេលជ្រើសរើសជួរណាមួយ ចំនួនក្រឡាដែលបានជ្រើសរើសមិនទទេត្រូវបានបង្ហាញនៅជ្រុងខាងស្តាំនៃរបារស្ថានភាពតាមលំនាំដើម។ ពេលខ្លះអ្នកត្រូវដឹងពីចំនួនដែលបានបែងចែក។ កិច្ចការនេះក៏អាចសម្រេចបានជាមួយនឹងម៉ាក្រូសាមញ្ញ ដើម្បីដោះស្រាយព្រឹត្តិការណ៍សៀវភៅ SelectionChange ដូចក្នុងឧទាហរណ៍មុនដែរ។ អ្នកនឹងត្រូវការម៉ាក្រូដូចជា៖
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount as Variant, rng ជា Range សម្រាប់ rng នីមួយៗក្នុង Selection.Areas 'ធ្វើម្តងទៀតតាមរយៈការជ្រើសរើសទាំងអស់ RowsCount = rng.Rows.Count 'ចំនួនជួរដេក ColumnsCount = rng. . Count 'number of columns CellCount = CellCount + RowsCount * ColumnsCount ' ប្រមូលផ្តុំចំនួនក្រឡាសរុប Next ' បង្ហាញក្នុងរបារស្ថានភាព Application.StatusBar = "បានជ្រើសរើស៖ " & CellCount & " cells" បញ្ចប់ Sub
ម៉ាក្រូនេះធ្វើរង្វិលជុំតាមតំបន់ដែលបានជ្រើសរើស Ctrl ទាំងអស់ (ប្រសិនបើមានច្រើនជាងមួយ) រក្សាទុកចំនួនជួរដេក និងជួរឈរនៅក្នុងតំបន់នីមួយៗក្នុងអថេរ RowsCount និង ColumnsCount ហើយប្រមូលផ្តុំចំនួនក្រឡានៅក្នុងអថេរ CellCount ដែលបន្ទាប់មកត្រូវបានបង្ហាញ។ នៅក្នុងរបារស្ថានភាព។ នៅកន្លែងធ្វើការវានឹងមើលទៅដូចនេះ:
ជាការពិតណាស់ អ្នកអាចផ្សំវា និងម៉ាក្រូមុន ដើម្បីបង្ហាញទាំងអាសយដ្ឋាននៃជួរដែលបានជ្រើសរើស និងចំនួនក្រឡាក្នុងពេលតែមួយ។ អ្នកគ្រាន់តែត្រូវផ្លាស់ប្តូរបន្ទាត់ចុងក្រោយមួយទៅ៖
Application.StatusBar = "បានជ្រើសរើស៖ " & Replace(Selection.Address(0, 0), ",", ", ") & " - សរុប " & CellCount & " cells"
បន្ទាប់មករូបភាពនឹងអស្ចារ្យណាស់៖
មែនហើយ ខ្ញុំគិតថាអ្នកទទួលបានគំនិត។ ផ្ដល់យោបល់នៅក្នុងមតិយោបល់ - តើមានអ្វីទៀតដែលមានប្រយោជន៍ក្នុងការបង្ហាញនៅក្នុងរបារស្ថានភាព?
- តើម៉ាក្រូជាអ្វី របៀបដែលពួកគេធ្វើការ របៀបប្រើ និងបង្កើតវា។
- ការជ្រើសរើសសំរបសំរួលងាយស្រួលនៅលើសន្លឹក Excel
- របៀបបង្កើតរូបមន្តស្មុគ្រស្មាញឱ្យកាន់តែមើលឃើញ