VBA الدعم في احسب OpenOffice.Org
نشر في 21. أكتوبر، 2009 من قبل كريشنان في الهندسة ، HOWTO ، OpenOffice.org ، نصائح
لسنوات عديدة وحتى أمس، وكنت أعرف عن احسب OpenOffice.Org. اليوم، وأنا متحمس حول هذا الموضوع.
حاولت أوبن أوفيس منذ سنوات عديدة. ويمكن أن تفعل أشياء قليلة ثم يعود، ولكني رفضت على الفور بأنها غير كافية لاحتياجات بلدي. لقد كنت دائما من المعجبين ما يمكن أن تفعله VBA لإكسل.
في الأسبوع الماضي، أكملت القطعة الأكثر تعقيدا من تطبيق VBA كتبته من أي وقت مضى. انا مبتدئ VBA واستغرق مني اسبوع للانتهاء من قانون بلدي التي يمكن أن تكون مطبوعة على صفحات A4 28. جدول البيانات الخاص بي حتى الآن يعمل لا تشوبه شائبة ويندوز إكس بي / مكتب 2003 مثل أنه من المفترض أن، ولكن أنا كتبت أكثر من رمز بلادي في فيستا / أوفيس 2007.
جاء Openoffice.org 3.1.1 عندما رفع مستواها للضغط على ديبيان، مع ذلك. راجعت من الإصدار الجديد وأعجب ذلك يمكن للمرء أن كتابة وحدات الماكرو في بيثون، جافا سكريبت، بيانشيل بالإضافة إلى BASIC.
حاولت فتح قطعة لي أكثر تعقيدا من التعليمات البرمجية VBA في Openoffice.org وقصفت أنا مع المئات من رسائل الخطأ المتكررة التي أتيحت لي لقتل جدول من سطر الأوامر. وكان على قناعة بأن VBA وOOoCalc غير متوافقة، حتى اكتشفت هذا الموقع عن طريق الصدفة عندما يحاول تعلم الكتابة وحدات الماكرو جافاسكريبت في أوبن أوفيس.
موافق. وكان كل ما يلزم لإضافة "دعم VBA الخيار 1". بيد أن هذا لا يبدو من الصعب جدا، لذلك حاولت فتح جدول البيانات الخاص بي مرة أخرى، وكان مرة أخرى لقتل كل شيء من سطر الأوامر.
وكان بعض الشيء غير صحيح وأنا لم تمكنه من تشغيل VBA على الرغم من التوافق الموعودة.
لذلك قررت أن تذهب بطيئة. لا يهم كم مرة، لم أستطع تشغيل وحدات الماكرو عندما فتحت ملف Excel الأصلي. لذلك قررت أن فتح ملف Excel مع وحدات الماكرو معطلة. اسمحوا لي أن فتح جدول البيانات، ولكن لا شيء كان يعمل. وجدت أن OOoCalc تلقائيا أضافت "دعم VBA الخيار 1" إلى وحدات بي.
حفظ الملف كما أنا. المواد المستنفدة للأوزون، وشرع في تصحيح من خلال تمكين وحدات الماكرو مرة أخرى. هذه المرة، جاء أخطاء لم يأت في flood.They في وقت واحد، وأنه كان من السهل التصحيح.
أول مجموعة من الأخطاء المرتبطة المتغيرات التي لم يكن لديها تصريح واضح خافت. وبدا VBA في Excel أكثر تسامحا في التعامل مع varaibles بدون تصريحات خافت السليم. ولكن لم احسب أوبن أوفيس لا ترغب في ذلك. حتى انتهى بي الأمر إضافة عدد قليل من البيانات خافت لبعض المتغيرات.
وكانت المجموعة التالية من الأخطاء مع أسماء UDF اكسل. أوبن أوفيس احسب يحب أن يرى وظائف يتم استدعاء مع الأحرف الكبيرة. حتى إذا كنت تستخدم الأحرف صغير في Excel، فإنها تظهر على أنها أخطاء. ويمكن هذا ثابت بسهولة عن طريق استخدام ميزة البحث والاستبدال.
مع الأشياء اثنين فقط من هؤلاء، ثابتة بلدي جديد ملف المواد المستنفدة للأوزون. عملت على أكمل وجه. أنا أنقذ بعد ذلك كما. XLS وإعادة فتح XLS. وكان كل شيء لا تزال تعمل. على الرغم من أوبن أوفيس احسب الوثائق لا يزال يقول أن لا يتم دعم كافة الميزات VBA، VBA يعمل بشكل جيد على OOoCalc لجميع الحسابات الهندسية العملية. حتى الآن هو الوقت المناسب بالنسبة لي لجعل التحول.
الآن لا إذا كان لديك صعوبات في الحصول على الخاص VBA رمز للعمل في احسب OOO، التخلي في وقت قريب.

الوظائف ذات الصلة:


















































راكيش
07. نوفمبر، 2009
مرحبا،
لقد حاولت فعل ما يو ذكرتها، ولكن لا يزال لا يعمل.
إذا SHEET1.CELLS (7، 4) = "" أو SHEET1.CELLS (9، 4) = "" أو SHEET1.CELLS (10، 4) = ""
في هذا الخط وأنا على الحصول خاصية أو أسلوب غير موجود.
كريشنان
09. نوفمبر، 2009
بناء الجملة غير صحيح ومن الواضح أن ما أستطيع أن أرى.
إذا، وبعد ذلك، هي آخر الكلمات الرئيسية لاستخدامها. أم لا.
جيمس
07. فبراير، 2010
ingnoring على "REMS"
كيف يمكنك هذا الحق في أوبن أوفيس؟ أنا غير قادر على العمل خارج OOO - الثابتة والمتنقلة التي تحصل لي؟
REM الكلمات الفرعية ()
REM "
عيني 'كلمات ماكرو
تسجيل ماكرو REM "2010/07/02 من قبل المالك
REM "
REM "اختصار لوحة المفاتيح: CTRL + W
REM "
REM خافت NumWords وصحيح
REM WordLength خافت وصحيح
REM عدد خافت وصحيح
REM خافت Count2 وصحيح
REM خافت Lcase وصحيح
REM
REM كلمة خافت كسلسلة
REM خافت MixedWord كسلسلة
REM رسالة خافت كسلسلة
REM
أوراق العمل REM "(" كلمات "). تنشيط
REM
REM مجموعة wordRange = أوراق العمل ("كلمات") نطاق ("A1: A500").
REM NumWords = Application.WorksheetFunction.CountA (wordRange)
REM
عيني للحصول على عدد = 1 إلى NumWords
REM WordLength = ليون (خلايا (الكونت، 1))
REM
REM
REM "Application.EnableSound = خطأ
REM
REM "Application.EnableSound = صحيح
REM كلمة = خلايا (الكونت، 1)
خلايا REM "(عدد، 1). تنشيط
ActiveCell.Characters REM "(1، 3). PhoneticCharacters = كلمة
REM MixedWord = ""
عيني على Count2 = 1 إلى WordLength
عيني رسالة = MID (خلايا (الكونت، 1)، Count2، 1)
REM "Application.Speech.Speak (رسالة)
REM Lcase = ROUND (التجمع الوطني الديمقراطي)
REM
REM
REM إذا Lcase = 1 وتصاعديا (رسالة)> = 97 ثم رسالة = مركز حقوق الانسان (ASC (رسالة) - 32)
REM
REM MixedWord = MixedWord + رسالة
REM التالي Count2
خلايا REM (1، 5) = MixedWord
REM
REM رسالة خافت، العنوان، الصورة، MyValue
REM = رسالة "القرد جاهز؟"
REM عنوان = "لعبة الهجاء الشرف".
REM الافتراضي = "نعم"
REM MyValue = InputBox (رسالة، عنوان، الافتراضي)
REM
REM
عيني على Count2 = 1 إلى WordLength
عيني رسالة = MID (خلايا (الكونت، 1)، Count2، 1)
REM Application.Speech.Speak (رسالة)
REM التالي Count2
REM Application.Speech.Speak (وورد)
REM
REM إذا MyValue "نعم" ثم
REM Application.Speech.Speak (واضاف "هذا غير صحيح pooey - الذي أدخلته")
REM WordLength = ليون (MyValue)
عيني على Count2 = 1 إلى WordLength
عيني رسالة = MID (MyValue، Count2، 1)
REM Application.Speech.Speak (رسالة)
REM التالي Count2
REM Application.Speech.Speak (MyValue)
REM النهاية إذا
REM
REM
REM الكونت التالي
REM
REM
REM نهاية الفرعية
REM