Excel এ নির্মিত এমন কোনও ফাংশন নেই তবে আপনি এটি তৈরি করতে পারেন।
এক্সেল 2010 কীবোর্ড শর্টকাট , এক্সেল 2013 কীবোর্ড শর্টকাট , এক্সেল অনলাইন কীবোর্ড শর্টকাট
আপনি যা চান কীবোর্ড শর্টকাট অনুকরণ করতে, আপনি ব্যবহার করে VBA ব্যবহার করতে পারেন Application.OnKey একটি ম্যাক্রো একটি কীবোর্ড সমন্বয় বরাদ্দ করার পদ্ধতি।
নিম্নরূপ ধারণা:
Workbook_Open ইভেন্টে, ম্যাক্রোগুলিতে কীবোর্ড আদেশগুলি বরাদ্দ করুন
Workbook_BeforeClose ইভেন্টে, একই কমান্ডগুলিকে কিছুই নির্দিষ্ট করুন (ডিফল্টে রিসেট করুন)
একটি মডিউলে, সেই কীবোর্ডের কমান্ডগুলির জন্য আপনি যে subroutines চালাতে চান তা লিখুন
এখন, যখনই আপনি ওয়ার্কবুকটি খুলবেন, আপনার নির্বাচিত কীবোর্ড কমান্ডগুলি ম্যাক্রো চালাবে যা আপনি যা চান তা করতে পারবেন। এই শীট কাছাকাছি চলন্ত চেয়ে আরো উপায় জন্য ভাল। আমার উদাহরণে, আমি ডাউন এবং আপের জন্য CTRL + D এবং CTRL + U কীগুলি বরাদ্দ করেছি কিন্তু আপনি যেগুলি আপনার কাছে সবচেয়ে বেশি ইন্দ্রিয় তোলে তা চয়ন করুন।
আপনি যদি এই কীবোর্ড কমান্ডগুলি প্রতিটি ফাইলের জন্য কাজ করতে চান তবে প্রাইমাইজটি একই রকম যে আপনি তাদের পরিবর্তে আপনার ব্যক্তিগত ম্যাক্রো কার্যক্ষেত্রে সেগুলি সংরক্ষণ করুন।
আমি ফাইল সংযুক্ত করতে পারি না তাই কোড এখানে। (মনে রাখবেন যে এই কোডটি রুক্ষ এবং দ্রুত। আমি সবচেয়ে সহজ উদাহরণ চাই, সবচেয়ে শক্তিশালী কোড নয়।)
"এই ওয়ার্কবুক" বস্তুর মধ্যে:
Private Sub Workbook_Open()
Application.OnKey "^d", "findLastOfThis"
Application.OnKey "^u", "findFirstOfThis"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^d"
Application.OnKey "^u"
End Sub
একটি মডিউল মধ্যে:
Option Explicit
Private Sub findLastOfThis()
Dim val As Variant
Dim r As Long, c As Long
val = ActiveCell.Value
c = ActiveCell.Column
For r = ActiveCell.Row To ActiveSheet.UsedRange.Rows.Count
If Cells(r, c).Value <> val Then Exit For
Next
r = r - 1
Cells(r, c).Activate
End Sub
Private Sub findFirstOfThis()
Dim val As Variant
Dim r As Long, c As Long
val = ActiveCell.Value
c = ActiveCell.Column
For r = ActiveCell.Row To 1 Step -1
If Cells(r, c).Value <> val Then Exit For
Next
r = r + 1
Cells(r, c).Activate
End Sub