ร่วมกันทางลัดการแก้ไขอัตโนมัติ

ถามผมได้ตั้งค่าประมาณ 200 ทางลัดของ Excel การแก้ไขอัตโนมัติที่เป็นตัวแทนของผลิตภัณฑ์และบริการต่างๆที่นำเสนอโดย บริษัท ของฉัน วิธีที่ดีที่สุดในการถ่ายโอนทางลัดเหล่านี้ไปใช้กับระบบอื่น ๆ เพื่อให้เพื่อนร่วมงานของฉันสามารถใช้พวกเขาคืออะไร?

การแก้ไขอัตโนมัติซึ่งออกมาใน Excel 95, สามารถแก้ไขข้อผิดพลาดการสะกดที่พบบ่อยในทันที ในฐานะที่เป็นผู้ใช้จำนวนมากของ Excel ได้ค้นพบคุณยังสามารถกำหนด "ทางลัดจดชวเลข" ที่ขยายไปตามลำดับของตัวอักษรอีกต่อไป ตัวอย่างเช่นคุณอาจกำหนด "AWC" เป็นทางลัดแก้ไขอัตโนมัติสำหรับ "ควบ Widget Corporation of America." เมื่อคุณพิมพ์ลงในเซลล์ awc, Excel แล้วจะแทนที่ด้วยสตริงข้อความที่เกี่ยวข้อง คุณกำหนดและจัดการทางลัดของคุณโดยใช้เครื่องมือการแก้ไขอัตโนมัติคำสั่ง

Excel และอื่น ๆ ทั้งหมดโปรแกรม Microsoft Office เก็บทางลัดในการแก้ไขอัตโนมัติ * เดียว. ไฟล์ ACL ในโฟลเดอร์ Windows ของคุณ (ชื่อไฟล์ที่แน่นอนจะแตกต่างกันไป) ดังนั้นการเปลี่ยนแปลงที่คุณทำจาก Excel, พูด, จะสามารถใช้ได้ใน Word แต่มีเครื่องมือสำหรับการแก้ไข * ไบนารี. ไฟล์ ACL และย้ายไฟล์ดังกล่าวจากระบบหนึ่งไปยังอีกที่จะทำให้รายการที่มีอยู่ของคุณไม่มีอะไร วิธีการแก้ปัญหาคือการใช้แมโคร VBA เพื่อสร้างทางลัด

เริ่ม Excel กับสมุดงานใหม่ที่มีแผ่นเดียวแล้วใส่ทางลัดและข้อความที่เกี่ยวข้องของพวกเขาลงในคอลัมน์ A และ B ตามลำดับ (ในรูปด้านล่าง) ใส่ให้มากที่สุดเท่าที่คุณต้องการเริ่มต้นในแถวที่ 1 และไม่รวมแถวที่ว่างเปล่าใด ๆ ระหว่างรายการ บันทึกและตั้งชื่อแผ่นงานนี้

เลือกเครื่องมือที่แมโครแมโครเพื่อแสดงกล่องโต้ตอบแมโคร CreateShortcuts ประเภทในเขตข้อมูลชื่อแมโครและคลิกที่สร้าง จากนั้นป้อนแมโครต่อไปนี้ลงในโมดูล VBA, และกด Alt-F11 เพื่อกลับไปยัง Excel

  CreateShortcuts ย่อย ()
   ItemCount = Application.CountA (Range ("Sheet1:"))
   สำหรับ = 1 To ItemCount แถว
     ShortText เซลล์ = (แถว 1)
     LONGTEXT เซลล์ = (แถว 2)
     Application.AutoCorrect.AddReplacement ShortText, LONGTEXT
   แถวถัดไป
 ย่อยสิ้นสุด 

บันทึกสมุดงานและแจกจ่ายให้กับเพื่อนร่วมงานของคุณ เมื่อต้องการเพิ่มทางลัดแก้ไขอัตโนมัติให้เปิดสมุดงานให้เลือกเครื่องมือ, Macro, มาโครแล้วรัน CreateShortcuts แมโคร ทราบว่าทางลัดที่มีอยู่ในที่มีชื่อเดียวกันจะถูกเขียนทับโดยไม่มีการเตือน